作者Cookiecs (這是沒有道理的阿)
站內Visual_Basic
標題Re: [VB6 ] 程式解題查錯
時間Sun Dec 24 23:46:25 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)
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
→ Cookiecs:那行的指令應該是"執行迴圈直到 1 號檔尾為止。" 12/24 23:47
→ Cookiecs:之前同學說用都沒問題!!所以沒法幫我解決 12/24 23:48
→ gofin:用EOF(#1)看看 12/24 23:53
→ Cookiecs:他會顯示必須為運算式! 12/25 00:50
推 fumizuki:你的檔案名稱要給完整路徑 磁碟機:/資料夾/檔案 12/25 06:36
推 fumizuki:還有怎麼會在迴圈內 Close #1呢？ 12/25 06:37
推 Cookiecs:同學說放在同一個資料夾裏好像可以直接打檔名就好 12/25 08:46
→ Cookiecs:Close #1應該是我的疏失吧!! 12/25 08:47
→ Cookiecs:現在都沒問題跑出來了!!但是點也沒跑出來0.0 12/25 08:47
推 Cookiecs:我發現我只有Y值，有沒有辦法讓X從1開始每算一次就+1?? 12/25 08:56
推 Cookiecs:不介意的話~(參考一下我整個程式)看看我的圖形有無用錯 12/25 09:01
推 Cookiecs:要投降了嗎= =" 12/27 14:25
推 fumizuki:你 N 就在遞增了，結果程式中沒任何地方用到 N... 12/27 19:57