[發問] 請問關於gosub的用法

mnsmrtl

大家好，我有一段程式碼，因為條列出來重覆的部分很多
導致程式碼不夠集中，很難檢查，所以想用gosub整理一下
可是在使用上，總是出現「必須搭配使用」的訊息，程式碼如下

1.         If H Or L Then
   
2.             w = 1
   
3.             On w GoSub HLchange, hlchange1
   
4.             sw = IIf(H, 1, -1)
   
5.         End If
   
6.     ElseIf sw = 1 Then
   
7.         If L Then
   
8.             w = 1
   
9.             On w GoSub HLchange, hlchange1
   
10.         Else
    
11.             If b >= Rp(k - 1) Then
    
12.                 w = 2
    
13.                 On w GoSub HLchange, hlchange1
    
14.             End If
    
15.         End If
    
16.     ElseIf sw = -1 Then
    
17.         If H Then
    
18.             w = 1
    
19.             On w GoSub HLchange, hlchange1
    
20.         Else
    
21.             If b <= Rp(k - 1) Then
    
22.                 w = 2
    
23.                 On w GoSub HLchange, hlchange1
    
24.             End If
    
25.         End If
    
26.     End If
    
27.     j = j + 1
    
28. Loop
    
29. HLchange:
    
30.     Rp(k) = b
    
31.     Bn(k) = j
    
32.     a = b
    
33.     k = k + 1
    
34.     sw = -sw
    
35.     Return
    
36. hlchange1:
    
37.     Rp(k - 1) = b
    
38.     Bn(k - 1) = j
    
39.     a = b
    
40.     Return

複製代碼

請問我是哪邊寫錯了？請大家不吝指教，謝謝

jackyq

Do
........................
Loop

Exit Sub   ' or Exit  Function

HLchange:
    Rp(k) = b
    Bn(k) = j
    a = b
    k = k + 1
    sw = -sw
    Return
hlchange1:
    Rp(k - 1) = b
    Bn(k - 1) = j
    a = b
    Return

mnsmrtl

感謝大大指點，問題解決~