作者Cookiecs (这是没有道理的阿)
站内Visual_Basic
标题Re: [VB6 ] 程式解题查错
时间Wed Dec 27 21:44:59 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)
picture1.PSet (N, Y)
N = N + 1
End If
Loop
Close #1
End Sub
---------------
程式有跑出图了!!
但是...
他不是依照我要的123456789这样跑
全部挤在一个小地方就结束了
新进展是快乐的!!有问题是烦恼的!!
--
有感情的生物是人，没感情的生物是妖。
当妖有了感情之後~
他会是人妖!
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.130.37.76
※ 编辑: Cookiecs 来自: 140.130.37.76 (12/27 23:02)