Private Sub Form_Click()
Dim a() As Integer
Dim i As Integer: Dim t As Integer: Dim avg As Single: Dim sum As Integer
Do
i = InputBox("请输入")
If i = -1 Then
Exit Do
ReDim Preserve a(t)
a(t) = i
sum = sum + i
avg = sum / UBound(a)
End If
Loop
Print "和为"; sum; Spc(3); "平均为"; avg
End Sub