vb教案10.docVIP

内 蒙 古 科 技 大 学 教 案 课程名称：VB程序设计 编写时间：2008年1月16日 授课章节 目的要求 通过实例,使学生掌握选择结构的If语句、Select Case语句。循环结构For循环语句 、Do…Loop循环语句 、While…Wend语句；循环的嵌套——多重循环结构。 重点难点 在循环算法中,穷举与迭代是两类具有代表性的两类基本算法。 1．穷举的基本思想是：对问题的所有可能状态一一测试，直到找到解或将全部可能状态都测试为止。 在穷举法编程中，主要是使用循环语句和选择语句，循环语句用于穷举所有可能的情况，而选择语句判定当前的条件是否为所求得的解。 其基本格式如下： for （循环变量x取所有可能的值） { …… if（x满足指定的条件） 输出x; …… } 例2：判断m是否素数。 Dim m as integer,I as integer ,k as integer M=inputbox(“input a number”) k=m\2 for i=2 to k if (m%i= =0) exit for next i if (ik) then print m ;”is a prime number” else print m;”is not a prime number” endif 例3.将一张1元钞票换成1分、2分、5分硬币，每种至少8枚，问有几种方案？ 第 10 次 第1页内 蒙 古 科 技 大 学 教 案（续页） 迭代的基本思想是：不断用新值取代变量的旧值；或由旧值推出变量的新值。其基本格式如下： 迭代变量赋初值； 循环语句 { 计算表达式； 新值取代旧值 } 例4：求Fibonacci（斐波那契）数列前40个数。Fibonacci数列有如下特点：第一、二两个数为1，从第三个数开始，该数是其前面两个数之和。即： F1=1 F2=1 Fn=Fn-1+Fn+1 Dim f as long , f1 as long ,f2 as long Dim I as long f1=1:f2=1 print f1;f2; for i=3 to 40 f=f1+f2 print f; f2=f1 f1=f next i 例5. 用下列公式求e的近似值，直到最后一项的绝对值小于10-6为止。 Π/4 = 1 - 1/3 + 1/5 - 1/7 + …… dim s as integer dim n!,t!,pi! s=1:t=1:pi=0:n=1 do while abs(t)=1e-6 pi=pi+t; n=n+2 s=－s t=s/n; loop pi=pi*4 printf pi= ;pi 第10次 第 2 页 内 蒙 古 科 技 大 学 教 案（续页） 例6 猴子吃桃子。小猴子有若干桃子，第一天吃掉一半多一个，第二天吃掉剩下的一半多一个，……，如此，到第七天早上要吃时，只剩下一个桃子，问猴子一开始共有多少桃子？。 设第n天桃子数为xn，前一天的桃子数：xn－1，则有 xn=xn-1－((xn-1)/2+1)，即：xn-1=(xn＋1)*2 ； 已知第七天只剩下1只桃子，则可依据上式倒推到第六天剩下的桃子，以及第五天剩下的桃子，直至第一天的桃子。 Dim n as integer, i as integer x = 1 FontSize = 12 Print Tab(10); 第7天桃子数:; x Print For i = 6 To 1 Step -1 x = (x + 1) * 2 Print Tab(10); 第 I 天桃子数 x 只 Print Next 课堂教学小结： 第 10 次 第3页