本文目录
- 用vb编程一个歌手大赛程序，一共10个评委，去掉一个最高分，一个最底分，去平均值 用smax
- vb编程十位评委给歌手打分，要求去掉一个最高分一个最低分然后再求出选手的平均分
- VB用户输入10个选手的得分(0-10分)，然后去掉一个最高分和一个最低分，求出某选手的最后得分(平均分)
- VB编程，某次比赛，有7位裁判打分，得分去掉一个最高分，去掉一个最低分，求出选手的平均分
- vb歌手大赛评分程序10位评委除去一个最高分和一个最低分计算平均数(设满分为10)
- 用VB程序设计一个歌手大赛的评分程序
用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
vb编程十位评委给歌手打分，要求去掉一个最高分一个最低分然后再求出选手的平均分
Dim arr(1 To 10) As DoubleConst N = 10Private Sub Command1_Click() Record Dim temp As Double For i = 1 To N - 1 For j = 1 To N - 1 If arr(j) 》 arr(j + 1) Then t = arr(j): arr(j) = arr(j + 1): arr(j + 1) = t End If Next j Next i showrEnd SubPrivate Sub Form_Load() For txtcount = 0 To 9 Text1(txtcount).Text = "" Next End SubPrivate Sub Record() For txtcount = 0 To 9 arr(txtcount + 1) = Val(Text1(txtcount).Text) NextEnd SubPrivate Sub sort() End SubPrivate Sub showr() For txtcount = 0 To 9 Text1(txtcount).Text = arr(txtcount + 1) NextEnd Sub
还要加入10个输入框数组控件，亲测可行，望采纳~
VB用户输入10个选手的得分(0-10分)，然后去掉一个最高分和一个最低分，求出某选手的最后得分(平均分)
Private Sub Command1_Click() Counter = Counter + 1 Randomize Dim Score As Single, Max As Single, Min As Single, Sum As Single, i As Integer Max = 0: Min = 10 For i = 1 To 10 Score = InputBox("请输入第" & i & "个裁判的打分：", "", Int(Rnd * 1000) / 100) Print Format(Score, "0.00") + Space(2); Sum = Sum + Score If Score 》 Max Then Max = Score If Score 《 Min Then Min = Score Next i Sum = Sum - Max - Min Print Print "去掉一个最高分："; Format(Max, "0.00") Print "去掉一个最低分："; Format(Min, "0.00") Print "最后得分："; Sum / 8 PrintEnd Sub
VB编程，某次比赛，有7位裁判打分，得分去掉一个最高分，去掉一个最低分，求出选手的平均分
在窗体中做一个文本框，复制后粘贴7份（做成控件数组），Text1(0)~Text1(6)放裁判打分，最后一个放平均分：Private Sub Command1_Click() s = Val(Text1(0).Text) Max = s Min = s For i = 1 To 6 x = Val(Text1(i).Text) If x 》 Max Then Max = x If x 《 Min Then Min = x s = s + x Next i Text1(7).Text = (s - Max - Min) / 5End Sub
vb歌手大赛评分程序10位评委除去一个最高分和一个最低分计算平均数(设满分为10)
Dim Sc(10) As SingleDim max As Single, min As Single, s As Single, p As Single, x As SingleDim i As Integers = 0Sc(1) = Val(InputBox("请输入第1个评委的分数！"))Do While Sc(1) 《 0 Or Sc(1) 》 10 Sc(1) = Val(InputBox("请输入第1个评委的分数！", "输入错误！请重新输入！"))Loopmax = Sc(1)min = Sc(1)s = s + Sc(1)For i = 2 To 10 Sc(i) = Val(InputBox("请输入第" & i & "个评委的分数！")) Do While Sc(i) 《 0 Or Sc(i) 》 10 Sc(i) = Val(InputBox("请输入第" & i & "个评委的分数！", "输入错误！请重新输入！")) Loop s = s + Sc(i) If Sc(i) 》 max Then max = Sc(i) If Sc(i) 《 min Then min = Sc(i)Next is = s - max - minp = s / 8Print "评委给分："Print "序号：";For i = 1 To 10 Print Left(CStr(i) & " ", 4);Next iPrintPrint "得分：";For i = 1 To 10 Print Left(CStr(Sc(i)) & " ", 4);Next iPrintPrint "平均分："; p
用VB程序设计一个歌手大赛的评分程序
’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 SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate 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 WithEnd Sub
