2012年計算機(jī)等級考試二級VB重點(diǎn)知識（十一）

　　五、迭代法

　　算法思想：

　　對于一個問題的求解x,可由給定的一個初值x0,根據(jù)某一迭代公式得到一個新的值x1,這個新值x1比初值x0更接近要求的值x;再以新值作為初值，即：x1→x0，重新按原來的方法求x1，重復(fù)這一過和直到|x1-x0|<ε(某一給定的精度)。此時可將x1作為問題的解。

　　例：用迭代法求某個數(shù)的平方根。 已知求平方根的迭代公式為：

　　Private Function Fsqrt( a As single ) AS single

　　Dim x0 As Single, x1 As Single

　　x0 =a/2 '迭代初值

　　x1 = 0.5*(x0 + a/x0)

　　Do

　　x0 = x1 '為下一次迭代作準(zhǔn)備

　　x1 = 0.5*(x0 + a/x0)

　　Loop While Abs(x1 - x0) > 0.00001

　　Fsqrt=x1

　　End Function

　　六、數(shù)制轉(zhuǎn)換

　　將一個十進(jìn)制整數(shù)m轉(zhuǎn)換成 →r(2-16)進(jìn)制字符串。

　　方法：將m不斷除 r 取余數(shù)，直到商為零，以反序得到結(jié)果。下面寫出一轉(zhuǎn)換函數(shù)，參數(shù)idec為十進(jìn)制數(shù)，ibase為要轉(zhuǎn)換成數(shù)的基(如二進(jìn)制的基是2,八進(jìn)制的基是8等)，函數(shù)輸出結(jié)果是字符串。

　　Private Function TrDec(idec As Integer, ibase As Integer) As String

　　Dim strDecR$, iDecR%

　　strDecR = ""

　　Do While idec <> 0

　　iDecR = idec Mod ibase

　　If iDecR >= 10 Then

　　strDecR = Chr$(65 + iDecR - 10) & strDecR

　　Else

　　strDecR = iDecR & strDecR

　　End If

　　idec = idec \ ibase

　　Loop

　　TrDec = strDecR

　　End Function

　　相關(guān)推薦：

　　2012年下半年計算機(jī)等級考試報名時間及入口匯總

　　計算機(jī)等級考試三級PC技術(shù)過關(guān)心得技巧

　　2012年3月計算機(jī)二級考試真題匯總