VB 读取data.txt文件中2列数据到数组a（i），b（i）.....e(i)，急，在线等！！！

说清楚OK 文件操作。。。 Option Explicit Dim A() As Variant Dim B() As Variant Dim C() As Variant Dim D() As Variant Dim E() As Variant Dim Num As Integer Private Sub Command1_Click() Open "D:\data.txt" For Input As #1 Do While Not EOF(1)