求一VB代码,用数组保存随机产生的10个介于20到50之间的整数,编程求出其中的最大数、最小数和平均值,并并将它们显示在窗体上提示：使用选择结构和循环结构
网友回答
Private Sub Command1_Click()
Randomize
Dim a(1 To 10)
Dim max,min,ave
min = 50:max = 20
For i = 1 To 10
a(i) = Int(Rnd * 21 + 30)
Print a(i);
If max If min > a(i) Then min = a(i)
ave = ave + a(i)
Next iave = ave / 10
PrintPrint 最大值, 最小值, 平均值
Print max,min,ave
End Sub