单击命令按钮时，下列程序的执行结果是 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 SubA．15B．16C．17D．18

题目

单击命令按钮时，下列程序的执行结果是 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

如果没有搜索结果或未解决您的问题，请直接联系老师获取答案。

相似问题和答案

第1题：

单击命令按钮时，下列程序的执行结果为( )。 Private Sub Commandl_Click() Dimx As Integer，y As Integer x=12： y=32 CallPCS(x，y) PrintX；y End Sub PubUc Sub PCS(ByValn As Integer，ByValm As Integer) n=nMod 10 m=mMod 10 End Sub

A．1232

B．232

C．23

D．123

正确答案：A

第2题：

窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是 Private Sub Commandl_Click() Dim a a=Array(1,2,3,4,5) Fork=1 To 4 s=s+a(k) Next k Print s End Sub A.10 B.14 C.15 D.120

正确答案：B
【解析】使用Array函数为数组变量赋值，数组变量不能是具体的数据类型，只能是变体(Variant)类型，使用Array函数给数组变量赋值的3种形式是：①显式定义为Variant变量（例如，Dim数组变量名As Variant）；②在定义时不指明类型（例如，Dim数组变量名）；③不定义而直接使用。

第3题：

单击命令按钮，下列程序的执行结果是

Private Sub Blck（x As Integer）

x=x * 2 + 1

If x < 6 Then

Call Blck（x）

End If

x=x * 2 + 1

Print x;

End Sub

Private Sub Command1_Click（）

Blck 2

End Sub（）。

A．23 47

B．10 36

C．22 44

D．24 50

正确答案：A

第4题：

（19）窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是。 Private Sub Commandl_Click() Dim a a=Array(1,2,3,4,5) For k=1 To 4 S=S+a(k) Next k Print S End SubA.10 B.14 C.15 D.120

正确答案：B
【解析】解答本题的关键是读懂程序。程序中首先通过赋值语句定义一个有5个元素的数组（数组的下标从零开始）；接下来通过For循环来循环给变量S赋值（即对数组元素求和），这里循环中k从1开始，因此a(k)从2开始取值，到a(4)也就是5结束，计算结果为14。

第5题：

（12）有下列Sub过程: Sub Sub(x As Single,y As Single) t=x x=t/y y=t Mody End Sub 在窗体上的命令按钮Commandl中，编写下列事件过程，执行该事件过程调用Sun过程，结果是（）。 Private Sub Commandl_Click() Dim a As Single Dim b As Single a=5 b=4 Sun a,b Print a；b End Sub A.1.25 1 B.5 4 C.4 5 D.1 1.25

正确答案：A
【解析】本题考查过程的调用，如果用Call语句调用子过程时，实际参数要放在括号中，如果不使用Call子句，则不必使用括号。本题参数调用时是按地址传递，因此Sun过程中变量的值改变也即改变了单击事件中的a、b变量值。
Sun a,b的执行过程是：t=x=5,x=t/y=1.25,y=t Mod y=1。

第6题：

单击一次命令按钮后，下列程序的执行结果是( )。 Private Sub Commandl_Click() s=P(1)+P(2)+P(3)+P(4) Print s End Sub Public FunctionP(N As Integer) Static Sum Fori=1To N Sum=Sum+i Nexti P=Sum End Function

A．15

B．25

C．35

D．45

正确答案：C

第7题：

（28）阅读下列程序： Private Sub Commandl_Click() Dim i As Integer,k As Integer k=2 For i=1 To 3 PrintH(K)； Next i End Sub Function H(j As Integer) Static b a=0 a=a+1 b=b+1 H=a*b+jEnd Function 单击命令按钮，执行程序，输出结果是A.2 3 4 B.3 4 5 C.5 6 7 D.3 5 6

正确答案：B
【解析】函数H中定义了一个静态变量b，被Static修饰的变量，其生命周期为程序的整个执行过程，所以它能够累计记录三次调用函数H的变化。第1次调用H函数后，b值为1，函数的返回值3；第2次b值为2，函数的返回值4；第3次b值为3，函数的返回值5。

第8题：

单击命令按钮时，下列程序的执行结果是

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

第9题：

（16）在窗体上画一个命令按钮，其名称为Commandl.程序运行后，单击命令按钮，输出结果是 Private Sub p1(n As Integer) For i=n To 1 Step -1 x=String(i,"*") Print x Next i End Sub Private Sub Commandl_Click() P1(3) End SubA.*** ** *B.* ** ***C.* * *D.******

正确答案：A
【解析】分析程序可知，命令按钮单击事件调用p1(3)函数，因此循环中的n为3，所以For循环的条件为Fori=3 to l Step-1，所以For循环从3递减到1，输出的“*”号也递减，每一次Print执行后，自动换行。最后输出的结果如选项A）所示。

第10题：

单击命令按钮时，下列程序的执行结果是

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=x*2+1语句推出x=9，此时不满足BT过程中判断语句的判断条件，执行x=x*2；Print x；语句。由x=x*2语句得到x值为18并输出，结束此次调用过程，返回到主调过程结束程序，输出结果为18。

单击命令按钮时,下列程序的执行结果是 Private Sub Commandl_Click( ) BT 4 End Sub PriVa

题目

相似问题和答案

更多相关问题

相关内容