首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文什央下有一个工程文件sjt3.vbp,窗体上有一个圆和一个矩形,还有水平和垂直滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩
(1)在考生文什央下有一个工程文件sjt3.vbp,窗体上有一个圆和一个矩形,还有水平和垂直滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩
admin
2015-10-23
76
问题
(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全国计算机二级
相关试题推荐
在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码:PrivateSubCommandl_Click()DimM(10)AsIntegerFork=1To10M(k)=12-kNextk
假定一个VisualBasic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序,以下正确的操作是()。
如果想在程序中反复使用一个日期型数据“01/01/2005”,为了避免在编写程序时反复输入这个数据,也为了一次能够修改程序中所有用到这个数据的语句,可以采用()。
在窗体上添加一命令按钮,其名为Command1,然后编写代码如下。privateSubCommand1_Click()Dimarr(5)AsInteger,arr1(5)AsIntegern=3Fori=1To5arr(i
如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是()。
设已经在窗体上添加了一个通用对话框控件CommonDialogl,以下正确的语句是()。
PrivateSubForm_Activate()Forj=1to3x=3Fori=1to2x=x+6NextNextPrintxEndSub程序运行后,窗体上显示的结果为【
如果准备读文件,打开顺序文件"text.dat"的正确语句是
设A="87654321",则表达式Vd(LeR(A,4)+Mid(A,4,2))的值为()。
随机试题
Definethemeaningof"consignee".Whoispossiblytobetheconsigneeinabilloflading?
下列哪项对诊断急性骨髓炎最有意义( )。
对于个人独资企业的投资人说法正确的()。
某甲系我国某核基地一名高级工程师,在出国进修期间接受境外间谍机构任务。回国后多次从计算机中窃取国家核技术秘密送交国外。后被公安机关逮捕。甲的行为构成( )。
洁净室及洁净区空气中悬浮粒子洁净度等级共划分为()个等级。
“教”“育”两个单字结合在一起作为一个词最早见于()。
奥苏伯尔根据学习进行的方式把学习分为()。
改进文风,____________是语言问题、技术问题,____________是思想问题、感情问题,那些居高临下的呆板表述,固然与文字水平有关,但本质上反映的却是对待读者、对待群众的态度;那些了无新意的应景报道,____________是创新能力不强,_
范文杰,男,1923年8月生,喜好收藏古董,他有一子一女,儿子范子衡,女儿范晓艳。1988年12月,范文杰当着儿子和儿媳的面立下遗嘱,将自己所收集的古字画140幅在其死后传给儿子和儿媳梁倩。范文杰的妻子于1986年去世,在那以后,范文杰和已经退休
A.ambitiousB.appealstoC.contactsD.expectE.easilyF.worksG.consultingH.recruitI.turnstoJ.settledK.e
最新回复
(
0
)