2. 计算机
  3. （1）在考生目录下有一个工程文件vbsj3.vbp，窗体上有一个圆和一条直线（直线的名称为linClock）构成一个钟表的图案；有两个命令按钮，名称分别为cmdStart、cmdStop，标题分别为“开始”、“停止”；还有一个名为tmrClock 的计时器

（1）在考生目录下有一个工程文件vbsj3.vbp，窗体上有一个圆和一条直线（直线的名称为linClock）构成一个钟表的图案；有两个命令按钮，名称分别为cmdStart、cmdStop，标题分别为“开始”、“停止”；还有一个名为tmrClock 的计时器

admin2019-06-11  54
问题 （1）在考生目录下有一个工程文件vbsj3.vbp，窗体上有一个圆和一条直线（直线的名称为linClock）构成一个钟表的图案；有两个命令按钮，名称分别为cmdStart、cmdStop，标题分别为“开始”、“停止”；还有一个名为tmrClock 的计时器。程序运行时，钟表指针不动，单击“开始”按钮，则钟表上的指针（即linClock）开始顺时针旋转（每秒转6°，一分钟转一圈）；单击“停止”按钮，则指针停止旋转。运行时的窗体如图1－244所示。请设置计时器的适当属性，使得每秒激活计时器的Timer 事件一次；并编写两个按钮的Click事件过程。文件中已经给出了所有控件和部分程序，不得修改已有程序和其它控件的属性；编写的事件过程中不得使用变量，且只能写一条语句。最后把修改后的文件按原文件名存盘。

    程序源码：
    Dim lenth As Integer, q As Integer
    Const PI = 3.14159
    Private Sub Form_Load()
    lenth = linClock.Y2_
    linClock.Y1
    q ＝ 90
    End Sub
    Private Sub tmrClock_Timer()
    q ＝ q－ 6
    linClock.Y1  =  linClock.Y2 _
    lenth * _
    Sin(q * PI / 180)
    linClock.X1  =  linClock.X2＋
    lenth * _
    Cos(q * PI / 180)
    End Sub
    （2）在考生文件夹下有一个工程文件vbsj4.vbp，窗体上已经给出所有控件。程序运行时，单击“开始”按钮，则汽车图标向右运动；单击“停止”按钮则汽 车停止运动；移动滚动条上的滚动框，可以改变汽车的运动速度（滚动框向右移动，速度减慢）。如图1－245所示。

   要求：去掉程序中的注释符，把程序中的“?”改为正确的内容。
    提示：窗体上有一个计时器，计时器的事件过程每执行一次，汽车向右移动10，程序通过改变计时器控件的Interval 属性来改变汽车的运动速度。
    注意：不得修改控件的属性。最后，按原文件名存盘。
    程序源码：
    Private Sub Command1_Click()
    ’Timer1.Enabled ＝ ?
    End Sub
    Private Sub Command2_Click()
    Timer1.Enabled ＝ False
    End Sub
    Private Sub HScroll1_Change()
    ’? .Interval ＝ HScroll1.Value
    End Sub
    Private Sub Timer1_Timer()
    ’Picture1.Left ＝ ? ＋ 10
    End Sub
选项
答案第1小题 【操作步骤】 步骤1：打开考生文件中的本题工程文件vbsj3.vbp，在属性设置窗口，设置计时器的性值为1000，Enabled 属性值为False。 步骤2：在代码编辑窗口，编写“开始”和“停止”按钮的单击事件过程。 参考代码： Private Sub cmdStart_Click() tmrClock.Enabled = True End Sub Private Sub cmdStop_Click()。 tmrClock.Enabled = False End Sub 步骤3：按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1：打开考生文件中的本题工程文件vbsj5.vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。 参考代码： Timer1.Enabled = True Timer1.Interval = HScroll1.Value Picture1.Left = Picture1.Left + 10 步骤2：按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/eRUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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