请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在窗体中有3个滚动条，名称分别为VScrolll、VScroll2和VScroll3，4个标签，名称分别为Labell、Label2、Label3和Label4，Labell～Label3的标题分别为“红”、“绿”和“蓝”，Label4用来显示颜色变化，还有一个命令按钮，名称为Commandl、标题为“全部置零”。要求程序运行后，标签Label4的颜色随着3种颜色滚动条的变化而变化，如图20—4所示。
注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“'”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹下有一个工程文件sj4．vbp。在其窗体中“待选城市”下的Listl列表框中有若干个城市名称。程序运行时，选中Listl中若干个列表项(如图20—5所示)，单击“选中”按钮则把选中的项目移到List2中，单击“显示”，则在Textl文本框中显示这些选中的城市(如图20—6所示)。已经给出了所有控件和程序，但程序不完整。
注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“'”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹下有一个工程文件sj4．vbp。在其窗体中“待选城市”下的Listl列表框中有若干个城市名称。程序运行时，选中Listl中若干个列表项(如图20—5所示)，单击“选中”按钮则把选中的项目移到List2中，单击“显示”，则在Textl文本框中显示这些选中的城市(如图20—6所示)。已经给出了所有控件和程序，但程序不完整。
【正确答案】正确答案：(1)本题主要考查标签控件属性的设置，滚动条常用属性和事件及颜色函数。 标签控件的背景色通过BackColor属性设置。程序主要用到了RGB函数，该函数通过红、绿、蓝三基色产生某种颜色，其语法为RGB(红，绿，蓝)函数，其中括号中的红、绿、蓝三基色的范围为0～255之间的整数。补充后的代码如下： Private Sub Commandl_Click() VScrolll．Value=0 VScroll2．Value=0 Vscroll3．Value=0 End Sub Private Sub Form Load()
Label4．BackColor
=RGB(VScroll 1．
Value
，VScroll2．
Value
，VScroll3．
Value
) End Sub Private Sub VSerolll_Change()
Label4．BackColor
=
RGB
(VScrolll．
Value
，VScroll2．
Value
，VScroll3．
Value
) End Sub Private Sub VScroll2_Change() Label4．
BackColor
=RGB(
VScrolll．Value
，VScroll2.Value，VScroll3．Value) End Sub Private Sub VSeroll3_Change() Label4．
BackColor
=RGB(VScrolll．
Value
，VScroll2．
Value
，VScroll3．
Value
) End Sub 单击
按钮运行程序，并按要求保存。 (2)本题主要考查列表框的ListCount、Selected和List属性，AddItem和RemoveItem方法，”&”连接符，For循环语句以及If判断语句。根据题意，编写如下代码： Private Sub Commandl Click() Dim k％ For k=Listl．ListCount-1 To 0
Step-1
If Listl。Selected(k)=True Then List2．Addltem
Listl．List(k)
Listl．Removeltem k End If Next k End Sub Private Sub Command2 Click() Dim k％ Textl="已经选中的城市有：" For k=0 To List2．ListCount-1 Step 1 Textl=
Textl．Text
&""& List2．List(k) Next k End Sub 单击
按钮运行程序，并按要求保存。 (2)本题主要考查列表框的ListCount、Selected和List属性，AddItem和RemoveItem方法，”&”连接符，For循环语句以及If判断语句。根据题意，编写如下代码： Private Sub Commandl Click() Dim k％ For k=Listl．ListCount-1 To 0
Step-1
If Listl。Selected(k)=True Then List2．Addltem
Listl．List(k)
Listl．Removeltem k End If Next k End Sub Private Sub Command2 Click() Dim k％ Textl="已经选中的城市有：" For k=0 To List2．ListCount-1 Step 1 Textl=
Textl．Text
&""& List2．List(k) Next k End Sub 单击
【答案解析】