编写如下程序： Private Sub Command1_Click() 　　Dim m As Integer， n As Integer 　　m＝1： n＝0 　　Do While m

admin2015-06-30 39

问题编写如下程序：
Private Sub Command1_Click()
　　Dim m As Integer， n As Integer
　　m＝1： n＝0
　　Do While m<20
　　　　n＝m＋n
　　　　m＝3 * m＋1
　　Loop
　　Print m， n
End Sub
程序运行后，单击命令按钮Command1，输出结果为(　　)。

选项 A、40  18
B、40  19
C、20  64
D、21  64

答案A

解析循环中各变量值变化如下：
n＝m＋n＝1＋0＝1 ， m＝3*m+1=3+1=4,4小于20继续循环；
n＝m＋n＝4＋1＝5 ， m＝3*m+1=12+1=13,13小于20继续循环；
n＝m＋n＝13＋5＝18 ， m＝3*m+1=39+1=40,40不小于20，循环结束。此时m=40,n=18。

转载请注明原文地址:https://kaotiyun.com/show/RwQp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类