c语言编程 六个评委打分,用vb 编写一个评委打分的程序

满意答案

czdeuy

2013.09.16

采纳率：47%    等级：11

已帮助：5263人

Dim a(10) As Integer

Private Sub Command1_Click()

For i = 1 To 10

a(i) = InputBox("请输入第" & i & "个分数")

Text1.Text = Text1.Text & Str(a(i))

Next i

End Sub

Private Sub Command2_Click()

Max = a(1)

Min = a(1)

For i = 1 To 10

s = s + a(i)

If Max < a(i) Then Max = a(i)

If Min > a(i) Then Min = a(i)

Next i

s = (s - Max - Min) / 8

Text2.Text = Max

Text3.Text = Min

Text4.Text = s

End Sub

Private Sub Command3_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

End Sub

Private Sub Command4_Click()

End

End Sub

34分享举报