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

问题编写如下程序：
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全国计算机二级分类