用PowerPoint制作比赛评分系统
时间:2023-06-20 21:49:19
最近单位组织了一次英语会话比赛,笔者用powerpoint内嵌的VBA功能制作了一个即时评分系统,受到老师和同学们的一致好评,现将制作过程与大家分享。
准备工作:在桌面新建一个名为“评分系统”的文件夹,用于存放参赛队的相关信息,其中Name.txt中保存了各参赛队名称(需事先准备,每个队名占一行)。
启动工作:新建一张空白幻灯片,在“视图”菜单下找到“工具栏”子菜单,选择其中的“控件工具箱”(大家也可根据实际需要改变主界面风格)。调整相应控件位置,评委照片用的是“图像控件”,下面的分数用的是“文本框”,两个按钮用的是“命令按钮”,放置好控件之后再调整各控件的属性来美化界面,也可根据实际需要插入图片进行修饰。
评分系统主界面中包括8个评委的照片和每个评委给出的分数(如图),功能按钮包括“清空”、“最后得分”。
各评分得分的文本框的名称为TxtS1,TxtS2……TxtS8,“最后得分”按钮的名称为CommandTotal,第二张幻灯片用来显示最后得分的标签名称为LblTotal。
设计工作:打开VBA编辑器编写代码:
'指定文件夹用于存放每组得分的统计文件
Const Path$ = "C:windowsdesktop评分系统"
'全局变量,最后总分
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)
sum = sum + CSng(TxtS8.Text)
'计算出最后得分(平均分),精确到小数点后3位
AverageScore = Format(sum / 8, "#.###")
'第二张幻灯片显示最后得分
Slide2.LblTotal.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
新建一个模块,写入如下代码,此处为评奖模块。
'评选项一等奖1名,二等奖2名,三等奖3名,故Counter变量设为6
Const 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
新建一张幻灯片,用于显示三等奖获奖名单,按钮名称为CmdDisply,6个文本框的名称为TxtThirdPrize1……TxtThirdPrize6。
代码如下:
Private Sub CmdDisply_Click()
ReadDataInp
因为分数从高到低排序,因此先输出最后三组
TxtThirdPrize1.Text = StrName(4)
TxtThirdPrize2.Text = StrName(5)
TxtThirdPrize3.Text = StrName(6)
制作时你也可以加入其他的幻灯片用做修饰,比如制作一个带动态效果的开始画面以及结束语等等,然后在比赛时用投影机作为输出,一定会起到烘托赛场气氛的作用。
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
XP系统里面桌面图标间距很大
![](https://img.aspxhome.com/file/2023/2/a288906_0s.gif)
Win7自动检测设置浏览器更新的方法
![](https://img.aspxhome.com/file/2023/27/a231930_0s.jpg)
win7纯净版安装后占用c盘空间多大的使用心得
![](https://img.aspxhome.com/file/2023/5/a315863_0s.jpg)
Word文档调整行间距没反应怎么办
![](https://img.aspxhome.com/file/2023/2/32062_0s.png)
键盘上的三个灯是什么意思?键盘上的三个灯有什么用?
![](https://img.aspxhome.com/file/2023/6/a325668_0s.jpg)
PPT中图片尺寸的单位怎么设置为px像素?
![](https://img.aspxhome.com/file/2023/6/a324330_0s.png)
Win10 19H1快速预览版18351系统怎么手动升级?
![](https://img.aspxhome.com/file/2023/28/a241384_0s.jpg )
WPS演示利用透明文本框打造PS效果的图片朦胧画意感
![](https://img.aspxhome.com/file/2023/7/a169267_0s.jpg)
excel中两列数据交换的教程
联想miix510能安装Win11?联想miix510是否支持Win11详细介绍
![](https://img.aspxhome.com/file/2023/1/a283318_0s.jpg)
搜狗输入法2015工具箱怎么使用
![](https://img.aspxhome.com/file/2023/5/a317558_0s.jpg)
wps2013如何设置边框
Win11右下角日历打不开怎么办?解决方法分享
![](https://img.aspxhome.com/file/2023/1/a272589_0s.jpg)
128GB 529元!Intel 760p M.2固态盘发布:3230MB/s
![](https://img.aspxhome.com/file/2023/2/a291609_0s.jpg)
如何在chrome浏览器中安装vue的调试工具
![](https://img.aspxhome.com/file/2023/9/a211039_0s.jpeg)
苹果 watchOS 7.5 开发者预览版 Beta 3 发布
![](https://img.aspxhome.com/file/2023/9/a206999_0s.jpeg)
升级Win10一周年更新版卡在83%不动了该怎么办?
![](https://img.aspxhome.com/file/2023/29/a261016_0s.jpg)
查询ip地址小妙招这些你知道吗
![](https://img.aspxhome.com/file/2023/7/a326702_0s.jpg)
在excel中用短横线代表0的做法
wps怎么画直角三角形图形? wps画三角形的教程
![](https://img.aspxhome.com/file/2023/7/a166107_0s.png)