单项选择题

有如下事件程序,运行该程序后输出结果是______。
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.输出其他结果