Re: [VB6 ] 程式解題查錯

看板Visual_Basic作者 (這是沒有道理的阿)時間19年前 (2006/12/24 23:42), 編輯推噓7(707)
留言14則, 3人參與, 最新討論串3/3 (看更多)
小小的改變的內容!! 一樣有問題= = -------------------------------- 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) Y = (A + B - D - E) / ((1 + 2) * 2 * W) PSet (X, Y) N = N + 1 End If Close #1 Loop End Sub ---------------------------- 所謂程式的問題~ 真是一波一波洶湧而來 偏偏自己又束手無撤= = 只好上來請教了!! 這行有沒有辦法解救? 還是要換另一種方法寫迴圈?? -- 有感情的生物是人,沒感情的生物是妖。 當妖有了感情之後~ 他會是人妖! -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.130.37.76

12/24 23:47, , 1F
那行的指令應該是"執行迴圈直到 1 號檔尾為止。"
12/24 23:47, 1F

12/24 23:48, , 2F
之前同學說用都沒問題!!所以沒法幫我解決
12/24 23:48, 2F

12/24 23:53, , 3F
用EOF(#1)看看
12/24 23:53, 3F

12/25 00:50, , 4F
他會顯示必須為運算式!
12/25 00:50, 4F

12/25 06:36, , 5F
你的檔案名稱要給完整路徑 磁碟機:/資料夾/檔案
12/25 06:36, 5F

12/25 06:37, , 6F
還有怎麼會在迴圈內 Close #1呢?
12/25 06:37, 6F

12/25 08:46, , 7F
同學說放在同一個資料夾裏好像可以直接打檔名就好
12/25 08:46, 7F

12/25 08:47, , 8F
Close #1應該是我的疏失吧!!
12/25 08:47, 8F

12/25 08:47, , 9F
現在都沒問題跑出來了!!但是點也沒跑出來0.0
12/25 08:47, 9F

12/25 08:56, , 10F
我發現我只有Y值,有沒有辦法讓X從1開始每算一次就+1??
12/25 08:56, 10F

12/25 09:01, , 11F
不介意的話~(參考一下我整個程式)看看我的圖形有無用錯
12/25 09:01, 11F

12/25 09:02, , 12F

12/27 14:25, , 13F
要投降了嗎= ="
12/27 14:25, 13F

12/27 19:57, , 14F
你 N 就在遞增了,結果程式中沒任何地方用到 N...
12/27 19:57, 14F
文章代碼(AID): #15Zf_Gxv (Visual_Basic)
文章代碼(AID): #15Zf_Gxv (Visual_Basic)