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

lzdavid

求平方和 用DO LOOP UNTIL写 已设置了条件为什么还是死循环

1. 
   
2. Private Sub Command3_Click()
   
3. Dim i, s
   
4. 
   
5. i = 1
   
6. 
   
7. Do
   
8. 
   
9. s = s + i * i
   
10. 
    
11. i = i + 1
    
12. 
    
13. Stop
    
14. 
    
15. Loop Until i > Me.Text0
    
16. 
    
17. End Sub
    

复制代码

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
    

复制代码