[VB6 ] 程式解題查錯
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
推
12/20 21:07, , 1F
12/20 21:07, 1F
推
12/20 21:08, , 2F
12/20 21:08, 2F
推
12/20 21:08, , 3F
12/20 21:08, 3F
推
12/20 21:10, , 4F
12/20 21:10, 4F
推
12/20 23:52, , 5F
12/20 23:52, 5F
→
12/20 23:53, , 6F
12/20 23:53, 6F
推
12/21 12:31, , 7F
12/21 12:31, 7F
推
12/21 12:32, , 8F
12/21 12:32, 8F
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
