Option Explicit
Dim i,v,sum,aver '定义变量 i用于在输入框中显示输入的是第几个数__
'变量v表示在输入框中输入的数值，sum求和，aver求平均数
Private Sub Command2_Click()
aver = sum / 3
Text1.Text = Str(aver) '将数据型转换成为字符型数据
End Sub

Private Sub Form_Load()
For i = 1 To 3
'i从1变化到3 即小框弹出三次 求四个数的平均数就把尾数改成4 很让人不理解的地方
v = Val(InputBox("请输入第" & i & "个值","输入数据",1))
'& i &之间是有空格的，这点注意，犯错误点
sum = sum + v
Next i
End Sub

三次