把你上面那些数据存成文本文件,路径是D:\1.txt.注意两个数据之间改为只有一个空格。然后代码如下,运行时单击窗体查看效果。
================
Option Explicit
Private Sub Form_Click()
Open "d:\1.txt" For Input As 1
Dim s As String, a
Line Input #1, s
Do Until EOF(1)
Line Input #1, s
a = Split(s)
PSet (Val(a(0)), Val(a(1))), vbRed
Loop
Close
End Sub
Private Sub Form_Load()
AutoRedraw = True
Scale (-20, 20)-(20, -20)
Line (-20, 0)-(20, 0), vbBlue
Line (0, 20)-(0, -20), vbBlue
DrawWidth = 3
End Sub
温馨提示:答案为网友推荐,仅供参考