UC知道高分：VB上级设计卡拉OK比赛评分程序！在线等！！！
来源：百度知道 编辑：UC知道 时间：2024/05/27 03:48:39
设计卡拉OK比赛评分程序，在窗体上建立三个标签，建立一个名为Test1的文本框数据，然后画一个名为Test2的文本框和名为Command1的命令按钮，设计界面，运行时在文本框数据组中输入10个分数，单击“计算得分”命令按钮，则最后得分显示在Test2文本框中（去掉一个对高分和一个最低分后的平均分即为最后得分）。
这个是明天要考试的内容~
希望会的人一定要帮帮麟麟呀！！！
谢谢的！！！
麟麟现在先给100分，
等编程成功会追加最高的分！！！！
谢谢！！！
一定要帮帮麟麟呀！！！
这个是那个界面的~
麟麟对VB不懂啊~~~
大家帮帮麟麟吧~~~~
谢谢大家的！！！！
这个是明天要考试的内容~
希望会的人一定要帮帮麟麟呀！！！
谢谢的！！！
麟麟现在先给100分，
等编程成功会追加最高的分！！！！
谢谢！！！
一定要帮帮麟麟呀！！！
这个是那个界面的~
麟麟对VB不懂啊~~~
大家帮帮麟麟吧~~~~
谢谢大家的！！！！
Private Sub Command1_Click()
Dim i As Integer, m As Integer, n As Integer, s As Double
For i = 0 To 9
Debug.Print Test1(i),
If Not IsNumeric(Test1(i).Text) Then
MsgBox "第" & i + 1 & "个分数输入错误！"
Exit Sub
ElseIf Val(Test1(i).Text) < 0 Or Val(Test1(i).Text) > 10 Then
MsgBox "第" & i + 1 & "个分数输入错误！"
Exit Sub
End If
Next i
m = 0 '记录最大分数编号
n = 0 '记录最小分数编号
For i = 0 To 9
If Val(Test1(m).Text) < Val(Test1(i).Text) Then
m = i
ElseIf Val(Test1(n).Text) > Val(Test1(i).Text) Then
n = i
End If
s = s + Val(Test1(i).Text)
Debug.Print Val(Test1(i).Text);
Next i
s = s - Val(Test1(m).Text) - Val(Test1(n).Text) '去掉最高分最低分
Test2.Text = s / 8
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 9
Test1(i).Text = ""
Next i
Command