A.Private Sub Text1_Change() Command1.Caption = "计算机等级考试" End Sub B.Private Sub Command1_ Click () Caption = "计算机等级考试" End Sub C.Private Sub Form1_ Click () Text1.Caption = "计算机等级考试" End Sub D.Private Sub Command1_ Click () Text1.Text = "计算机等级考试" End Sub