2. 计算机
  3. 编写如下程序： Private Sub Command1_Click() Dim a%, b%, c% a = 8: b = 3 Do c = a - b Print c; a = b

编写如下程序： Private Sub Command1_Click() Dim a%, b%, c% a = 8: b = 3 Do c = a - b Print c; a = b

admin2015-06-30  57
问题 编写如下程序：
Private Sub Command1_Click()
    Dim a%, b%, c%
    a = 8: b = 3
    Do
        c = a - b
        Print c;
        a = b: b = c
    Loop Until Abs(c) > 10
End Sub
程序运行后，单击命令按钮Command1，输出结果是
选项 A、5
B、5  -2  7 -9
C、5  -2  7  -9  16
D、一直输出，是死循环
答案C
解析 Dim a%, b%, c%表示定义a、b、c为整型，进入Do…while 循环，当Abs（c）>10时，即c的绝对值大于10时，结束循环。第一次执行循环体，c=8-3=5，输出5，a=3，b=c=5，此时c=5不满足退出循环条件，第二次执行循环体，c=3-5=-2，输出-2，a=5，b=c=-2，此时c=-2不满足退出循环条件；第三次执行循环体，c=5-(-2)=7，输出7，a=-2，b=c=7，此时c=7不满足退出循环条件；第四次执行循环体，c=-2-7=-9，输出-9，a=7，b=c=-9，此时c=-9不满足退出循环条件；第五次执行循环体，c=7-（-9）=16，输出16，a=-9，b=c=16，此时c=16的绝对值>10满足退出循环条件，结束循环。经过5次执行循环体，c的值先后为5，-2，7，-9 ，16，故C项正确。
转载请注明原文地址:https://www.kaotiyun.com/show/TgQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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