itgle.com
单击命令按钮时，下列程序的执行结果是Private Sub Command1_Click（）BT 4End SubPrivate Sub BT（x As Integer）x=x * 2 + 1If x < 6 ThenCall BT（x）End Ifx=x * 2Print x;End Sub（ ）。A．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
相似考题
参考答案和解析
更多“单击命令按钮时,下列程序的执行结果是 PrivateSubCommand1_Click() BT4 EndSub Private ”相关问题
-
第1题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim Y as String
X=5
Y=X & Space(3) & X
Print X；
Print Trim(Y)；Len(Trim(Y))
End Sub
该程序的执行结果是【 】。
正确答案：□5□5□□□5□5
□5□5□□□5□5 -
第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
正确答案：D
解析：此题在函数调用过程中采用了简单递归的方式,具体流程如下:主调过程调用BT过程,把实参4传递给BT过程中的形参x,由x=x2+1语句推出x=9,此时不满足BT过程中判断语句的判断条件,执行x=x2;Print x;语句。由x=x2语句得到x值为18并输出,结束此次调用过程,返回到主调过程结束程序,输出结果为18。 -
第3题：
在窗体上画一个名为Command1的 命令按钮,然后编写以下程序 Private Sub Command1_Click（) Dim a（10) as integer For k=10 to 1 Step -1 a（k)=20-2*k Next k k=k+7 Print a（k-a（k)) End Sub 运行程序后,单击命令按钮,输出结果是 。
A．18
B．12
C．8
D．6
B 解析：考查考生对文件操作语句的掌握情况。打开随机文件的一般格式为Open'文件名'For Random As#文件号[Len=记录长度]随机文件的写操作通过Put语句来实现,其格式为:Put#文件号,[记录号],变量文件指针的定位、读取文件等。 -
第4题：
在窗体上画一个命令按钮，然后编写如下程序：
Dim x As Integer
Sub inc(a As Integer)
x=x+a
End Sub
Private Sub Command1_Click()
inc 2
inc 3
inc 4
Msgbox x；
End Sub
程序执行后，单击Command1命令按钮，消息框显示结果是【 】。
正确答案：9
9 解析：inc函数每执行一次就向x上累加一次传入的参数，所以最后x的值为：2+3+4=90 -
第5题：
单击命令按钮时，下列程序的执行结果是 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
正确答案：D
解析：此题在函数调用过程中采用了简单递归的方式，具体流程如下：主调过程调用BT过程，把实参4传递给BT过程中的形参x，由x=x*2+1语句推出x=9，此时不满足BT过程体中判断语句的判断条件，执行x=x*2；Printx；语句。由x=x*2语句得到。值为18并输出，结束此次调用过程，返回到主调过程结束程序，输出结果为18。