选择结构??SELECT CASE?Private Sub Form_Load()Text1 = "1"End SubPrivate Sub Command1_click()select case text1case "1"msgbox "a"Case "2"Msgbox "b"End SelectEnd Sub