谁能帮我解答这道VBA 的题目 !为什么答案是x=1,y=0

谁能帮我解答这道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
cao_17 1年前 已收到1个回答 举报

Boy_风 幼苗

共回答了11个问题采纳率:72.7% 举报

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

1年前

3
可能相似的问题
Copyright © 2024 YULUCN.COM - 雨露学习互助 - 17 q. 0.051 s. - webmaster@yulucn.com