vb语言中利用随机函数产生20个50~100之间的随机整数,显示他们的最大值,最小值和

题目

vb语言中利用随机函数产生20个50~100之间的随机整数,显示他们的最大值,最小值和

答案

Private Sub Command1_Click()
Dim I As Integer,N As Integer,Max As Integer,Min As Integer
Min = 100
Randomize
For I = 1 To 20
N = Int(51 * Rnd) + 50
If N > Max Then Max = N
If N < Min Then Min = N
Next I
Print "最大值："; Max
Print "最小值："; Min
End Sub