循环结构习题.ppt

素数是一个大于2 且不能被1和本身以外的整数整除的数 判别某数m是否为素数最简单的方法是 对于m 从i 2 3 判别m能否被i整除 只要有一个能整除 m不是素数 否则m是素数 求素数 1 求100以内素数 在循环语句中如何表示一个数是否为素数 定义一个Boolean型变量Flag Flag true表示一个数为素数 Flag false表示一个数不是素数 解题思路 1 如何判断一个数m是否为素数 m除以i 2 2 使用循环语句找出1 100之间所有的素数 2 PrivateSubCommand1 Click DimiAsInteger mAsInteger nasintegerDimflagAsBoolean n 0Form 2To100flag TrueIfflag trueThenprintm n n 1ifnmod10 0thenPrintEndifNextmEndSub 判断一数是否为素数 用flag来标注 假定m为素数 根据flag来打印素数 Fori 2ToSqr m If mModi 0Thenflag FalseNexti 在窗体上换行输出的方法 一行固定输出10数字 3 常用算法 1 累加 连乘 累加是在原有和的基础上一次一次地每次加一个数 Sum Sum i 连乘是在原有积的基础上一次一次地每次乘一个数 t t i 算法是对某个问题求解过程的描述 4 计算sum 1 2 3 10 PrivateSubForm Click DimsumAsLongDimiAsIntegerDimtAsLongsum 0 t 1Fori 1To10t t isum sum tNextiPrint 1 2 3 10 sumEndSub 5 求自然对数e的近似值 要求其误差小于0 00001 近似公式为 该例题涉及两个问题 1 用循环结构求级数和的问题 本例根据某项值 t 的精度 要求计算精度为0 00001 来控制循环的结束与否 2 累加 e e t循环体外对累加和的变量清零e 0连乘 n n i循环体外对连乘积变量置1n 1 级数t 连乘积n 累加和e 6 PrivateSubForm Click Dimi neEndSub 7 穷举法求水仙花数 水仙花数是一个三位数 它的每位数的立方和刚好等于其本身 如153就是水仙花数153 1 3 5 3 3 3 8 思考 找出1000之内的所有完数 完数的界定 一个数恰好等于他的因子之和 这个数就称为完数 如数字6 它的因子是1 2 3 刚好有等式 6 1 2 3成立 所以6就是一个完数 回文数 第一位数与最后一位数相等 第二位数与倒数第二位数相等 第N位数与倒数第N位数相等 9 PrivateSubCommand1 Click DimnAsIntegerDimiAsIntegerDimsumAsIntegerForn 1To1000sum 0Fori 1Ton 1IfnModi 0Thensum sum iNextiIfsum nThenText1 Text Text1 Text n vbCrLfEndIfNextnEndSub 完数 10 PrivateSubCommand1 Click DimnumAsStringDimstrAsStringDimiAsIntegernum Text1 Textstr Fori 1ToLen num str Mid num i 1 strNextiIfstr numThenLabel2 Caption num 是回文数 ElseLabel2 Caption num 不是回文数 EndIfEndSub 回文数 11 递推法 又称为 迭代法 其基本思想是把一个复杂的计算过程转化为简单过程的多次重复 每次重复都从旧值的基础上递推出新值 并由新值代替旧值 实验D第7题 4 递推法 12 在若干个数中求最大值 一般先假设一个较小的数为最大值的初值 若无法估计较小的值 则取第一个数为最大值的初值 然后将每一个数与最大值比较 若该数大于最大值 将该数替换为最大值 依次逐一比较 例随机产生10个100 200之间的数 求最大值 PrivateSubCommand1 Click dimmaxasinteger xasintegerMax 100Fori 1To10 x Int Rnd 101 100 PrintxMaxEndSub 5 最小 最大值 13 随机输入10名学生成绩 将成绩显示在窗体中 并显示其中的最好及其序号 输入输出形式自定 例如 输入85 74 62 37 98 77 65 77 69 81显示 5号成绩最好 98分 14 PrivateSubForm Click DimiAsInteger cjAsIntegerDimmaxAsInteger maxnAsIntegermax 0 maxn 0Fori 1To10cj Val InputBox 请输入第 IfiMod5 0ThenPrintIfcj maxThenmax cj maxn iNextiPrintPrint 第 maxn 号的得分最高 为 maxEndSub 15 思考 增加显示最差成绩和平均分4号成绩最差 37分平均分为 XX 16 统计问题 一 17 PrivateSubCommand1 Click 统计按钮的事件过程DimstrAsString DimzimuAsInteger DimshuziAsIntegerDimqitaAsInteger DimiAsInteger DimccstrAsString 1zimu 0 shuzi 0 qita 0str Text1 TextFori 1ToLen str ccstr Mid str i 1 SelectCaseccstrCase A To Z a To z zimu zimu 1Case 0 To 9 shuzi shuzi 1CaseElseqita qita 1EndSelectNextiText2 Text zimu Text3 Text shuzi Text4 Text qitaEndSub 18 统计问题 二 输入一个字符串 统计其中每个字母 不区分大小写 出现的频率 19 PrivateSubText1 KeyPress KeyAsciiAsInteger Dimstr i ccstr Dimn 26 AsIntegerIfKeyAscii 13Thenstr Text1 TextFori 1ToLen str ccstr UCase Mid str i 1 n Asc ccstr 65 1 n Asc ccstr 65 1 1NextiFori 1To26Ifn i 0ThenPicture1 PrintChr i 65 1 出现了 n i 次 EndIfNextiEndIfEndSub PrivateSubCommand1 Click Picture1 ClsText1 Text EndSub 清屏 是否已经按下回车键得判断 文本框得keypress事件 k