（12）“秒表”窗体中有两个按钮（“开始/停止”按钮bOK,“暂停/继续”按钮bPus）；一个显示计时的标签1Num；窗体的“计时器间隔”设为100计时精度为0.1秒。要求：打开窗体如图1所示；第一次单击“开始婷止”按钮，从0开始滚动显示计时（见图2)；10秒时单击“暂停/继续”按钮，显示暂停（见图3），但计时还在继续；若20秒后再次单击“暂停/继续”按钮，计时会从30秒开始继续滚动显示；第二次单击“开始/停止”按钮，计时停止，显示最终时间（见图4）。若再次单击“开始/停止”按钮可重新从0开始计时。相关的事件程序如下。请在空白处填入适当的语句，使程序可以完成指定的功能。Option Compare DatabaseDim flag,pause As BooleanPrivate Sub bOK Click()flag= 【12】Me!bOK.Enabled=TrueMe!bPus.Enabled=flagEnd SubPrivate Sub bPus_Click()pause=Not pauseMe!bOK.Enabled=Not Me!bOK.EnabledEnd SubPrivate Sub Form. Open(Cancel As Integer)flag=Falsepause=FalseMe!bOK.Enabled=TrueMe!bPus.Enabled=FalseEnd SubPrivate Sub Form. Timer()Static count As SingleIf flag=True ThenIf pause=False ThenMe!1Num.Caption=Round(count,1)End Ifcount= 【13】Elsecount=0End IfEnd Sub
（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
相关考题：
在窗体上画一个名称为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．标签按指定的时间间隔移动
在窗体上画一个名称为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．标签按指定的时间间隔移动
在一个工程中有两个窗体，窗体Form1上有一个命令按钮Disp，单击该按钮，Form1窗体隐藏，显示Form2窗体，程序如下，请补充完整。Private Sub Disp_Click （）Me.HideForm2. 【10】End Sub
窗体中有两个命令按钮：“显示”（控件名为cmdDisplay）和“测试”（控件名为cmdTest）。以下事件过程的功能是：单击“测试”按钮时，窗体上弹出一个消息框。如果单击消息框的“确定”按钮，隐藏窗体上的“显示”命令按钮；单击“取消”按钮关闭窗体。按照功能要求，将程序补充完整。 Private Sub cmdTest_Click（）Answer= （“隐藏按钮”，vbOKCancel）If Answer=vbOK ThencmdDisplay.Visible=ElseDocmd.CloseEnd IfEnd Sub
在考生文件夹下有“xx”数据库。在“窗体1”窗体中添加标签和名称相同的文本框“请输入学号”和“学生姓名”，添加“显示学生姓名”按钮，编写程序实现输入学号后单击“显示学生姓名”按钮后显示学生姓名。要求用Dlookup()函数实现。窗体设计如图所示。
在窗体上画一个标签、一个计时器和…个命令按钮，其名称分别为Label1、Tliner1和Command1，如图1所示。程序运行后，如果单击命令按钮，则标签开始闪烁，每秒钟“炊迎”二字显示、消失各一次，如图2所示。以下是实现上述功能的程序，请填空。Prirate Sub Form_L．aad()Labell．Caption=“欢迎”Timer1．Enabled=FalseTimer1．Interval=【 】Commandl．Caption=“开始闪烁”End sut)Private Sub Timer1_rrimer()Label1．visible=【 】Emi subPTivate Sub Commandl_Click()【 】End sub
“秒表”窗体中有两个按钮（“开始/停止”按钮bOX，“暂停/继续”按钮bPus）；一个显示计时的标签lNum；窗体的“计时器间隔”设为100，计时精度为0.1秒。要求：打开窗体如图1所示；第一次单击“开始/停止”按钮，从0开始滚动显示计时（见图2）；10秒时单击“暂停/继续”按钮，显示暂停（见图3），但计时还在继续；若20秒后再次单击“暂停/继续”按钮，计时会从30秒开始继续滚动显示；第二次单击“开始/停止”按钮，计时停止，显示最终时间（见图4）。若再次单击“开始/停止”按钮可重新从0开始计时。相关的事件程序如下。请在空白处填入适当的语句，使程序可以完成指定的功能。Option Compare DatabaseDim flag，pause As BooleanPrivate Sub bOX_Clickflag=Me! bOX.Enabled=TrueMe!bPus．Enabled=flagEnd SubPrivate Sub bPus_Click()pause=Not pauseMe!b0K．Enabled=Not Me!bOK．EnabledEnd SubPrivate Sub Form_Open(Cancel As Integer)flag=Falsepause=FalseMe!bOK．Enabled=TrueMe!bPus．Enabled=FalseEnd SubPrivate Sub Form. Timer()Static count AS SingleIf flag=True ThenIf pause=False ThenMe!lNum．Caption=Round(count，1)End Ifcount=Elsecount=0End IfEnd Sub
在窗体上画一个名称为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．标签按指定的时间间隔移动
在窗体上画一个名称为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．标签按指定的时间间隔移动
“秒表”窗体中有两个按钮(“开始／停止”按钮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+1B.not flag，count+0．1C.enable，sum+1D.enable，sum+1
有一个ylc5.vbp，只有一个窗体Form1，需要创建Form2。在窗体Form1上建立Command1和Command2两个命令按钮，标题分别为“隐藏启动窗体”和“关闭窗体”。在窗体Form2上创建标题为“打开窗体1”的按钮。将Form2设为启动窗体，单击Form2上的按钮，则显示Form1窗体：若单击Form1上的“隐藏启动窗体”按钮，则Form2消失。若单击Form1上的“关闭窗体”按钮，则Form1和Form2都消失，退出程序。注意：存盘时必须存放在考生文件夹下，工程文件名为ylc5.vbp，窗体文件名为ylc5-1.frm， ylc5-2.frm。程序中不得使用任何变量。
在窗体上画一个名称为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．标签按指定的时间间隔移动
在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下：Option Compare DatabaseDim a As String * 10Private Sub Command1_Clicka = "1234"b = Len(a)Me.Lb1.Caption = bEnd Sub打开窗体后单击命令按钮，窗体中显示的内容是A．4B．5C．10D．40
在考生文件夹下有一个工程文件execise42.vbp及窗体文件execise42.frm。在名为Form1的窗体中有一个文本框，两个命令按钮和一个计时器。程序的功能是；在运行时，单击“开始”按钮，就开始计数，每隔1秒，文本框中的数加1；单击“停止”按钮，则停止计数，如下图所示。注意：修改适当的控件的属性，并去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件以原来的文件名存盘。
在窗体上画一个名称为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.OpenQueryB.OpenReportC.OpenWindowD.OpenForm
在窗体中有一个标签Lbl和一个命令按钮Commandl，事件代码如下。 Option Compare DatabaseDim aAs String*10Private Sub Commandl_Click（ ） a="1234"b=Len（A． Me．Lbl．Caption=bEndSub打开窗体后单击命令按钮，窗体中显示的内容是（ ）。A.4B.5C.1OD.40
在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下： OPtion Compare Databse Dim a As String * 10 Private Sub COmmand1_Click() a="1234" b=Len(a) Me.Lbl.Caption=b End Sub 打开窗体后单击命令按钮，窗体中显示的内容是A．4B．5C．10D．40
设计一个计时Access应用程序。该程序界面如图所示，由一个文本框(名为Text1)、一个标签及两个命令按钮(一个标题为开始，命名为Command1；另一个标题为停止，命名为Command2)组成。程序功能为：打开窗体运行后，单击"开始"按钮，则开始计时，文本框中显示秒数，单击"停止"按钮，则计时停止；双击"停止"按钮，则退出。请填空补充完整。Dim iPrivate Sub Command1_Click()i＝0Me.TimerInterval＝1000End SubPrivate Sub Command2_Click()【 】End SubPrivate Sub Command2_DblClick(Cancel As Integer)DoCmd.【 】End SubPrivate Sub Form_Load()Me.TimerInterval＝0Me! Text1＝0End SubPrivate Sub Form_Timer()i＝i＋1Me! Text1＝【 】End Sub
（ 14 ）窗体中有两个命令按钮： “ 显示 ” （控件名为 cmdDisplay ）和 “ 测试 ” （控件名为 cmdTest ） 。 以下事件过程的功能是：单击 “ 测试 ” 按钮时，窗体上弹出一个消息框。如果单击消息框的 “ 确定 ” 按钮 ，隐藏窗体上的 “ 显示 ” 命令按钮；单击 “ 取消 ” 按钮关闭窗体。按照功能要求，将程序补充完整。Private Sub cmdTest_Click()Answer= 【 14 】 （ “ 隐藏按钮 ” ， vbOKCancel ）If Answer=vbOK ThencmdDisplay.Visible= 【 15 】ElseDocmd.CloseEnd IfEnd Sub
某窗体中有一命令按钮，在窗体视图中单击此命令按钮打开另一个窗体，需要执行的宏操作是（）。A、OpenQueryB、OpenReportC、OpenWindowD、OpenForm