Private Sub Command1_Click() If Text1.Text = "" Or Text1.Text = "ABC" Then Text1.Text = "hello" Exit Sub End IfIf Text1.Text = "hello" Then Text1.Text = "ABC" Exit Sub End If End SubPrivate Sub Form_Load() Command1.Caption = "更新" Text1.Text = "" End Sub
Private Sub Command1_Click()
If Text1.Text = "" Or Text1.Text = "ABC" Then
Text1.Text = "hello"
Exit Sub
End IfIf Text1.Text = "hello" Then
Text1.Text = "ABC"
Exit Sub
End If
End SubPrivate Sub Form_Load()
Command1.Caption = "更新"
Text1.Text = ""
End Sub