如何用vb解答随机产生N个二位正整数存放在一维数组中，求数组的最大值、平均值。

Private Sub Form_Click()
Dim N as Integer,A() as Integer
Dim Max as integer,Min as integer,Avg as Integer
N=10
Redim A(1 to n) as Integer
Randomize
Max=0
Min=100
For i=1 to N
A(i)=Int(Rnd*90)+10
if A(i)>Max Then Max=a(i)
If A(i)<Min Then Min=A(i)
Avg=Avg+A(i)
Next
Print "最大值为:" & Max
Print "最小值为:" & Min
Print "平均值为:" & Avg/N
End Sub

dim N as integer,i as integer,A() as integer,S as integer,Max as integer
N=inputbox("请输入N的值：")
redim A(N)
S=0
Max=0
for i=1 to n
randomize
a(i)=int(rnd()*90+10)
s=s+a(i)
if max<a(i) then max=a(i)
next i
print "数组的最大值是：";max
print "数组的平均值是：";s/n

Private Sub Form_Click()
Dim n As Integer
Dim a() As Integer
Dim max As Integer
Dim sum As Double
n = InputBox("请输入n的值", "输入框")
For i = 1 To