用VB求平均数的问题

Question

编写一个程序，使之能计算5个以内分数的平均值
程序运行后，单击“计算平均分数”按钮时，开始输入数据，第1~5个文本框中的数据由InputBox函数输入并显示在相应的文本框内，并将计算结果显示在第6个文本框内。
当单击“清除”时，清空文本框中的内容
当单击“退出”按钮时，结束程序运行。

Answer 1

Private Sub Command1_Click() '计算平均数
Text1.Text = InputBox("输入第一个数")
Text2.Text = InputBox("输入第二个数")
Text3.Text = InputBox("输入第三个数")
Text4.Text = InputBox("输入第四个数")
Text5.Text = InputBox("输入第五个数")
Text6.Text = (Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text)) / 5
End Sub

Private Sub Command2_Click()'清除
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub
Private Sub Command3_Click() ‘退出
Unload Me
End Sub

Answer 2

建议采用Text控件数组完成功能,代码会简化很多
Private Sub Command1_Click()
'计算
Dim sum As Long
For i = 0 To 4
Text1(i) = Val(InputBox("输入数值"))
sum = sum + Val(Text1(i))
Next
Text1(5) = sum / 5
End Sub

Private Sub Command2_Click()
'清除
For i = 0 To 5
Text1(i) = ""
Next
Text2 = ""
End Sub

Private Sub Command3_Click()
'退出
End
End Sub