Re: [VB6 ] 程式解題查錯

[Cookiecs (這是沒有道理的阿)]

Private Sub Command1_Click()
Open "ica.txt" For Input As #1
Do While Not EOF(1)
Input #1, A, B, C, D, E
   N = 1
If N <= 10 Then
  V = (5 - 1) / 2
  F = Abs(A - B)
  G = Abs(B - C)
  H = Abs(C - D)
  I = Abs(D - E)
    W = (F + G + H + I) / (5 - 1)
    V = (A + B - D - E) / ((1 + 2) * 2 * W)
   PSet (X, Y)
   N = N + 1
Loop
Close #1
End If
End Sub

-------------
現在程式變成這樣子!
但是他怎麼改顯示成
"有LOOP沒有DO"
但是當我把LOOP砍掉後!
又變成
"有DO沒有LOOP"
我被VB玩了嗎....


----------------------
我想要將點輸出到圖形阿= =

--
有感情的生物是人，沒感情的生物是妖。
當妖有了感情之後~
他會是人妖!

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.130.37.76
推 BearWu:有阿，你有DO LOOP迴圈 應該是那邊打錯了吧
推 Cookiecs:所以我才很困擾阿>.<"
推 LPH66:同學  你的Do-Loop和If-Endif交叉了...
推 fumizuki:不能把 do...loop、if...end if 交錯使用啊
推 BearWu:Loop   Close #1    End If 改成  End If   Close #1  Loop