Dim i1 As Integer
Dim i2 As Integer
Dim i3 As Integer
i1 = Val(InputBox("请输入第一个整数"))
i2 = Val(InputBox("请输入第二个整数"))
i3 = Val(InputBox("请输入第三个整数"))
MsgBox "你输入三个数的平均值为：" & (i1 + i2 + i3) / 3