简单的VB题,但是我还是不会,利用随机函数,产生五十至一百范围内的二十个随机数,显示其中的最大值,最小值和平均数,我们要的是自己画出来的啊,command1是选20个数,在text1里显示20个数.command2

Question

简单的VB题,但是我还是不会,
利用随机函数,产生五十至一百范围内的二十个随机数,显示其中的最大值,最小值和平均数,我们要的是自己画出来的啊,command1是选20个数,在text1里显示20个数.command2是最大值 command3是最小值,command4是平均值得,然后text2显示结果..请问这些框里分别该写什么啊?

Answer 1

Dim a(1 To 20)
Private Sub Command1_Click()
For i = 1 To 20
Randomize
a(i) = Int(Rnd * 51 + 50)
Text1 = Text1 & a(i) & Space(1)
Next
For i = 1 To 19
For J = i + 1 To 20
If a(i) > a(J) Then temp = a(i): a(i) = a(J): a(J) = temp
Next J
Next i
End Sub
Private Sub Command2_Click()
Text2 = "最大值" & a(20)
End Sub
Private Sub Command3_Click()
Text2 = "最小值" & a(1)
End Sub
Private Sub Command4_Click()
For i = 1 To 20
m = Val(a(i)) + m
Next
Text2 = "平均值" & m / 20
End Sub