如何把一个listbox中的值每相邻的两项组合后放到另一个combobox中

Question

编写一个循环
然后
dim a as string
for i=0 to list1.listcount-2
    list1.listindex=i
    a=list1.text
    list1.listindex=i+1
    a=a & list1.text
    combo1.additem a
next i

Answer 1

dim a as string
for i=0 to list1.listcount/2
    list1.listindex=i
    a=list1.text
    list1.listindex=i+1
    a=a & list1.text
    combo1.additem a
next i

Answer 2

dim a as string
for i=0 to iif((list1.listcount/2 mod 2)=0,list1.listcount/2-1,list1.listcount/2)
    list1.listindex=i
    a=list1.text
    list1.listindex=i+1
    a=a & list1.text
    combo1.additem a
next i