Public Function sort(n As Integer) As String()
Dim i As Integer, ans() As String
Dim x, y As String
ReDim ans(1 To n) As String
For i = 1 To n
ans(i) = Form1.Textreceive0.Text
x = ans(i)
y = Mid(x, 5, 5)
Next i
ans(i) = y
sort = ans
End Function
Private Sub Cmdshow_Click()
Picture1.Line (0, 0)-(i, y), vbGreen
End Sub
Private Sub Form_Load()
Picture1.Scale (0, 9000)-(9000, 0)
Picture1.Line (0, 0)-(9000, 0), vbBlue
Picture1.Line (0, 0)-(0, 9000), vbBlue
Picture1.PSet (0, 0), vbRed
End Sub
不知道哪里错了,哪位大神帮忙看看
试了,行不通。。。
追答Private Sub Form_Load()
后面加下面这行。
picture1.autoredraw=true
可以了。。但数据是动态的,怎么画出连续的曲线图呢??
追答连续的画线啊。这另外一个问题了。
你要画曲线,我认为的做法是用函数按一定的间隔画出点连成线。
我觉得数组定义那里还是错的。。能看看么