注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

零售创新,创新那些事儿,SPSS,VBA

零售创新

 
 
 

日志

 
 
关于我

新浪微博,零售创新 研究经理,数据分析师 希望和市场研究和零售业的同事共同进步! 本博客发表的都是免费或试用的资料,如果有版权问题请发邮件wangli12a@163.com联系删除。 spss excel vba blog

网易考拉推荐

用PowerPoint制作比赛评分系统  

2010-01-15 16:20:42|  分类: 电脑知识 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
最近单位组织了一次英语会话比赛,笔者用PowerPoint内嵌的VBA功能制作了一个即时评分系统,受到老师和同学们的一致好评,现将制作过程与大家分享。

  准备工作:在桌面新建一个名为“评分系统”的文件夹,用于存放参赛队的相关信息,其中Name.txt中保存了各参赛队名称(需事先准备,每个队名占一行)。

   启动工作:新建一张空白幻灯片,在“视图”菜单下找到“工具栏”子菜单,选择其中的“控件工具箱”(大家也可根据实际需要改变主界面风格)。调整相应控 件位置,评委照片用的是“图像控件”,下面的分数用的是“文本框”,两个按钮用的是“命令按钮”,放置好控件之后再调整各控件的属性来美化界面,也可根据 实际需要插入图片进行修饰。

  评分系统主界面中包括8个评委的照片和每个评委给出的分数(如图),功能按钮包括“清空”、“最后得分”。
用PowerPoint制作比赛评分系统 - 豆豆 - 学习SPSS,EXCEL各种统计软件

各评分得分的文本框的名称为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)

  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)

  制作时你也可以加入其他的幻灯片用做修饰,比如制作一个带动态效果的开始画面以及结束语等等,然后在比赛时用投影机作为输出,一定会起到烘托赛场气氛的作用。
  评论这张
 
阅读(501)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017