2. 计算机
  3. 编写如下程序： Private Sub Command1-Click() Dim X As Integer，Y As Integer x=1 y=1 Do y=x*y If y＞10 Th

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

二级VB

NCRE全国计算机二级

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