在窗体有两个名为 text1、text2 的文本框和一个名为 Command1 的命令按钮,事件过程: Private sub command1_click() Dim x as Integer, n as Integer x = 1

admin2015-07-01  24

问题 在窗体有两个名为 text1、text2 的文本框和一个名为 Command1 的命令按钮,事件过程:
Private sub command1_click()
    Dim x as Integer, n as Integer
    x = 1
    n = 0
    Do While x < 20
        x = x * 3
        n = n + 1
    Loop
    text1 = str(x)
    text2 = str(n)
End Sub
程序运行后,单击命令按钮,在两个文本框 text1 和 text2 中显示的值分别是

选项 A、15 和 1
B、27 和 3
C、195 和 3
D、600 和 4

答案B

解析 Do While…Loop语句是在条件式结果为真时,执行循环体,并持续到条件式结果为假或执行到选择性Exit Do语句而退出循环。在程序中,该循环语句的执行过程为,当x小于20时,执行循环体,每循环一次,x的值变为原有值的3倍,n的值加1。Str函数的作用是将数值表达式的值转化为字符串。最后将x的值转化为字符串在text1文本框中显示,n的值在text2文本框中显示。因此x初始值为1,n初始值为0,x满足循环条件,进入Do循环,x=1*3=3,n=0+1=1;第二次循环,x=3,满足循环条件,x=3*3=9,n=1+1=2;第三次循环,x=9,满足循环条件,x=9*3=27,n=2+1=3。此时x>20不再满足循环条件,跳出循环,text1显示27,text2显示3。
转载请注明原文地址:https://jikaoti.com/ti/mb20FFFM
0

最新回复(0)