yen956

¦^´_ 1# drgv11

Sub test()
Do
[a1] = InputBox(1)   'assume [a1]
[a2] = InputBox(1)   'assume [a2]
    Do
        Cells(2, 1) = Cells(2, 1) + 0.0001      'ReAssume [a2]
        Cells(3, 1) = Cells(1, 1) * 4 - 1       'calculate [a3]
        Cells(4, 1) = Cells(2, 1) / 6           'calculate [a4]
        [a5] = Abs(Cells(4, 1) - Cells(3, 1))   '¥iÆ[¹î ­pºâ¹Lµ{
        '¦pªG[a5]·U¨Ó·U¤j,«h¤£¥i¯à¸õ¥X°j°é, ½Ð«ö ESC, ­«³][a1],[a2]ªº­È,
        '©Î [a3],[a4]­pºâ¤½¦¡
    Loop Until [a5] <= 0.0005
    '­Yª½±µ¼g¦¨ Loop Until Abs(Cells(4, 1) - Cells(3, 1)) <= 0.0005
    '«hµLªkÆ[¹î ­pºâ¹Lµ{
Cells(5, 1) = Cells(3, 1) - 2
Cells(6, 1) = Cells(4, 1) / 3
'
[a7] = Abs(Cells(5, 1) - Cells(6, 1)) <= 0.0005 '¥iÆ[¹î ­pºâµ²ªG
'¦¹³B Abs(Cells(7, 1) - Cells(6, 1)) <= 0.0005 À³¬O¼Ó¥DCells(5, 1)µ§»~?
Loop Until [a7] <= 0.0005
End Sub