用vb编程一个歌手大赛程序,一共10个评委,去掉一个最高分,一个最底分,去平均值。 用smax
你没有说界面设计的具体要求是什么样的?所以就给你设计成用文本控件数组输入10个评委的成绩,找出最高分、最低分,算出平均分。
界面如下图:
程序代码如下:
Dim smax,smin, ssum As Integer
Private SubCommand2_Click() '求10个评委中最高分
Dim i AsInteger
smax =Text1(0).Text
For i = 1 To9
Ifsmax < Text1(i).Text Then
smax = Text1(i).Text
End If
Next i
max.Text =smax
End Sub
Private SubCommand3_Click() '求10个评委中最低分
Dim i AsInteger
smin =Text1(0).Text
For i = 1 To9
Ifsmin > Text1(i).Text Then
smin = Text1(i).Text
End If
Next i
min.Text =smin
End Sub
Private SubCommand1_Click() '求歌手的最后得分
Dim i AsInteger
ssum = 0
For i = 0 To9
ssum = ssum +Text1(i).Text
Next i
score.Text =(ssum - smax - smin) / 8
End Sub