本程序是将列表框List1与List2中各表项合并到List3：List1与List2中原有各表项已按ASCII码从大

到小排列。要求合并后List3中各表项也要从大到小排列。

Private Sub Command1_Click()

Dim I as integer,j as integer

List3.Clear

----1----

If List1.ListCount * List2.ListCount = 0 Then Exit Do

If----2----Then

List3.AddItem List1.List(0): List1.RemoveItem (0)

Else

List3.AddItem List2.List(0): List2.RemoveItem (0)

End If

Loop

For i= 0 To List1.ListCount – 1

List3.AddItem List1.List(i)

----3----

For j = 0 To List2.ListCount - 1

List3.AddItem List2.List(j)

Next j

List1.Clear: List2.Clear

End Sub