有關Excel vba中的Do Loop不太明白 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 有關Excel vba中的Do Loop不太明白

返回列表下一主題上一主題發帖

有關Excel vba中的Do Loop不太明白

高中生 Rank: 3 Rank: 3

帖子: 533
主題: 58
精華: 0
積分: 613
點名: 261
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2015-12-6 10:22 | 顯示全部帖子

回復 4# drgv11

Do ... Loop 舉例演示:

Option Explicit
Sub DoLoopTest()
Dim a#, b#, h#
Dim Rad#, c#
Dim iter%, IterMax%
Const e = 0.00000001 '誤差許可值
Const Pi = 3.14159265358979
IterMax = 500 '最高搜尋迭代數
Rad = Pi * 45 / 180
a = 100 '初始值
h = 5 '初始搜尋步長
Do
b = a * Sin(Rad) - 20
If Abs(b) < e Then Exit Do '浮點數運算很難得到完全相等
If b > 0 Then
a = a - h
Else
h = h * 0.5
a = a + h
End If
iter = iter + 1
Loop While iter < IterMax '無解時可以跳出迴圈
Debug.Print
Debug.Print " iter = " & iter
Debug.Print "Ans. a = " & a
Debug.Print " h = " & h
End Sub

複製代碼

靜思自在 : 多做多得。少做多失。

返回列表下一主題上一主題