Question

用vb程序计算三个数的平均值 代码要简单易懂的，本人菜鸟

用vb程序计算三个数的平均值
并说明高中数学必修三p23页的的代码(计算语数外的平均成绩）与vb上的代码有何不同。
有知道的就请详细介绍下 谢谢了

Answer 1

Private Sub Command1_Click() '计算平均分
Dim a As Single, b As Single, c As Single, d As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = (a + b + c) / 3
Text4.Text = d
End Sub

Private Sub Command2_Click() ‘清除
Text1.Tex = ""
Text2.Tex = ""
Text3.Tex = ""
Text4.Tex = ""
End Sub

Private Sub Command3_Click() ’退出
End
End Sub

Answer 2

Private Sub Form_Click()
Dim x As Integer
Dim y As Integer
Dim z As Integer
Dim sum As Integer
Dim pingjun As Integer
x = InputBox("输入X")
y = InputBox("输入Y")
z = InputBox("输入Z")
sum = x + y + z
pingjun = Int(sum / 3)
Print "三个数的平均值是:"; pingjun
End Sub

Answer 3

Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = (a + b + c) / 3
Print d
End Sub

Answer 4

for i = 1 to 3
n=inputbox"请输入第" & i & "个数"
s=s+n
next i
? s/3