当然可以！
Private Sub Command1_Click()Static nn = n + 1If n > 4 Then n = 1 '假设最多4种Command1.Caption = Choose(n, "a", "b", "c", "d")End Sub
