你可以在text1里这样输入坐标:x1,y1|x2,y2|x3,y3|x4,y4
Private Sub Command1_Click()
Dim x() As Integer
Dim y() As Integer
Dim a
Dim c As Integer
Dim i As Integer
a = Split(Text1.Text, "|")
c = UBound(a)
ReDim x(c)
ReDim y(c)
For i = 0 To c
x(i) = Split(a(i), ",")(0)
y(i) = Split(a(i), ",")(1)
Next
End Sub
你不是用b和c数组存了这些数据么 你想问什么