编辑代码

Module Module1
Sub Main()
    dim i as long
    dim flagB(5) as Integer
    dim circleSize
    dim startN AS Integer
    startnstartN=3
    
for i=0 to 5
    if flagB(i)<0 then
        circleSize=0'环长度记录
        first=Arr(i+startN)
        circle(circleSize)=i
        flagB(i)=1
        circleSize=circleSize+1
        j=i
        while(bond(j)<>first)
            j=bond(j)-startN
            circle(circleSize)=j
            flagB(j)=1
            circleSize=circleSize+1
        wend
    end if
    temp=circle(0)
    for k=0 to circleSize
        arr(circle(k)+startN)=arr(bond(k))
        *p--
    next
    circle(0)=temp
next
msgbox "ss"
    End Sub

End Module