参考答案

Option Base 1
Private Sub Command1_Click()
    Dim arrN(20) As Integer
    Dim Aver As Single
    Dim Sum As Integer
    Randomize
    For i = 1 To 20
        arrN(i) = Int(Rnd * 1000)
    Next i
    Sum = 0
    For i = 1 To 20
        Sum = Sum + arrN(i)
    Next i
    Aver = Sum / 20
    Print Aver
End Sub