2012年计算机等级考试二级VB重点知识（十一）

　　五、迭代法

　　算法思想：

　　对于一个问题的求解x,可由给定的一个初值x0,根据某一迭代公式得到一个新的值x1,这个新值x1比初值x0更接近要求的值x;再以新值作为初值，即：x1→x0，重新按原来的方法求x1，重复这一过和直到|x1-x0|<ε(某一给定的精度)。此时可将x1作为问题的解。

　　例：用迭代法求某个数的平方根。 已知求平方根的迭代公式为：

　　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 '为下一次迭代作准备

　　x1 = 0.5*(x0 + a/x0)

　　Loop While Abs(x1 - x0) > 0.00001

　　Fsqrt=x1

　　End Function

　　六、数制转换

　　将一个十进制整数m转换成 →r(2-16)进制字符串。

　　方法：将m不断除 r 取余数，直到商为零，以反序得到结果。下面写出一转换函数，参数idec为十进制数，ibase为要转换成数的基(如二进制的基是2,八进制的基是8等)，函数输出结果是字符串。

　　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

　　相关推荐：

　　2012年下半年计算机等级考试报名时间及入口汇总

　　计算机等级考试三级PC技术过关心得技巧

　　2012年3月计算机二级考试真题汇总