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

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

admin2015-10-23  72
问题 (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://www.kaotiyun.com/show/5WLp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)