首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,窗体上有一个矩形和一个圆,还有垂直和水平滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩
(1)在考生文件夹下有一个工程文件sjt3.vbp,窗体上有一个矩形和一个圆,还有垂直和水平滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩
admin
2017-09-22
38
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,窗体上有一个矩形和一个圆,还有垂直和水平滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩形的左边线上,如图3.153(a)所示;滚动块在最右边时,圆靠在矩形的右边线上,如图3。153(b)所示。垂直滚动条的情况与此类似。
文件中已经给出了全部控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的“?”改为正确的内容。注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp。窗体中已经给出了所有控件,如图3.154所示。运行时,单击“发射”按钮,航天飞机图标将向上运动,速度逐渐加快,全部进入云中后则停止,并把飞行距离(用坐标值表示)、所用时间(单位为秒)分别显示在标签Label1和Label2中;单击“保存”按钮,则把飞行距离、所用时间存入考生文件夹下的out4.txt文件中。
文件中已经给出了程序,但不完整,请去掉程序中的注释符,把程序中的“?”改为正确的内容。
注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
选项
答案
(1)步骤1:打开考生文件下的本题工程文件sjr3.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: HScroll1.Max=Shape2.Width+ Shape2.Left-Shape1.Width VScroll1.Max=Shape2.Height+ Shape2.Top-Shape1.Height: Shape1.Left=HScroll1.Value Shape1.Top=VScroll1 步骤2:按要求将文件保存至考生文件夹中。 (2)步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: Timerl.Enabled=True Timerl.Enabled=False d=d-Image1.Top t=t+1 步骤2:按
键运行程序,先单击“发射”按钮,计算完毕后单击“存盘”按钮,最后单击窗体右上角的关闭按钮结束程序。 步骤3:按要求将文件保存至考生文件夹中。
解析
(1)本题在窗体加载过程中初始化水平滚动条和垂直滚动条的Min属性和Max属性值,以使其能与圆形Shape1所能到达的左边界、右边界、上边界、下边界一致,其中:HScroll1.Max=Shape2.Width+Shape2.Left-Shape1.Width,VScrolll.Max=Shape2.Height+Shape2.Top-Shape1.Height。当水平或垂直滚动条移动时,通过在其Change事件过程中设置Shape1的Left属性值或Top属性值与滚动条的Value属性值一致即可。
(2)本题通过计时器来控制航天飞机移动。单击“发射”按钮时启动计时器(即Timerl.Enabled=True),并记录下此时航天飞机(Imagel)上部的坐标值(d=Image1.Top);在计时器的Timer事件过程中,每次让航天飞机向上移动50的a倍(a为实现航天飞机加速移动的系数),如果移动后航天飞机己全部进入云中(即Imagel.Top+Imagel.Height<=Image2.Top+Image2.Height-200),则通过停止计时器(即Timerl.Enabled=False)来停止航天飞机上移,并将此时飞行距离d(d=d.Imagel.Top)显示在标签Label1中,飞行时间(t*Timerl.Interval/1000)显示在标签Label2中。如果航天飞机还没全部进入云中,则加速系数增加0.1,并用变量t记录一次飞行时间(t=t+1)。
转载请注明原文地址:https://kaotiyun.com/show/wjGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了在窗体上建立2组单选按钮,并且当程序运行时,每组都可以有一个单选按钮被选中,则以下做法中正确的是
阅读下列程序: PrivateSubCommand1_Click() DimiAsInteger,kAsInteger k=2 Fori=1To3 PrintH(k); Nexti EndSub Fu
假定有下表所列的菜单结构:要求程序运行后,如果单击菜单项“大图标”,则在该菜单项前添加一个“√”。以下正确的事件过程是
下列事件过程的功能是:建立一个名为Data1的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整()。PrivateTypeAngKAsInteger
下列代码运行后输出结果是DefstrB-EPrivateSubCommand1_Click()B$="123"C="456"PrintB+C$EndSub
下列语句的输出结果是【】。PrintFormat(Int(12345.6789*100+0.5)/100,"0000,0.00")
启动窗体在【】对话框中指定。
若有一个动态数组a有两个元素a(0)和a(1),现要令数组a有三个元素a(0)、a(1)和a(2),则应当使用【】语句。
程序执行结果s的值是【】。PrivateSubsub1(ByvalpAsInteger)p=p*2EndSubPrivateSubCommand1_Click()DimiAsIntegeri=3Callsub1(i
要把一个命令按钮设置成无效,应设置属性______的值为False。
随机试题
《德伯家的苔丝》的艺术特色。
常见的数据交换方式有电路交换、报文交换及分组交换等,因特网采用的交换方式是电路交换方式。()
下列何种情况与胃消化性溃疡无关
男性,44岁,发现HBsAg阳性9年,ALT时有增高。近3周来食欲下降,尿黄,明显乏力,齿龈出血,近2周尿少。查体:神清,扑翼样震颤(+),化验:ALT176U/L,TBIL432μmol/L,PT38秒(对照13秒),该患者应诊断为
在意外事故现场,对受难者诊断是否心跳停止,最迅速有效的方法是
患者,男性,47岁。胃大部切除术后第9天,已拆线。今晨患者剧烈咳嗽后,自觉伤口剧痛。护士检查见伤口敷料被淡红色血液渗湿。伤口有5cm长裂缝,未见有肠管脱出,该护士应首先考虑是
工程监理企业应当排除各种干扰,客观公正地对待监理的委托单位和承建单位。这说明了建设工程监理具有( )性。
公司资本制度要求,公司增加或减少注册资本,须由股东大会作出决议,并由代表()以上表决权的股东通过。
《采菊图》的作者是清代的画家()。
王家村的祠堂长期被村民用来放置杂物,村里打算将其改成文化礼堂,但是很多村民有意见,为此村里召集村民召开恳谈会,如果由你主持,你会怎么说?现场模拟一下开场白。
最新回复
(
0
)