学步园

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

三次