2. 计算机
  3. 编写如下程序： Private Sub Command1_Click() Dim x As Integer, y As Integer x = 1 y = 1 Do y = x * y If y > 10 T

编写如下程序： Private Sub Command1_Click() Dim x As Integer, y As Integer x = 1 y = 1 Do y = x * y If y > 10 T

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

二级VB

NCRE全国计算机二级

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