Dim myStr As String
Dim s As Double
Dim n As Long
n = 0
s = 0
Do
myStr = InputBox("請輸入壹個數，當輸入AAA時結束輸入並計算全部數的平均值。")
If UCase(myStr) <> "AAA" Then
If IsNumeric(myStr) Then
s = s + Val(myStr)
n = n + 1
Else
MsgBox "請輸入數字."
End If
Else
MsgBox "以上" & Str(n) & "個數的平均值為:" & Str(s / n)
Exit Do
End If
Loop
End Sub