有如下事件程序，运行该程序后输出结果是_________。
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