算法案例ZST.pptVIP

算法案例 Sub 孙子问题() m=2 While m mod 32 or m mod 53 or m mod 72 m=m+1 Wend Msgbox”不定方程的一个解为” m End sub ? Excel VBA-1 第4节 算法案例 算法案例 a = InputBox(输入第一个自然数) b = InputBox(“输入第二个自然数) Do r = a Mod b a = b b = r Loop until r = 0 MsgBox 最大公约数为 a ? Excel VBA 第4节 算法案例 a = Val(InputBox(输入区间左端点值)) b = Val(InputBox(输入区间右端点值)) c = Val(InputBox(输入误差限制)) Do x0 = (a + b) / 2 f1 = a^3 - a - 1 f2 = x0^3 - x0 - 1 If f2 = 0 Then Exit do If f1*f2 0 Then b = x0 Else a = x0 End if Loop until Abs(a – b) c MsgBox 方程的近似解为 x0 ? Excel VBA-2 第4节 算