用PowerPoint制作比赛评分系统

用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 = ""

你可能喜欢

  • MSP430F149
  • 计时器PPT
  • 辩论赛计时器
  • 演讲比赛评分表
  • 演讲评分标准
  • 患者病情评估
  • 危重病人评分

用PowerPoint制作比赛评分系统相关文档

最新文档

返回顶部