现在的问题是点 评委人数 要让他限制最大人数的值 代码再下面 比如点击出来一个输入框 输入5而他的最大值就被限制为5 现在一共有10个,简单的说就是把下面的9改为输入框中的数字 而那个8是随限制人数-1的 然后根据限制人数去掉最大值和最小值算平均分 誰知道Private Sub Command1_Click()
Dim a(9) As Single, i As Integer, sum As Single, ave As Single, max As Single, min As Single
min = Val(Text1(0).Text)
For i = 0 To 9
a(i) = Val(Text1(i).Text)
sum = sum + a(i)
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
Next
ave = (sum - max - min) / 8
Label2.Caption = ave
Label3.Caption = max
Label4.Caption = min
End Sub
Dim a(9) As Single, i As Integer, sum As Single, ave As Single, max As Single, min As Single
min = Val(Text1(0).Text)
For i = 0 To 9
a(i) = Val(Text1(i).Text)
sum = sum + a(i)
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
Next
ave = (sum - max - min) / 8
Label2.Caption = ave
Label3.Caption = max
Label4.Caption = min
End Sub
Dim a(9) As Single, i As Integer, sum As Single, ave As Single, max As Single, min As Single
min = Val(Text1(0).Text)
Dim Amount As Integer
Amount = InputBox("请输入评委人数")
For i = 0 To Amount
a(i) = Val(Text1(i).Text)
sum = sum + a(i)
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
Next
ave = (sum - max - min) / (Amount - 1)
Label2.Caption = ave
Label3.Caption = max
Label4.Caption = min
End Sub
Private Sub Command1_Click()
Dim a() As Single, i As Integer, sum As Single, ave As Single, max As Single, min As Single Dim intNumbers as Integer
'评委人数
intNumbers = val(txtNumbers.text)-1
redim a(intNumbers) as Singlemin = Val(Text1(0).Text)
For i = 0 To intNumbers
a(i) = Val(Text1(i).Text)
sum = sum + a(i)
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
Next
ave = (sum - max - min) / intNumbers
Label2.Caption = ave
Label3.Caption = max
Label4.Caption = min
End Sub