首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在名称为Form1、标题为“标签”的窗体上添加一个名称为Labell的标签,并设置适当属性以满足以下要求: ①标签的标题为“计算机等级考试”; ②标签可根据标题内容自动调整其大小; ③标签带有边框,且标签标题显示为三号字。 程序运行后
(1)在名称为Form1、标题为“标签”的窗体上添加一个名称为Labell的标签,并设置适当属性以满足以下要求: ①标签的标题为“计算机等级考试”; ②标签可根据标题内容自动调整其大小; ③标签带有边框,且标签标题显示为三号字。 程序运行后
admin
2015-06-30
66
问题
(1)在名称为Form1、标题为“标签”的窗体上添加一个名称为Labell的标签,并设置适当属性以满足以下要求:
①标签的标题为“计算机等级考试”;
②标签可根据标题内容自动调整其大小;
③标签带有边框,且标签标题显示为三号字。
程序运行后的窗体如图所示。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt1.vbp,窗体文件名保存为sjt1.frm。
(2)在名称为Form1的窗体上添加一个名称为Hscroll1的水平滚动条,其刻度范围为1—100;再添加一个名称为Text1的文本框,初始文本内容为1。程序开始运行时,焦点在滚动条上。请编写适当的事件过程,使得程序运行时,文本框中实时显示滚动框的当前位置。运行情况如图所示。
注意:要求程序中不得使用变量,每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。
选项
答案
(1)【操作步骤】 步骤1:建立界面,在窗体中添加一个标签,然后在属性窗口中设置标签和窗体的属性,程序中用到的控件及属性见表3.56。 [*] 步骤2:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:新建一个窗体,在窗体中添加一个滚动条和一个文本框。 步骤2:然后按照题目要求设置控件属性,程序中用到的控件及属性见表3.57。 [*] 步骤3:编写程序代码。 参考答案 Private Sub Form_Activate() HScroll1.SetFocus End Sub Private Sub HScroll1_Change() Text1.Text = HScroll1.Value End Sub 步骤4:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/brQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
结构化程序设计主要强调的是______。
数据库系统的主要特点为数据集成性、数据的高______和低冗余性、数据独立性和数据统一管理和控制。
执行以下程序段后,整型变量n的值为()。n=0Fori=1To20Step5n=n+1Nexti
按照“先进后出”原则组织数据的数据结构是()。
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Dimarrayl(10;10)AsIntegerDimiA
设在窗体上有一个名称为Command1的命令按钮,并有以下事件过程:PrivateSubCommandlClick()StatiCbAsVariantb=Array(1,3,5,7,9)...
顺序存储方法是把逻辑上相邻的结点存储在物理位置【】的存储单元中。
下列关于菜单的说法错误的是()。
下列关于Do…Loop语句的叙述不正确的是()
随机试题
政策终结的方式有________、________、________、________、________。
婴宁“爱笑”的性格特点主要源于()
A.时间<0.12秒,振幅肢体导联<0.25mV,胸导联<0.2mVB.时间<0.04秒,振幅除avR外小于同导联l/4RC.0.12~0.20秒D.0.06~0.10秒,最宽不超过0.11秒E.心率60~100次/min时,为0.32~0.44秒
合伙协议中约定了合伙企业负责人,并经工商登记在册,在这种情况下,其他合伙人以合伙企业的名义所从事的民事法律行为会产生的后果是()。
通过企业生产物流管理减少生产物料装运的频率和缩短搬运的距离,降低企业生产物流运作的成本和费用,这反映的是企业生产物流管理的()。效率性目标
设点A(1,0,-1),B(2,1,0),C(0,1,1)则由A,B,C所构成的三角形的面积为________.
Expressionismisanartisticstyleinwhichtheartistseekstodepictnotobjectiverealitybutratherthesubjectiveemotions
有下面程序代码:PrivateSubCommand1_Click()DimkAsIntegerFork=1To3Callfun(k)NextkFork=1To3
Whoisthespeaker?
Acollegegraduatejuststartedajobandhefoundsomethingstrange.Oneofhiscolleagueswouldplayhisdigitalcameraorlis
最新回复
(
0
)