完成下列问题：

在考生文件夹下有一个工程文件sjt4.vbp。在窗体中“待选城市”下的List1列表框中有若干城市名称。程序运行时，选中List1中若干个列表项(如图6所示)，单击“选中”按钮则把选中的项目移到List2中，单击“显示”按钮，则在Text1文本框中显示这些选中的城市(如图7所示)。已经给出了所有控件和程序，但程序不完整。

要求：在程序中的横线处填写正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
(题目提供的源程序]
Private Sub Command1_Click()
Dim k%
For k=List1.ListCount-1 To 0 (1)
If List1.Selected(k)=True Then
List2.AddItem (2)
List1.RemoveItem (3)
End If
Next k
End Sub
Private Sub Command2_Click()
Dim k%
Text1="已经选中的城市有:"
For k=0 To List2.ListCount-1 Step 1
Text1= (4) & "" & List2.List(k)
Next k
End Sub

6月30日召开的国务院常务会议提出，要消除企业兼并重组的制度障碍。加快垄断行业改革，鼓励民营资本通过兼并重组等方式进入垄断行业的竞争性业务领域。这主要是为了

A．放松国有经济对国民经济命脉的控制

B．促进多种所有制经济的平等竞争

C．完善我国的基本经济制度

D．提高对外开放水平