求助VB循环读取数据的问题

来源：百度知道 编辑：UC知道 时间：2024/06/06 04:58:29
小弟开始学习VB编程，现在想编写这样一个程序，但是，弄来弄去都实现不了~特请教大家：
有两个listbox控件分别为list1和list2，要实现的功能是从list1里面取去一个值与再从list2取出一个值，然后赋值给一个变量。如此循环（不知道list1和list2里面到底有多少项）。
我写的代码是：
For i = 0 To List1.ListCount - 1
mkv_path = List1.List(i)
For a = 0 To List2.ListCount - 1
mp4_path = List2.List(a)

fim = mkv_path '& mp4_path

Open "c:\mux.txt" For Append As #n
Print #n, fim
Close #n
Next a
Next i
但是，这样它会运行List1.ListCount *List1.ListCount 次，事实上我不需要这么多次~只要list1.list(0)的值和list2.list(0)的值匹配，然后赋值给一个变量，我用这个变量做其它用途。
list1和list2的项数是相同的。taohongjie大侠的程序是list1的所有项与list2的第一项匹配生成List1.ListCount列数据。lxz1969大侠的程序无法生成c:\mux.txt文件

For i = 0 To List1.ListCount - 1
mkv_path = List1.List(i)
mp4_path = List2.List(i)

fim = mkv_path '& mp4_path
Open "c:\mux.txt" For Append As #n
Print #n, fim
Close #n
Next i
你再试试

For i = 0 To List1.ListCount - 1
mkv_path = List1.List(i)
For a = 0 To List2.ListCount - 1
mp4_path = List2.List(a)
if mkv_path=mp4_path then
fim = mkv_path '& mp4_path

Open "c:\mux.txt" For Append As #1
Print #1, fim
Close #1
exit for
end if
Next a
Next i

保证list1和list2的项数相同
For i = 0 To List1.ListCount - 1
mkv_path = List1.List(i)
mp4_path = List2.List(i)
fim = mkv_path '& mp4_path
Open "c:\mux.txt" For Append As #n
Print #n, fim
Close #n
Next i