从键盘上输4个数，计算并输出这4个数的和和平均值。通过inputbox函数输入数据，在窗体上显示和及平均值。

你要的程序来了,自己特意为你写的,已经验证OK!!!

Private Sub Command1_Click()
Dim num(1 To 4) As Single
Dim he As Single
Dim i As Integer
For i = 1 To 4
num(i) = InputBox("请输入第" & i & "个数:", "输入提示")
Next
For i = 1 To 4
he = he + num(i)
Next
Print "四个数的和:" & he
Print "四个数的平均值:" & he / 4
End Sub

我也是VB爱好者,大家互相学习学习!!!

Private Sub Command1_Click()
Dim iTotal as Single
For i=1 to 4
iTotal=iTotal + InputBox(请输入第" & i & "个数:",,0)
Next
Print "和：" & iTotal
Print "平均数：" & iTotal/4
End Sub

INPUT a,b,c,d,
e=(a+b+c+d)/4
PRUNT e
END