[已回复] 为什么我这个子程序不允许用 goto

Dim intX,intY,随机数,城内出城图

Function 信息框(参数)
    ShowMessage (参数)
    TracePrint(参数)
End Function

Sub 飞区(大区)
    Do
        FindPic 9,1185,130,1277,城内出城图,"202020",0,0.8,intX,intY
        If intX > -1 And intY > -1 Then '识别城内的最底部出城图标
            信息框 ("提示：正在城内，准备出城")
            Tap intX, intY
            Delay 5000
        End If
        FindMultiColor 234,1045,452,1084,"DDDDDD","111|3|D8D8D8",0,0.8,intX,intY
        If intX > -1 And intY > -1 Then'识别在野外的坐标 X,Y
            信息框 ("提示：正在野外，准备飞区")
            Tap intX, intY
            Delay 1000
        End If
        //    Tap 343,1060'点击查找区/坐标
        Delay (1000)
        FindMultiColor 272, 362, 454, 419, "032E54", "94|-2|103A5D,142|9|042F55,85|17|0F395D", 0, 0.8, intX, intY
        If intX > -1 And intY > -1 Then'识别在野外的坐标 X,Y
            信息框 ("提示：正在野外，输入王国编号")
            
            Tap 269,554'点击王国编号
            Delay (1000)
            信息框 "提示：输入王国编号"
            InputText 大区
            Delay (500)
            KeyPress "enter"
            Delay (1000)
            Tap 356,786'点击确定
            Delay (6000)
            
            Rem feiqu
            
            Delay (2000)
            Tap 334,757'点击这个区的土地
            Delay (2000)
            
        End If
        FindStr(456,811,558,850,"加入王国","6392AD-303030",0.9,intX,intY)
        If intX > -1 And intY > -1 Then
            信息框 "提示：加入王国"
            Tap 510,773'加入王国
            Delay (2000)
            Tap 491,776'确定加入
            Delay (2000)
            Tap 486,786'再次确定加入
            Delay (30000)
        ElseIf FindStr(280, 584, 438, 627, "有几率掉落", "8CB4D0-303030", 0.9, intX, intY) = -1 Then
            Tap 341,1063'点击查找区/坐标
            Delay (1000)
            Tap 209,653'点击X
            Randomize
            随机数 = Int(((1200-1+1) * Rnd()) + 1)   
            Traceprint 随机数
            Delay (1000)
            InputText (随机数)
            Delay (500)
            KeyPress "enter"
            Delay (1000)
            Tap 356,786'点击确定
            Delay (5000)
            Goto feiqu
        ElseIf FindStr(280, 584, 438, 627, "有几率掉落", "8CB4D0-303030", 0.9, intX, intY) > -1 Then
            Tap 495, 182
            Delay 2000
            Tap 341,1063'点击查找区/坐标
            Delay (1000)
            Tap 209,653'点击X
            Randomize
            随机数 = Int(((1200-1+1) * Rnd()) + 1)   
            Traceprint 随机数
            Delay (1000)
            InputText (随机数)
            Delay (500)
            KeyPress "enter"
            Delay (1000)
            Tap 356,786'点击确定
            Delay (5000)  
            Goto feiqu
        End If
        
        FindMultiColor 17,1194,135,1275,"1D486F","22|14|447C9A,14|-8|183052,51|26|7BCFE7",0,0.9,intX,intY
        If intX = -1 And intY = -1 Then
            信息框 "提示：回城"
            Tap 71,1242'回城
            Delay (3000)
            Exit Do 
        End If
    Loop
    
End Sub