（ 11 ）有 “ 数字时钟 ” 窗体如下：在窗口中有按钮 “ [ 开 / 关 〕 时钟 ” ， 单击该按钮可以显示或隐藏时钟 。 其中按钮的名称为 “ 开关 ” ， 显示时间的文本框名称为 “ 时钟 ” ，计时器间隔己设置为 500 。请在空白处填入适当的语句，使程序可以完成指定的功能。Dim flag As integerPrivate Sub Form. Load （）flag=1End SubPrivate Sub Form. Timer （） ’“ 计时器触发 ” 事件过程时钟 =Time ，
题目
（ 11 ）有 “ 数字时钟 ” 窗体如下：
在窗口中有按钮 “ [ 开 / 关 〕 时钟 ” ， 单击该按钮可以显示或隐藏时钟 。 其中按钮的名称为 “ 开关 ” ， 显示时间的文本框名称为 “ 时钟 ” ，计时器间隔己设置为 500 。请在空白处填入适当的语句，使程序可以完成指定的功能。
Dim flag As integer
Private Sub Form. Load （）
flag=1
End Sub
Private Sub Form. Timer （） ’“ 计时器触发 ” 事件过程
时钟 =Time ， 在 “ 时钟 ” 文本框中显示当前时间
End Sub
Private Sub 开关 Click （）， “ 开关 ” 按钮的单击事件过程
If 【 11 】 Then
时钟 .Visible=False
flag=0
Else
时钟 .Visible=True
flag=1
End If
End Sub
相似考题
更多“ （ 11 ）有 “ 数字时钟 ” 窗体如下：在窗口中有按钮 “ [ 开 / 关 〕 时钟 ” ， 单击该按钮可以显示或隐藏时钟 。 其中按钮的名称为 “ 开关 ” ， 显示时间的文本框名称为 “ 时钟 ” ，计时”相关问题
-
第1题：
某窗体中有一命令按钮，名称为C1。要求在窗体视图中单击此命令按钮后，命令按钮上显示的文字颜色为棕色(棕色代码为128)，实现该操作的VBA语句是【 】。
正确答案：41.Fore4olor=128
41.Fore4olor=128 解析：VBA中字体颜色的设置使用ForeColor属性。 -
第2题：
在窗体中有一个名为(Command1的命令按钮，Click事件的代码如下：
单击命令按钮后，标签显示的结果是( )。
正确答案：25
25 -
第3题：
在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程：
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。A. 机床
B. 车床
C. 钻床
D. 轴承
正确答案：C
本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省为0。本题中的a(2)就是数组的第三个元素即“钻床”。
-
第4题：
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$="VisualBasic" Print String(3，a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是
A．VVV
B．Vis
C．sic
D．11
正确答案：A
解析：本题考查字符串函数。 String返回n个字符。如果为字符串，则返回n个字符串的首字符。据此，本题的正确答案为A，即返回3个“Visual Basic”的首字母“V”。 -
第5题：
在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
程序运行后，单击命令按钮，在文本框中显示的值是
A．2
B．3
C．4
D．5
正确答案：B
题只能计算当i>1所循环的次数。注意i在循环体内被强行加3，到For循环时．还要再加步长1，这相当于因此，n=3。选择B。 -
第6题：
在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
A．
B．H
C．
D．
正确答案：A
【解析】分析程序，程序开始循环时i=1，j=1to1，PrintSUing(i，“Hello”)语句输出一个H，然后执行Print进行换行；当i=2时，j=1to2，PrintString(i，“Hello”)语句输出两行分别为两个HH，然后执行Print换行：当i=3时，退出循环。 -
第7题：
（1）设计时钟应用程序，具体描述如下：
表单名和表单文件名均为“timer”，表单标题为“时钟”，表单运行时自动显示系统的当前时间。
①单击“暂停”命令按钮，时钟停止；
②单击“继续”命令按钮时，时钟继续显示系统的当前时间；
③单击“关闭”命令按钮时，关闭表单。
提示：使用计时器控件，将该控件的Interval属性设置为1000，即每1000毫秒触发一次计时器控件的Timer事件（显示一次系统时间）；将计时器控件的Interval属性设置为“o”将停止触发Timer事件；在设计表单时将Timer控件的Interval属性设置为1000。
（2）使用查询设计器设计一个查询“qryl”，要求如下：
基于自由表“货币代码”和“外汇账户”，查询含有字段“账户”、“货币名称”、“数量”、“买入价”及表达式“买入价* 数量”，先按“账户”升序排序，再按“数量”降序排序，查询去向为表“result．dbf”，完成设计后将查询保存，并运行该查询。
正确答案：【考点指引】本大题第1小题考查了Timer控件的使用，重点是Interval属性的设置。第2小题考查了查询的创建和使用。
【操作步骤】
①选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器，在表单属性窗口中将Caption属性值修改为“时钟”，将Name属性值修改为“Timer”，单击表单控件工具栏上的“标签”控件图标，为表单添加一个标签Label1；单击表单控件工具栏上的“命令按钮”控件图标，为表单添加3个命令按钮Command1、Command2和Command3；单击表单控件工具栏上的“计时器”控件图标，为表单添加一个计时器Timer1。
②分别选择3个命令按钮，在按钮属性窗口中将命令按钮Command1的Caption属性值修改为“暂停”，将命令按钮Command2的Caption属性值修改为“继续”，将命令按钮Command3的Caption属性值修改为“关闭”，如图58–1所示。双击“关闭”命令按钮，在Click事件中输入代码：ThisForm．Release，用来关闭表单。
③选择计时器Timer1，在计时器属性窗口中将“Interval”属性值修改为“1000”，双击“Timer Event”，打开Timer事件代码编辑窗口，输入代码：ThisForm．Label1．Caption=TIME()
④双击“暂停”命令按钮，在Click事件中输入代码：ThisForm．Timer1．interval=0
⑤双击“继续”命令按钮，在Click事件中输入代码：ThisForm．Timer1．interval=1000
⑥选择【表单】→【执行表单】命令，系统首先要求保存该表单文件，在弹出的“另存为”对话框中输入表单文件名“timer”，保存在考生文件夹下，然后运行表单。
(2)【操作步骤】
①选择【文件】→【新建】命令，选择“查询”，单击“新建文件”按钮，在“打开”对话框中选择表“货币代码”，单击“确定”按钮，将表“货币代码”添加到查询设计器中。
②在“添加表或视图”对话框中单击“其他”按钮，在“打开”对话框中选择表“外汇账户”，单击“确定”按钮，将表“外汇账户”添加到查询设计器中，这时系统会自动为这两个表建立内部联接，联接字段为两个表的“货币代码”字段，单击“确定”按钮关闭“连接条件”对话框，再单击“关闭”按钮关闭“添加表或视图”对话框。
③在查询设计器中的“字段”选项卡下分别将字段“账户”、“货币名称”、“数量”、“买入价”添加到“选定字段”列表框中；在“函数和表达式”下的文本框中输入“买入价*数量”并添加到“选定字段”列表框中。
④单击“排序依据”选项卡，将“选定字段”列表框中的“账户”添加到“排序条件”列表框中，“排序选项”选择“升序”；再将“选定字段”列表框中的“数量”添加到“排序条件”列表框中，“排序选项”选择“降序”。
⑤最后选择【查询】→【查询去向】命令，打开“查询去向”对话框，在对话框中选择“表”，在“表名”文本框中输入用来保存查询结果的数据表文件名“result”。
⑥关闭查询设计器并保存查询为“qry1”。
⑦在命令窗口中输入命令：DO qry1．qpr(回车执行查询)。 -
第8题：
关闭Windows 2000的时候，单击任务栏的( )按钮，再单击所拉出的“关机”选项。
A)数字时钟
B)开始
C)输入法
D)显示桌面
【答案】B)
-
第9题：
在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为textl)，编写如下事件过程：
打开窗体运行后，单击命令按钮，文本框中显示的内容是__________。
正确答案：
15【解析】本题考查函数调用中参数传递的知识。在VBA的函数调用时，参数有两种传递方式：传址传递和传值传递。如果在函数声明时没有说明传递类型，则默认为传址传递，即形参的结果会传递给实参。本题中形参均为传址传递，即a=x=3，b=y=5，c=z=10。但是在子程序里面对c重新赋值为c=a*b=15，这个值l5会回送给实参2，所以最后显示的值Z也就是l5。 -
第10题：
某窗体中有一命令按钮，名称为cl。要求在窗体视图中单击此命令按钮后，命令按钮上显示的文字颜色变为棕色(棕色代码为128)，实现该操作的VBA语句是__________
正确答案：
C1．Forecolor=128【解析】本题考查窗体控件前景颜色的知识，命令按钮上显示的文字颜色为前景颜色，所以设置cl．Forecolor=128。 -
第11题：
按压时钟的“TIME/DATE”按钮，时钟右上角显示“MAN”，此时时钟的时间和日期数据来自（）。
- A、时钟
- B、GPS（全球定位系统）
- C、飞行管理计算机
- D、时钟和GPS（全球定位系统）
正确答案:A -
第12题：
如何查看人工设定的日期（）
- A、按压TIME/DATE按钮，时钟上显示窗显示日期
- B、连续2次按压TIME/DATE按钮，时钟上显示窗显示日期
- C、连续4次按压TIME/DATE按钮，时钟上显示窗显示人工设定的日期
- D、按压人工设定日期按钮
正确答案:C -
第13题：
请根据以下各题的要求设计Visual Basic应用程序(包括界面和代码)。
1．在窗体(名称为Form1)上画两个命令按钮，其名称分别为C1和C2，标题分别为“命令按钮1”和“命令按钮2”，编写适当的事件过程。程序运行后，“命令按钮2”隐藏，此时如果单击“命令按钮1”，则“命令按钮2”出现，“命令按钮1”隐藏；而如果单击“命令按钮2”，则“命令按钮1”出现，“命令按钮2”隐藏。程序的运行情况如图1—1所示。注意；存盘时，工程文件名为sjt1.vbp．窗体文件名为sjt1.frm。
2．在Form1的窗体上画一个命令按钮，其名称为C1，标题为“显示”；再画一个文本框，其名称为Text1，编写适当的事件过程。程序运行后，在窗体加载时使文本框不可见，如果双击窗体，则文本框出现；此时如果单击命令按钮，则在文本框中显示“等级考试”。程序运行情况如图1—2所示。
-
第14题：
在窗体上添加一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：
程序运行后，单击命令按钮，在文本框中显示的值是__________。
正确答案：
30【解析】本题考查VBA中二维数组和循环的知识。本题属于比较简单的问题，使用了二重循环为二维数组进行了部分赋值，最后求两个数组元素值并求和，注意这两个元素是否已被赋值，若没有赋值则为0。本题中对于a(2，3)赋值为2*3也就是6，a(4，6)赋值为4*6也就是24，最后的结果为6 24=30。 -
第15题：
在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，然后编写如下事件过程：
打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。
正确答案：12
12 解析： 本题考查的是VBA编程基础、参数传递。由于VBA中，默认情况下，参数是按地址传递(ByRef)，结果会返回。本题中z的值等于x+y，所以文本框中显示的内容为12。 -
第16题：
在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：
程序运行后，如果单击命令按钮，则在面体上显示的内容是（ ）。
正确答案：A
A) 【解析】本题考查循环嵌套程序分析。外层循环共执行2次，第一次执行外循环，内层循环变量为1到1，执行一次；第二次执行外循环，内层循环变量为1到2，执行2次。String 函数产生i个“Hello”中的第一个字符H。
-
第17题：
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： PrivateSubCommandl_CnCk() aS="VisualBasic"， Print String(3,a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是( )。
A．VVV
B．Vis
C．sic
D．11
正确答案：A
-
第18题：
在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程：
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
A)机床
B)车床
C)钻床
D)轴承
正确答案：C
本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省为0。本题中的af2)就是数组的第三个元素即“钻床”。 -
第19题：
在窗体中添加名称为Command1和名称为Command2的命令按钮测验文本框Text1，然后编写如下代码：
PrivateSubCommand1_Click()
Text1.Text="AB"
EndSub
PrivateSubCommand2_Click()
Text1.Text="CD"
EndSub
首先单击Command2按钮，然后再单击Command1按钮，在文本框中显示( )
A、AB
B.CD
C.ABCD
D.CDAB
正确答案：A
-
第20题：
在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Textl)，然后编写如下事件过程：
程序运行后，在文本框中输入3，然后单击命令按钮，则Y的值变为__________。
正确答案：
9【解析】本题考查多分支语句SelectCase的知识。SelectCase用于实现多分支结构，其使用格式为：
其功能是根据“测试表达式”的值，从多个语句块中选择符合条件的一个语句块执行.如果测试表达式的值等于某一个表达式的值，则选择该语句块的语句执行，执行完毕后退出Case结构。本题中由于x的值为3，符合第一个Case语句的条件，所以执行y=x*x后退出Case结构，最后Y的值为9。
-
第21题：
（ 9 ）某窗体中有一命令按钮，名称为 C1 。要求在窗体视图中单击此命令按钮后，命令按钮上显示的文字颜色变为棕色（棕色代码为 128 ），实现该操作的 VBA 语句是 【 9 】 。
正确答案：
-
第22题：
"在窗体上放入一个名称为Button1命令按钮和1个名称为TextBox1文本框，然后编写如下事件过程：
程序运行后，如果单击命令按钮，则在文本框中显示的内容是（）
570
略 -
第23题：
运行宏的方法错误的是（）
- A、单击宏名
- B、双击宏名
- C、在窗体的命令按钮事件中设置，并在运行窗体时单击该命令按钮
- D、单击“工具栏”上的运行按钮
正确答案:A
程序运行后，如果单击命令按钮，则在文本框中显示的内容是（）