Question

vb中如何将txt文件中的两列数据读入listbox

数据格式：
10 23
20 27
30 35
40 40
如何将两列数据分别读入两个listbox?
Private Sub Command1_Click()
Open "d:/1.txt" For Input As #1
Do Until EOF(1)
Line Input #1, s
arr = Split(Trim(s), " ")
List1.AddItem arr(0)
List2.AddItem arr(1)
Loop
Close #1
End Sub

我把s声明为string,运行时虽然输入数据，但是提示arr（0）下标越界

Answer 1

检查一下你的Txt文件的格式，
我是直接Copy你的问题里的格式测试的

Private Sub Command1_Click()
Open "d:/1.txt" For Input As #1
Do Until EOF(1)
Line Input #1, s
arr = Split(Trim(s), " ")
List1.AddItem arr(0)
List2.AddItem arr(1)
Loop
Close #1
End Sub

Answer 2

程序声明是否有“Option base 1”？
按照LZH741206的程序应该不会出现arr(0)越界
如果TXT格式不对，最多也就是arr(1)越界啊
声明变量：
dim arr
dim s as string