[原创]技能竞赛系统(用VBA实现)
[原创]技能竞赛系统(用VBA实现)论坛上曾经有人想制作一个技能竞赛系统的ＰＰＴ用来即时显示比赛累积分，利用ＶＢＡ是可以实现的。详情见附件，希望版主能再给个精华，版主可不要吝惜啊，得给我鼓励啊，我可是花了４个小时的时间来调试才完成！huang05 你有空看看我的帖子 我在你的基础上改了一下，用一张Slide实现不限次计分，并且加上了一些防错控制！点击EH的LOGO开始计分，也可以当全局重置按键！抱歉，你的一楼作品不能给精华，希望以后能看到更好的作品！
版主改得高明！ 定义总分为Long可能会出错，因为给分可能是带有小数点的。定义为单精度就好了。 呵呵，你考虑得比较周全。
其实还有很多地方可以改进和完善，要视具体需求而定。 大受启发，受益匪浅！ 太好了，通过大家的交流，我得好好学。其实，我想就是在单个幻灯片实现效果，再次谢谢大家! gaoshou! 前面拜读了Chenhuafu的累积分实现方法，还有Kevin总版主的修改方案，非常有帮助，谢谢！下面的这个教程是多个评委同时评分的评分系统，但是我研究了半天也没有成功，不知道究竟哪儿出了错？！我很想实现这个功能并且每个选手均有5分倒计时显示，最好最后十秒像CCTV5中T0P10中的模式放大闪过！谢谢Kevin版主，谢谢Chenhuafu！教程如下：在桌面新建一个名为“评分系统”的文件夹，用于存放参赛队的相关信息，其中Name.txt中保存了各参赛队名称（需事先准备，每个队名占一行）。启动工作：新建一张空白幻灯片，在“视图”菜单下找到“工具栏”子菜单，选择其中的“控件工具箱”（大家也可根据实际需要改变主界面风格）。调整相应控件位置，评委照片用的是“图像控件”，下面的分数用的是“文本框”，两个按钮用的是“命令按钮”，放置好控件之后再调整各控件的属性来美化界面，也可根据实际需要插入图片进行修饰。评分系统主界面中包括8个评委的照片和每个评委给出的分数功能按钮包括“清空”、“最后得分”。各评分得分的文本框的名称为TxtS1，TxtS2……TxtS8，“最后得分”按钮的名称为CommandTotal，第二张幻灯片用来显示最后得分的标签名称为LblTotal。设计工作：打开VBA编辑器编写代码：'指定文件夹用于存放每组得分的统计文件Const Path$ = "C:windowsdesktop评分系统"'全局变量，最后总分Dim sum As Single'全局变量，最后平均得分Dim AverageScore As Single'全局变量，记录组次，保存后自动加1Dim 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 erDim sum As Single'将8个评委的分数相加得出总分sumsum = 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 GroupNumSngScore(j) Thena = SngScore(i): SngScore(i) = SngScore(j): SngScore(j) = ab = StrName(i): StrName(i) = StrName(j): StrName(j) = bEnd IfNextNexter:End Sub新建一张幻灯片，用于显示三等奖获奖名单，按钮名称为CmdDisply，6个文本框的名称为TxtThirdPrize1……TxtThirdPrize6。代码如下：Private Sub CmdDisply_Click()ReadDataInp因为分数从高到低排序，因此先输出最后三组TxtThirdPrize1.Text = StrName(4)TxtThirdPrize2.Text = StrName(5)TxtThirdPrize3.Text = StrName(6)制作时你也可以加入其他的幻灯片用做修饰，比如制作一个带动态效果的开始画面以及结束语等等，然后在比赛时用投影机作为输出，一定会起到烘托赛场气氛的作用。