作业帮用VB程序设计一个歌手大赛的评分程序请设计一个歌手大赛的评分程序.10位评委评分由InputBox函数输入（设满分为10分）,除去一个最高分和一个最低分,计算平均分（选手的最后得分）并在窗
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/20 19:53:08
用VB程序设计一个歌手大赛的评分程序请设计一个歌手大赛的评分程序.10位评委评分由InputBox函数输入（设满分为10分）,除去一个最高分和一个最低分,计算平均分（选手的最后得分）并在窗
用VB程序设计一个歌手大赛的评分程序
请设计一个歌手大赛的评分程序.10位评委评分由InputBox函数输入（设满分为10分）,除去一个最高分和一个最低分,计算平均分（选手的最后得分）并在窗体上显示.如下图所示.
要求：
（1）单击“评分”按钮弹出“歌手大赛评分程序”输入分数窗口,并用数组（用冒泡排序）实现统计最高分、最低分和最后得分；
（2）单击结束按钮退出.
二、评分办法及标准
1．满分20分.完成界面设计满分20分；其他情况将根据界面完成情况酌情给分；
2．满分60分.完成“评分”按钮功能满分60分,如果代码正确但未正常弹出消息框的30分,其他情况按实际完成部分酌情给分；
3．满分10分.完成“结束”按钮功能各满分10分,其他情况将依据代码实
要做这样的.
用VB程序设计一个歌手大赛的评分程序请设计一个歌手大赛的评分程序.10位评委评分由InputBox函数输入（设满分为10分）,除去一个最高分和一个最低分,计算平均分（选手的最后得分）并在窗
’3个label,2个command
Private Sub Command1_Click()
Dim s, i, j, arr(1 To 10), t, sum
For i = 1 To 10
s = InputBox("输入评分（0-10分）：", "第" & i & "个分数")
If IsNumeric(s) Then
s = Val(s)
If s < 0 Or s > 10 Then
i = i - 1
Else
arr(i) = s
End If
Else
i = i - 1
End If
Next
For i = 1 To 9
For j = i + 1 To 10
If arr(i) > arr(j) Then
t = arr(i): arr(i) = arr(j): arr(j) = t
End If
Next
Next
For i = 2 To 9
sum = sum + arr(i)
Next
Label1.Caption = "最高分为：" & arr(10)
Label2.Caption = "最低分为：" & arr(1)
Label3.Caption = "选手最后得分：" & Round(sum / 8, 1)
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Command1.Caption = "评分"
Command2.Caption = "结束"
With Label1
.Caption = ""
.AutoSize = True
End With
With Label2
.Caption = ""
.AutoSize = True
End With
With Label3
.Caption = ""
.AutoSize = True
End With
End Sub