首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文什央下有一个工程文件sjt3.vbp,窗体上有一个圆和一个矩形,还有水平和垂直滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩
(1)在考生文什央下有一个工程文件sjt3.vbp,窗体上有一个圆和一个矩形,还有水平和垂直滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩
admin
2015-10-23
78
问题
(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全国计算机二级
相关试题推荐
如果想在程序中反复使用一个日期型数据“01/01/2005”,为了避免在编写程序时反复输入这个数据,也为了一次能够修改程序中所有用到这个数据的语句,可以采用()。
下列关于队列的叙述中正确的是
下面程序运行后,窗体中显示【】。PrivateSubCommand1_Click()a$="*":b$="$"Fork=1To3x$=String$(Len(a$)+k,b$)Printx$;NextPrint
能够将文本框控件隐藏起来的属性是【】。
测试的目的是暴露错误,评价程序的可靠性;而【】的目的是发现错误的位置并改正错误。
窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4,5)Fork=1To4s=s+a(k)
以下合法的变量名是
下列关于MDI子窗体在运行时特性的叙述错误的是()。
若要建立一个学生管理系统的输入界面,其中要求选择学生的性别、政治面貌(党/团/群众)及选课情况(共有5门课,可任选),下列设置方法正确的是()。
某二叉树中度为2的节点有18个,则该二叉树中有______个叶子节点。
随机试题
不改变物态的淬火冷却介质是()。
女性23岁,住院病人,反复发作性喘息15年,经常门诊就医,用抗生素、支气管解痉剂,症状可控制,近2天受凉"感冒"喘息加重并咳少量白痰。检查体温36.8℃,两肺散在哮鸣音。下列治疗原则,哪项是错误的
业主大会履行的职责有()。
主持评定工作和对焊接及试验结果进行综合评定的人员应是()。《现场设备、工业管道焊接工程施工及验收规范》规定:在采用焊条电弧焊时,当()时需重新评定。
下列属于表内筹资方式的有()。
政府职能转变是()的要求。
一、注意事项1.申论考试,与传统作文考试不同,是对分析驾驭材料的能力与对表达能力并重的考试。2.作答参考时限:阅读资料40分钟,作答110分钟。3.仔细阅读给定的资料,按照后面提出的“申论要求”依次作答。二、给定资料1.某
在中国共产党的历史上,最早使用“统一战线”概念的是
•Readthearticlebelowaboutlosinganaccenttoachievesuccess,andthequestionsontheoppositepage.•Foreachquestion
Thelongyearsoffoodshortageinthiscountryhavesuddenlygivenwaytoapparentabundance.Storesandshopsarechokedwith
最新回复
(
0
)