单选题 有如下事件程序,运行该程序后输出结果是()Private Sub Command33_Click() Dim x as integer,y as integer x=1:y=0 Do until y<=25 y=y+x*x y=x+1 Loop Msgbox "x=" & x &",y=" & y End Sub