Question

设计一个计算程序（vb），该程序由四个文本框：文本框1（Text1）、文本框2（Text2）、文本

设计一个计算程序（vb），该程序由四个文本框：文本框1（Text1）、文本框2（Text2）、文本框3（Text3）、文本框4（Text4），和三个按钮：命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command3）组成。程序运行后，用户单击清除按钮，清除文本框中显示的内容。单击计算按钮，如果成绩填写不完全，则给出提示信息，否则算三科平均成绩。单击退出按钮则退出。 （带注释）

Answer 1

Private Sub Command1_Click()
If Text1.Text = "" Or Text1.Text = "" Or Text1.Text = "" Then MsgBox "请完整填写成绩"
text4.Text = (Val(Text1.Text) + Val(Text1.Text) + Val(Text1.Text)) / 3
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Answer 2

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Command2_Click()
If Text1.Text = "" Or Text2.Text = "" Or tex3.Text = "" Then
MsgBox "成绩错误", , "提示"
Exit Sub
End If
Text4 = (Val(Text3.Text) + Val(Text2.Text) + Val(Text1.Text)) / 3
End Sub
Private Sub Command3_Click()
End
End Sub