作者Cookiecs (这是没有道理的阿)
站内Visual_Basic
标题Re: [VB6 ] 程式解题查错
时间Fri Dec 22 00:10:16 2006
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
1F：推 BearWu:有阿，你有DO LOOP回圈 应该是那边打错了吧 12/22 02:00
2F：推 Cookiecs:所以我才很困扰阿>.<" 12/22 02:19
3F：推 LPH66:同学 你的Do-Loop和If-Endif交叉了... 12/22 03:03
4F：推 fumizuki:不能把 do...loop、if...end if 交错使用啊 12/22 07:06
5F：推 BearWu:Loop Close #1 End If 改成 End If Close #1 Loop 12/22 13:55