Question

vb如何把txt文档中的数读入到数组，文档中是每行有三个数，用逗号隔开

vb如何把txt文档中的数读入到数组，文档中是每行有三个数，用逗号隔开，一共10行，第一列为序号，第二三列为x,y坐标，最好能定义二维数组，第一个下标为序号，第二个下标为1表示x值，2表示y值，谢谢各位！
如果不能用二维数组，用三个一维属于也行

Answer 1

序号的范围是1到10吗？

Private Sub Command1_Click()
Dim x(1 To 10, 1 To 2) As Long
Dim n1 As Integer, n2 As Long, n3 As Long
Open "d:\tmp\123.txt" For Input As #1 '文件名自己改
Do Until EOF(1)
    Input #1, n1, n2, n3
    If n1 > 0 And n1 < 11 Then
        x(n1, 1) = n2
        x(n1, 2) = n3
    End If
Loop
Close #1
For n1 = 1 To 10  '这是输出数组的例子
    Print x(n1, 1), x(n1, 2)
Next
End Sub