VB程序问题

来源：百度知道 编辑：UC知道 时间：2024/05/03 06:36:53
歌手大赛优个评委，最终成绩标准：8个评委的打分去掉一个最高分一个最低分，求得平均分，编写此程序。
要求：1将窗体的caption改为计算选手得分
2添加一个标签，caption为请输入评委的打分
3添加八个文本框，用来存放8个评委的打分
4添加一个命令按扭，其caption为最终得分为
5添加一个标签，caption为空，用来存放歌手的最终得分

谢谢了！！在线等！！我的邮箱iyekai2gmail.com
请把程序发到里面 ！！！ 谢谢！！！

'注意，全部过程都用的你上面的，只不过是第3部添加文本框时用的是控件数组T1，代码只有这些就足够了
Private Sub Command1_Click()
Dim Min As Integer
Dim Max As Integer
Dim Sumnum As Double
Dim Ave As Double
Min = 10
For i = 0 To 7
If Val(T1(i)) > Max Then Max = Val(T1(i).Text)
If Val(T1(i)) < Min Then Min = Val(T1(i).Text)
Sumnum = Sumnum + Val(T1(i))
Next i
Ave = (Sumnum - Max - Min) / 6
Label2.Caption = "最高分：" & Max
Label3.Caption = "最底分：" & Min
Label4.Caption = "平均分：" & Ave
End Sub

邮件已经发给你，请查收。还有你的地址应该是iyekai@gmail.com吧？你写成iyekai2gmail.com了。

呵呵，没有想到被楼上的抢到了先机。
不过，我也编了一个，发给你参考下吧。
我的邮址是borle@sohu.com。