编写如下程序: Private Sub Command1-Click() Dim X As Integer,Y As Integer x=1 y=1 Do y=x*y If y>10 Th

admin2019-06-20  26

问题 编写如下程序:
  Private Sub Command1-Click()
    Dim X As Integer,Y As Integer
    x=1
    y=1
    Do
        y=x*y
        If y>10 Then
          Exit Do
        Else
          x=x+3
        End If
      Loop Until x<=10
      Print x;y
  End Sub
程序运行后,单击命令按钮Command1,输出结果为(    )。

选项 A、1  1
B、4  1
C、4  2
D、7  28

答案B

解析 Do…Loop Until循环,当条件为真时循环执行循环体。代人初值进行计算可得结果。选B。
转载请注明原文地址:https://jikaoti.com/ti/zQN0FFFM
0

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