cad第七章.pptVIP

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 7.6.2 字符串处理 例7.12 统计文本框中英文单词的个数。 ? 算法设计 （1）从文本（字符串）的左边开始，取出一个字符；设逻辑量WT表示所取字符是否是单词内的字符，初值设为False。 （2）若所取字符不是“空格”、“逗号”、“分号”或“感叹号”等单词的分隔符，再判断WT是否为True，若WT不为True，则表示新单词的开始，让单词数Nw=Nw+1；让WT=True。 （3）若所取字符是“空格”、“逗号”、“分号”或“感叹号”等单词的分隔符，则表示字符不是单词内字符，让WT=False。 （4）再依次取下一个字符，重复（2）（3）步直到文本结束。 例7.13 字符的加密和解密 加密算法是： 将每个字母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) 迭代法在数学上也称“递推法”，凡是由一给定的初值，通过某一算法（公式）可求得新值，再由新值按照同样的算法又可求得另一个新值，这样经过有限次即可求得其解。 7.6.3 迭代法 例7.14 用迭代法求某个数的平方根。 已知求平方根的迭代公式为： 算法思想如下： 设平方根的解为x，可假定一个初值x0=a/2(估计值)，根据迭代公式得到一个新的值x1，这个新值x1比初值x0更接近要求的值x；再以新值作为初值，即：x1→x0，重新按原来的方法求x1，重复这一过程直到|x1-x0|ε(某一给定的精度)。此时可将x1作为问题的解。 * * * * * * * * * * * * 使用IF语句实现的程序段如下： If x=90 then Print 优秀 ElseIf x=80 Then Print 良好 ElseIf x=70 Then Print 中等 ElseIf x=60 Then Print 及格 Else Print 不及格 End If 7.3.2 Select Case语句（情况语句） 形式： Select Case 变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 … [Case Else 语句块n+1] End Select 表达式列表：与变量或表达式同类型的下面四种形式之一： 表达式 A +5 一组枚举表达式(用逗号分隔) 2, 4, 6, 8 表达式1 To 表达式2 60 to 100 Is 关系运算符表达式 Is 60 数值型或字符串表达式 将例7.3 使用select case…..语句来实现的程序段如下： Select Case x Case 90 to 100 Print 优秀