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

admin2019-06-11  30

问题 (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://jikaoti.com/ti/ufN0FFFM
0

随机试题
最新回复(0)