这样不行吧
我是这样画的线:
type myarr
x as long
y as long
end type
dim arr() as myarr
dim arr2() as myarr
'两个数组赋值过程省略
':第一条
pset ((0,0)-(3,3)),vbred
for i=0 to ubound(arr)
line -(arr(i).x,arr(i).y),vbred
next
':第二条
pset ((0,0)-(4,4)),vbblue
for i=0 to ubound(arr2)
line -(arr2(i).x,arr2(i).y),vbblue
next