如何用VB设计一个程序算随机20个数[20,50]的平均值
Private Sub Command1_Click()
Randomize
For i = 1 To 20
a = Int(Rnd * 31) + 20
Sum = Sum + a
Next
Print Sum / 20
End Sub
热门标签:
Private Sub Command1_Click()
Randomize
For i = 1 To 20
a = Int(Rnd * 31) + 20
Sum = Sum + a
Next
Print Sum / 20
End Sub