用VB编程,很急

'给半天才给5分？
'直接写出来的，没调试，你试试吧，如果有问题修改一下

private sub command1_click()
dim a() as integer
dim n as integer
dim max as integer, mix as intger, sum as long, m as integer

n=val(inputbox("输入一个整数n","输入"))-1
if n<0 then
msgbox "请输入一个大于0的整数"
exit sub
endif
redim a(n) as integer

for i = 0 to n
a(i)=fix((50-5+1) * rnd )+50 '生成一个5到50之间的整数，根据需要自行修改
print a(i) & vbtab;
next
print

for i =0 to n
if a(i)>max then '找出最大的数
max=a(i)
endif
if a(i)<mix then '找出最小的数
mix=a(i)
endif
if a(i) mod 2= 0 then '找出偶数和个数
m=m+1
endif
sum=sum + a(i) '计算和值
next

print "最大值："; max
print "最小值："; mix
print "总和： "; sum
print "平均值："; sum / n
print "偶数的个数："; m

end sub

Private Sub Comman