用随机函数产生N个数，求他们的平均值（VB）

N是确定的还是要输入的啊

以下为输入的代码
Dim 随机数组() As Long, SUM As Long, N As Integer
Private Sub Command1_Click()
For I = 1 To N
Print 随机数组(I) & " ";
Next
Print "平均数是" & SUM / N
End Sub

Private Sub Form_Load()
Dim I As Integer
SUM = 0
Randomize
N = Rnd() * 100 '随机产生0-100的整数，不知道范围，只好这样
ReDim 随机数组(N)
For I = 1 To N
Randomize
随机数组(I) = Rnd() * 100 '同上
SUM = SUM + 随机数组(I)
Next
End Sub

Option Base 1

Dim a() As Integer

Private Sub Command1_Click()

On Error GoTo f1

Dim sum As Integer

sum = 0

n = Val(Text1.Text)

ReDim a(n) As Integer

Open App.Path & "\dat.dat" For Output As #1

For i = 1 To n

    a(i)&n