Question

vb 编写程序 输入3个数 求和和平均数

Answer 1

代码如下：

Sub Form_Click()

a = InputBox(w输入第一个数"> a — Val(a)

b = InputBox(w输人第二个数") b = Val(b)

c = InputBox("输人第三个数 c = VaKc)

d = InputBox(w输人第四个数"） d = Val(d)

sum = a + b+ c + d aver = sum / 4

扩展资料：

另外一种方法：

Private Sub Form_Click()

Dim a As Single

For i = 1 To 4

a = InputBox("请输入一个数：", "数据输入")

Sum = Sum + a

n = n + 1

Avg = Sum / n

Next i

Print "和是：", Sum

Print "平均值是：", Avg

End Sub