第四章三种控制结构程序设计1介绍.ppt

Dim N %, I%, K% N = Val(InputBox(N=？)) K= Int(Sqr(N)) For I = 2 To K If N Mod I = 0 Then Exit For Next I If IK Then Print N; 是素数 Else Print N; 不是素数 End If 例4.10 编一程序验证哥德巴赫猜想：一个大于等于6的偶数可以表示为两个素数之和。例如： 6=3+3 8=3+5 10= 3+7 算法设计：设N为大于等于6的任一偶数，将其分解为N1和N2两个数，使用N1+N2=N，分别判断N1和N2是否为素数，若都是，则为一组解。若N1不是素数，就不必再检查N2是否素数。先从N1=3开始，直到N1=N/2为止。算法流程图如图4-29所示。将程序代码写到窗体的单击事件中。 实现上面算法的程序代码如下： Private Sub Form_Click() Dim N%, N1%, N2%, I%, K1%, K2% N=Val(InputBox(输入大于6的偶数)) For N1 = 3 To N \ 2 Step 2 K1 = Int(Sqr(N1)) For I = 2 To K1 判断N1是否是素数 If N1 Mod I = 0 Then Exit For Next I If I K1 Then 如果N1为素数，将N分解为N1+N2 N2 = N - N1 K2 = Int(Sqr(N2)) For I = 2 To K2 判断N2是否是素数 If N2 Mod I = 0 Then Exit For Next I If I K2 Then 如果N2也为素数，则打印输出 Print N = N1 + N2 End If End If Next N1 End Sub 4.6.2 字符串处理 例4.11 统计文本框中英文单词的个数。 ? 算法设计 （1）从文本（字符串）的左边开始，取出一个字符；设逻辑量WT表示所取字符是否是单词内的字符，初值设为False。 （2）若所取字符不是“空格”、“逗号”、“分号”或“感叹号”等单词的分隔符，再判断WT是否为True，若WT不为True，则表示新单词的开始，让单词数Nw=Nw+1；让WT=True。 （3）若所取字符是“空格”、“逗号”、“分号”或“感叹号”等单词的分隔符，则表示字符不是单词内字符，让WT=False。 （4）再依次取下一个字符，重复（2）（3）步直到文本结束。 例4.12 字符的加密和解密 加密算法是： 将每个字母C加（或减）一序数K，即用它后的第K个字母代替，变换式公式： c=chr(Asc(c)+k) 例如：设序数k为5，这时 A→ F， a→ f，B→ G… 当加序数后的字母超过Z或z则 c=Chr(Asc(c)+k -26) 例如：You are good→ Dtz fwj ltti 解密算法：解密为加密的逆过程 将每个字母C减（或加）一序数K，即 c=chr(Asc(c)-k), 例如：序数k为5，这时 Z→U， z→u，Y→T… 当加序数后的字母小于A或a则 c=Chr(Asc(c)-k +26) 迭代法在数学上也称“递推法”，凡是由一给定的初值，通过某一算法（公式）可求得新值，再由新值按照同样的算法又可求得另一个新值，这样经过有限次即可求得其解。 4.6.3 迭代法 例4.13 用迭代法求某个数的平方根。 已知求平方根的迭代公式为： 算法思想如下： 设平方根的解为x，可假定一个初值x0=a/2(估计值)，根据迭代公式得到一个新的值x1，这个新值x1比初值x0更接近要求的值x；再以新值作为初值，即：x1→x0，重新按原来的方法求x1，重复这一过程直到|x1-x0|ε(某一给定的精度)。此时可将x1作为问题的解。 程序代码见教材Pg.103 人有了知识，就会具备各种分析能力， 明辨是非的能力。 所以我们要勤恳读书，广泛阅读， 古人说“书中自有黄金屋。 ”通过阅读科技书籍，我们能丰富知识， 培养逻辑思维能力； 通过阅读文学作品，我们能提高文学鉴赏水平， 培养文学情趣； 通过阅读报刊，我们能增长见识，扩大自己的知识面。 有许多书籍还能培养我们的道德情操， 给我们巨大的精神力量， 鼓舞我们前进。 * * * * * * * * * * * * * 2. If…Th