题目内容
（请给出正确答案）
[主观题]
本程序是将列表框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
查看答案
如果结果不匹配，请 联系老师 获取答案
更多“本程序是将列表框List1与List2中各表项合并到List…”相关的问题
.jpg){kind=spacer}
.jpg){kind=spacer}
请在【 】和【 】处填入适当内容，将程序补充完整。 Private Sub Form_load() List1.Addltem"北京" List1.Addltem"上海" List1.Addltem"河北" End Sub Private Sub【 】() Label1.Caption=【 】 End Sub.jpg){kind=spacer}
.jpg){kind=spacer}
.jpg){kind=spacer}
Private Sub Command1_Click() If List1.ListIndex＞=0 Then List1．RemoveItem【 】 LabeCaption=【 】 Else MsgBox“请选择要删除的项目” End If End Sub.jpg){kind=spacer}
End If End Sub
