首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
请根据以下各小题的要求设计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
72
问题
请根据以下各小题的要求设计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全国计算机二级
相关试题推荐
Applet运行时,被浏览器或AppletViewer调用的第一个方法是( )。
Graphic提供的绘图方法可以分为:绘制【】的方法和绘制文本的方法。
下列选项中不属于结构化程序设计方法的是( )。
Java中,类FileInputStream和FileOutputStream提供了对文件的读/写方法是
下列数组array_test中,能在程序运行时动态调整大小的是
在结构化分析方法中,用于描述系统中所用到的全部数据和文件的文档称为______。
下列组件不能添加进Frame主窗口的是
在Java源文件中,什么类最多只能有一个,而其他类的个数不限?
在面向对象方法中,属性与操作相似的一组对象称为______。
当用户按Tab键离开文本框时,将激发( )事件
随机试题
酚苄明不适用于治疗:
关于急性中毒下列哪项说法是错误的
肠道内胆汁酸主要的重吸收方式是
图示体系与大地之间用三根链杆相连将构成几何( )体系。
某铁路工程A标段长度为30km,包括路基土石方50000m3,大桥1座,小桥涵10座。铺轨架梁由建设单位单独发包。路基工程中,里程DK0+000~DK9+000主要为路基挖方,DK9+000~DK11+000段为1座特大桥,DK11+000~DKl8+00
2006年2月15日财政部在北京发布了《企业会计准则——基本准则》,该准则自()起施行。
下列交易或事项中,会引起当期现金流量表中“投资活动产生的现金流量”项目发生增减变动的是()。
短板理论是指术桶的盛水量是由组成木桶的木板中最短的一块决定的,这块短板即为这个木桶盛水量的“限制因素”。根据上述定义,下列不符合短板理论的是:
若un收敛,且,则可否断定vn收敛。
ProtestsattheuseofanimalsinresearchhavetakenanewandfearfulcharacterinBritainwithattemptedmurderoftwoBritis
最新回复
(
0
)