7,765
社区成员
发帖
与我相关
我的任务
分享
Dim i As Integer
Dim X As Variant
Dim Y As Variant
Dim xx As Single
Dim a As String
Dim a1 As Variant
a1 = vbaxes(Picture1.hWnd)
Dim Sum As Integer
a = "start"
i = 0
Open Text1.Text For Input As #1
Do While Not EOF(1)
i = i + 1
Line Input #1, a
Loop
Close #1
Sum = i
X = zeros(Sum)
Y = zeros(Sum)
Open Text1.Text For Input As #1
For i = 1 To Sum
Line Input #1, a
X(i) = Val(a)
Next i
Close #1
Open Text2.Text For Input As #1
For i = 1 To Sum
Line Input #1, a
Y(i) = Val(a)
Next i
Close #1
Call plot(X, Y)