（32）运行下列程序，结果是Private Sub Command32_Click()f0=1:f1=1:k=1Do While k<=5f=f0+f1f0=f1f1=fk=k+1LoopMsgBox "f="&fEnd SubA）f=5B）f=7C）f=8D）f=13
题目
（32）运行下列程序，结果是
Private Sub Command32_Click()
f0=1:f1=1:k=1
Do While k<=5
f=f0+f1
f0=f1
f1=f
k=k+1
Loop
MsgBox "f="&f
End Sub
A）f=5
B）f=7
C）f=8
D）f=13
相似考题
更多“(32)运行下列程序,结果是Private Sub Command32_Click()f0=1:f1=1:k=1Do While k<=5f=f0＋f1f0 ”相关问题
-
第1题：
阅读以下程序：
Private Sub Form_click()
Dim k, n, m As integer
n = 20
m = 1
k = 1
Do While k ＜= n
m=m+2
k = k + 1
Loop
Print m
End Sub
单击窗体程序的执行结果是【 】。
正确答案：41
41 解析：本题的循环体共要执行20次，m的最终值为1+2*20=41。 -
第2题：
在下面的程序中，要求循环体执行四次，请填空。
Private Sub Command1_Click()
x=1
Do While 【 】
x=x+2
Loop
End Sub
正确答案：x8 或 x＝7
x8 或 x＝7 解析：第—次循环x＝x+2＝1+2=3，第二次循环x=x+2=3+2=5，第三次循环x=x+2=5+2=7，第四次循环 x=x+2=7+2=9，题目要求循环执行四次跳出，所以应在判断处添加x8或x＝7或x9。 -
第3题：
某个窗体己编写以下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为【 】。
Private Sub Form_Click()
Dim k as Integer， n as Integer，m as Integer
n=10 ：m=1 : k=1
Do While k＜=n
m=m*2
k=k+1
Loop
MsgBox m
End Sub
正确答案：1024
1024 解析：本题考查考生对VBA中控制结构的掌握。考生应该重点掌握VBA的控制结构，本题中的Do While…Loop循环结构是考试重点内容。在题目所给程序中，第一次循环结束后，m=1*2=2，即21；第二次循环结束后， m=2*2=4，即22；可见每次循环都使得m变为原来大小的2倍。因为k的初始值为1，终止条件为k=10，所以循环一共可以执行10次，因此m最后的值应该为210，即1024。 -
第4题：
在窗体中添加一个命令按钮和一个文本框，并编写如下程序代码： Private Sub Command1_Click() k=0 Do While k ＜ 70 k=k+2 k=k*k+k a=a+k Loop Text1．Text=a End Sub 程序运行后，文本框中显示的是
A．20
B．32
C．44
D．78
正确答案：D
解析：第1次执行循环体，k=(0+2)×(0+2)+(0+2)=6，a=0+6=6；第2次执行循环体，k=(6+2)×(6+2)+(6+2)=72，a=6+72=78：第3次测试循环条件时，7270为假，终止循环。 -
第5题：
阅读下列程序： Private Sub Command1_Click( ) Dim i As Integer，k As Integer k=2 For i=1 To 3 Print H(k)； Next i End Sub Function H(j As Integer) a=0 Static b a=a+1 b=b+1 H=a*b+j End Function 程序运行后，单击命令按钮输出结果是
A．234
B．345
C．567
D．356
正确答案：B
解析：被调过程是一个函数过程，它有一个形式参数j，在被调过程声明中，定义了一个参数a，初值为0，一个静态变量b。语句a=a+1和b=b+1分别使用a和b各增加1，然后返回H的值，因为b是静态变量，所以每次调用同一个参数k时，b会保留前次的数值，使输出的结果变化，否则每次输出的结果都是一样的。根据分析，第一次调用时a=1，b=1，H=3；第二次调用：a=1，b=2，H=4；第三次调用：a=1，b=3=,H=5。所以最后的输出结果是345。 -
第6题：
阅读下列程序。
Option Base 1
Private Sub Form CliCk()
Dim x(3,3)
For j=1 to 3
For k=1 to 3
If j=k then x(j,k)=1
If j＜＞ k then x(j,k)=3
Next k
Next j
Call fun(x())
End Sub
Private Sub fun(a())
For j=1 to 3
For k=1 to 3
Print a (j,k)；
Next k
Next j
End Sub
运行程序时，输出的结果是【 】。
正确答案：1 3 3 3 1 3 3 3 1
1 3 3 3 1 3 3 3 1 解析：本题主要考查考生数组虚实结合掌握的情况。事件过程定义又生成了 3*3的数组，该数组的主对角线元素为1，其余元素为3。接着调用了通用过程。调用通用过程时，首先进行虚实结合，然后执行通用过程。执行过程后，返回调用它的事件过程。本题中调用通用过程时，进行虚实地址结合，在通用过程中访问的a数组就是事件过程中的X的数组。在过程中，按行优先顺序输出了a数组所有的元素的值。由于在输出时只执行了循环体的"printan，k)；”，输出数据后有分号。因此输出一行，输出的结果是：1 3 3 3 1 3 3 3 1。 -
第7题：
阅读以下程序：
Prlvate Sub Form_Click()
Dim k，n，m As Integer
n=10
m=1
k=1
Do While k＜=n
m=m*2
k＝k+1
Loop
Print m
End Sub程序运行后，单击窗体，输出结果为【 】。
正确答案：1024
1024 解析：本题是对Do While循环语句的考查。初始化条件k＝l、n=10，条件表达式k ＝n由于控制变量k的增量语句为k＝k+l即k每执行一次循环，k的值就增1，故可知循环执行次数为10次。m的初值为l，循环语句 m＝m。2即相当于求2的几次幂的运算，循环执行几次就求2的几次幂，故题中等价于求 2的10次幂，输出结果应为1024。 -
第8题：
下面程序的输出结果是。 Private Sub Commandl_Click ch$=“ABCDEF” proc ch：Print ch End Sub Private Sub proc(ch As Stnng) s=“” For k=Len(ch) TO 1 Step -1 s=s&Mid(ch，k，1) Next k ch=s End Sub A．ABCDEF B．FEDCBA C．A D．F
正确答案：C
-
第9题：
运行下列程序，结果是（ ）。 PrivateSub Command32_click f0=1：fl=1：k=1Do While k<=5f=f0+f1 f0=fl fl=f k=k+1 Loop MsgBox”f=”＆f End Sub
A.f=5
B.f=7
C.f=8
D.f=13
正确答案：D
循环次数比较少，可以采用逐次循环的本办法来做。 -
第10题：
下列程序的运行结果是( )。 Private Function myfun(m, n) Do While m ＞ n Do While m＞n:m=m-n:Loop Do while n＞m:n=n-m:Loop Loop myfun=m End Function Private Sub Command1_Click() Print myfun(9, 8) End Sub
A．2
B．1
C．4
D．3
正确答案：B
解析：求解本题的关键在于理解好3个Do While循环的执行顺序，第2个和第3个Do While循环嵌套在第1个Do While循环内，先执行第2个循环，然后是第3个循环，最后是外层循环即第1个 Do While循环。程序执行如下：m=9，n=8；第1个Do While循环内，执行第2个Do While循环，m=m-n=1；退出第2个Do While循环；执行第3个Do While循环，n=n-m，最后n的值为1；退出第3个 Do While循环，退出第1个Do While循环．程序执行结果是1。 -
第11题：
运行下列程序，结果是（ ）。
PrivateSub Command32_click
f0=1：fl=1：k=1Do While k<=5 f=f0+f1
f0=fl
fl=f
k=k+1
Loop
MsgBox”f=”＆f
End Sub
A.f=5
B.f=7
C.f=8
D.f=13
正确答案：D
循环次数比较少，可以采用逐次循环的本办法来做。 -
第12题：
下列程序运行后的输出结果是______。
Private Sub f(k，s)
s=1
For j=1 To k
s=s*j
Next
End Sub
Private Sub Command1_Click()
Sum=0
For i=1 To 3
Call f(i，s)
Sum=Sum+s
Next
Print Sum
End Sub
正确答案：9
9 解析：本题考查的重点是在子过程的调用过程中，虚实参数的传送问题，变量s按十传送。子过程f()求n!，sum的计算过程为1!+2!+3!=1+2+6=9 -
第13题：
下列程序的运行结果为【 】。
A="1"
B="2"
A=Val (@A@+Val (@B@B=Val ("12")
If A＜＞B Then Prink A-B Else Print B-A
(11)阅读下列程序:
Option Base 1
Private Sub Form. Click()
Dim x(3,3)
For j=1 to 3
For k=1 to 3
If j=k then x(j,k)=1
If j＜＞ k then x(j,k)=3
Next k
Next j
Call fun(x())
End Sub
Private Sub fun(a())
For j=l to 3
For k=1 to 3
Print a (j.k);
Next k
Next j
End Sub
运行程序时，输出的结果是【 】
正确答案：-9
-9 解析：本题考查Val函数的用法。Ⅷ函数是返回字符串内的数字，因此A=Val(A) +Val (B) =1+2=3，而B=Val("12")=12,A-B=-9,B-A=9，而A＞B，所以执行Print A-B，正确答案为-9。 -
第14题：
在窗体上画一个命令按钮，然后编写如下程序：
Dim k As Long
k=1
Do While num
Loop
fun=k
End Function
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
MsgBox r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入234，消息框显示的结果为( )。
正确答案：×
0 -
第15题：
下列程序的运行机结果是【 】。
Private Sub Form_ Click()
Dim k As Integer
n= 5
m= 1
k= 1
Do
m=m+2
k= k+1
Loop While k＜=n
Print m
End Sub
正确答案：11
11 -
第16题：
下列程序段的运行结果是：Private Sub Command1_Click() Dim n AS Integer I =21: n = 3 do while I＞n I=I- n Loop Print IEnd Sub在窗体上打印的结果是______。
A．3
B．5
C．6
D．8
正确答案：A
解析：while型循环的条件为假时离开循环，即i=3时就离开，最后打印的i值为3。 -
第17题：
下列程序的运行结果是 Private Sub Form_Click() Dim k As Integer n＝5 m＝1 k＝1 Do m＝m+2 k＝k+1 Loop Until k＞n Print m End Sub
A．1
B．12
C．11
D．32
正确答案：C
解析：本题主要是对Do...Loop Until循环语句的考查。当Loop Until后的条件不成立时，即退出循环。该题在k为1、2、3、 4、5时，都执行了循环语句，故一共执行了五次，同时m＝m+2也执行了五次，最后m的值增加了10，故运行结果为11。 -
第18题：
运行下列程序，显示的结果是
Private Sub Command34_Click()
i=0
Do
i=i+1
Loop While i<10
MsgBox i
End Sub
A．0
B．1
C．10
D．11
正确答案：C
解析：本程序考查DO…LOOP WHILE循环结构，该结构是循环条件成立时执行循环，在此题中即i的值<10时执行循环，当i=9时该循环执行最后一次循环，这时i的值在循环中增加1，所以i的值为10。 -
第19题：
为某个窗体编写如下事件，单击窗体，消息框显示的结果为【 】。
Private Sub Form_Click( )
Dim k As Integer ,n As Integer ,m As Integer
n=10:m=1:k=1
Do While k＜=n
m=m*2
k=k+1
Loop
MsgBox m
End Sub
正确答案：1024
1024 解析：Do While语句是先判断条件，如果条件为True，则执行循环体。本题中的条件表达式是k=n，而刚开始k=1，n=10，而循环一次k就加1，故一共要执行10次循环。而m每执行一次就乘2，故一共乘了10次2，最后m的值为1024。 -
第20题：
以下程序运行后输出的结果是 ______。 Option Base 1 Private Sub Form_Click() Dim A(20) For K=1 To 20 A(K)=K^2 Next K Print A(K) End Sub
A．20
B．441
C．400
D．出错信息
正确答案：D
解析：本题定义A是一个一维数组，数组元素的下标范围允许为1～20。在循环中，将下标变量的平方赋给该数组的每个元素。当循环结束后，输出A数组的第K个元素的值，但此时K的值是21，A数组无此元素，故产生下标越界的错误。 -
第21题：
在下面的程序中，要求循环体执行四次，请填空。
Private Sub Commandl_Click()
x=1
Do While【 】
x=x+2
Loop
End Sub
正确答案：x8 或 x=7
x8 或 x=7 解析：第一次循环x=x+2=1+2=3，第二次循环x=x+2=3+2=5，第三次循环x=x+2=5+2=7，第四次循环 x=x+2=7+2=9，题目要求循环执行四次跳出，所以应在判断处添加x8或x=7或x9。 -
第22题：
下列程序的运行结果是（ ）。
Private Function myfun(m，n)
Do while m>n
Do While m>n：m=m-n：Loop
Do While n>m：n=n-m：Loop
Loop
myfun=m
End Function
Private Sub Command1_Click（ ）
print myfun(9，8)
End Sub
A.2
B.1
C.4
D.3
正确答案：B
B。【解析】求解本题的关键在于理解好3个DoWhile循环的执行顺序，第2个和第3个DoWhile循环嵌套在第l个DoWhile循环内，先执行第2个循环，然后是第3个循环，最后是外层循环即第1个DoWhile循环。程序执行过程是：m=9，n=8；第1个DoWhile循环完，执行第2个DoWhile循环，m=m-n=1；退出第2个DoWhile循环；执行第3个DoWhile循环，n=n-m，最后n的值为1；退出第3个DoWhile循环；退出第1个DoWhile循环。程序执行结果是l。 -
第23题：
下列程序运行后的输出结果是 Private Sub Command1_Click() For k=3 To 1 Step-1 x=String(k，"*") Print x Next End Sub
A．* * * * * *
B．1 * 2 * 3 *
C．3 * 2 * * 1 * * *
D．* * * * * *
正确答案：D
解析：内部函数String(k，"*")的功能是产生k个“*”相同的字符串。