do loop 已设置了 until条件为什么还是死循环

roych

Me.text0是否预设大于1？如果没有预设值或者预设值不大于1，自然是死循环。

1. Sub Command3_Click()
   
2. Dim i As Long, sum As Long
   
3. 
   
4. If Not IsNull(Me.Text0) And IsNumeric(Me.Text0) Then
   
5.     Do
   
6.         i = i + 1
   
7.         sum = sum + i * i
   
8.     Loop Until i = Me.Text0.Value
   
9.     MsgBox sum
   
10. End If
    
11. 
    
12. End Sub
    

复制代码