- 帖子
- 323
- 主題
- 6
- 精華
- 0
- 積分
- 313
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- 2k
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-6-24
- 最後登錄
- 2026-1-5
|
本帖最後由 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 |
|
發表於 2018-3-4 11:51
| 