Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
有人可以解釋一下動作嗎?
0 views
Skip to first unread message
愛冒險的人馬
Aug 19, 2002, 4:28:38 AM8/19/02
to
Fix32.Fix.S1_X25.F_CV 類似這個不用解釋,我不懂迴圈的意思~~~
--------------------------------------------------------
Private Sub V1_Click()
a = 0
If Fix32.Fix.S1_X25.F_CV = 0 Then
Fix32.Fix.S1_M23.F_CV = 1
Do Until Fix32.Fix.S1_X25.F_CV = 1
If a >= 500 Then MsgBox ("系統錯誤,請檢查系統"): Fix32.Fix.S1_M23.F_CV = 0: Exi
a = a + 1
Loop
Fix32.Fix.S1_M23.F_CV = 0
Else
Fix32.Fix.S1_M29.F_CV = 1
Do Until Fix32.Fix.S1_X25.F_CV = 0
If a >= 500 Then MsgBox ("系統錯誤,請檢查系統"): Fix32.Fix.S1_M29.F_CV = 0: Exi
a = a + 1
Loop
Fix32.Fix.S1_M29.F_CV = 0
End If
End Sub
--
※ Origin: 楓橋驛站<bbs.cs.nthu.edu.tw> ◆ From: 140.126.103.59
0 new messages