单选题 有如下事件程序，运行该程序后输出结果是______。
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
【答案解析】[解析] 本题考查VBA中Do Until…Loop循环语句的相关知识。该结构当Do Until后的条件表达式为假时，重复执行循环体，直至条件式值为真，结束循环。在本题中，初始条件式值为真，该程序不执行循环体即结束。程序结束运行时，变量x和y的值仍为其初值，故答案为A。