Question

6用vb程序从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。要求用Inputbox函数输入数据

Answer 1

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

Answer 2

for i = 0 to 3
a(i)=val(inputbox("请输入"))
next i
for i = 0 to 3
sum=sum + a(i)
next i
print sum,sum/4

Answer 3

为什么要加"sum=0"啊？我把这个去掉，也同样能运行啊？