（12）“秒表”窗体中有两个按钮（“开始/停止”按钮bOK,“暂停/继续”按钮bPus）；一个显示计时的标签1Num；窗体的“计时器间隔”设为100计时精度为0.1秒。要求：打开窗体如图1所示；第一次单击“开始婷止”按钮，从0开始滚动显示计时（见图2)；10秒时单击“暂停/继续”按钮，显示暂停（见图3），但计时还在继续；若20秒后再次单击“暂停/继续”按钮，计时会从30秒开始继续滚动显示；第二次单击“开始/停止”按钮，计时停止，显示最终时间（见图4）。若再次单击“开始/停止”按钮可重新从0开始计时。相关的
题目
（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）“秒表”窗体中有两个按钮（“开始/停止”按钮bOK,“暂停/继续”按钮bPus）；一个显示计时的标签1Num；窗体的“计时器间隔”设为100计时精度为0.1秒。要求：打开窗体如图1所示；第一次单击“开始婷”相关问题
-
第1题：
窗体中有两个命令按钮：“显示”（控件名为cmdDisplay）和“测试”（控件名为cmdTest）。以下事件过程的功能是：单击“测试”按钮时，窗体上弹出一个消息框。如果单击消息框的“确定”按钮，隐藏窗体上的“显示”命令按钮；单击“取消”按钮关闭窗体。按照功能要求，将程序补充完整。 Private Sub cmdTest_Click（）
Answer= （“隐藏按钮”，vbOKCancel）
If Answer=vbOK Then
cmdDisplay.Visible=
Else
Docmd.Close
End If
End Sub
正确答案：Msgbox，False
-
第2题：
某窗体中有一命令按钮，在窗体视图中单击此命令按钮打开一个查询，需要执行的宏操作是【 】。
正确答案：OpenQuery
OpenQuery 解析：Access中，提供了50多个可选的宏操作，打开查询的宏操作为OpenQuery。 -
第3题：
在窗体中有一个名为(Command1的命令按钮，Click事件的代码如下：
单击命令按钮后，标签显示的结果是( )。
正确答案：25
25 -
第4题：
“秒表”窗体中有两个按钮（“开始/停止”按钮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
正确答案：NOt flag count+0．1
NOt flag count+0．1 解析：因为题目要求的计时精度为0．1秒，所以每次count变量的值加0．I。 -
第5题：
在窗体中有一个标签Lbl和一个命令按钮Commandl，事件代码如下：
打开窗体后单击命令按钮，窗体中显示的内容是（ ）。A. 4
B. 5
C. 10
D. 40
正确答案：C
本题考查VBA中定长字符串的知识。
当声明一个变量为String类型时，如果不加长度说明，则为变长字符串；如果加上长度说明，则为定长字符串。定长字符串变量无论给它赋予何值，长度都为初始声明时指定的长度。由于声明a的长度为10，故1cn(a)=10。
符串；如果加上长度说明，则为定长字符串。定长字符串变量无论给它赋予何值，长度都为初始声明时指定的长度。由于声明a的长度为10，故1cn(a)=10。 -
第6题：
“秒表”窗体中有两个按钮(“开始／停止”按钮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是记录暂停和开始状态的变量，所以每次点击开始／暂停按钮，状态就会切换一次。 -
第7题：
在窗体上画一个名称为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属性，来改变控件的位置。 -
第8题：
在考生文件夹下有一个工程文件execise42.vbp及窗体文件execise42.frm。在名为Form1的窗体中有一个文本框，两个命令按钮和一个计时器。程序的功能是；在运行时，单击“开始”按钮，就开始计数，每隔1秒，文本框中的数加1；单击“停止”按钮，则停止计数，如下图所示。
注意：
修改适当的控件的属性，并去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件以原来的文件名存盘。
正确答案：
-
第9题：
某窗体中有一个命令按钮，在“窗体”视图中单击该命令按钮可以打开另一个窗体，则需要执行的宏操作是（ ）。
A.OpenQuery
B.OpenReport
C.OpenWindow
D.OpenForm
正确答案：D
暂无解析，请参考用户分享笔记 -
第10题：
在窗体中有一个标签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．4
B．5
C．10
D．40
正确答案：C
-
第11题：
（ 9 ）某窗体中有一命令按钮，在窗体视图中单击此命令按钮打开一个查询，需要执行的操作是 【 9 】 。
正确答案：
-
第12题：
某窗体中有一命令按钮，在窗体视图中单击此命令按钮打开另一个窗体，需要执行的宏操作是（）。
- A、OpenQuery
- B、OpenReport
- C、OpenWindow
- D、OpenForm
正确答案:D -
第13题：
某窗体中有一命令按钮，在窗体视图中单击此命令按钮打开另一个窗体，需要执行的宏操作是_______。
A．OpenQuery
B．OpenReport
C．OpenWindow
D．OpenForm
正确答案：D
解析：Access中提供了50多个可选的宏操作命令，其中OpenQuery用于打开查询，OpenReport用于打开报表， OpenForm用于打开窗体。而OpenWindow不是Access的宏操作。所以本题答案为D。 -
第14题：
在考生文件夹下有“xx”数据库。
在“窗体1”窗体中添加标签和名称相同的文本框“请输入学号”和“学生姓名”，添加“显示学生姓名”按钮，编写程序实现输入学号后单击“显示学生姓名”按钮后显示学生姓名。要求用Dlookup()函数实现。窗体设计如图所示。
正确答案：
-
第15题：
在窗体上画一个标签、一个计时器和…个命令按钮，其名称分别为Label1、Tliner1和Command1，如图1所示。程序运行后，如果单击命令按钮，则标签开始闪烁，每秒钟“炊迎”二字显示、消失各一次，如图2所示。以下是实现上述功能的程序，请填空。
Prirate Sub Form_L．aad()
Labell．Caption=“欢迎”
Timer1．Enabled=False
Timer1．Interval=【 】
Commandl．Caption=“开始闪烁”
End sut)
Private Sub Timer1_rrimer()
Label1．visible=【 】
Emi sub
PTivate Sub Commandl_Click()
【 】
End sub
正确答案：500； Not Label1．Visible； Timer1．Enaled=Tme
500；, Not Label1．Visible；, Timer1．Enaled=Tme 解析：计数器Timer的时间问隔足以毫秒为单位的，题意要求每秒Label1的Caption标题属性显示、消失各一次，所以显示和消失各占0．5秒，所以第7个空应填“500”；每触发一次Timer1的．Timer事件，应使Label1的Caption显示或消失，也就是每次它的可见性和上一次是相反的，凶此第8个空应填“Not Label1．Visible”；而Command1的Click事件就是要让计数器Timer1起作用，所以第9个空应填“Timer1．Enaled=True”。 -
第16题：
在窗体上画一个名称为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．标签按指定的时间间隔移动
正确答案：A
解析：本题通过Timer1的Enabled属性控制计时器工作与否。计时器一旦运行，将每隔半秒(Interval设为500)触发一次Timer事件，在该文件中，Label1的Left属性每次增加(每就是每半秒)20，当Label1移出窗体时(即Label1.left＞=width)Label1的Left值回归为0。Left属性确定控件与窗体左端的距离，单位为twip。故本题选项A表述错误，标签的移动方向自左向右。 -
第17题：
在窗体上画一个名称为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．标签按指定的时间间隔移动
正确答案：A
解析：本题综合考查了标签、计时器的相关属性以及考生对程序代码的理解能力。本题通过Timer1的Enabled属性控制计时器工作与否。计时器一旦运行，将每隔半秒(Interval设为500)触发一次Timer事件，在该文件中，Label1的Left属性每次增加(也就是每半秒)20，当Labell移出窗体时(即Label1.left＞=width)Labell的Left值回归为0。Left属性确定控件与窗体左端的距离，单位为twip。故本题选项A表述错误，标签的移动方向自左向右。 -
第18题：
有一个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。程序中不得使用任何变量。
正确答案：1.操作步骤 (1)在Visual Basic集成环境选择“文件”→“打开工程”命令在对话框中选择ylc6.Vbp工程文件单击“确定”按钮。 (2)在工具箱中选择命令按钮用鼠标在窗体Form1上拖动创建两个命令按钮。在属性窗口分别设置它们的名称(Name属性)为Command1和Command2标题(Caption属性)为“隐藏启动窗体”、“关闭窗体”。 (3)在菜单栏选择“工程”→“添加窗体”命令弹出对话框如图33所示。单击“打开”按钮在工程框中生成Form2的窗体。
(4)选择命令按钮在上面Form2窗体创建一个命令按钮设置名称为Command1标题为“打开窗体1”。
(5)为设置Form2启动窗体做如下的操作：
1)从“工程”菜单中选择“工程属性”命令弹出如图34所示的界面。
2)选择“通用”属性页在“启动对象”中选择Form2单击“确定”按钮设置该窗体为启动窗体。
2．行为编码
(1)用鼠标单击窗体Form1出现Form1的代码窗口。选择Command1按钮的Click事件代码如下：
Private Sub Command1_Click()
Form2.Hide
End Sub
(2)在Form1的代码窗口内选择Command2按钮的Click事件代码如下：
Private Sub Command2_Click()
'卸载窗体2
Unload Form2
'卸载自身也即窗体1
Unload Me
End Sub
(3)用鼠标单击窗体Form2出现Form2的代码窗口。选择Command1按钮的Click事件代码如下；
Private Sub Command3_Click()
Form1.Show
End Sub
3．存盘保存
执行“文件”→“保存工程”命令工程文件名为ylc5.vbp窗体文件名为ylc5-1.frm ylc5-2.frm。
1.操作步骤 (1)在Visual Basic集成环境选择“文件”→“打开工程”命令，在对话框中选择ylc6.Vbp工程文件，单击“确定”按钮。 (2)在工具箱中选择命令按钮，用鼠标在窗体Form1上拖动，创建两个命令按钮。在属性窗口分别设置它们的名称(Name属性)为Command1和Command2，标题(Caption属性)为“隐藏启动窗体”、“关闭窗体”。 (3)在菜单栏选择“工程”→“添加窗体”命令，弹出对话框如图33所示。单击“打开”按钮，在工程框中生成Form2的窗体。
(4)选择命令按钮，在上面Form2窗体创建一个命令按钮，设置名称为Command1，标题为“打开窗体1”。
(5)为设置Form2启动窗体做如下的操作：
1)从“工程”菜单中选择“工程属性”命令，弹出如图34所示的界面。
2)选择“通用”属性页，在“启动对象”中选择Form2，单击“确定”按钮，设置该窗体为启动窗体。
2．行为编码
(1)用鼠标单击窗体Form1，出现Form1的代码窗口。选择Command1按钮的Click事件，代码如下：
Private Sub Command1_Click()
Form2.Hide
End Sub
(2)在Form1的代码窗口内选择Command2按钮的Click事件，代码如下：
Private Sub Command2_Click()
'卸载窗体2
Unload Form2
'卸载自身也即窗体1
Unload Me
End Sub
(3)用鼠标单击窗体Form2，出现Form2的代码窗口。选择Command1按钮的Click事件，代码如下；
Private Sub Command3_Click()
Form1.Show
End Sub
3．存盘保存
执行“文件”→“保存工程”命令，工程文件名为ylc5.vbp，窗体文件名为ylc5-1.frm， ylc5-2.frm。 解析：(1)本题考查多窗体的应用创建、不同窗体上的命令按钮事件、控制两个窗体的显示、应用程序的结束控制以及如何在工程窗口中设置启动窗口。(2)注意Form对象的Show方法，End应用结束控制。(3)通过调用Form2的Hide方法隐藏Form2窗体，通过Unload方法关闭窗体1和窗体 2，通过调用Form1的Show方法显示Form1窗体。
-
第19题：
在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下：
Option Compare Database
Dim a As String * 10
Private Sub Command1_Click
a = "1234"
b = Len(a)
Me.Lb1.Caption = b
End Sub
打开窗体后单击命令按钮，窗体中显示的内容是
A．4
B．5
C．10
D．40
正确答案：B
-
第20题：
在窗体上画一个名称为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)描述错误。 -
第21题：
在窗体中有一个标签Lbl和一个命令按钮Commandl，事件代码如下。 Option Compare DatabaseDim aAs String*10Private Sub Commandl_Click（ ） a="1234"b=Len（A． Me．Lbl．Caption=bEndSub打开窗体后单击命令按钮，窗体中显示的内容是（ ）。
A.4
B.5
C.1O
D.40
正确答案：C
暂无解析，请参考用户分享笔记 -
第22题：
设计一个计时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 -
第23题：
（ 14 ）窗体中有两个命令按钮： “ 显示 ” （控件名为 cmdDisplay ）和 “ 测试 ” （控件名为 cmdTest ） 。 以下事件过程的功能是：单击 “ 测试 ” 按钮时，窗体上弹出一个消息框。如果单击消息框的 “ 确定 ” 按钮 ，隐藏窗体上的 “ 显示 ” 命令按钮；单击 “ 取消 ” 按钮关闭窗体。按照功能要求，将程序补充完整。
Private Sub cmdTest_Click()
Answer= 【 14 】 （ “ 隐藏按钮 ” ， vbOKCancel ）
If Answer=vbOK Then
cmdDisplay.Visible= 【 15 】
Else
Docmd.Close
End If
End Sub
正确答案：