GOTO语句

[sanji09]

以下代码如果不用GOTO的话，应该怎么改，请高手帮忙看看

        Dim giRecord_Count As Integer = 0
        Dim index As Integer = 5

A:
        giRecord_Count4 = index + 1
        GoTo C
B:
        If (Me.giRecord_Data(index) = Me.giRecord_Data(giRecord_Count4)) Then
            giRecord_Count += 1
        End If
        giRecord_Count4 += 1
C:
        giRecord_Count5 = 9
        If (giRecord_Count4 <= giRecord_Count5) Then
            GoTo B
        End If
        index += 1
        giRecord_Count5 = 8
        If (index <= giRecord_Count5) Then
            GoTo A
        End If

        Return giRecord_Count

[sanji09]

请大家帮忙改一下

[sanji09]

自己动手，丰衣足食

 giRecord_Count4 = index + 1
        giRecord_Count5 = 9
        While (giRecord_Count4 <= giRecord_Count5)
            If giRecord_Data(index) = giRecord_Data(giRecord_Count4) Then
                giRecord_Count += 1
            End If
            giRecord_Count4 += 1
        End While
        index += 1
        giRecord_Count5 = 8
        While index <= giRecord_Count5
            giRecord_Count4 = index + 1
            giRecord_Count5 = 9
            While giRecord_Count4 <= giRecord_Count5
                If giRecord_Data(index) = giRecord_Data(giRecord_Count4) Then
                    giRecord_Count += 1
                End If
                giRecord_Count4 += 1
            End While
            index += 1
            giRecord_Count5 = 8
        End While
        Return giRecord_Count

[ZengHD]

可能是错的

        Dim giRecord_Count As Integer = 0
        Dim index As Integer = 5

        While (index <= giRecord_Count5)
            giRecord_Count4 = index + 1
            giRecord_Count5 = 9
            If (giRecord_Count4 <= giRecord_Count5) Then
                If (Me.giRecord_Data(index) = Me.giRecord_Data(giRecord_Count4)) Then
                    giRecord_Count += 1
                End If
                giRecord_Count4 += 1
            End If
            index += 1
            giRecord_Count5 = 8

        End While


        Return giRecord_Count

[kimi_yanyz]

为什么不用sub包起来再去call它呢？