標題:
[發問]
請問關於gosub的用法
[打印本頁]
作者:
mnsmrtl
時間:
2018-3-4 09:05
標題:
請問關於gosub的用法
大家好,我有一段程式碼,因為條列出來重覆的部分很多
導致程式碼不夠集中,很難檢查,所以想用gosub整理一下
可是在使用上,總是出現「必須搭配使用」的訊息,程式碼如下
If H Or L Then
w = 1
On w GoSub HLchange, hlchange1
sw = IIf(H, 1, -1)
End If
ElseIf sw = 1 Then
If L Then
w = 1
On w GoSub HLchange, hlchange1
Else
If b >= Rp(k - 1) Then
w = 2
On w GoSub HLchange, hlchange1
End If
End If
ElseIf sw = -1 Then
If H Then
w = 1
On w GoSub HLchange, hlchange1
Else
If b <= Rp(k - 1) Then
w = 2
On w GoSub HLchange, hlchange1
End If
End If
End If
j = j + 1
Loop
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
複製代碼
請問我是哪邊寫錯了?請大家不吝指教,謝謝
作者:
jackyq
時間:
2018-3-4 11:51
本帖最後由 jackyq 於 2018-3-4 11:52 編輯
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
時間:
2018-3-4 12:20
感謝大大指點,問題解決~
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)