作者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
1F:→ Cookiecs:那行的指令应该是"执行回圈直到 1 号档尾为止。" 12/24 23:47
2F:→ Cookiecs:之前同学说用都没问题!!所以没法帮我解决 12/24 23:48
3F:→ gofin:用EOF(#1)看看 12/24 23:53
4F:→ Cookiecs:他会显示必须为运算式! 12/25 00:50
5F:推 fumizuki:你的档案名称要给完整路径 磁碟机:/资料夹/档案 12/25 06:36
6F:推 fumizuki:还有怎麽会在回圈内 Close #1呢? 12/25 06:37
7F:推 Cookiecs:同学说放在同一个资料夹里好像可以直接打档名就好 12/25 08:46
8F:→ Cookiecs:Close #1应该是我的疏失吧!! 12/25 08:47
9F:→ Cookiecs:现在都没问题跑出来了!!但是点也没跑出来0.0 12/25 08:47
10F:推 Cookiecs:我发现我只有Y值,有没有办法让X从1开始每算一次就+1?? 12/25 08:56
11F:推 Cookiecs:不介意的话~(参考一下我整个程式)看看我的图形有无用错 12/25 09:01
13F:推 Cookiecs:要投降了吗= =" 12/27 14:25
14F:推 fumizuki:你 N 就在递增了,结果程式中没任何地方用到 N... 12/27 19:57