“秒表”窗体中有两个按钮（“开始/停止”按钮bOX，“暂停/继续”按钮bPus）；一个显示计时的标签lNum；窗体的“计时器间隔”设为100，计时精度为0.1秒。要求：打开窗体如图1所示；第一次单击“开始/停止”按钮，从0开始滚动显示计时（见图2）；10秒时单击“暂停/继续”按钮，显示暂停（见图3），但计时还在继续；若20秒后再次单击“暂停/继续”按钮，计时会从30秒开始继续滚动显示；第二次单击“开始/停止”按钮，计时停止，显示最终时间（见图4）。若再次单击“开始/停止”按钮可重新从0开始计时。相关的事件

题目

“秒表”窗体中有两个按钮（“开始/停止”按钮bOX，“暂停/继续”按钮bPus）；一个显示计时的标签lNum；窗体的“计时器间隔”设为100，计时精度为0.1秒。

要求：打开窗体如图1所示；第一次单击“开始/停止”按钮，从0开始滚动显示计时（见图2）；10秒时单击“暂停/继续”按钮，显示暂停（见图3），但计时还在继续；若20秒后再次单击“暂停/继续”按钮，计时会从30秒开始继续滚动显示；第二次单击“开始/停止”按钮，计时停止，显示最终时间（见图4）。若再次单击“开始/停止”按钮可重新从0开始计时。

相关的事件程序如下。请在空白处填入适当的语句，使程序可以完成指定的功能。

Option Compare Database

Dim flag，pause As Boolean

Private Sub bOX_Click

flag=

Me! bOX.Enabled=True

Me!bPus．Enabled=flag

End Sub

Private Sub bPus_Click()

pause=Not pause

Me!b0K．Enabled=Not Me!bOK．Enabled

End Sub

Private Sub Form_Open(Cancel As Integer)

flag=False

pause=False

Me!bOK．Enabled=True

Me!bPus．Enabled=False

End Sub

Private Sub Form. Timer()

Static count AS Single

If flag=True Then

If pause=False Then

Me!lNum．Caption=Round(count，1)

End If

count=

Else

count=0

End If

End Sub

相似考题

1.在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。编写如下程序：Private Sub Form_Load（）Timer1.Enabled=FalseEnd SubPrivate Sub Command1_Click（）Timer1.Enabled=TrueEnd SubPrivate Sub Command2_Click（）Timer1.Enabled=FalseEnd SubPrivate Sub Timer1_Timer（）If Label1.LeftLabel1.Left = Label1.Left + 20ElseLabel1.Left=0End IfEnd Sub程序运行后单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是（ ）。A．标签的移动方向为自右向左B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动C．当标签全部移出窗体后，将从窗体的另一端出现并重新移动D．标签按指定的时间间隔移动

2.在窗体上画一个名称为Label1、标题为“Visual Basic考试”的标签，两个名称分别为Conmmnd1和Com— mand2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。编写如下程序： Private Sub Form_Load( ) Timer1.Enabled=False End Sub Private Sub Command1_Click( ) Timer1.Enabled=True End Sub PrivateSubCommand2_Click( ) Fimerl.Enabled=False End Sub Private SubTimer1_Timer( ) If Label1.Left＜Width Then Label1.Left=Label1.1eft+20 Else Label1.Left=0 End If End Sub 程序运行后单击“开始”按钮，标签在窗体中移动。 对于这个程序，以下叙述中错误的是A．标签的移动方向为自右向左B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动C．当标签全部移出窗体后，将从窗体的另—端出现并重新移动D．标签按指定的时间间隔移动

3.在窗体上画一个名称为Labell、标题为“ViSBalBasic考试”的标签，两个名称分别为 Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。编写如下程序： Private Sub Form Load() Timerl.Enabled = False End Sub Private Sub Command1 Click() Timer1.Enabled = True End Sub Private Sub Command2 Click() Timerl.Enabled = False End Sub Private Sub Timerl Timer() If Labell．Left＜Width Then Labell.Left = Labell.Left+20 Else Labell.Left = 0 End If End Sub 程序运行后单击“开始”按钮，标签在窗体中移动。 对于这个程序，以下叙述中错误的是A．标签的移动方向为自右向左B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动C．当标签全部移出窗体后，将从窗体的另一端出现，重新移动D．标签按指定的时间间隔移动

4.在窗体上画一个名称为Labe11、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timerl的计时器控件，并把其Interval属性设置为500，如下图所示。编写如下程序： Private Sub Form_Load() Timer1.Ena bled=False End Sub Private Sub Commandl_ChCk() Timer1.EnaA．标签的移动方向为自右向左B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动C．当标签全部移出窗体后，将从窗体的另一端出现，重新移动D．标签按指定的时间间隔移动

更多“ “秒表”窗体中有两个按钮（“开始/停止”按钮bOX，“暂停/继续”按钮bPus）；一个显示计时的标签lNum；窗体的“计时器间隔”设为100，计时精度为0.1秒。要求：打开窗体如图1所示；第一次单击“开始/停止””相关问题

  • 第1题：

    “秒表”窗体中有两个按钮(“开始／停止”按钮bOK，“暂停／继续”按钮bPus)；一个显示计时的标签iNure；窗体的“计时器间隔”设为100，计时糟度为0．1秒。 要求：打开窗体如图1所示；第一次单击“开始／停止”按钮，从0开始滚动显示计时(见图2)；10秒时单击“暂停／继续”按钮，显示暂停(见图3)，但计时还在继续：若20秒后再次单击“暂停／继续”按钮，计时会从30秒开始继续滚动显示；第二次单击“开始／停止”按钮，计时停止，显示最终时间(见图4)。若再次单击“开始／停止”按钮可重新从0开始计时。相关的事件程序如下： Optioncompare Database Dim flag，pause As Boolean PrivateSub bOK_click flag=__________ Me!bOK．Enabled=True Me!bPus．Enabled=flag End Sub PrivateSub bPus_click pause=Notpause Me!bOK．Enabled=Not Me!bOK．Enabled End Sub PrivateSub Form. Open(Cancel As Integer) flag=False Pause=False Me!b0K．Enabled=True Me!bPus．Enabled=False End Sub PrivateSub Form. Timer Staticcount As Single If flag=TrueThen Ifpause=False Then Me!INum．Caption=Round(count,1) End If Count=__________ Else count=0 End If End Sub 横线处应填写的内容是（ ）。

    A.not flag，count+1

    B.not flag，count+0．1

    C.enable，sum+1

    D.enable，sum+1


    正确答案：B
    flag是记录暂停和开始状态的变量，所以每次点击开始／暂停按钮，状态就会切换一次。

  • 第2题：

    在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。

    编写如下程序： Private Sub Form_Load( ) Timer1．Enabled=false End Sub Private Sub Command1 Click( ) Timer1．Enabled=True End Sub Private Sub Timer1_Timer( ) If Label1．Left＜Width Then Label1．Left=label1．Left+20 Else Label1．Left=0 End If End Sub程序运行后单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是

    A．标签的移动方向为自右向左

    B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动

    C．当标签全部移出窗体后，将从窗体的另一端出现并重新移动

    D．标签按指定的时间间隔移动


    正确答案：A
    解析：单击开始按钮后时钟事件开始执行，Label1.Left=Lebel1. Left+ 20是指标签框向右运动，If判断语句是说当标签框的左端大于窗体宽度时标签框的Left属性将为0，也就是将从窗体的最左端重新移动；选项 B)、选项C)和选项D)都正确，只有选项A)描述错误。

  • 第3题：

    设计一个计时Access应用程序。该程序界面如图所示，由一个文本框(名为Text1)、一个标签及两个命令按钮(一个标题为开始，命名为Command1；另一个标题为停止，命名为Command2)组成。程序功能为：打开窗体运行后，单击"开始"按钮，则开始计时，文本框中显示秒数，单击"停止"按钮，则计时停止；双击"停止"按钮，则退出。请填空补充完整。

    Dim i

    Private Sub Command1_Click()

    i＝0

    Me.TimerInterval＝1000

    End Sub

    Private Sub Command2_Click()

    【 】

    End Sub

    Private Sub Command2_DblClick(Cancel As Integer)

    DoCmd.【 】

    End SubPrivate Sub Form_Load()

    Me.TimerInterval＝0

    Me! Text1＝0

    End Sub

    Private Sub Form_Timer()

    i＝i＋1

    Me! Text1＝【 】

    End Sub


    正确答案：Me.TimerInterval=0 Close(Quit) i
    Me.TimerInterval=0 , Close(Quit) , i

  • 第4题：

    在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Conlmand2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图16-7所示。 编写如下程序： Private Sub Form_Load() Timer1. Enabled=False End Sub Private Sub Command1_Click() Timer1. Enabled=True End Sub Private Sub Command2_Click() Timer1. Enabled=False End Sub Private Sub Timer1_Timer() If Label1. Left＜Width Then Label1. Left=Label1. Left+20 Else Label1. Left=0 End If End Sub 程序运行后单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是______。

    A．标签的移动方向为自右向左

    B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动

    C．当标签全部移出窗体后，将从窗体的另一端出现并重新移动

    D．标签按指定的时间间隔移动


    正确答案：A
    解析：当计时器控件的属性Enabled为True时，每经过一段由属性Interval指定的时间(毫秒)间隔，就产生一个Timer事件。Enabled为False时，将停止执行Timer事件。在Timer事件中，通过改变Label1控件的Left属性，来改变控件的位置。

  • 第5题：

    （12）“秒表”窗体中有两个按钮（“开始/停止”按钮bOK,“暂停/继续”按钮bPus）；一个显示计时的标签1Num；窗体的“计时器间隔”设为100计时精度为0.1秒。

    要求：打开窗体如图1所示；第一次单击“开始婷止”按钮，从0开始滚动显示计时（见图2)；10秒时单击“暂停/继续”按钮，显示暂停（见图3），但计时还在继续；若20秒后再次单击“暂停/继续”按钮，计时会从30秒开始继续滚动显示；第二次单击“开始/停止”按钮，计时停止，显示最终时间（见图4）。若再次单击“开始/停止”按钮可重新从0开始计时。

    相关的事件程序如下。请在空白处填入适当的语句，使程序可以完成指定的功能。

    Option Compare Database

    Dim flag,pause As Boolean

    Private Sub bOK Click()

    flag= 【12】

    Me!bOK.Enabled=True

    Me!bPus.Enabled=flag

    End Sub

    Private Sub bPus_Click()

    pause=Not pause

    Me!bOK.Enabled=Not Me!bOK.Enabled

    End Sub

    Private Sub Form. Open(Cancel As Integer)

    flag=False

    pause=False

    Me!bOK.Enabled=True

    Me!bPus.Enabled=False

    End Sub

    Private Sub Form. Timer()

    Static count As Single

    If flag=True Then

    If pause=False Then

    Me!1Num.Caption=Round(count,1)

    End If

    count= 【13】

    Else

    count=0

    End If

    End Sub


    正确答案：
    （12）Not flag
    （13）count+0.1

相关内容