巧妙运用PPT制作演讲比赛评分系统
巧妙运用PPT 制作演讲比赛评分系统
准备工作:
在C 盘新建一文件夹,命名为“考试评分”。用于存放参赛人员的相关信息,其中Name.txt 中保存着各参赛人员名字(事先准备好Name.txt ,每位参赛人员占一行)。 制作过程:
1. 界面设置
打开PowerPoint 2003新建一幻灯片,点击“视图→工具栏→控件工具箱”打开“控件工具箱”。在工具箱中使用“图像控件”来插入八位语文教师的照片,分数可以用“文本框”来表示,再插入两个“命令按钮”进行操作,分别为“清空”和“最终得分”按钮。放置好控件之后再调整各控件的属性并美化界面(见图1)。
评委打分的文本框名称为Text1,Text2,„„,Text8,“最终得分”按钮的名称为CommandTotal ,第二张幻灯片用来显示最后得分,名称为TotalScore 。
2. 全局变量设置
打开VBA 编辑器(见图2)输入如下代码:
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
' 写入最后得分
Open Path$ & "InpScore.txt" For Append As #1
Print #1, AverageScore
Close #1
End If
GroupNum = GroupNum + 1
er:
End Sub
3. 建立评奖模块
在Microsoft Visual 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)
大家在制作时可以加入其他的幻灯片用做修饰,这样就能让赛场气氛非常热烈。
相关文章
- 演讲策划书
- 创意策划大赛
- 20**年演讲比赛策划书
- 创业部活动策划书
- 第六届研究生英语演讲大赛策划书
- 推销自己演讲比赛
- 英语之星最终策划书
- 演讲比赛2
- 读书节演讲比赛评分细则
零世界 演讲与口才 划 主办:临床医学院宣传部 2015-4 -02 策书 一.活动目的 作为本次活动的目的在于,提高和锻炼学生的口才综合素质,促进中医认证,加强中医认证和学院建设思想 . 二.地点: 阶梯教室 三.对象: 临床医学院大一新 ...
第三届 策 划 大 赛 策 划 书 主办:材料科学与工程学院学生会 协办:材料科学与工程学院团委宣传中心 协办:数理,环化,外国语,公管,船海学院 创 意 目录 一. 前言·····················4 二. 活动背景···· ...
测绘工程学院 演讲比赛 策 划 书 主办单位:测绘工程学院学生会 承办单位:测绘工程学院学习实践部 协办单位:纪律部.科技部.宣传部等部门 2014年03月 目录 一. 活动背景 二. 三. 四. 五. 六. 七. 八. 九. 十. 十一. ...
创业部活动策划书 一 活动背景 为了响应十八大的号召,支持党建工作,以及为实现我校创立综合性大学的目标,正确引导大学生树立职业规划意识,进一步认识自我和了解就业环境,树立正确的职业目标.同时,传播和普及职业规划理念,帮助大学生学习与掌握职业 ...
第六届研究生英语演讲大赛策划书 一 .活动概况 1.活动名称 广东工业大学第六届研究生英语演讲大赛 2.活动目的 (1)进一步激励同学们学习英语的热情,提高研究生英语口语水平,提供一个可以展现自我,激励他人的舞台,并且加强在校研究生的竞争意 ...
"自我推销"演讲比赛策划书 活动引言:为了丰富广大同学的课余生活,加强自我认识,给学生提供一个展现自我, 提升自我的机会和舞台,校经管系学习部决定在4月xx 号举办"自我推销"演讲比赛.面对 经济危机 ...
英语之星最终策划书 一. 活动目的和意义 "英语之星"作为华南理工大学研究生文化节旗下的活动之一,以其独特的视角和颇具时代气息的特质吸引了众多研究生的参与和关注.英语作为世界性语言,在即将举行的世界性体育文化盛典中起着举 ...
传递爱心,奉献助人 中国矿业大学 " 励 志 . 青 春 . 梦 想 " 演 讲 比 赛 主办单位:中国矿业大学服务总队 传递爱心,奉献助人 承办单位:电力学院知恩社 一. 活动背景:党的十八大,习近平主席提出了‚中国梦 ...
"分享读书的乐趣"演讲比赛演讲比赛评分细则(暂行) 评分标准: 主要从演讲内容.演讲技巧.演讲效果.时间掌握及脱稿要求五部分对演讲选手进行评分.满分为100分.分演讲内容.语言表达.形象风度.综合印象四部分对演讲选手进行 ...