Question

从键盘输入4个数，编写VB程序，计算并输出这4个数的和及平均数。通过...

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

Answer 1

Private Sub Command1_Click()
Dim a(3) As Integer
For i = 0 To 3
a(i) = InputBox("输入第" & i + 1 & "个数")
s = s + a(i)
Next i
Print "和是：" & s & " 平均值是：" & s / 4
End Sub

Answer 2

算法：
在TEXTBOX里的都是字符串，转换成整数,再赋值：
a=Cint(Textbox1.text)
b=Cint(Textbox2.text)
...
和：
e=a+b+c+d
Textbox1.text=e '出错用Cstr(e)来转换
平均数：
(a+b+c+d)/4（如果是小数，全部类型定义成Decimal或者Double）