Office中国论坛/Access中国论坛

标题: do loop 已设置了 until条件为什么还是死循环 [打印本页]

---

作者: lzdavid    时间: 2020-5-19 13:59
标题: do loop 已设置了 until条件为什么还是死循环
求平方和 用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    时间: 2020-5-20 22:36
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
    

复制代码

[attach]63770[/attach]

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3