VB利用隨機函數生成50-100範圍內20個隨機數，顯示最大值，最小值，平均值

Dim a(1 To 20) As Integer, b As Integer, c As Integer, d As Integer, e As Integer

Randomize

Print "隨機數：";

For i = 1 To 20

a(i) = Int(Rnd * 50) + 50

If a(i) > d Then d = a(i)

e = e + a(i)

Print a(i);

Next

c = a(1)

For i = 2 To 20

If c > a(i) Then c = a(i)

Next

Print

Print "最小值為："; c

Print "最大數為："; d

Print "平均值為："; e / i

End Sub