利用VBA制作评分系统
利用VBA制作评分系统，但是我研究了半天也没有成功，不知道究竟哪儿出了错？！教程如下：在桌面新建一个名为“评分系统”的文件夹，用于存放参赛队的相关信息，其中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 GroupNum SngScore(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)制作时你也可以加入其他的幻灯片用做修饰，比如制作一个带动态效果的开始画面以及结束语等等，然后在比赛时用投影机作为输出，一定会起到烘托赛场气氛的作用。 论坛上的教程（成品）不看，看哪个破报纸的误人子弟文章。 chenhuafu楼主你好，我已经仔细阅读了您的文章
可是电脑教育报的这个教程实现的是多个评委评分
去掉最高分、去掉最低分，汇总最后分数
实际上是不一样的，而且这个更实用一些！
麻烦您仔细看看
还有就是如何结合倒计时、怎样制作及时的排行榜？
谢谢！ 清看我做的一个示例
谢谢你,abzzl!
abzzl制作的评分系统，通过在右侧引用最高分最低分来实现这一步骤
虽然实现了，但是感觉仍然有些不完美。
我是做平面设计的。
美工应该没有问题，技术可就菜的一塌糊涂（一见编程就头疼 55~~）
热切盼望各位大侠，斑竹的帮助！
dearoo:
右侧的最高分和最低分也是由程序自动计算的,不要输入! document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />请看这个图片我想实现的效果就是这样点击最高分或最低分，则对应分数闪烁点击最后得分，出现全屏分数还有您设计的这个文件，无法实现对多个选手的计分并汇总排名！非常感谢你的帮助！倒计时部分，希望能够实现效果如图document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />到时前10秒，出现提示声音到时时屏幕变色或者数字闪烁，出现报警声音。 相关参考资料
比赛评分系统 V7.0
下载地址:http://www.skycn.com/soft/20750.html
比赛计分系统 1.62
下载地址:http://shareware.skycn.com/soft/5542.htm
比赛计分显示软件 Build 2004.01.01
下载地址:http://download.winzheng.com/SoftView/SoftView_8678.htm
个人感觉《比赛评分系统》除了奇丑之外功能基本可以了
但是这几个软件都不够好！ 继续求助！ 如此多的功能,要编程开发.单用幻灯片难实现.建议使用excel作数据处理.
页:
[1]
2