第八讲VB常用算法.pptVIP

第八讲 常用算法 复习： 上节课，我们学习过哪两种过程？ 本 讲 主 要 内 容 1. 迭代算法 迭代算法:是一种不断用新的值取代变量旧的值的过程。 Private Sub Command1_Click() Dim x0 As Double: Dim x1 As Double Dim a As Double a = Val(Text1.Text) x0 = a / 2 x1 = (x0 + a / x0) / 2 Do x0 = x1 x1 = (x0 + a / x0) / 2 Loop While (Abs(x0 - x1) = 0.00001) Text2.Text = x1 End Sub 2. 递推算法 递推算法: 是在旧的变量的值的基础上推出新的变量的值的过程。 Private Sub Command1_Click() Dim i As Integer Dim x1 As Integer ： Dim x2 As Integer i = 9: x2 = 1 Do While (i 0) x1 = (x2 + 1) * 2 x2 = x1