请帮我做一个可以记分的小程序！有一点点创意就可以了！就是那种像电视歌手大奖赛的！有什么去掉最高分，最低分，然后计算最后成绩什么的。还要自动列出冠军、亚军、季军！要记10个人的分数！拜托了！45分钟之内得上交给老师啊！帮帮我！也可以根据附件的例子修改！
热心网友
代码修改如下:Dim k, j As IntegerDim sum, min, max As DoublePrivate Sub Command1_Click()sum = 0For k = 1 To 10sum = sum + Text1(k)NextText2 = sum - max - minEnd SubPrivate Sub Command2_Click()min = Text1(1)For i = 2 To 10 If Text1(i) max Then max = Text1(i) Else max = max End IfNextCommand1。Enabled = TrueEnd SubPrivate Sub Command4_Click()For k = 1 To 10Text1(k) = ""NextText2 = ""End Sub关于自动列出冠军、亚军、季军！要记10个人的分数,方法同如上代码修改着做,10个人的分数可另定义数组变量解决。
热心网友
...晕,上学还有这样上的