程序代码：

Dim CLX() As Single, CLY() As Single, VBX() As Single, VBY() As Single
ReDim CLX(1 To 120), CLY(1 To 120), VBX(1 To 120), VBY(1 To 120)
For I = 1 To 120
CLX(I) = ABD  '假定输入测量的X坐标，ABD是需要输入的数据变量
CLY(I) = ABC  '假定输入测量的Y坐标，ABC是需要输入的数据变量
Next I
For I = 1 To 120
VBY(I) = CLX(I) '输入测量的X坐标到VB的Y坐标
VBX(I) = CLY(I) '输入测量的Y坐标到VB的X坐标
Next I

[此贴子已经被作者于2016-5-12 22:30编辑过]