VB第6章 循环结构程序设计.pptVIP

* Dim N As Integer 定义变量N为模块级变量 Private Sub Command1_Click() M = Val(Text1.Text): N = Val(Text2.Text) R = M Mod N 求M除以N的余数R Do While R 0 M = N N = R R = M Mod N Loop Label3.Caption = N Command2.Enabled = True End Sub 求最大公约数代码如下: * Private Sub Command2_Click() Label4.Caption = Val(Text1.Text) * _ Val(Text2.Text) / N End Sub 求最小公倍数代码如下: * 【例6-12】输入某正整数n(n≥3),判断n是否是素数。 分析：用N除以2到 之间的全部整数，如果都除不尽，则N是素数，否则N不是素数。 算法：首先设K= ,然后用循环实现用N除以2～K之间的任一整数I，当遇到整除时，退出循环，这时的I值必然小于或等于K；如果N不能被2～K之间的任一整数I整除，则在完成最后一次循环之后，I的值为K+1。因此在退出循环之后可以根据I的值来决定N是否是素数。如果I=K，则说明N是素数，否则N不是素数。 * 流程图: 输出“不是素数” ? K 输入N 2? I I≤K? N能被I整除? I≤K? 输出“是素数” I+1? I T F T F T F * 设计界面： Label1 Text1 Command1 * Private Sub Command1_Click() N = Val(Text1.Text) : I = 2 : K = Int(Sqr(N)) Do While I = K If N Mod I 0 Then I = I + 1 不能整除，I的值累加1 Else Exit Do 整除，退出循环 End If Loop If I = K Then Label2.Caption = 不是素数 Else Label2.Caption = 是素数 End If End Sub 代码如下： * 【例6-13】用牛顿迭代法求方程： 在x=π附近的一个实根，精度要求： |xn+1-xn|≤10-4。 分析： 牛顿迭代法的几何解释： 牛顿迭代公式：xk+1=xk-f(xk)/f(xk) * 设计界面： Picture1 Command1 * 代码设计： Private Sub Command1_Click() Dim X As Single X = 3.1415926 N = 0 N用于保存迭代次数 Do FX = Sin(X) - X / 2 求f(x) FX1 = Cos(X) - 0.5 求f(x) X1 = X 保存当前根 X = X - FX / FX1 求下一个根 N = N + 1 Loop Until Abs(X1 - X) 0.0001 * MsgBox “方程的根为：” _ Format(X, “0.0000”) _ vbCrLf 迭代次数为： Str(N) End Sub 运行结果： * 【例6-14】利用以下公式求π的近似值： 分析：这是一个累乘问题，首先找出乘积各项的规律。设第i项的分母为Pi，第i+1项的分母为Pi+1，则 设前i项的积为Si，前i+1项的积为Si+1，则： * 设计界面： Text1 Command1 Text2 * 代码设计： Private Sub Command1_Click() Dim E As Double E表示精度ε E = Val(Text1.Text) P = 0 S = 2 Do P = Sqr(2 + P) S1 = S S = S * 2 / P Loop Until Abs(S1 - S)