VB
(这个有五个)
下面几个好像好了呀.要写什么?
2、Private Sub Command1_Click()
[4]end
End Sub
3、Private Sub Command1_Click()
Text1.Text = “”
Text2.Text = ""
[1]text3.text=""
End Sub
Private Sub Command2_Click()
If Text1.[2]text = " " Or Text2.Text = [3] text Or Text3.Text = " " Then
MsgBox "成绩输入不全!"
Else
Text4.Text = ([4]val(text1.text) + Val(Text2.Text) + Val(Text3.Text)) /[5]3
[6]end if
Sub End
Private Sub Command3_Click()
[7] end
End Su