Question

VB输入数组元素个数，创建该数组，用输入框输入数组各元素的值，在窗体上显示数组所有元素的值、

并求出均值，和大于均值的元素个数。

Answer 1

Private Sub Command1_Click()
Dim a() As Integer
n = Text1.Text
ReDim a(n)
For i = 1 To n
a(i) = InputBox("请输入a(" & i & ")")
Print a(i);
If i Mod 5 = 0 Then Print
Next i
End Sub