考試時(shí)把不要的注釋去掉
Private Sub Form_Click()
Dim i,num(1 To 5) As Integer,smax As Integer,smin As Integer,savg As Single
savg = 0
Print "10-20范圍內(nèi)的5個(gè)隨機(jī)數(shù)如下："
For i = 1 To 5
num(i) = 10 + Int(11 * Rnd) '產(chǎn)生[10,20]區(qū)間的5個(gè)隨機(jī)數(shù)
If i = 1 Then smax = num(i):smin = num(i)
If smax < num(i) Then smax = num(i) '求最大值
If smin > num(i) Then smin = num(i) '求最小值
savg = savg + num(i) '求平均值,最后結(jié)果要除以數(shù)目
Print num(i);
Next i
savg = savg / 5
Print
Print "最大值"; smax,"最小值"; smin,"平均值"; savg
End Sub