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