第04章 Visual Basic 程序控制结构.ppt

循环嵌套 用循环实现打印九九乘法表。 Private Sub form_Click() For i = 1 To 9 For j = 1 To i Print i * j = i * j Next j Next i End Sub 常用算法介绍 累加 累乘 迭代法 素数问题 穷举法 求最大值或最小值问题 任务2 求1+2+3…+n 分析：求多项数据之和，首先得设置一个累加器sum，存放累加结果。根据一般人们求和的步骤，多个数据累加的过程如下： sum=0 sum=sum+1 sum=sum+2 sum=sum+3 …… sum=sum +n 累 加 求多项数据之和，整个累加过程一直在重复执行sum = sum + i，一共重复n次。 任务3 求1+2+3…+n 程序代码设计： 累 加 Private Sub Form_Click() Dim sum As Integer, i As Integer n = Val(InputBox(请输入累加的终值n：)) sum = 0 累加器清零 For i = 1 To n sum = sum + i 累加 Next i Print 1+...+; n; =; sum End Sub 求1~n之间所有的偶数之和 任务4 求10！ 程序代码设计： 累 乘 Private Sub Form_Click () Dim x As Long x = 1 For i = 1 To 10 x = x * i Next i MsgBox 10!的值为： x End Sub 求最大值或最小值问题 任务5 求班级学生某一门课成绩的最高分 这就是一个求最大值的问题。先假设第一个成绩就是班级最高分，然后从第二个成绩开始依次与假设的最高分比较，若有高于它的，则更新最高分，否则继续下一个成绩的比较，直至最后一个成绩 Private Sub form_Click() Dim grade As Single Max = 0 For i = 1 To 2 假设班级人数为20人 grade = Val(InputBox(请输入第 i 个学生的成绩：)) If grade Max Then Max = grade Next i Print Print 最高分为; Max End Sub 素数问题 任务10 输入一个正整数，判断该正整数是否为素数 素数就是大家在数学中熟知的质数，即一个大于1且只能被1和它本身整除的整数 分析： 从素数的定义出发：既然素数除了1和它本身之外，不能被任何数整除，那么就把待判断的数X依次与除了1和它本身之外的其他所有的数进行除，看是否有整除的情况；若有，表示X不是素数，否则就是素数。除数的范围i从2开始到X-1(因为一个数不可能能整除比它自身大的数)，由于要对这个范围内的每一个数都进行相同的重复除操作，所以使用循环 穷举法 任务6 编写“百元买百鸡”的程序：鸡翁一值钱五；鸡母一值钱三；鸡雏三值钱一。百钱买百鸡。请问鸡翁、鸡母、鸡雏各多少只？ Private Sub Form_Click() Print 鸡翁, 鸡母, 鸡雏 For i = 1 To 100 For j = 1 To 100 k = 100 - i - j If 5 * i + 3 * j + k / 3 = 100 Then Print i, j, k End If Next j Next I End Sub 本章小结 一、主要内容 顺序结构程序设计、算法及程序设计基础、数据的输入输出；流程控制语句分为条件测试语句和循环语句；本章重点介绍三种结构程序设计语句的用法与功能。 二、目的要求 1.熟练掌握行if语句、块if结构、Select Case情况选择结构有使用，掌握选择的嵌套结构； 2.熟练掌握实现循环结构的For/Next循环结构及Exit For语句、Do/Loop循环结构的使用，掌握多重循环。 重点与难点 重点： 选择结构及循环结构的实现及其应用 难点： 选择的嵌套及多重循环结构 任务5 编写一个程序，让用户输入三个数判并断该三个数能否组成一个直角三角形。 编写代码： Private Sub Command1_