(1)在考生文件夹下有一个工程文件sjt3.vbp,窗体上有一个矩形和一个圆,还有垂直和水平滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩

admin2010-09-02  31

问题 (1)在考生文件夹下有一个工程文件sjt3.vbp,窗体上有一个矩形和一个圆,还有垂直和水平滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩形的左边线上,如图1-64(a)所示;滚动块在最右边时,圆靠在矩形的右边线上,如图1-64(b)所示。垂直滚动条的情况与此类似。

文件中已经给出了全部控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp。窗体中已经给出了所有控件,如图1-65所示。运行时,单击“发射”按钮,航天飞机图标将向上运动,速度逐渐加快,全部进入云中后则停止,并把飞行距离(用坐标值表示)、所用时间(单位为秒)分别显示在标签Labell和Label2中;单击“保存”按钮,则把飞行距离、所用时间存入考生文件夹下的out4.txt文件中。文件中已经给出了程序。但不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

选项

答案 第1小题 【操作步骤】 步骤l:打开考生文件下的本题工程文件sjt3.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: HScrolll.Nax=Shape2.Width+Shape2.Left -Shapel.Width VScrolll.Nax=Shape2.Height+Shape2.Top -Shapel.Height Shapel.Left=HScrolll.Valuo Shapel.Top=VScrolll 步骤2:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: Timerl.Enabled=True Timerl.Enabled=Fal se d=d-Imagel.Top t=t+1 步骤2:按要求将文件保存至考生文件夹中。 步骤3:按键运行程序,先单击“发射”按钮,计算完毕后单击“存盘”按钮,最后单击窗体右上角的关闭按钮结束程序。

解析  第1小题
    本题在窗体加载过程中初始化水平滚动条和垂直滚动条的Min属性和Max属性值,以使其能与圆形Shapel所能到达的左边界、右边界、上边界、下边界一致,其中:HScrolll.Max=Shape2.Widm+Shape2.Left-Shape1.Width,VScrolll.Max=Shape2.Height+Shoe2.Top-Shape1.Height。当水平或垂直滚动条移动时,通过在其Change事件过程中设置Shapel的Left属性值或Top属性值与滚动条的Value属性值一致即可。
    第2小题
    本题通过计时器来控制航天飞机移动。单击“发射”按钮时启动计时器(即Timer1.Enabled=True),并记录下此时航天飞机(Imagel)上部的坐标值(d=Imagel.Top);在计时器的Timer事件过程中,每次让航天飞机向上移动50的a倍(a为实现航天飞机加速移动的系数),如果移动后航天飞机已全部进入云中(即Imagel.Top+Imagel.Height<=Image2.Top+Image2.Height-200),则通过停止计时器(即Timerl.Enabled=False)来停止航天飞机上移,并将此时飞行距离d(d=d-Image1.Top)显示在标签Labell中,飞行时间(t*Timer1.Intefval/1000)显示在标签Label2中。如果航天飞机还没全部进入云中,则加速系数增加0.1,并用变量t记录一次飞行时间(t=t+1)。
转载请注明原文地址:https://jikaoti.com/ti/Hxg0FFFM
0

最新回复(0)