如何从combo列表控件中.顺序变换?

Question

应该很简单的啊？
怎么没人回答啊?难道天冷就没人上来啊?

Answer 1

    private command1_click()
       dim i as long,j as long
       dim astr as string
       
       j=combo1.listcount-1       for i=0 to j
          astr=astr & combo1.list(i)
       next
       text1.Text = astr  '这时显示的是1，2，3，4，5，6 如果想要多重复几遍，就改成： text1.text=astr &astr & astr ...
    end sub