首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2,标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Text1和Text2,初始内容均为空)和一个命令按钮(名称为Command1,标题为“显示”)。然后编写命令按钮的Cl
(1)在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2,标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Text1和Text2,初始内容均为空)和一个命令按钮(名称为Command1,标题为“显示”)。然后编写命令按钮的Cl
admin
2015-10-23
30
问题
(1)在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2,标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Text1和Text2,初始内容均为空)和一个命令按钮(名称为Command1,标题为“显示”)。然后编写命令按钮的Click事件过程。程序运行后,在两个文本框中分别输入姓名和年龄,然后单击“显示”按钮,则在窗体上显示两个文本框中的内容,如图所示。要求程序中不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt1.vbp,窗体文件名保存为sit1.frm。
(2)在名称为Form1的窗体上画一个图片框,其名称为Picture1,一个水平滚动条,名称为HScroll1,一个命令按钮,名称为Command1,标题为“设置属性”,通过属性窗口在图片框中装入一个图形(文件名为pic1.jpg,位丁考生目录下),图片框的高度与图形的高度相同,图片框的宽度任意(如图1所示)。编写适当的事件过程,程序运行后,如果单击命令按钮,则设置水平滚动条的属性如下:
Min 100
Max 1500.
LargeChange 100
SmallChange 10
之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。程序运行后的窗体如图2所示。要求程序中不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
选项
答案
步骤1:新建一个窗体,按照题目要求建立控件并设置相应属性。程序中用到的控件及属性如表3.16所示。 [*] 步骤2:打开代码编辑窗门,在指定位置编写如下代码。Private Sub Commandl Click() Form1.Print Text1.Text & ",现年" & Text2.Text&"岁"End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)步骤1:新建一个窗体,添加控件并设置相应的属性。程序中用到的控件及其属性见表3.17。 [*] 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 Private Sub Commandl Click() HScrolii.Max=1500’设置滚动务的最大值、最小值、最大改变值、最小改变值 HSCr0111.Min=100 HScrolii.LargeChange=100 HScrolll.SmallChange=1 0 End Sub Private Sub HScrolllchange() Picturel.Width=HScrolii.Value’将图片的width与滚动条的Value保持一致 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
(1)通过标签的Name和Caption属性设置标签的名称和标题,通过文本框Name和Text属性设置文本框的名称和文本,通过命令按钮的Name和Caption属性设置命令按钮的名称和标题,“&”和“+”运算符均可将两个表达式作为字符串连接。在窗体上输出文本内容可使用Print方法。
(2)在设计阶段通过Picture属性为图片框指定显示的图片,通过Width属性来设定或修改图片框的宽度。通过调整滚动条滑块的位置即可改变其Value属性的值。滚动条的Max和Min属性限定了滚动条所能表示的最大值和最小值,LargeChangc属性用丁设置当单击滑块与两侧箭头间区域时Value属性值的改变量,SmallChange属性用于设置当单击滚动条两侧箭头时Value属性值的改变量。当改变滚动条滑块位置后将触发其Change事件。
转载请注明原文地址:https://kaotiyun.com/show/dHLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个列表框和一个文本框,编写下列两个事件过程:PrivateSubFormLoad()List1.Addltem"北京"List1.Addltem"天津"List1.Addltem"上海"Text1.Text=""EndSub
下列每组控件中,都包含有滚动条的一组控件是
设在窗体上有个文本框,然后编写如下的事件过程PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)ConstAlt=4ConstKey_F2=&H71
下面四个语句中,输出逻辑为“真”的是()。
如果要在任何新建的模块中自动插入OptionExplicit语句,则应采用下列()操作步骤。
执行下面程序,第一行输出结果是【】,第二行输出结果是【】。OptionExplicitPrivateSubForm_Click()DimAAsIntegerA=2CallSub1(A)EndSubPriva
使图像(Image)控件中的图像自动适宜控件的大小需要
下面对语句的功能说明中错误的是Open"Text.Dat"ForOutputAs#FreeFile
一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1中有语句PublicXAsInteger,在Model1中有语句PublicYAsInteger。则以下叙述中正确的是
相对于数据库系统,文件系统的主要缺陷有数据关联差、数据不一致性和
随机试题
为了达到保证检定、校准和检测质量的目标,必须对检定、校准和检测的__________两个方面进行全面有效的控制,对控制获得的数据进行分析,并且采取相应的措施。
个性初具雏形的年龄班是()
慢性肾小球肾炎的综合治疗包括
患者头痛而晕,心悸不宁,神疲乏力,面色无华,舌淡苔薄白,脉细弱。治疗应首选()
根据《合同法》的规定,承诺必须具备的条件包括()。
在自动控制系统中,控制输入信号与主反馈信号之差,称为()。
甲公司拟收购乙上市公司。根据证券法律制度的规定,下列投资者中,如无相反证据,不属于甲公司一致行动人的是()。
甲公司为增值税一般纳税人,适用的增值税税率为16%,该公司主营业务为经销W产品并按实际成本核算。W产品的售价中不包含增值税,确认收入的同时结转销售成本。2019年该公司发生的经济业务如下:(1)3月1日,收到乙公司预付货款1100万元。3月2日,向乙公司
下列不属于新教教堂的是()。
Iwonderwhofirstconceivedtheideaofcuttingaholeinthedoor.
最新回复
(
0
)