第6章 循环结构程序设计rj.ppt

1 VB程序设计教程 Pgdd李维新 lwx VB 循环结构 2 思考 怎样在窗体form1上显示如下图案 lwx VB 循环结构 3 解决方案 Print Print Print Print Print Print Print Print lwx VB 循环结构 4 新的解决方案 语言描述 重复执行print 语句 一共执行8次 计算机描述 Dimiasintegeri 1当i8时 停止执行print 语句 lwx VB 循环结构 5 图示 lwx VB 循环结构 6 For循环 For循环表述DimiasintegerFori 1to8Print Nexti lwx VB 循环结构 7 For循环格式 语法 For To Step ExitFor Next lwx VB 循环结构 8 For格式中参量含义 循环变量 亦称 循环控制变量 控制变量 或 循环计数器 它是一个数值变量 但不能是下标变量或记录元素 初值 循环变量的初值 它是一个数值表达式 终值 循环变量的终值 它也是一个数值表达式 步长 循环变量的增量 是一个数值表达式 其值可以是正数 递增循环 或负数 递减循环 但不能为0 如果步长为1 则可略去不写 循环体 在For语句和Next语句之间的语句序列 可以是一个或多个语句 ExitFor 退出循环 Next 循环终结语句 在Next后面的 循环变量 与For语句中的 循环变量 必须相同 格式中的初值 终值 步长均为数值表达式 但其值不一定是整数 可以是实数 VB6 0自动取整 lwx VB 循环结构 9 For循环的循环次数 Fori 1to8语句组Nexti一共执行for循环的循环体多少次 终值 初值 1 8 1 1 次 lwx VB 循环结构 10 探索 如何在窗体form1上 显示如下数据 12345678 lwx VB 循环结构 11 用for循环实现 DimiasintegerFori 1to8PrintiNexti lwx VB 循环结构 12 进阶领悟 求1 2 3 99 100的值 分析 加数为1到100且步长为1的数列 因此可以考虑用for循环 fori 1to100step1语句组Nexti lwx VB 循环结构 13 答案 DimIasintegerDimsasinteger 变量s用来存放最后的结果S 0 结果变量初始化为0Fori 1to100step1S s INexti 完成计算 输出Msgbox 1 2 3 99 100 s lwx VB 循环结构 14 For循环练习 求100 101 102 1000的值 Fori 100to1000Nexti求2 4 6 8 100的值 Fori 2to100step2Nexti求200 199 198 101的值 Fori 200to101step 1Nexti lwx VB 循环结构 15 For循环与if语句综合应用 求100以内所有偶数相加的和 Fori 1to100Ifimod2 0thenEndifNexti求100以内所有3的倍数相加的和 求200 300之间 包括200和300 所有7的倍数相加的和 lwx VB 循环结构 16 找出300 500之间的所有既是3的倍数 又是5的倍数的数 找出所有水仙花数 水仙花数是一个三位数 它具有这样的特点 百位上的数的立方 加上十位上的数的立方 再加上个位上的数的立方恰好等于这个数本身 例如 水仙花数153 有如下特点 1 1 1 5 5 5 3 3 3 153 lwx VB 循环结构 17 For循环的嵌套应用 期末30位学生参加三门课程的考试 求每个学生的三门课程的平均成绩Dimi j aver mAsIntegeraver 0Fori 1To30Forj 1To3m InputBox 输入第 j 门课的成绩 aver aver mNextjaver aver 3PrintaverNexti lwx VB 循环结构 18 输出 表PrivateSubForm Load ShowFontSize 12PrintTab 25 九九表 PrintPrint Fori 1To9PrintTab i 6 i NextiPrint Forj 1To9Printj Fork 1Tojm j kPrintTab k 6 m NextkPrintNextjPrintEndSub lwx VB 循环结构 19 实践 楼内公有10户居民 每度电0 元 编一个程序 输入每一户的用电量 然后计算应交纳的电费 输入下一户用电量 计算应交的电费 一直到所有用户的电费都已经算出 lwx VB 循环结构 20 分析 一共有几户 一共需要计算多少次电费 这些重复的过程可以考虑用for循环实现 当循环变量10时 退出循环 就可完成任务 lwx VB 循环结构 21 Vb描述 DimiasintegerDimSassingleDimDianassingleFori 1to10step1Dian inputbox 输入用电量 S Dian 0 PrintSNexti lwx VB 循环结构 22 循环的另一种方式 Do循环 For循环中 我们对于程序循环的次数非常清楚 例如 Fori 1to8 Nexti中 我们很清楚循环的次数 如果在程序运行过程中 我们不知道程序会循环多少次时 for循环就不再适用 这时 我们需要用到 Do循环 lwx VB 循环结构 23 Do循环举例 Privatesubcommand1 click DimdianasintegerDimsassingledian inputbox 输入用户数 输入 1时结束计算 Dos dian 0 7Printsdian inputbox 输入用户数 输入 1时结束计算 Loopunitldian 1 lwx VB 循环结构 24 Do循环格式 前测型 Do While Until ExitDo Loop 后测型 Do ExitDo Loop While Until lwx VB 循环结构 25 Do循环图示 lwx VB 循环结构 26 进阶领悟 已知s 1 2 3 N 找出最大的整数N 使得S 3000 lwx VB 循环结构 27 解决方案 n 1s 0Dos s nn n 1Loopuntils 3000Print 这个最大的数就是 n lwx VB 循环结构 28 常见错误和难点分析 1 不循环或死循环的问题主要是循环条件 循环初值 循环终值 循环步长的设置有问题 例如 以下循环语句不执行循环体 Fori 10To20Step 1 步长为负 初值必须大于等于终值Fori 20To10 步长为正 初值必须小于等于终值DoWhileFalse 循环条件永远不满足 不循环例如 以下循环语句死循环 Fori 10To20Step0 步长为零 死循环DoWhile1 循环条件永远满足 死循环 lwx VB 循环结构 29 2 循