2. 计算机
  3. 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在窗体中有3个滚动条，名称分别为VScrolll、VScroll2和VScrol

请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在窗体中有3个滚动条，名称分别为VScrolll、VScroll2和VScrol

admin2010-07-13  57
问题 请根据以下各小题的要求设计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所示)。已经给出了所有控件和程序，但程序不完整。

    注意：请去掉程序中的注释符(即“’”)，把程序中的“?”改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
选项
答案(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 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/VGmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)