计算机二级
单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click() BT 4 End Sub Private Sub BT(x As Integer) x=x*2+1 If x＜6 Then Call BT(x) End If x=x*2 Print x； End SubA．15B．16C．17D．18
题目
单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click() BT 4 End Sub Private Sub BT(x As Integer) x=x*2+1 If x＜6 Then Call BT(x) End If x=x*2 Print x； End Sub
A．15
B．16
C．17
D．18
相似问题和答案
第1题：
单击命令按钮时，下列程序的执行结果是
Private Sub Command1_Click()
BT 4
End Sub
Private Sub BT(x As Integer)
x=x*2+1
If x＜6 Then
Call BT(x)
End If
x=x*2
Print x；
End Sub
A．15
B．16
C．17
D．18
解析：此题在函数调用过程中采用了简单递归的方式，具体流程如下：主调过程调用BT过程，把实参4传递给BT过程中的形参x，由x=x*2+1语句推出x=9，此时不满足BT过程中判断语句的判断条件，执行x=x*2；Print x；语句。由x=x*2语句得到x值为18并输出，结束此次调用过程，返回到主调过程结束程序，输出结果为18。
第2题：
单击命令按钮时,下列程序的执行结果是
Private Sub Command1_Click()
BT 4
End Sub
Private Sub BT(x As Integer)
x=x*2 + 1
If x < 6 Then
Call BT(x)
End If
x=x 2
Print x;
End Sub
A．15
B．16
C．17
D．18
解析：此题在函数调用过程中采用了简单递归的方式,具体流程如下:主调过程调用BT过程,把实参4传递给BT过程中的形参x,由x=x2+1语句推出x=9,此时不满足BT过程中判断语句的判断条件,执行x=x2;Print x;语句。由x=x2语句得到x值为18并输出,结束此次调用过程,返回到主调过程结束程序,输出结果为18。
第3题：
单击命令按钮时，下列程序的执行结果是
Private Sub Command1_Click（）
BT 4
End Sub
Private Sub BT（x As Integer）
x=x * 2 + 1
If x < 6 Then
Call BT（x）
End If
x=x * 2
Print x;
End Sub（ ）。
A．15
B．16
C．17
D．18
第4题：
单击命令按钮时，下列程序的执行结果是 Private Sub Commandl_Click( ) BT 4 End Sub PriVate Sub BT(x As Integer) X=X * 2 + 1 If x ＜6 Then Call BT(x) End If X=x * 2 Print x； End Sub
A．15
B．16
C．17
D．18
解析：此题在函数调用过程中采用了简单递归的方式，具体流程如下：主调过程调用BT过程，把实参4传递给BT过程中的形参x，由x=x*2+1语句推出x=9，此时不满足BT过程体中判断语句的判断条件，执行x=x*2；Printx；语句。由x=x*2语句得到x值为18并输出，结束此次调用过程，返回到主调过程结束程序，输出结果为18。
第5题：
若看到程序中确以下事件过程，则可以肯定的是，当程序运行时（ ）。
Private Sub Click—MouseDown(Button As Integer，Shift As Integer，X As Single，Y
As Single)
Print"VB Program"
End Sub
A.用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程
B.用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程
C.用鼠标右键单击名称为“MouseDown”的命令按钮时，执行此过程
D.用鼠标左键或右键单击名称为“Click”的命令按钮时，执行此过程
D。【解析】事件过程的命名方式一般为事件对象_事件名，所以该事件应为“Click”的“MouseDown”事件。
第6题：
在窗体frestcP，以命令按钮‘‘bt1”为基准(按钮“bt1”和“bt3”尺寸相同、左边对齐)，调整命令按钮“bt2”的大小与位置。要求：按钮“bt2”的大小尺寸与按钮“btl”相同、左边界与按钮‘‘btl”左对齐、竖直方向位于按钮‘‘bt1”和“bt3”的中间位置。
步骤1：单击“窗体”对簿，单击“reTest”窗体，单击“设 计”按钮，在“bt1”按钮上右键单击鼠标。在弹出的快捷菜单中选 择“属性”命令。在“属性”对话框中查看到“bt1”高度：1cm。 宽度：3cm，左边距3.5cm，上边距：0.5cm。
步骤2：在“属性”对话框的左上角的下拉列表中选择“bt3”， 查看到“bt3”高度：1cm。宽度：3cm，左边距：3．5cm，上边距： 3.5cm。从而得出要设置“bt2”按钮的高度：1cm，宽度：3cm，左 边距：3.5cm。上边距：3cm。
步骤3：在“属性”对话框框的上角的下拉列表中选择“bt2”， 修改其高度；1cm．宽度：3cm，左边距：3.5cm，上边距：2cm。
步骤4：关闭对话框。单击“保存”按钮。
第7题：
若看到程序中确以下事件过程，则可以肯定的是，当程序运行时（ ）。 Private Sub Click—MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) Print"VB Program" End Sub
A.用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程
B.用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程
C.用鼠标右键单击名称为“MouseDown”的命令按钮时，执行此过程
D.用鼠标左键或右键单击名称为“Click”的命令按钮时，执行此过程
D。【解析】事件过程的命名方式一般为事件对象_事件名，所以该事件应为“Click”的“MouseDown”事件。
第8题：
考生文件夹下存在一个数据库文件“samp3．mdb”，里面已经设计了表对象“tEmp”、窗体对象“fEmp”、宏对象“mEmp”和报表对象“rEmp”。同时，给出窗体对象“fEmp”的“加载”事件和“预览”及“打印”两个命令按钮的单击事件代码，试按以下功能要求补充设计。
(1)将窗体“fEmp”上标签“bTitle”以特殊效果：阴影显示。
(2)已知窗体“fEmp”的三个命令按钮中，按钮“bt1”和“bt3”的大小一致且左对齐。现要求在不更改“bt1”和“bt3”大小位置的基础上，调整按钮“bt2”的大小和位置，使其大小与“bt1”和“bt3”相同，水平方向左对齐“bt1”和“bt3”，竖直方向在“bt1”和“bt3”之间的位置。
(3)在窗体“fEmp”的“加载”事件中设置标签“bTitle”以红色文本显示：单击“预览”按钮(名为“bt1”)或“打印”按钮(名为“bt2”)，事件过程传递参数调用同一个用户自定义代码(mdPnt)过程，实现报表预览或打印输出；单击“退出”按钮(名为“bt3”)，调用设计好的宏“mEmp”来关闭窗体。
(4)将报表对象“rEmp”的记录源属性设置为表对象“tEmp”。
注意：不允许修改数据库中的表对象“tEmp”和宏对象“mEmp”：不允许修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性。
程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其他位置已存在的语句。
【操作步骤】 (1)步骤1：打开“samp3．mdb”数据库窗口，选中“窗体”对象，右键单击“fcmp”，选择“设计视图”命令。 步骤2：右键单击标签“bTitle”，选择“属性”命令，在“属性”对话框的“全部”选项卡的“特殊效果”行中选择“阴影”，关闭“属性”对话框。 步骤3：单击工具栏中的“保存”按钮。 (2)步骤1：按<Shift>键，选中“bt1”、“bt2”、“bt3”控件。 步骤2：执行【格式】→【垂直间距】→【相同】菜单命令，执行【格式】→【水平间距】→【相同】菜单命令，执行【格式】→【大小】→【至最高】菜单命令，执行【格式】→【对齐】→【靠左】菜单命令，执行【格式】→【大小】→【至最宽】菜单命令。关闭“属性”对话框。 步骤3：单击工具栏中的“保存”按钮。 (3)步骤1：右键单击窗体，选择“事件生成器”命令，输入代码： “*****Add1*****” bTitle．ForeColor＝255 “*****Add1*****” 步骤2：关闭代码窗口。 步骤3：右键单击bt1按钮，选择“事件生成器”命令，输入代码： “*****Add2*****” mdPntacPreview “*****Add2*****” 步骤4：关闭代码窗口。 (4)步骤1：选中“报表”对象，右键单击“rEmp”，选择“设计视图”菜单项。 步骤2：右键报表选择“属性”快捷菜单命令，在“属性”对话框的下拉列表框中选中“报表”，然后设置“记录源”为表“tEmp”。 步骤3：关闭“属性”对话框。 步骤4：单击工具栏中的“保存”按钮，关闭设计视图。 步骤5：运行该窗体，查看运行结果。 解析：本题考点：窗体属性的设置；窗体中标签、命令按钮控件属性的设置；报表属性的设置，VBA编程。
第9题：
单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click() BT4 End Sub Private Sub BT(x As Integer) x=x * 2 + 1 If x＜6 Then Call BT(x) End If x=X * 2 Print x； End Sub
A．15
B．16
C．17
D．18
解析：此题在函数调用过程中采用了简单递归的方式，具体流程如下：主调过程调用BT过程，把实参4传递给BT过程中的形参x，由x=x*2+1语句推出x=9，此时不满足BT过程体中判断语句的判断条件，执行x=x*2；Printx；语句。由x=x*2语句得到。值为18并输出，结束此次调用过程，返回到主调过程结束程序，输出结果为18。
第10题：
打开教学管理（拓展）数据库文件，对窗体对象fTest完成以下操作： 1.将窗体"标题"属性设为"测试窗体"；在窗体的主体节区添加一个命令按钮，命名为"bt"，标题为"测试"；设置该命令按钮的单击事件属性为给定的宏对象"mTest"。 2.以"bt1"命令按钮为大小及左边距为基准，将"bt2"和"bt3"命令按钮放置到相应位置，使得"bt2"命令按钮在垂直方向上与"bt1"和"bt3"间距相等。