作者Cookiecs (这是没有道理的阿)
站内Visual_Basic
标题[VB6 ] 程式解题查错
时间Wed Dec 20 01:44:51 2006
Dim A As Double, B As Double, C As Double, D As Double, E As Double, F As Double, G As Double
Dim H As Double, I As Double, W As Double, Y As Double, N As Double
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.Point(N * 1, W * 0.5) = &HFF&<====程式跑完有问题的一行
★ (指定呈述式左端的函数必须传回Variant或Object型态)
N = N + 1
Loop
Close #1
End If
End Sub
我主要是做开启一个文件档的数据并将数据带入内数值做运算
跑出来的数据再映在picture1里
请问我有哪边写错了吗??
--
有感情的生物是人，没感情的生物是妖。
当妖有了感情之後~
他会是人妖!
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.130.37.76
1F：推 fumizuki:Point 是 sub 不是 function 不能这样用 12/20 21:07
2F：推 fumizuki:说错...Point 不是属性 不能这样用 12/20 21:08
3F：推 fumizuki:Point 只能用来得到那个点的色彩值 12/20 21:08
4F：推 fumizuki:要改变色彩必须(重新)绘图...PSet(x, y, color) 12/20 21:10
5F：推 Cookiecs:但是~如果我不要颜色的话!就是直接把值输出点 12/20 23:52
6F：→ Cookiecs:把颜色那里都改掉後~他会显示必须是"=" 12/20 23:53
7F：推 fumizuki:PSet (x, y), color 之前打错 12/21 12:31
8F：推 fumizuki:PSet (x, y) 12/21 12:32