vb程序设计 第四章分支结构.ppt

例7.3 对列表框进行项目添加、修改和删除操作。 例7.4 对列表框进行项目添加、修改和删除操作。 4.5 综合应用 计算1-100之内自然数之和。 t = 0 For i =1 To 100 t = t + i Next i Print t t = 0 i = 1 do while i=100 t = t +i i =i + 1 loop Print t 4.5 综合应用 例：计算100! t = 1 For i =1 To n t = t * i Next i Print t t = 1 i = 1 do while i=100 t = t *i i =i + 1 loop Print t 4.5 综合应用 例4.17求自然对数e的近似值，其误差小于0.00001。 近似公式 分析：本例涉及到程序设计中两个重要运算： 累加 、连乘i!。 累加：在原有和的基础上再加一个数； 连乘：在原有积的基础上再乘以一个数。 Do while 1/t0.00001 e=e+1/t i=i+1 t=t*i loop 4.5 综合应用 例4.18利用InputBox函数输入两个整数，求它们的最大公约数和最小公倍数。 分析： 利用“辗转相除法”求两自然数的最大公约数。 算法思想： (1)对于两数m，n，使得mn (2) m除以n得余数r (3)若r0，则令n→m，r →n，继续相除得新的r,直到r=0求得最大公约数n，结束； M n r 30 8 6 8 6 2 6 2 0 4.5 综合应用 试凑法：利用计算机高速运算的特点将可能出现的情况一一罗列，判断其是否满足条件，通常采用循环结构完成。 例4.19 百元买百鸡。假定小鸡每只5角，公鸡每只2元，母鸡每只3元，编程求解购鸡方案。 分析： (1) 设母鸡、公鸡、小鸡各为x、y、z，列出方程为： x+y+z= 100 3x+2y+0.5z = 100 三个未知数，两个方程，此题求若干个整数解。 (2) 采用试凑法(也称穷举法)来实现。 4.5 综合应用 递推(迭代)法基本思想是把一个复杂的计算过程转化为简单过程的多次重复。每次都从旧值的基础上递推出新值，并由新值代替旧值。 例4.20 小猴有桃若干，第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个；以后每天都吃尚存桃子的一半多一个，到第7天只剩一个，问小猴原有桃多少？ 分析：设第n天的桃子为xn 实验5.1 p95 教材P83 用迭代法求立方根 求立方根的迭代公式： Dim a!,u!,v! Const eps=0.000001 A=val(inputbox（”请输入a的值：”）) v=a Do U=v V=(2*u+a/u^2)/3 Loop while abs(v-u)eps 找出被3,5,7除，余数均为1的最小的5个正整数。 Dim CountN%,n% CountN=0 n=1 Do n=n+1 If ____________________________________ then Print n CountN=CountN+1 End if Loop ____________ while countN5 N mod 3=1 and n mod 5=1 and n mod 7=1 分别统计1-100中，满足3的倍数，5的倍数的数各有多少？ 将输入的字符串以反序显示。如输入“ABCDEF” ，显示“FEDCBA” P95 求水仙花数 水仙花数指一个三位数，它的各位数字的立方和等于该数本身，如153=13+53+33 三位数范围100-999 对三位数进行分离 判断是否相等，等于则输出 实验5.2 求完数 4.6 程序调试 随着程序的复杂性提高，程序中的错误也伴随而来。 错误(bug)和程序调试(debug)是每个编程人员都必定遇到的。 上机的目的，不光是为了验证你编写的程序的正确性，还要通过上机调试，学会查找和纠正错误的方法和能力。 4.6 程序调试 语法错误、运行时错误和逻辑错误三类。 1、语法错误 (1)程序编辑 错误的代码显示为红色，窗口上显示出错的原因。 4.6 程序调试 (2)程序编译 4.6 程序调试 2、运行错误 指令代码执行了一非法操作引起的。例如，类型不匹配、试图打开一个不存在的文件等。程序会自动中断，并给出有关的错误信息。 4.6 程序调试 3