2. 计算机
  3. 编写如下程序： Private Sub Command1_Click() 　　Dim m As Integer， n As Integer 　　m＝1： n＝0 　　Do While m

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

admin2015-08-28  45
问题 编写如下程序：
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://www.kaotiyun.com/show/KeQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)