代码示例:
Private Sub CommandButton1_Click()s = CommandButton1.CaptionIf s = "大" Thens = "小"Elses = "大"End IfCommandButton1.Caption = s[a1] = sEnd Sub