首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Form1的窗体上添加一个名称为HS的水平滚动条,最大值为100,最小值为1。再添加一个名称为List1的列表框,在属性窗口中输入列表项的值,分别是1000、1500、2000,如图所示。请编写适当的程序,使得运行程序时,将水平滚动条的长度改变为所
在名称为Form1的窗体上添加一个名称为HS的水平滚动条,最大值为100,最小值为1。再添加一个名称为List1的列表框,在属性窗口中输入列表项的值,分别是1000、1500、2000,如图所示。请编写适当的程序,使得运行程序时,将水平滚动条的长度改变为所
admin
2020-08-10
57
问题
在名称为Form1的窗体上添加一个名称为HS的水平滚动条,最大值为100,最小值为1。再添加一个名称为List1的列表框,在属性窗口中输入列表项的值,分别是1000、1500、2000,如图所示。请编写适当的程序,使得运行程序时,将水平滚动条的长度改变为所选中列表框中的某一项的值。要求程序中不得使用变量,每个事件过程中只能写一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。
选项
答案
List1 Click事件过程中,使滚动条的Width属性值等于列表框的Text属性值,那么当选择列表框中的某一项,就将水平滚动条的长度改变为所选中的值。 步骤1:程序中用到的控件及属性见表2。 [*] 步骤2:编写程序代码。 Private Sub List1_Click( ) HS.Width=List1.Text End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/bqHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名为Commandl的命令按钮,然后编写如下代码:OptionBase1PrivateSubCommandlClick()Dimaa=Array(1,2,3,4):j=1Fori=4To1Step一1S=S+a
有三个关系R,S和T如下:则由关系R和S得到关系T的操作是
以下关于窗体的叙述中错误的是
以下关于键盘事件的叙述中,错误的是
设有如下程序段:Dima(10)ForEachxInaPrintx;Nextx在上面的程序段中,变量x必须是
有数据定义语句:DimX,YAsInteger以上语句表明
窗体上有名称分别为Text1、Text2的文本框,名称为Commandl的命令按钮。运行程序,在Text1中输入“FormList”,然后单击命令按钮,执行如下程序:PrivateSubCommandl_Click()Text2.Text=UC
、下列叙述中正确的是’
对手某些控件,只要将其Style属性设置为1,则可以在该控件上使用Picture属性显示图片。以下不具备这一使用规则的控件是
下面关于VB数据文件的叙述中错误的是
随机试题
A、Atabookingoffice.B、InaHongKonghotel.C、Onabusystreet.D、Atanairport.D
预防慢性风湿性心脏瓣膜病病人风湿活动复发的根本措施是( )。
A、秦艽B、川乌C、络石藤D、伸筋草E、香加皮某男,45岁。患风湿痹痛5年,近日新患喉痹肿痛,宜选用的药是()。
投资于无担保企业(公司)债券和非金融企业债务融资工具的账面余额,合计不高于本公司上季末总资产的()。
下列不属于集中归档的优点()。
行政不作为是行政机关对于公民、法人和其他组织的符合条件的申请依法应该实施某种行为或履行某种法定职责却无正当理由拒绝履行或拖延履行的行政违法行为。根据上述定义,下列选项中行政机关行为不属于行政不作为的是()。
“教育是与种族需要、种族生活相适应的、天性的,而不是获得的表现形式;教育既无须周密的考虑使它产生,也无须科学予以指导,它是扎根于本能的不可避免的行为。”这种教育起源说属于
Astimegoeson,howtodogoodcriticalthinkingisincreasinglymarginalizedorevenleftout.ofthemodemeducationalproces
A、Theyarebackupforcollateral.B、Theyarepledgedbygovernmentsecuritiesascollateral.C、Theyareprivateofferingbacked
Thank-youcards--heartfeltexpressionsofgratitudeforgifts,servicesandgeneralkindness—seemtoberareinanagewhenthe
最新回复
(
0
)