用vb程序设计，用数组保存随机产生的5个处于「20，50」之间的整数，求其中的最大值，最小值和平均

Question

用vb程序设计，用数组保存随机产生的5个处于「20，50」之间的整数，求其中的最大值，最小值和平均值，

Answer 1

sub command1_click()
dim i as integer, intMax as integer,intMin as sinteger,intsum as integer,dblAvg as double
dim intTemp as integer
intsum =0
intMax=20
intMin=50
text1.text=""
for i= 1 to 5
intTemp=int(20+rnd*30)
text1.text=text1.text & "第" & i & "个随机数字是： " & intTemp & vbCrLf
intsum=intsum+intTemp
if intTemp>intMax then intMax=intTemp
if intTemp<intMin then intMin=intTemp
next
dblAvg=intsum/5
text1.text=text1.text & vbCrLf
text1.text=text1.text & "5个随机数的最大值是： " & intMax & vbCrLf
text1.text=text1.text & "5个随机数的最小值是： " & intMin & vbCrLf
text1.text=text1.text & "5个随机数的平均值是： " & dblAvg & vbCrLf
end sub

Answer 2

标记下 回去做。。。。。。追问

赶时间啊