Question

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

通过inputbox函数输入数据，在窗体上显示结果。
提示：①程序可以写在窗体的单击事件过程（From_click）中。
②inputbox函数接收用户输入的信息是字符型，需要使用转换函数val( )转换为数值型再进行计算。

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

Answer 2

Private Sub Form_Click()
a = Val(InputBox("输入第一个数", "第一个数"))
b = Val(InputBox("输入第二个数", "第一个数"))
c = Val(InputBox("输入第三个数", "第一个数"))

Print "三个数的和是:" & a + b + c

Print "三个数的平均数是:" & (a + b + c) / 3

End Sub

Answer 3

已经通过调试,绝对能用！

Private Sub Form_Click()
Dim sum(3)
For i = 1 To 3
sum(i) = Val(InputBox("请输入第" & i & "个数"))
Print sum(i)
n = n + sum(i)
Next
Print "和为：" & n
Print "平均值为：" & n / 3
End Sub

Answer 4

Private Sub Form_Click()
Dim a, b, c, i, sum, avg
a = Val(InputBox("输入第1数据" & a))
i = i + 1
b = Val(InputBox("输入第2数据" & b))
i = i + 1
c = Val(InputBox("输入第3数据" & c))
i = i + 1
Print "求和结果:" & a + b + c
If sum = 0 Then
avg = 0
Else
avg = sum / i
End If
Print "平均值结果:" & (a + b + c) / i
End Sub