编写如下程序： 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 29

问题编写如下程序：
  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/tcUp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类