VB第11课时：解析算法、枚举算法

例0：Fori=1to12Ifimod3=0ThenS=S+iNexti则语句S=S+i执行次数是（）A、1B、3C、4D、13分析：i=3、6、9、12Ifimod3=0ThenS=S+IC编辑pptVisualBasic算法实例之枚举算法、解析算法第11课时学习重点：

1、能说出枚举算法、解析算法的概念

2、能根据语句代码识别、运用两种算法编辑ppt1、枚举算法的概念“枚举”字义：枚，一个一个也，举者，列举，枚举就是一个一个列举。枚举算法：把问题中所产生的可能的情况（解）都考虑到，一一地全部列举出来，特点：优点，只要时间足够，正确的枚举能得出正确和全面的解。算法简单，基础。缺点，效率差。并在逐一列举的过程中，检验对每个可能解进行判断（排查），

保留符合要求的结果，去掉不符合的运算过程。在列举过程中，既不能遗漏也不应重复。编辑ppt例1：找出1—1000中所有能被3整除的数，并列出来。Fori=1to1000添加内容格式：List1.Additem

内容NextiIfimod3=0ThenList1.AdditemiEndifListBox:列表框List1:对象名学习新的一个VB控件类：※

List1的特殊的使用方法名语句：

List1.方法名（Additem：添加内容；Clear：清空）①List1.Additem“你好“：列表框里添加“你好“内容②假如定义变量s是整数型，最后s的结果显示在列表框List1里的语句：List1.Additemstr(s)③

将列表框里的内容清空语句：List1.Clear或s（软件中默认转化成字符类型）编辑ppt1、枚举算法的概念IfyMod37=0OryMod67=0Then例2：有一张支票，上面的数额是5位数，其百位数和十位数处已经变得模糊不清，如下图；但是知道这个5位数是37或67的倍数。现在要设计一个算法，找出所有满足这些条件的5位数，并统计这些5位数的个数。思路分析:

这个5位数的百位和十位这两个位置上，可能是00、01、02、…..99,这100个不同的数，从而产生全部可能解：25006、25016…259916先设变量:

如果用循环模式变量x的取值范围00~99,这100个不同的数Forx=0To99设这模糊的两位数为变量x,整个5位数为yy=25006+x*10List1.AddItemStr(y)EndIfNextj编辑ppt2、枚举算法的步骤：确定范围①先用循环结构（For语句）确定可能范围并一一枚举出来。因此，枚举算法语句识别规律：一般总有循环结构，且里面嵌有If语句，但反过来不一定是枚举算法。一一枚举逐个检验得到真解Fori=1to1000

Ifimod3=0ThenList.AdditemIEndifNextiForx=0To99y=25006+j*10

IfyMod37=0OryMod67=0ThenList1.AddItemStr(y)EndIfNext②再用If语句写出符合条件的解（检验筛选正确的解）编辑ppt3、解析算法的概念含义：用数学公式描述客观事物间的数量关系；例3：计算以速度V作为匀速直线运动的一个物体，求在t秒内经过的距离S。则可通过公式S=vt得到。例4：求1+2+3+…+n的和，S=（1+n）*n/2进一步解释：用解析的方法找出表示问题的条件与所求结果之间关系的数学表达式，并通过表达式的计算来实现问题求解。编辑ppt例5：已知三角形的三边，求三角形的面积：在Text1,Text2,Text3分别输入相应的数，表示三角形的三边a,b,c（注三边能构成三角形）则半周长p=(a+b+c)/2，计算三角形面积公式为s=sqr(p*(p-a)*(p-b)*(p-c))，单击命令按钮Command1“计算”，在文本框Text4中显示面积S的值。解析算法编辑ppt例6：面额为10元、20元和50元的纸币各有10张，求总额恰好为380元取法方案的算法?

设10元取a张、20元取b张、50元取c张，a,b,c,都取到0到10之间的整数，将a,b,c取值的所有可能组合逐一代入表达式：10a+20b+50c=380，判断是否成立，则输出这一方案。此算法属于（）枚举算法？解析算法？编辑ppt实战练习16：韩信点兵：

4个人一队剩3个，7个人一队正好不剩，21个人一队剩7个，问韩信有多少兵？（假如人数在100以内,只有一个数符合）窗体如下图：单击command1“点兵”，在文本框Text1中显示人数。（假如人数在1000以内，答案是多个，需列表框）编辑ppt实战练习17：

已知三角形的三边，求三角形的面积：在Text1,Text2,Text3分别输入相应的数，表示三角形的三边a,b,c

（注：三边能构成三角形）则半周长p=(a+b+c)/2，计算三角形面积公式为s=sqr(p*(p-a)*(p-b)*(p-c))，单击命令按钮Command1“计算”，在标签Label4中显示面积S的值。界面（如下图）编辑ppt例题分析：已知菲波那契数列的通公式为a(n+2)=a(n)+a(n+1)，用数组求菲波那契数列前20项程序段如下，请在画线处填入正确的