完成下列问题：
在考生文件夹下有一个工程文件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

题库:计算机等级考试 类型:简答题 时间:2017-07-03 13:54:27 免费下载:《问答集》Word试卷

完成下列问题：
在考生文件夹下有一个工程文件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

本题关键词:附有文件,城市工程,A系列合同文件,城市干道,米列都城,附有格式文件,有效投标文件,城市供水工程,城市燃气工程,城市供热工程;