求教跳转语句，谢谢！！！！

Question

Select Case State
      Case 1
      
      Case 2
      求教在此如何再跳转到Case 1这句
      Case 3End Select

Answer 1

加个标签：Select Case State
Handle:             '标签
      Case 1
      
      Case 2
      Goto Handle
      Case 3End Select

Answer 2

Select Case State
      Case 1
        jump1:...
      Case 2
        goto jump1
      Case 3End Select

Answer 3

Private Sub Command2_Click()
    Dim i As Long
    i = 2
test:
    Select Case i    Case 1
        Debug.Print "yes"
    Case 2
        Debug.Print "ww"
        i = 1
        GoTo test
    Case 3
        Debug.Print "no"
    End SelectEnd Sub

Answer 4

为什么要用goto呢？
不如直接把case1 的代码拷过去。