Private Sub Command1_Click()
Dim a, b, c, d, sum As Integer
Dim avg As Double
a = Val(InputBox("请输入第一个数"))
b = Val(InputBox("请输入第二个数"))
c = Val(InputBox("请输入第三个数"))
d = Val(InputBox("请输入第四个数"))
sum = 0
sum = a + b + c + d
avg = sum / 4
Print "4个数和为" & sum
Print "4个数平均值为" & avg
End Sub
温馨提示:答案为网友推荐,仅供参考