首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文什央下有一个工程文件sjt3.vbp,窗体上有一个圆和一个矩形,还有水平和垂直滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩
(1)在考生文什央下有一个工程文件sjt3.vbp,窗体上有一个圆和一个矩形,还有水平和垂直滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩
admin
2015-10-23
74
问题
(1)在考生文什央下有一个工程文件sjt3.vbp,窗体上有一个圆和一个矩形,还有水平和垂直滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩形的左边线上,如图1所示;滚动块在最右边时,圆靠在矩形的右边线上,如图2所示。垂直滚动条的情况与此类似。
已经给出了全部控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp。窗体中已经给出了所有控件,如图所示。程序运行时,单击“发射”按钮,航天飞机图标将向上运动,速度逐渐加快,全部进入图片云中后则停止,并将飞行距离(用坐标值表示)和所用时间(单位为秒)分别显示在标签Label1和Label2中;单击“保存”按钮,则把飞行距离和所用时间存入考生文件夹下的out4.txt文件中。
已经给出了程序,但不完整,请去掉程序中的注释符。把程序中的?改为正确的内容。
注意:不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。
选项
答案
步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 Private Sub Form_load() HScroll1.Min=Shape2.Left HScroll1.Max=Shape2.Width+Shape2.Left—Shape1.width’确定水平滚动条的最大值 VScroll1.Min=Shape2.Top VScroli1.Max = Shape2.Height +Shape2.Top-Shape1.Height’确定垂直滚动条的最大值,使Shape2不能超过Shapel的范围 HScrolii.Value=1000 VScrolii.Value=1000 End Sub Private Sub HScrolll_hange() Shape1.Left=HScroll1.Value ’使Shape1随水平滚动条的改变而改变 End Sub Private Sub VScrol 11_Change() Shape1.Top=VScrol11使Shape1随垂直滚动条的改变而改变 End Sub 程序结束 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’’,将问号改为正确的内容。 Dim a,t,d Private Sub Commandl C1ick() Timer1.Enabled=True。’使Timer1事件生效 d=Image1.Top’保存飞机初始位置 End Sub Private Sub Command2 Click() Open App.Path&"、out4.txt"For OutputAS#1 Print#1,Label1,Label2 ’将两个标签中的内容保存到文件中 Close#1 End Sub Private Sub Form—Load() a=1 t=0 End Sub Private Sub Timer1_Timer() Imagel.Top=Image1_Top—a*50 If Image1.Top+Image1.Height<=Im。 age2.Top+Image2.Height-200 Then’判断飞机是否已进入云朵 Timer1.Enabled=False’若飞机已进入云朵。则停止移动。Timer失效 d=d-Image1.Top’计算飞机的飞行距离 Labell=d Label2=t*Timer1.Interval/1000 End If a=a+0.1 t=t+1’记录所用时间 End Sub 程序结束 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
(1)窗体载人时,通过滚动条的Min和Max属性设置两个滚动条的移动刻度值的范围,滚动条刻度值的范嗣是圆可以在矩形中移动的范围。形状控件的Top和Left属性值随着滚动条的Value属性值的变化而改变,使水平滚动条的滚动块在最左边时,圆靠在矩形的左边线上,滚动块在最右边时,圆靠在矩形的右边线上。垂直滚动条的情况与此类似。
(2)计时器的Interval属性用来控制计时器事件发生的时间间隔(Interval是以毫秒为单位)。当单击“发射”按钮时开始计时,将计时器控件的Enabled属性设置为True。航天飞机图标将向上运动,速度逐渐加快,通过形状控件的Height和Top属性判断是否全部进入云中,如果全部进入则停止,这时需要将计时器控件的Enabled属性设置为False,并把飞行距离d和所用时间(单位为秒)分别显示在标签Label1和Label2中;单击“保存”按钮,则把飞行距离和所用时间存入考生文件夹下的out4.txt文件中。
转载请注明原文地址:https://kaotiyun.com/show/5WLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Commandl的命令按钮。运行后的窗体外观如下图所示。设有如下的类型声明:TypePersonnameAsString*8majorAsSt
下列程序的功能是:将数据1,2,…,8写入顺序文件Num.txt中,请补充完整。PrivateSubForm_Click()DimiAsIntegerOpen"Num.txt"ForOutputAs#1Fori=1T
在窗体上画一个列表框和一个命令按钮,其名称分别为List1和Command1,然后编写如下事件过程。PrivateSubForm_load()List1.AddItem"Itern1"List1.AddItem"Iter
窗体文件的扩展名是
有下面一个程序段,从文本框中输人数据,如果该数据满足条件“除以4余1,除以5余2”,则输出,否则,将焦点定位在文本框中,并清除文本框的内容。PrivateSubCommandl_Click()x=Val(Text1.Text)
设有如下语句:Dima,bAsIntegerc="VisualBasic"d=#7/20/2005#以下关于这段代码的叙述中,错误的是()。
设有数组定义语句:Dima(5)AsInteger,Listl为列表框控件。下列给数组元素赋值的语句错误的是()。
某二叉树中度为2的节点有18个,则该二叉树中有______个叶子节点。
如果在“立即”窗口中执行以下操作:a=8<CR>(<CR>为Enter键,下同)b=9<CR>printa>b<CR>则输出结果是()。
随机试题
【背景资料】某大型工程,由于技术特别复杂,对施工单位的施工设备及同类工程的施工经验要求较高,经省有关部门批准后决定采取邀请招标方式。招标人于2013年3月8日向通过资格预审的A、B、C、D、E五家施工承包企业发出了投标邀请书,5家企业接受了邀请
A.少量白黏痰B.草绿色痰C.红棕色胶胨状痰D.铁锈色痰E.脓臭痰铜绿假单胞菌肺炎患者咳
清华大学法学院本科生贾某于寒假期间在方正电子图书网站上通过信用卡付费1元阅读了《商法学》一书,耗时2小时,对于贾某的行为,下列选项中说法正确的是哪一项?
直线与曲线相切,则c=()。
设f(x)为偶函数,g(c)为奇函数,则下列函数中为奇函数的是()。
下列产品最适合采用历史模拟法计量风险价值(VaR)的是()。
甲公司委托乙企业加工消费税应税货物一批,乙企业将加工好的应税货物交付甲公司时未代收代缴消费税。后经查出,主管税务机关对该项行为的税务处理方法有()。
人性化的公共行政服务,不能依赖于具体公务人员的道德品行:改变传统政思维.也难以通过一纸通知就顺利实现。现代公共行政领域之宽泛、基层服务部门之繁杂、公务执法人员素质之不均,表明普遍意义上的服务行政很难通过简单的方式实现,持久性的效应必须确立在稳定的制度基石之
马克思指出:每一个社会时代都需要有自己的伟大人物,如果没有这样的人物,它就要创造出这样的人物来。这句话表明()。
Noonecanusecellphonesinanyareasatthehospitalwhereequipmentmightbeaffectedbytheinterferencefromcellphones.
最新回复
(
0
)