用VB程序设计一个歌手大赛的评分程序

来源：学生作业帮编辑：灵鹊做题网作业帮分类：综合作业时间：2024/04/30 17:06:53

用VB程序设计一个歌手大赛的评分程序
请设计一个歌手大赛的评分程序.10位评委评分由InputBox函数输入（设满分为10分）,除去一个最高分和一个最低分,计算平均分（选手的最后得分）并在窗体上显示.如下图所示.
要求：
（1）单击“评分”按钮弹出“歌手大赛评分程序”输入分数窗口,并用数组（用冒泡排序）实现统计最高分、最低分和最后得分；
（2）单击结束按钮退出.
二、评分办法及标准
1．满分20分.完成界面设计满分20分；其他情况将根据界面完成情况酌情给分；
2．满分60分.完成“评分”按钮功能满分60分,如果代码正确但未正常弹出消息框的30分,其他情况按实际完成部分酌情给分；
3．满分10分.完成“结束”按钮功能各满分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 Su

用VB程序设计一个歌手大赛的评分程序 VB程序设计大奖赛评分程序设计编写程序实现在歌手大奖赛中,有10个评委为参赛的选手打分,分数为1到100 VB的循环结构程序设计 VB编程设计一个歌曲大奖评分程序,有12为评委打分,根据比赛规则,去掉一个最高分,计算选手的平均得分用VB设计一个计算圆的面积的程序用VB设计一个计算银行存款利息的程序编写一个计算个人所得税的程序（用VB编写）请教大神用VB编一个计算的程序? 用vb编写一个用于求随机数的程序, VB编程：设计一个体操评分程序,20 位评委,除去一个最高分和一个最低分,计算平均分一个关于评委打分的VB程序. 求用vb编写下面的程序