那位好心人可以帮帮我!

Question

Dim n As Integer
    n = 0
start:
    If n <= 4 Then
    
    Select Case n
           Case 0
                Numer1 = 0
                Numer2 = 0
                Numer3 = 0
           Case 1
                Numer1 = 7
                Numer2 = 8
                Numer3 = 7
           Case 2
                Numer1 = 14
                Numer2 = 16
                Numer3 = 14
           Case 3
                Numer1 = 21
                Numer2 = 24
                Numer3 = 21
            Case 4
                Numer1 = 28
                Numer2 = 32
                Numer3 = 28
            Case Else
                Numer1 = 0
                Numer2 = 0
                Numer3 = 0
      End Select
      ElseIf n > 4 Then n = n Mod 4 - 1
      GoTo start
      End If
-----------------------------------------------------------------------------
If frameId = &H41 Or frameId = &HB3 Then
        
            
            lblObu(1 + Numer1) = Chr(Val("&h" & Hex(Frame_RetDat(HeadOfBuf, 7)) & Hex(Frame_RetDat(HeadOfBuf, 8)))) 
            For i = 0 To 5
                lblObu(1 + Numer1) = lblObu(1 + Numer1) & Chr(Val("&h" & Hex(Frame_RetDat(HeadOfBuf, i + 9))))
            Next i
============================================================================
我想问的就是,后面的一部分是否可以跟着前面的循环?
为什么我测试的时候一直停留在 case 0,究竟怎么样改正?

Answer 1

加一个n=n+1Dim n As Integer
    n = 0
start:
    If n <= 4 Then
    
    Select Case n
           Case 0
                Numer1 = 0
                Numer2 = 0
                Numer3 = 0
           Case 1
                Numer1 = 7
                Numer2 = 8
                Numer3 = 7
           Case 2
                Numer1 = 14
                Numer2 = 16
                Numer3 = 14
           Case 3
                Numer1 = 21
                Numer2 = 24
                Numer3 = 21
            Case 4
                Numer1 = 28
                Numer2 = 32
                Numer3 = 28
            Case Else
                Numer1 = 0
                Numer2 = 0
                Numer3 = 0
      End Select
      ElseIf n > 4 Then n = n Mod 4 - 1
      n=n+1
      GoTo start
      End If