首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在窗体中有3个滚动条,名称分别为VScrolll、VScroll2和VScrol
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在窗体中有3个滚动条,名称分别为VScrolll、VScroll2和VScrol
admin
2010-07-13
75
问题
请根据以下各小题的要求设计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全国计算机二级
相关试题推荐
当处理的数据量很多,或向文件写很多次少量的数据,一般使用( )流。
Jackson结构化程序设计方法是英国的M.Jackson提出的,它是一种面向【】的设计方法。
运行下面的程序时,会产生( )。publicclassTest{publicstaticvoidmain(Stringargs[]){intx=0;inty
包含Swing构件的Applet(小应用程序)应该是______类的子类。
下列基本命令中,属于类文件分解器命令的是
对长度为n的线性表进行顺序查找,在最坏情况下所需要的比较次数为
下面程序中,若从键盘输入大写字母C,则程序的输出结果是______。importjava.io.*;publicclassTest{publicstaticvoidmain(String
下列代表十六进制整数的是()。
随机试题
光镜下无法看到的细菌的特殊结构是()
2016年1月,甲、乙、丙、丁共同出资设立一有限合伙企业A。其中,甲、乙、丙为普通合伙人,丁为有限合伙人。甲负责执行合伙企业事务。2016年3月,丁又与戊共同设立从事与本合伙企业相竞争的业务的另一合伙企业,其他合伙人认为丁违反了竞业禁止义务,要求丁退出A
员工处理与领导的关系时,正确的做法是()。
西方第一本以“教育心理学”命名的专著是()心理学家桑代克出版的《教育心理学》。
党对公安工作的直接领导,就是要求公安机关()。
精简机构和人员,是政府机构改革的关键和核心;只有机构和人员精简了,转变政府职能才能到位。()
500名士兵排成一列横队。第一次从左到右1、2、3、4、5(1至5)依次报数;第二次反过来从右到左1、2、3、4、5、6(1至6)依次报数,既报55(报6的士兵有多少名?
已知有向图G=(V,A),其中V={a,b,c,d,e},A={<a,b>,<a,c>,<d,c>,<d,e>,<b,e>,<c,e>}。对该图进行拓扑排序,下面序列中不是拓扑排序的是()。
【2011中山大学分析与论述题第1题】在1998—2009年期间,中国上市公司所持有的“现金和现金等价物”占“总资产”的比重为15%,部分公司的比率升值高达80%。我们知道,虽然现金和现金等价物是公司内部最具有流动性的资产,但其收益率也是最低的,请分析,上
Inthepast,theParkServicefocusedonmakingthebigscenicparksmore【C1】______andcomfortablefortourists.Roadswerepave
最新回复
(
0
)