首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文什央下有一个工程文件sjt3.vbp,窗体上有一个圆和一个矩形,还有水平和垂直滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩
(1)在考生文什央下有一个工程文件sjt3.vbp,窗体上有一个圆和一个矩形,还有水平和垂直滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩
admin
2015-10-23
28
问题
(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全国计算机二级
相关试题推荐
有一个事件过程,其功能是:从已存在于磁盘上的顺序文件NM1.txt中读取数据,计算读出数据的平方值,将该数据及其平方值存入新的顺序文件NM2.txt中。请填空。PrivateSubForm_Click0DimXAsSingle,y
假定一个VisualBasic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序,以下正确的操作是()。
下列程序的功能是:将数据1,2,…,8写入顺序文件Num.txt中,请补充完整。PrivateSubForm_Click()DimiAsIntegerOpen"Num.txt"ForOutputAs#1Fori=1T
下面的属性中,用于自动调整图像框中图形内容的大小的是
表达式Right("Beijing",4)的值是
设有如下三个关系表下列操作中正确的是
已知二叉树后序遍历序列是dabec,中序遍历序列是debac,它的前序遍历序列是
下面程序的功能是找出给定的10个数中最大的一个数,最后输出这个数以及它在原来10个数中的位置。请在下划线处填入适当的内容,将程序补充完整。OptionBase1PrivateSubForm_Cfick()DimX
表达式5Mod3+3\5*2的值是()。
如果在立即窗口中执行以下操作,则输出结果是()。a=8<CR>b=9<CR>Printa>b<CR>
随机试题
下面属于自陈式人格测验的是()
38.材料一:邓小平同志在《党和国家领导制度的改革》一文中指出,社会主义现代化建设的及其艰巨复杂的任务摆在我们面前,一党只有紧紧地依靠群众,密切地联系群众,随时听取群众的呼声,了解群众的情绪,代表群众观点的利益,才能形成强大的力量,顺利地完成自己的各项任务
下列关于急性胰腺炎的描述哪些是正确的()
血源献血前4小时内不吃高蛋白食物是防止
骨膜下脓肿的临床表现之一是
图示均质圆轮,质量m,半径R,由挂在绳上的重为W的物块使其绕质心轴O转动。设重物的速度为v,不计绳重,则系统动量、动能的大小是()。
五年级学生李阳在网上看到一则消息:输入手机号、电子邮箱和身份证号码就可以参加抽奖,有机会免费获得一部新款手机。李阳提交了妈妈的相关信息,却发现根本不是抽奖,而是转到了一个不健康的网站。随后,李阳发现妈妈的手机收到了一条获奖信息,李阳根据获奖信息中的提示,点
某研究机构进行了一次为期10周的减肥试验,参加者平均减肥9公斤,中年组参加者平均减肥13公斤,青年组参加者平均减肥7公斤。研究人员将中青年组减肥差异归结为中年组参加者减肥前体重比青年组参加者重。从上文可推出以下哪个结论?()
道德赖以产生的客观条件是()
【B1】【B17】
最新回复
(
0
)