问题
单项选择题
有如下事件程序，运行该程序后输出结果是______。
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。