首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Forml的窗体上添加一个名称为Hscrolll的水平滚动条,其刻度范围为1~100;再添加一个名称为Textl的文本框,初始文本内容为l。程序开始运行时,焦点在滚动条上。请编写适当的事件过程,使得程序运行时。文本框中实时显示滚动框的当前位置。运行
在名称为Forml的窗体上添加一个名称为Hscrolll的水平滚动条,其刻度范围为1~100;再添加一个名称为Textl的文本框,初始文本内容为l。程序开始运行时,焦点在滚动条上。请编写适当的事件过程,使得程序运行时。文本框中实时显示滚动框的当前位置。运行
admin
2020-04-08
42
问题
在名称为Forml的窗体上添加一个名称为Hscrolll的水平滚动条,其刻度范围为1~100;再添加一个名称为Textl的文本框,初始文本内容为l。程序开始运行时,焦点在滚动条上。请编写适当的事件过程,使得程序运行时。文本框中实时显示滚动框的当前位置。运行情况如图所示。
注意:要求程序中不得使用变量,每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下,工程文件名保存为Bjt2.vbp,窗体文件名保存为sjt2.frm。
选项
答案
【操作步骤】 步骤1:新建一个窗体,按照题目要求建立控件并设置其属性,如表4.50所示。 [*] 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 参考答案 PriVate Sub HScrolll_Change() Textl.Text=HScrolll.Value End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
17ablndex属性是当前窗体上控件的<Tab>键切换顺序:运行时按<Tab>键会按照Tablndex值从小到大的顺序进行切换。将滚动条的Tablndex属性设置为0,可以使程序开始运行时,焦点在滚动条上。当滚动框的位置改变时,触发Chan~事件。通过Textl.Text=HScmlll.VMue语句可以实现在文本框中显示滚动框的当前位置。
转载请注明原文地址:https://kaotiyun.com/show/KNTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
将文本框的()属性设置为True时,文本框可以输入或显示多行文本,且会自动换行。
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:PrivateSubCommand1_Click()Dimn%,
要使菜单项MenuOne在程序运行时失效,应使用的语句是()。
编写如下程序:PrivateSubCommand1_Click() DimxAsInteger,yAsInteger x=InputBox("输入第一个数") y=InputBox("输入第二个数") Callf(x,
为计算1+2+22+23+24+…+210的值,并把结果显示在文本框Text1中,若编写如下事件过程:PrivateSubCommand1Click()Dima&,s&,k&s=1a=2Fork=
在窗体上画一个名称为CD1的通用对话框,一个名称为Command1的命令按钮。然后编写如下事件过程:PrivateSubCommand1_Click()CD1.FileName=""CD1.Filter="所有文件|*.*|(*.
VisualBasic控件一般都规定一个默认属性,在引用这样的属性时,只写对象名而不必给出属性名。默认属性为Caption的控件是()。
窗体上有一个名称为Framel的框架(如图),若要把榧架上显示的“Framel”改为汉字“框架”,下面正确的语句是()。
(1)考生文件夹中有工程文件sjt3.vbp。窗体上有一个名称为Label1、标题为“标签控件”的标签;有一个名称为Command1、标题为“命令按钮”的命令按钮。单击上述两控件中的任一控件,则在标签Label2中显示所单击控件的标题内容(标题内容前添加“
如果将命令按钮的访问键设置为"D",以下不会触发命令按钮Click事件的操作是
随机试题
驾驶机动车遇到这种情况时,要快速向左绕过。
设f(x)=ax3-6ax2+b在区间[-1,2]的最大值为2,最小值为-29,又知a>0,则a,b的取值为______.
在山地条件下,影响植被分布的主要地形要素有哪些?
细胞毒素类抗癌药有
消化性溃疡的病理损伤深度浅者至少达
急性肾型肾衰竭最常见的原因是
药物稳定性研究的重点是
设定目标的意义就在于()。
在当代中国,坚持发展是硬道理的本质要求,就是()。
TheNBAlockout(停工)didnotfinishonThursdaynight,butitwasnearlyanend,amidlight-heartedjokesandaggressivewordchoi
最新回复
(
0
)