首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 在名称为Form1窗体上,画一个名称为Image1的图像框,在其中显示考生文件夹下的图片“pic2.jpg”,并设置适当属性使得图像框尺寸变化时图片尺寸可随之变化。再画一个水
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 在名称为Form1窗体上,画一个名称为Image1的图像框,在其中显示考生文件夹下的图片“pic2.jpg”,并设置适当属性使得图像框尺寸变化时图片尺寸可随之变化。再画一个水
admin
2019-05-28
34
问题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
在名称为Form1窗体上,画一个名称为Image1的图像框,在其中显示考生文件夹下的图片“pic2.jpg”,并设置适当属性使得图像框尺寸变化时图片尺寸可随之变化。再画一个水平滚动条和一个垂直滚动条,名称分别为HScroll1、VScroll1,它们的刻度范围都是1~3。如图3-159(a)所示。要求如下:
①定义两个窗体级变量:length、high,并编写窗体的Form Load事件过程,使length、high分别等于图像框的宽、高;
②编写适当的事件过程,使得移动两个滚动条上的滚动块时,以刻度值作为图像框初始尺寸的倍数改变图像框相应方向的尺寸。例如:HScroll1的滚动块在刻度值为2的位置时,图像框的宽为初始宽度的2倍。如图3-159(b)所示。对于垂直滚动条也相同。
注意:存盘时,将文件保存至考生文件夹下,且窗体文件名为sjt2.frm,工程文件名为sjt2.vbp。要求程序中的两个变量必须是length、high,此外不能再使用其他变量,除Form Load事件过程外,其他每个事件过程中只能写一条语句。
选项
答案
审题分析 根据题意,本题需在滚动条的Change事件中改变图像框的宽度和高度,在窗体的Load事件中初始化全局变量。 操作步骤 步骤1:新建一个“标准EXE”工程,按要求画出控件并设置属性。 步骤2:打开代码编辑窗口,分别编写滚动条的Change事件过程和窗体的Load事件过程。 参考代码: Dim length,high Private Sub Form_Load() lenath=Image1.Width high=Imagel.Height End Sub Private Sub HScroll1_Chanqe() Image1.Width=HScroll1.Value*length End Sub PriVate Sub VScroll1_Change() Image1.Height=VScroll1.Value*high End Sub 步骤3:按要求将文件保存至考生文件夹中。 考点链接 滚动条。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/CWUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在名称为Form1、标题为“标签”的窗体上添加一个名称为Label1的标签,并设置适当属性以满足以下要求:①标签的标题为“计算机等级考试”;②标签可根据标题内容自动调整其大小;③标签带有边框,且标签标题显示为三号字。程序运行后的窗体如图所示。注
考生文件夹下有一个工程文件sjt2.vbp。窗体中含有除计时器外的其他控件,还有一个过程sub1,其功能是按照Text1中的通话时间计算通话费,并将其显示在Text2中。程序运行时,单击“通话开始”按钮,则在Text1中累加通话时间(每隔1秒,文本框中的
在名称为Form1的窗体上添加一个名称为Text1的文本框,再建立一个名称为Format的弹出式菜单,含三个菜单项,标题分别为“加粗”、“斜体”、“下划线”,名称分别为M1、M2、M3。请编写适当的事件过程,在程序运行时,当用鼠标右键单击文本框时,弹出菜单
在名称为Form1的窗体上添加一个名称为HS1的水平滚动条,其刻度值范围为1~100;添加一个命令按钮,名称为C1,标题为“移动滚动框”。请编写适当的事件过程,使得在程序运行时,每单击命令按钮一次(假定单击次数不多于10次),滚动框向右移动10个刻度。程序
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。命令按钮的单击事件过程如下:PrivateSubConunsnd1_Click()Dimx1AsInteger,x2AsInteger,x3AsInteger
在窗体上画一个命令按钮和一个标签,其名称分别为Command1和lahel1,然后编写如下事件过程:PrivateSubCommand1_Click()Dimarr(10)Fori=6To10arr(i)=i-5NextiLabe
编写如下程序:PrivateSubConunand1_Click()DimxAsInteger,yAsIntegerx=1y=1Doy=x*yIfy>10ThenExitDoElsex=x+3EndIfLoop
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是
在窗体上画一个水平滚动条,其属性值满足Min<Max。程序运行后,如果单击滚动条右端的箭头。则Value属性值
随机试题
病人诉自己的血液凝固了,身体干枯了,变成了僵尸。该症状属于
字母Z表示字母S表示
协议出让土地的,公布协议出让结果的时间不得少于()日。
根据《合同法》的规定,租赁合同的租赁期限在()以上的,合同必须采用书面形式,当事人未采用书面形式的,视为不定期租赁。
2012年1月2日20时许,在A县发生了一起交通逃逸事故。事故发生后,A县公安局交通警察大队到现场勘查,并根据受害人的描述和指认的逃逸方向进行摸排,发现辛某所有的农用三轮车发动机温热、车身左侧有明显划痕,遂开具《扣押决定书》将该车扣押。2012年1月20日
Thereisnothingillogicalorsyntheticaboutthehumilityofgreatbookmenincallingattentiontothelimitationsofthebook.
关于RC5加密算法的描述中,正确的是()。
YourLifeTheirHandsAOnbenchesinparks,youcanbuythethingsyousimplycan’tfindinstores.Aftermethamphetamine,the
A、AccordingtothemovementandvibrationsofhotgassesB、ThetradewindsblowonEarthC、TheriversD、Thesoundtravelthrough
A、Hehateddriving.B、Heforgottobringitwithhim.C、Hedidn’tneeditforherodebicycle.D、Hedidn’tknowthelocationof
最新回复
(
0
)