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

以下是此题的【VB源代码】
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

运行此VB源码后结果情况如下图所示：


以下是此题的另一编程方法的【VB源代码】
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

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_5.4.html