用VB程序设计一个歌手大赛的评分程序请设计一个歌手大赛的评分程序.10位评委评分由InputBox函数输入(设满分为10分),除去一个最高分和一个最低分,计算平均分(选手的最后得分)并在窗
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/27 11:02:24
![用VB程序设计一个歌手大赛的评分程序请设计一个歌手大赛的评分程序.10位评委评分由InputBox函数输入(设满分为10分),除去一个最高分和一个最低分,计算平均分(选手的最后得分)并在窗](/uploads/image/z/1287100-28-0.jpg?t=%E7%94%A8VB%E7%A8%8B%E5%BA%8F%E8%AE%BE%E8%AE%A1%E4%B8%80%E4%B8%AA%E6%AD%8C%E6%89%8B%E5%A4%A7%E8%B5%9B%E7%9A%84%E8%AF%84%E5%88%86%E7%A8%8B%E5%BA%8F%E8%AF%B7%E8%AE%BE%E8%AE%A1%E4%B8%80%E4%B8%AA%E6%AD%8C%E6%89%8B%E5%A4%A7%E8%B5%9B%E7%9A%84%E8%AF%84%E5%88%86%E7%A8%8B%E5%BA%8F.10%E4%BD%8D%E8%AF%84%E5%A7%94%E8%AF%84%E5%88%86%E7%94%B1InputBox%E5%87%BD%E6%95%B0%E8%BE%93%E5%85%A5%EF%BC%88%E8%AE%BE%E6%BB%A1%E5%88%86%E4%B8%BA10%E5%88%86%EF%BC%89%2C%E9%99%A4%E5%8E%BB%E4%B8%80%E4%B8%AA%E6%9C%80%E9%AB%98%E5%88%86%E5%92%8C%E4%B8%80%E4%B8%AA%E6%9C%80%E4%BD%8E%E5%88%86%2C%E8%AE%A1%E7%AE%97%E5%B9%B3%E5%9D%87%E5%88%86%EF%BC%88%E9%80%89%E6%89%8B%E7%9A%84%E6%9C%80%E5%90%8E%E5%BE%97%E5%88%86%EF%BC%89%E5%B9%B6%E5%9C%A8%E7%AA%97)
ƣ*b b@y%s7'J>qDgnd^V`y=b$G@E,.^E "#A3{ L. '1?xD9Bsp&DXխ&MFR"$vd0H\um%T)4Lvh8XE#Fj**D G ֽp"ŠfSR4̗/)t]G&J8BCTTN*RBa9ph/D~x!} ztW_FT#RJqNBa:gmCߕi;p,h= jHҠ=P?~DU qz~}J:]h5{PHhJ<gּǚq9A\b 1dEYG~Oł]wӨR6c]cD_ #wцl.-FǡuA ͱc(勔<4L]E !6/xԄ *G
用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