Question

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

Answer 1

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 Su