首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
请根据以下各小题的要求设计Visual.Basic应用程序(包括界面和代码)。 (1)在名称为Forml、标题为“框架练习”的窗体上画一个名称为Framel、标题为“字体”的框架控件;在框架中画两个单选按钮,名称分别为Optionl、Option2,标题分
请根据以下各小题的要求设计Visual.Basic应用程序(包括界面和代码)。 (1)在名称为Forml、标题为“框架练习”的窗体上画一个名称为Framel、标题为“字体”的框架控件;在框架中画两个单选按钮,名称分别为Optionl、Option2,标题分
admin
2016-03-22
55
问题
请根据以下各小题的要求设计Visual.Basic应用程序(包括界面和代码)。
(1)在名称为Forml、标题为“框架练习”的窗体上画一个名称为Framel、标题为“字体”的框架控件;在框架中画两个单选按钮,名称分别为Optionl、Option2,标题分别为“宋体”、“黑体”,标题在单选按钮的左边。运行后的窗体如图3.158所示。
注意:存盘时,将文件保存至考生文件夹下,且窗体文件名为sjtl.frm,工程文件名为sitl.vbp。
(2)在名称为Forml窗体上,画一个名称为Imagel的图像框,在其中显示考生文件夹下的图片“pic2.jpg”,并设置适当属性使得图像框尺寸变化时图片尺寸可随之变化。再画一个水平滚动条和一个垂直滚动条,名称分别为HScrolll、VScrolll,它们的刻度范围都是1~3。如图3一159(a)所示。要求如下:
①定义两个窗体级变量:length、high,并编写窗体的FormLoad事件过程,使length、high分别等于图像框的宽、高;
②编写适当的事件过程,使得移动两个滚动条上的滚动块时,以刻度值作为图像框初始尺寸的倍数改变图像框相应方向的尺寸。例如:HScrolll的滚动块在刻度值为2的位置时,图像框的宽为初始宽度的2倍。如图3.159(b)所示。对于垂直滚动条也相同。
注意:存盘时,将文件保存至考生文件夹下,且窗体文件名为sjt2.frm,工程文件名为sjt2.vbp。要求程序巾的两个变量必须是length、high,此外不能再使用其他变量,除Form Load事件过程外,其他每个事件过程巾只能写一条语句。
选项
答案
第1小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,按要求画出控件并设置其相关属性。 步骤2:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,按要求画出控件并设置属性。 步骤2:打开代码编辑窗口,分别编写滚动条的Change事件过程和窗体的Load事件过程。 参考代码: Dim length,high Private Sub Form Load() length=Image 1.Width high=Imagel.Height End Sub Private Sub HScrolll Change() Imagel.Width=HScro111.Value*length End Sub Private Sub VScro111 Change() Imagel.Height=VScro111.Value*high End Sub 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/WMLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序运行的结果为1111221222331323334请在画线处填上适当的内容使程序完整。PrivateSubForm_Click()Call
代数式eXSin(30°)2x/(x+y)Inx对应的VisualBasic表达式是()。
在窗体(Name属性为Forml)上面添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Commandl),然后编写如下两个事件过程:PrivateSubCommandl_Click()a=Tex
以下关于函数过程的叙述中,正确的是()。
决定控件上文字的字体、字形、字号、效果的属性是()。
长度为n的顺序存储线性表中,当在任何位置上插入一个元素概率都相等时,插入一个元素所需移动元素的平均个数为【】。
有如下程序:PrivateSubCommand1_Click()a$="AWORKERISHERE"x=Len(a$)Fori=1Tox-1b$=Mid$(a$,i,3)Ifb$="WOR"ThenS
函数过程Fun1的功能是:如果参数b为奇数,则返回值为1,否则返回值为0。FunctionFun1(bAsInteger)if_____ThenFun1=0ElseFun1=
以下事件过程可以将打开对话框的标题改为"新时代"的是
随机试题
地球物理测井方法是()。
元好问《岐阳》:“从谁细向苍苍问,争遣蚩尤作五兵”,“五兵”指的是()
急性胃黏膜病变所致出血治疗首选
母乳性黄疸的特点,下列哪项是错误的
男,70岁,有慢性支气管炎、肺气肿病史。因畏寒、发热,伴咳嗽、气急5天就诊。住院后,高热不退,气急、发绀明显,咳黏稠脓性血痰。X线片示右肺上叶大片密度增高的阴影,内有多个小透亮区,水平叶间裂呈弧形下坠。最可能的诊断是
A.阴虚火旺B.湿热下注C.肾阳不足D.气血瘀滞E.中气下陷慢性前列腺炎患者,头晕,精神不振,腰酸膝冷,阳萎,早泄,稍劳后即有白浊溢出舌淡红,脉细。其证型是
患者女,38岁。慢性哮喘病史12年。近日感冒后病情加重,夜间咳嗽频繁,痰量多。查体:神志清,口唇轻度发绀;桶状胸;双肺叩诊过清音,呼吸低音,有干湿性啰音。经定量雾化吸入治疗后病情缓解,但PaO2(55mmHg)仍低。为防止病情进一步加重,最有效的措施是
谈谈上好一堂课有哪些具体要求。
Contractor
下列语句序列执行后,k的值是()intj=8,k=15;for(inti=2;i!=j;i++){j-=2;k++;}
最新回复
(
0
)