有如下事件程序,运行该程序后输出结果是(  )。 Private Sub Command33_Click()   Dim x As Integer, y As Integer   x = 1: y = 0   Do Until y

admin2021-07-08  30

问题 有如下事件程序,运行该程序后输出结果是(  )。
Private Sub Command33_Click()
  Dim x As Integer, y As Integer
  x = 1: y = 0
  Do Until y <= 25
    y = y + x * x
    x = x + 1
  Loop
  MsgBox "x=" & x & ", y=" & y
End Sub

选项 A、x=1, y=0
B、x=4, y=25
C、x=5, y=30
D、输出其他结果

答案A

解析 Do Until循环采用的是先判断条件后执行循环体的做法,如果条件为True,则循环体一次都不执行。否则进入循环体执行。本题中的循环停止条件是y<=25,而y=0,满足条件表达式,则不进入循环体,x、y的值不变,仍为1、0。
转载请注明原文地址:https://jikaoti.com/ti/lq90FFFM
0

最新回复(0)