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

admin2020-07-25  23

问题 有如下事件程序,运行该程序后输出结果是(    )。
Private Sub Command1_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"z="&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/XaQ0FFFM
0

最新回复(0)