首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 在名称为Form1的窗体上画一个名称为Hscroll1的水平滚动条,其刻度范围为1~100;再画一个名称为Text1的文本框,初始内容为1。程序开始运行时,焦点在滚动条上。请
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 在名称为Form1的窗体上画一个名称为Hscroll1的水平滚动条,其刻度范围为1~100;再画一个名称为Text1的文本框,初始内容为1。程序开始运行时,焦点在滚动条上。请
admin
2016-01-31
65
问题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
在名称为Form1的窗体上画一个名称为Hscroll1的水平滚动条,其刻度范围为1~100;再画一个名称为Text1的文本框,初始内容为1。程序开始运行时,焦点在滚动条上。请编写适当的事件过程,使得程序运行时,文本框中实时显示滚动框的当前位置。运行情况如图3-69所示。
注意:要求程序中不得使用变量,每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
选项
答案
审题分析 根据题意,本题需在滚动条的Change事件过程中编写在文本框中输出滚动条当前Value值的语句。 操作步骤 步骤1:新建一个“标准EXE”工程,在窗体Form1中画一个文本框和一个水平滚动条,在属性设置窗口中设置其相关属性,其属性及值如表4-41所示。 [*] 步骤2:打开代码编辑窗口,编写水平滚动条的Change事件过程。 参考代码: private Sub HScroll1_Change() Text1.Text=HSCrOll1.Value End Sub 步骤3:按要求将文件保存至考生文件夹中。 考点链接 滚动条、框架、焦点和Tab顺序。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/CuLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定窗体的名称(Narne属性)为Forml,则把窗体的标题设置为"VBTest"的语句为()。
若要使用户不能修改文本框TextBoxl中显示的内容,应设置()属性。
只能用来显示文本信息的控件是()。
数据库设计分为以下6个设计阶段:需求分析阶段、______、逻辑设计阶段、物理设计阶段、实施阶段及数据库运行和维护阶段。
下面程序运行后,输出的结果是Dimarr(3,3)Forj=1To3Fork=1To3Art(j,k)=(j-1)*3+kNextkNextjForj=2To3Fork=2To3Printarr(k,j);
如果在C盘当前文件夹下已存在名称为studata.dat的顺序文件,那么执行语句Open"C:\studata.dat"ForAppendAs#1之后,将
新建一个窗体,其BorderStyle属性设置为FixedSingle,但运行时却没有“最大化”和“最小化”按钮,可能的原因是
在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码:PrivateSubCommandl_Click()Dima(5)Fori=0To4A(i)=i+1t=i+1
随机试题
可出现昏迷的是下列哪种疾病
患者发热,咳嗽,胸痛,咯吐腥臭浊痰,甚则脓血相兼,其诊断为:
下列栓剂基质中,具有同质多晶性的是
为配制注射剂用的溶剂是
政府通过财政政策,调节社会总需求和总供给,实现总供需的平衡和结构平衡,进而实现国民经济的又好又快发展。这是指财政政策的()。
某公司向银行借款10000元,期限3个月,年利率5%,到期一次还本付息,则到期时,该项借款的账面价值为()元。
依次填入画横线部分最恰当的一项是()。①这几年新建的楼房_______,使这座城市更加繁荣。②文艺晚会上他们把自己的表演才能发挥得_______。③现在到人才市场应聘的人虽然很多,但_______,用人单位要找到真正能
2022年,人社部和国家医保局“总对总”通道正式开通,支持电子社保卡和医保电子凭证在就医购药领域并行使用。下列关于社保卡的相关说法,错误的是()。
TASKONE—JOB•Forquestions13—17,matchtheextractswiththecorrespondingjob,listedA—H.•Foreachextract,choosethejob
Whywork?【C1】______youhaveperiodicallyaskedyourselfthesamequestion,perhapsfocusedon【C2】______youhavetowork.Serf-
最新回复
(
0
)