Private Sub Form_Load()
Command1.Caption = "开关按钮"
Command2.Caption = "计数按钮"
Command3.Caption = "退出按钮"
End Sub
Private Sub Command1_Click()
If Command1.Caption = "开关按钮" Then
Command1.Caption = "打开状态"
ElseIf Command1.Caption = "打开状态" Then
Command1.Caption = "关闭状态"
ElseIf Command1.Caption = "关闭状态" Then
Command1.Caption = "打开状态"
End If
End Sub
Private Sub Command2_Click()
Static i As Integer
i = i + 1
Command2.Caption = i & "次按键"
End Sub
Private Sub Command3_Click()
End
End Sub

Private Sub jcj_Click()
Text1.Text = InputBox("输入甲成绩：")
End Sub
Private Sub ycj_Click()
Text2.Text = InputBox("输入乙成绩：")
End Sub
Private Sub bcj_Click()
Text3.Text = InputBox("输入丙成绩：")
End Sub
Private Sub pjcj_Click()
Dim a As Integer, b As Integer, c As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
Text4.Text = (a + b + c) / 3
End Sub
Private Sub bq_Click()
t = MsgBox("版权所有", 32, "版权信息")
End Sub
Private Sub tc_Click()
End
End Sub