主题:vb如何通过txt数组来画图

我有一txt文档 然后里面包含一组数据 然后当代入这个文本的时候能在picturebox内自动画图出来 请问这个程序该怎么写啊?

图就是根据给出的数组描点连成线就可以了

x y
1201 50
1202 52
1203 55
1204 56
1205 48
1206 57
1208 59

这是文本里面的数据 给出了x和y了 最好能显示坐标系统，坐标要有刻度

这个家伙很懒，什么也没留下......

Dim i, j As Integer
Dim x(255), y(255) As Long

Private Sub Form_Click()
For i = 0 To 253
If i = 0 Then
Picture1.Line (x(i), y(i))-(x(i), y(i))
Else
Picture1.Line (x(i), y(i))-(x(i + 1), y(i + 1))
End If
Next
End Sub

Private Sub Form_Load()
i = 0
j = 0
Open App.Path & "\a.txt" For Input As #1
Do While Not EOF(1)
Input #1, ii, jj
x(i) = ii
y(i) = jj
If i < 254 Then i = i + 1
Loop
Close #1

End Sub

这个家伙很懒，什么也没留下......