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

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

admin2015-06-30  65
问题  (1)在考生文件夹下有一个工程文件sjt3．vbp，窗体上有一个圆和一个矩形，还有水平和垂直滚动条各一个。程序运行时，移动某个滚动条的滚动块，可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例，滚动块在最左边时，圆靠在矩形的左边线上，如图1所示；滚动块在最右边时，圆靠在矩形的右边线上，如图2所示。垂直滚动条的情况与此类似。
    已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。
  注意：不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。

    (2)在考生文件夹下有一个工程文件sjt4．vbp。窗体中已经给出了所有控件，如图所示。程序运行时，单击“发射”按钮，航天飞机图标将向上运动，速度逐渐加快，全部进入图片云中后则停止，并将飞行距离(用坐标值表示)和所用时间(单位为秒)分别显示在标签Label1和Label2中；单击“保存”按钮，则把飞行距离和所用时间存入考生文件夹下的out4．txt文件中。

    已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。
  注意：不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。
选项
答案(1)【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Form_load() HScroll1.Min = Shape2.Left ’　HScroll1.Max = Shape2.Width + Shape2.Left - Shape1. ? VScroll1.Min = Shape2.Top ’　VScroll1.Max = Shape2.Height + ? - Shape1.Height HScroll1.Value = 1000 VScroll1.Value = 1000 End Sub Private Sub HScroll1_Change() ’　？ = HScroll1.Value End Sub Private Sub VScroll1_Change() ’　Shape1.Top = ? End Sub 程序结束 参考答案 第1个？处填入：Width 第2个？处填入：Shape2.Top 第3个？处填入：Shape1.Left 第4个？处填入：VScroll1.Value 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Dim a, t, d Private Sub Command1_Click() ’　Timer1.? = True d = Image1.Top End Sub Private Sub Command2_Click() Open App.Path & "\out4.txt" For Output As #1 Print #1, Label1, Label2 Close #1 End Sub Private Sub Form_Load() a = 1 t = 0 End Sub Private Sub Timer1_Timer() Image1.Top = Image1.Top - a * 50 If Image1.Top + Image1.Height <= Image2.Top + Image2.Height - 200 Then ’　？ = False ’　d = ? - Image1.Top 　　　　Label1 = d 　　　　Label2 = t * Timer1.Interval / 1000 End If a = a + 0.1 ’　t = ? End Sub 程序结束 参考答案 第1个？处填入：Enabled 第2个？处填入：Timer1.Enabled 第3个？处填入：d 第4个？处填入：t + 1 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/PfQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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