首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。
admin
2009-02-25
31
问题
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。
(1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下:
在窗口中有一个名称为Image1的图像框,一个名称为Timer1的计时器,一个名称为HScroll1的滚动条,还有一个名称为C1,标题为“开始”的命令按钮。要求程序运行后,点击开始按钮,则图像框中的图片根据计时器中设定的时间间隔交替变更,如果改变滚动条中滚动框的位置,则图片交替变换的速度也随之变化。程序运行界面如图12-5和图12-6所示。
(2) 在考生文件夹下有工程文件sjt4.vbp及窗体文件sjt4.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下:
在窗体中有一个名为Image1的图像框,还有两个命令按钮,名称分别是C1和C2,标题分别是“放大”和“缩小”。要求程序运行后,点击C1按钮,则图像框变大;点击C2按钮,则图像框变小。程序运行界面如图12-7所示。
选项
答案
时钟控件作用是以一定的时间间隔激发计时器事件(Timer)而执行相应程序代码,Interval属性决定时间间隔的长短,以毫秒为单位,所以要改变两个图片交替的速度可将滚动框的Value值赋值给Interval属性即可:当时钟控件的 Enabled属性为True时,时钟控件才起作用,当为False时该控件不起作用。所以要使开始的时候图片不改变,将Timer控件的Enabled属性设置为False,单击命令按钮要使图片开始改变时,将时钟控件的Enabled属性设置为True;程序运行时用 LoadPicture()方法在图形框里装入图形,其格式为: 图形框.Picture=LoadPicture(图形文件名)。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表12-3。 [*] 第二步:编写程序代码。 程序提供的代码: Private Sub C1_Click() Timer1.Enabled=True End Sub Private Sub HScroll1_Change() ’Timer1.?=1000-HScroll1.? End Sub Private Sub Timer1_Timer() Static i As Integer If i=0 Then ’Image1.Picture=?("2.ico") i=1 Else ’Image1.Picture=?("1.ico") i=0 End If End Sub 参考代码: Private Sub C1_Click() Timer1.Enabled=True End Sub Private Sub HScroll1_Change() Timer1.Interval=1000-HScroll1.Value End Sub Private Sub Timer1_Timer() Static i As Integer If i=0 Then Image1.Picture=LoadPicture("2.ico") i=1 Else Image1.Picture=LoadPicture("1.ico") i=0 End If End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 (2)在窗体上建立好控件后,先设置控件属性,再编写事件过程。 按钮标题由Caption来设置;在“属性”窗口中通过Picture属性来设置图像框的图片。控件的大小由Width属性和Height属性来设置,Width决定控件的宽,Height决定控件的高度,可在属性窗口中直接设置,也可在程序运行中用代码来设置。 解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性设置见表12-4。 [*] 第二步:编写程序代码。 程序提供的代码: Private Sub C1_Click() If Image1.Height <3000 Or Image1.Width<3000 Then ’Image1.Height=Image1.?+500 Image1.Width=Image1.Width+500 End If End Sub Private Sub C2_Click() If Image1.Height>1000 Or Imagel.Width>1000 Then Image.Height=Image1.Height-500 ’Image1.Width=Image1.Width ? 500 End If End Sub 参考代码: Private Sub C1_Click() If Image1.Height<3000 Or Image1.Width<3000 Then Image1.Height=Image1.Height+500 Image1.Width=Image1.Width+500 End If End Sub Private Sub C2_Click() If Image1.Height>1000 Or Image1.Width>1000 Then Image1.Height=Image1.Height-500 Image1.Width=Image1.Width-500 End If End Sub 第三步:调试并运行程序 第四步:按题目要求存盘
解析
转载请注明原文地址:https://kaotiyun.com/show/Ch1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
软件危机爆发之后,荷兰科学家Bijkstra1968年提出了一种新的程序设计思想,它就是()。
一元算术运算符中,运算符+的功能是()。
Java程序结构中,源文件与程序公共类()。
有下面的Applet程序段:import,java.awt.*;import.java.applet.*;publicclassHelloextendsApplet{publicvoidpanin(Grap
下面的程序用“冒泡”法将数组a中的10个整数按升序排列,请在横线处将程序补充完整。publicclassSun{publicstaticvoidmain(Stringargs[]){int[]a={67
ODL转换关系时,若为原子类型属性,类的每个属性对应关系的一个属性;若为结构类型,其每个元素为关系的一个属性;若为数组,则按元素的个数即可扩展为______,也可扩展为多个属性。
下面说法不正确的是()
下面各选项中正确的是()。Ⅰ:longl=4990Ⅱ:inti=4LⅢ:floatf=1.1Ⅳ:doubled=34
随机试题
苏轼称赞诗人王维的诗具有“________”美学特征。
下列革兰染液成分不包括
显示肺尖部病变的最佳体位是
实脾散的功用是三仁汤的功用是
钻孔灌注桩实测桩长为30m,时域信号第一峰与桩端反射波峰间的时间差为15.79ms,计算该桩的桩身波速为()。
( )是在初步设计开始前,根据批准的可行性研究报告及其投资估算确定的。
北京某传媒有限责任公司主要经营电视剧、电影等广播影视节目的制作和发行,2013年8月被认定为营改增试点一般纳税人。2015年11月企业发生如下业务:(1)9日,传媒公司为某电视剧提供片头、片尾、片花制作服务,取得含税服务费106万元。(2)同日,公司购
A公司于2015年1月1日以银行存款5190万元购买B公司40%的股权,并对B公司具有重大影响,另支付相关税费10万元。同日,B公司可辨认净资产公允价值12800万元,账面价值10000万元,其差额为一项管理用无形资产所致,该无形资产尚可使用年限为25年,
以往关于网络提速与降价的讨论中,舆论多从运营商和消费者博弈的角度切入,聚焦低网速、高收费对于公众生活的影响,使用的是服务者义务和消费者权利的说理逻辑。此次却提供了一个新的观察视角,即低质量、高成本的宽带服务潜在地阻止了社会信息化的进程。在现代信息社会的运行
Onceuponatime,innovationatProcter&Gambleflowedoneway:fromtheUnitedStatesoutward.WhilethelargeCincinnati-base
最新回复
(
0
)