用PowerPoint制作比赛评分系统

• 最近单位组织了一次英语会话比赛，笔者用Powerpoint内嵌的VBA功能制作了一个即时评分系统，受到老师和同学们的一致好评，现将制作过程与大家分享。
  
  　　准备工作：在桌面新建一个名为“评分系统”的文件夹，用于存放参赛队的相关信息，其中Name.txt中保存了各参赛队名称（需事先准备，每个队名占一行）。
  
  　　启动工作：新建一张空白幻灯片，在“视图”菜单下找到“工具栏”子菜单，选择其中的“控件工具箱”（大家也可根据实际需要改变主界面风格）。调整相应控件位置，评委照片用的是“图像控件”，下面的分数用的是“文本框”，两个按钮用的是“命令按钮”，放置好控件之后再调整各控件的属性来美化界面，也可根据实际需要插入图片进行修饰。
  
  　　评分系统主界面中包括8个评委的照片和每个评委给出的分数（如图），功能按钮包括“清空”、“最后得分”。
  

  

  
  　　各评分得分的文本框的名称为TxtS1，TxtS2……TxtS8，“最后得分”按钮的名称为CommandTotal，第二张幻灯片用来显示最后得分的标签名称为LblTotal。
  
  　　设计工作：打开VBA编辑器编写代码：
  
  
  　　'指定文件夹用于存放每组得分的统计文件
  
  　　Const Path$ = "C:\windows\desktop\评分系统\"
  
  　　'全局变量，最后总分
  
  　　Dim sum As Single
  
  　　'全局变量，最后平均得分
  
  　　Dim AverageScore As Single
  
  　　'全局变量，记录组次，保存后自动加1
  
  　　Dim GroupNum As Integer
  
  　　'清空“评委得分”，清空“最后得分”
  
  　　Private Sub CommandButton1_Click()
  
  　　TxtS1.Text = ""
  
  　　TxtS2.Text = ""
  
  　　TxtS3.Text = ""
  
  　　TxtS4.Text = ""
  
  　　TxtS5.Text = ""
  
  　　TxtS6.Text = ""
  
  　　TxtS7.Text = ""
  
  　　TxtS8.Text = ""
  
  　　'清空下一张幻灯片的最后总分
  
  　　Slide2.LblTotal.Caption = ""
  
  　　End Sub
  
  　　'“最后得分”按钮
  
  　　Private Sub CommandTotal_Click()
  
  　　On Error GoTo er
  
  　　Dim sum As Single
  
  　　'将8个评委的分数相加得出总分sum
  
  　　sum = sum + CSng(TxtS1.Text)
  
  　　sum = sum + CSng(TxtS2.Text)
  
  　　sum = sum + CSng(TxtS3.Text)
  
  　　sum = sum + CSng(TxtS4.Text)
  
  　　sum = sum + CSng(TxtS5.Text)
  
  　　sum = sum + CSng(TxtS6.Text)
  
  　　sum = sum + CSng(TxtS7.Text)
  
• [1] [2] [3] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 用PowerPoint制作比赛评分系统 相关文章：
• 用PowerPoint制作比赛评分系统 相关软件

上一篇:解决WPS 2000非正常删除后的重安装问题

下一篇:让多个对象在PPT中协作播放

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐