马九克教育技术应用研究工作坊

马九克：上海市七宝中学特级教师，majk5168@163.com

日志

关于我

马九克

物理特级教师,全国优秀教师,2013年上海教育年度十大新闻人物。华东师范大学慕课中心兼职教授,华东师大网络学院特聘专家,微软（中国）精英培训师,独立承担着“上海市中小学教师信息技术有效应用”课程的开发工作。“马九克教育技术应用研究名师工作室”主持人。中国教师报教育技术应用培训专家。2014年教师节入选上海百名名师《教育人生》大型画册。在教学工作之余,自学多媒体信息技术,特别是将Office常用软件应用于教育教学工作的研究和实践突破常规,创新思维。出版的系列专著八本。上海市及全国各地培训达800多场。

文章分类

用PPT制作评分系统

2009-03-23 00:55:08| 分类： PPT应用技巧 | 标签： |举报 |字号大中小订阅

下载LOFTER 我的照片书 |

比赛形式，由学生上台进行朗诵，由八位语文教师进行现场打分。通过比赛评分系统即时评比。
在开始之前，我们先来学前班对PPT内嵌的控件工具箱进行简单的学习。
准备工作
在C盘新建一文件夹。命名为“考试评分”。用于存放参赛人员的相关信息，其中Name.txt中保存参赛人员名字（事先准备好Name.txt，每位参赛选手人员占一行）。
制作过程
1、界面设置
打开PowerPoint 2003新建一幻灯片，点击“视图—工具栏—控件工具箱”打开“控件工具箱”。在工具箱中使用“图像控件”来插入八位语文老师的照片，分数可以用“文本框”来表示，再插入两个“命令按钮”来进行操作，分别为：清空“和”最终得分“按钮。放置好控件之后再调整各控件的属性美化界面。
评委打分的文本框名称为Text1,Text2,.......Text8,“最终得分”按钮的名称为CommandTotal,第二张幻灯片用来显示最后得分，名称为Tota1Score.
2、全局变量设置
打开VBA编辑器输入代码。
Const Path$ = "C:\考试评分\"
'指定得分的统计文件路径
Dim sum As Single
'全局变量总分
Dim AverageScore As Single
'全局变量平均得分
Dim GroupNum As Integer
'全局变量记录组次
Private Sub CommandButton1_Click()
'清空得分
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Slide2.TotalScore.Caption = ""
'清空下一张幻灯片的最后总分
End Sub

Private Sub CommandTotal_Click()
'“最终得分”按钮
On Error GoTo er
Dim sum As Single
'将8个评委的分数相加得出总分sum
sum = sum + CSng(Text1.Text)
sum = sum + CSng(Text2.Text)
sum = sum + CSng(Text3.Text)
sum = sum + CSng(Text4.Text)
sum = sum + CSng(Text5.Text)
sum = sum + CSng(Text6.Text)
sum = sum + CSng(Text7.Text)
sum = sum + CSng(Text8.Text)
AverageScore = Format(sum / 8, "#.###")
'计算出最后得分（平均分），精确到小数点后3位
Slide2.TotalScore.Caption = AverageScore
'第二张幻灯片显示最后得分
If GroupNum>=1 AND GroupNum <= 5 Then
'写入最后得分
Open Path$ & "InpScore.txt" For Append As #1
Print #1, AverageScore
Close #1
End If
GroupNum = GroupNum + 1
er:
End Sub

3、建立评奖模块
在MICIosoft Visua1 Basic中点击“插入—模块”来建立评奖模块，再次输入代码，
Const Counter = 6
'如评一等奖1名，二等奖2名，三等奖3名，故Counter设为6
Public StrName(Counter) As String
Public SngScore(Counter) As Single
Public Sub ReadDataInp()
'读取得分文件，并对得分加以排序
On Error GoTo er
Open Path$ & InpName.txt For Input As #1
For i = 1 To Counter
Input #1, StrName(i)
Next
Close #1
Open Path$ & InpScore.txt For Input As #2
For i = 1 To Counter
Input #2, SngScore(i)
Next
Close #2
For i = 1 To Counter
For j = 1 To Counter
If SngScore(i) SngScore(j) Then
a = SngScore(i) SngScore(i) = SngScore(j) SngScore(j) = a
b = StrName(i) StrName(i) = StrName(j) StrName(j) = b
End If
Next
Next
er
End Sub
4、建立显示获奖名单
回到PPT中新建一张幻灯片，用于显示获奖名单，按钮名称为CmdDisply,6个文本框的名称为Prize1,...,Prize6.输入代码。
Private Sub CmdDisply_Click()
ReadDataInp
'因为分数从高到低排序，因此先输出最后三组
Prize1.Text = StrName(4)
Prize2.Text = StrName(5)
Prize3.Text = StrName(6)
大家在制作时可以加入其他的幻灯片用做装饰，这样就能让赛场气氛非常热烈。

评论这张

转发至微博

阅读(1051)| 评论(1)

历史上的今天

this.p={  m:2,
              b:2,
              loftPermalink:'',
              id:'fks_082067084080083075082085095095086081085066093087094066',
              blogTitle:'用PPT制作评分系统',
              blogAbstract:'<DIV   \><P\>      比赛形式，由学生上台进行朗诵，由八位语文教师进行现场打分。通过比赛评分系统即时评比。<BR\>在开始之前，我们先来学前班对PPT内嵌的控件工具箱进行简单的学习。<BR\>准备工作<BR\>     在C盘新建一文件夹。命名为“考试评分”。用于存放参赛人员的相关信息，其中Name.txt中保存参赛人员名字（事先准备好Name.txt，每位参赛选手人员占一行）。<BR\>制作过程<BR\>1、界面设置<BR\>打开PowerPoint 2003新建一幻灯片，点击“视图—工具栏—控件工具箱”打开“控件工具箱”。在工具箱中使用“图像控件”来插入八位语文老师的照片，分数可以用“文本框”来表示，再插入两个“命令按钮”来进行操作，分别为：清空“和”最终得分“按钮。放置好控件之后再调整各控件的属性美化界面。</P\></DIV\>',
              blogTag:'',
              blogUrl:'blog/static/2741918120092230558745',
              isPublished:1,
              istop:false,
              type:0,
              modifyTime:0,
              publishTime:1237740908745,
              permalink:'blog/static/2741918120092230558745',
              commentCount:1,
              mainCommentCount:1,
              recommendCount:0,
              bsrk:-100,
              publisherId:0,
              recomBlogHome:false,
              currentRecomBlog:false,
              attachmentsFileIds:[],
              vote:{},
              groupInfo:{},
              friendstatus:'none',
              followstatus:'unFollow',
              pubSucc:'',
              visitorProvince:'',
              visitorCity:'',
              visitorNewUser:false,
              postAddInfo:{},
              mset:'000',
              mcon:'',
              srk:-100,
              remindgoodnightblog:false,
              isBlackVisitor:false,
              isShowYodaoAd:false,
              hostIntro:'物理特级教师,全国优秀教师,2013年上海教育年度十大新闻人物。华东师范大学慕课中心兼职教授,华东师大网络学院特聘专家,微软（中国）精英培训师,独立承担着“上海市中小学教师信息技术有效应用”课程的开发工作。“马九克教育技术应用研究名师工作室”主持人。中国教师报教育技术应用培训专家。2014年教师节入选上海百名名师《教育人生》大型画册。在教学工作之余,自学多媒体信息技术,特别是将Office常用软件应用于教育教学工作的研究和实践突破常规,创新思维。出版的系列专著八本。上海市及全国各地培训达800多场。',
              hmcon:'1',
              selfRecomBlogCount:'0',
              lofter_single:'<iframe width="140" height="560" style="overflow:hidden;" src="http://www.lofter.com/mailEntry.do?blogad=1&blog" frameBorder="0"></iframe>'
            }

{list a as x}
    {if !!x}
    <div class="iblock nbw-fce nbw-f40">
      <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.visitorName}/">
      {if x.visitorName==visitor.userName}
      <img alt="${x.visitorNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.visitorName)}&r=${visitor.imageUpdateTime}"/>
      {else}
      <img alt="${x.visitorNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.visitorName)}"/>
      {/if}
      </a>
      <div class="cwd vname thide">
        {if x.moveFrom=='wap'}
          <a class="noul pnt" target="_blank" href="http://blog.163.com/services/wapblog.html?frompersonalbloghome"><span title="来自网易手机博客" class="iblock wapIcon"> </span></a>
        {elseif x.moveFrom=='iphone'}
          <a class="noul pnt" target="_blank"><span title="来自iPhone客户端" class="iblock iphoneIcon"> </span></a>
        {elseif x.moveFrom=='android'}
          <a class="noul pnt" target="_blank"><span title="来自Android客户端" class="iblock androidIcon"> </span></a>
        {elseif x.moveFrom=='mobile'}
          <a class="noul pnt" target="_blank" href="http://blog.163.com/services/emsblog.html?frompersonalbloghome"><span title="来自网易短信写博" class="iblock wapIcon"> </span></a>
        {/if}
        <a class="fc03 m2a"  target="_blank" hidefocus="true" href="http://blog.163.com/${x.visitorName}/">
          ${fn(x.visitorNickname,8)|escape}
        </a>
      </div>
    </div>
    {/if}
    {/list}

<#--最新日志，群博日志--> <#--推荐日志-->

<p class="fc06">推荐过这篇日志的人：</p>
    <div>
      {list a as x}
      {if !!x}
      <div class="iblock nbw-fce nbw-f40">
        <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.recommenderName}/">
        <img alt="${x.recommenderNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.recommenderName)}"/>
        </a>
        <div class="cwd thide">
          <a class="fc03 m2a" target="_blank" hidefocus="true" href="http://blog.163.com/${x.recommenderName}/">
            ${fn(x.recommenderNickname,6)|escape}
          </a>
        </div>
      </div>
      {/if}
      {/list}
    </div>
    {if !!b&&b.length>0}
    <p  class="fc06">他们还推荐了：</p>
    <ul>
    {list b as y}
      {if !!y}
        <li class="rrb"><span class="iblock">·</span><a class="fc03 m2a" target="_blank" href="http://blog.163.com/${y.recommendBlogPermalink}/?from=blog/static/2741918120092230558745">${y.recommendBlogTitle|escape}</a></li>
      {/if}
    {/list}
    </ul>
    {/if}

<#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇，下一篇--> <#-- 热度 -->

{list a as x}
    {if !!x}
    <div class="hotItem iblock nbw-fce nbw-f40">
      <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/">
      {if x.publisherUsername==visitor.userName}
      <img alt="${x.publisherNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.publisherUsername)}&r=${visitor.imageUpdateTime}"/>
      {else}
      <img alt="${x.publisherNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.publisherUsername)}"/>
      {/if}
      </a>
      <div class="cwd vname thide">
        <a class="fc03 m2a"  target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/">
          ${fn(x.publisherNickname,8)|escape}
        </a>
      </div>
      <a class="f-myLikeIcons hottype {if x.type==1} js-liketype{elseif x.type==2} js-reblogtype{elseif x.type==3} js-sharetype{else}{/if}" target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/"> </a>
    </div>
    {/if}
    {/list}

<#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->

页脚

我的照片书 - 手机博客 - 下载LOFTER APP - 订阅此博客

马九克教育技术应用研究工作坊

导航

日志

用PPT制作评分系统

历史上的今天

最近读者

热度

评论

页脚