谁能帮我解答这道VBA的题目！为什么答案是x=1,y=0PrivateSubCommand33Click()DimxAsInteger,yAsIntegerx=1:y=0DoUntily

Question

谁能帮我解答这道VBA 的题目 ！为什么答案是x=1,y=0
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

Answer 1

y=o，即满足条件，所以，DO一次都不会循环即结束程序，所以条件设置有问题。