首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文什央下有一个工程文件sjt3.vbp,窗体上有一个圆和一个矩形,还有水平和垂直滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩
(1)在考生文什央下有一个工程文件sjt3.vbp,窗体上有一个圆和一个矩形,还有水平和垂直滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩
admin
2015-10-23
60
问题
(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”,为了避免在编写程序时反复输入这个数据,也为了一次能够修改程序中所有用到这个数据的语句,可以采用()。
随机文件以[11]为单位读写,二进制文件以[12]为单位读写。
设已经在窗体上添加了一个通用对话框控件CommonDialogl,以下正确的语句是()。
测试的目的是暴露错误,评价程序的可靠性;而【】的目的是发现错误的位置并改正错误。
以下定义数组或给数组元素赋值的语句中,正确的是()。
在数据管理技术的发展过程中,经历了人工管理阶段,文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是()。
如果不指明函数过程参数的类型,则该参数的数据类型为【】。
执行语句Open"C:\StuData.dat"For1nputAs#2后,系统
下列不能打开菜单编辑器的操作是()。
某二叉树中度为2的节点有18个,则该二叉树中有______个叶子节点。
随机试题
在Word2010中插入符号,以下说法正确的是___________。
【2012年第4题】题16~20:某企业供电系统计算电路如下图所示。图中35kV电缆线路采用交联聚乙烯铜芯电缆,长度为3.5km,电缆截面为150mm2,35kV电缆有关参数见下表。请回答下列问题,并列出解答过程。假定总降压变电所变压器的额定容量
以下属于会计专业技术职务的有()。
如果商品X对于商品Y的边际替代率MRSXY小于X和Y的价格之比PX/PY,则()。
心理咨询师:咨询目标确定了,接下来我和您一起制定咨询方案。求助者:您自己制定咨询方案就可以了,我完全信任您,您让我怎么做我怎么做。心理咨询师:谢谢您的信任!但咨询方案必须我们两人共同制定。这样可以使我们双方都明确咨询的方向和目标,咨询方
在侦查机关第二次讯问后或对犯罪嫌疑人采取强制措施之日起,犯罪嫌疑人可以聘请律师为其提供法律咨询、代理申诉、控告。()
下列说法符合我国著作权法规定的是()。
公司有人建议,只要员工都在承诺书上签字承诺不迟到,公司就取消上下班打卡制度,如果有人迟到,那么所有员工的当月奖金均全部被扣除。公司采纳了建议,结果还是有员工迟到,但员工小刘仍拿到了当月奖金。如果上述陈述都是真的,那么以下哪项也必定是真的?
2008年,在全球范围内,笔记本电脑的销售量为4900万台,几乎是2004年销售量的2倍,在市场上的占有率从20.3%上升至28.5%。与此同时,成本从每台2126美元下降至1116美元。分析人士认为,到2015年,笔记本电脑的销售量将会超过台式电脑的销售
IP地址段211.68.144.1/24,应划分为()。
最新回复
(
0
)