动态定义一个数组就可以了。。用一个窗体级的变量记录你按了button多少次命令按钮(就是输入了多少个数呗)
Option Explicit
Dim i, j, N As intege
Dim Number() As Double
Private Sub Command1_Click()
Dim sum, mean As Double
N = N + 1
ReDim Preserve Number(N)
Number(N) = Text1.Text
List1.AddItem Text1.Text
For i = 1 To N
sum = sum + Number(i)
Next i
mean = sum / N
Text1.Text = mean
End Sub
Option Explicit
Dim i, j, N As intege
Dim Number() As Double
Private Sub Command1_Click()
Dim sum, mean As Double
N = N + 1
ReDim Preserve Number(N)
Number(N) = Text1.Text
List1.AddItem Text1.Text
For i = 1 To N
sum = sum + Number(i)
Next i
mean = sum / N
Text1.Text = mean
End Sub