首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Form1的窗体上添加一个名称为Hscroll1的水平滚动条,其刻度范围为1~100;再添加一个名称为Text1的文本框,初始文本内容为1。程序开始运行时,焦点在滚动条上。请编写适当的事件过程,使得程序运行时,文本框中实时显示滚动框的当前位置。运行
在名称为Form1的窗体上添加一个名称为Hscroll1的水平滚动条,其刻度范围为1~100;再添加一个名称为Text1的文本框,初始文本内容为1。程序开始运行时,焦点在滚动条上。请编写适当的事件过程,使得程序运行时,文本框中实时显示滚动框的当前位置。运行
admin
2016-06-23
57
问题
在名称为Form1的窗体上添加一个名称为Hscroll1的水平滚动条,其刻度范围为1~100;再添加一个名称为Text1的文本框,初始文本内容为1。程序开始运行时,焦点在滚动条上。请编写适当的事件过程,使得程序运行时,文本框中实时显示滚动框的当前位置。运行情况如图所示。
注意:要求程序中不得使用变量,每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。
选项
答案
[操作步骤] 步骤1:新建一个窗体,按照题目要求建立控件并设置其属性,如表3.50所示。 [*] 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 参考代码 Private Sub HScroll1_Change() Text1.Text=HSCroll1.Value End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/XSLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序段运行结果是______。DimcAsInteger,numAsIntegerNum=29483Do c=numMod10 Printc; num=num\10LoopWhi
执行语句Open"C:\StuData.dat"ForlnputAs#2后,系统
在窗体上添加一个命令按钮,名为Command1,一个文本框,名为text1,则执行如下事件过程后,文本框中的输出为Fori=1To3 Forj=1To3 Fork=1To2 x=x+3
下面有一段程序代码,如果从键盘上输入“Computer”,则在文本框内显示的内容是PrivateSubText1_KeyPress(KeyAsciiAsInteger) IfKeyAscii>=65AndKeyAscii<=
长度为n的顺序存储线性表中,当在任何位置上插入一个元素概率都相等时,插入一个元素所需移动元素的平均个数为______。
下面叙述中不正确的是()。
如果希望定时器控件每秒产生10个事件,则要将Interval属性的值设为()。
在窗体上绘制一个命令按钮,其名称为Command1,然后编写如下事件过程:PrivateSubCommand1_Click() DimiAsInteger,xAsInteger Fori_1T06
设a=5,b=4,c=3,d=2,则表达式3>2术bOra=cAndb<>cOrc>d的值是
设Y是整形变量,能判断Y为奇数的表达式是
随机试题
设A、B为随机事件,已知P(A)=0.7,P(B)=0.5,P(A-B)=0.3,则P(AB)=________.
A.3~6个月B.1~2岁C.4~6岁D.9~11岁E.16岁以后正颌外科矫治颌骨畸形的时间为()
肠外营养的适应证是()
甲、乙两公司签订协议,约定甲公司向乙公司采购面包券。双方交割完毕,面包券上载明“不记名、不挂失,凭券提货”。甲公司将面包券转让给张某,后张某因未付款等原因被判处合同诈骗罪。面包券全部流入市场。关于协议和面包券的法律性质,下列哪一表述是正确的?(2015年卷
属于项目组织实施方案分析的是()
财政政策的宏观经济目标包括()等。
光盘是外存储器的一种。()
小华在搜索某地点的时候用的是比例尺为1:1000的电子地图,为了更详细地了解该地点附近的商场等设施,他将地图放大到原来的200%,则此时的地图相当于比例尺为多少的地图?()
TheresultoftheincreasingcostsinnaturaldisastersisThepurposeofinsurancecompaniestosupportdisasterpredictionre
SoonafterstartinghisjobassuperintendentoftheMemphis,Tenn.,publicschools,KrinerCashorderedanassessmentofhisne
最新回复
(
0
)