Scott090

¦^´_ 4# drgv11

Do ... Loop Á|¨Òºt¥Ü:

1. Option Explicit
   
2. 
   
3. Sub DoLoopTest()
   
4. Dim a#, b#, h#
   
5. Dim Rad#, c#
   
6. Dim iter%, IterMax%
   
7. Const e = 0.00000001        '»~®t³\¥i­È
   
8. Const Pi = 3.14159265358979
   
9. 
   
10. IterMax = 500               '³Ì°ª·j´M­¡¥N¼Æ
    
11. 
    
12. Rad = Pi * 45 / 180
    
13. 
    
14. a = 100     'ªì©l­È
    
15. h = 5       'ªì©l·j´M¨Bªø
    
16. Do
    
17.     b = a * Sin(Rad) - 20
    
18.     If Abs(b) < e Then Exit Do      '¯BÂI¼Æ¹Bºâ«ÜÃø±o¨ì§¹¥þ¬Ûµ¥
    
19.     If b > 0 Then
    
20.         a = a - h
    
21.     Else
    
22.         h = h * 0.5
    
23.         a = a + h
    
24.     End If
    
25.     iter = iter + 1
    
26. Loop While iter < IterMax    'µL¸Ñ®É¥i¥H¸õ¥X °j°é
    
27. Debug.Print
    
28. Debug.Print "  iter = " & iter
    
29. Debug.Print "Ans. a = " & a
    
30. Debug.Print "     h = " & h
    
31. End Sub

½Æ»s¥N½X