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)在上面这程序中,当改变导入的数据时,pictures中的图形会保持和第一次导入的数据绘制的图形一样。请问大虾们这是什么原因啊?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货