编写如下程序: Private Sub Command1_Click()   Dim m As Integer, n As Integer   m=1: n=0   Do While m

admin2018-12-20  27

问题 编写如下程序:
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/3wFp777K
0

最新回复(0)