32枚举算法及程序实现课件1

1．枚举算法的基本思想枚举，就是将问题的可能解一个个地列举，逐一判断，即使中途找到符合的解也要继续找下去，将所有可能都找完才结束。枚举算法又叫穷举算法，其基本思想是把问题所有的解一一地罗列出来，并对每一个可能解进行判断，以确定这个可能解是否是问题的真正解。若是，就采纳这个解，否则就抛弃它。3.2枚举算法及程序实现(1)1．枚举算法的基本思想3.2枚举算法及程序实现(1)2．枚举算法的实现要点①列举与检验过程既不重复也不遗漏；②尽可能地使可能解的罗列范围最小，以提高解决问题的效率；③用循环语句(For语句)在一定范围内列举所有可能的解；④用选择语句(If语句)判断和选择真正的解。3．枚举算法的一般格式For循环变量＝初始To终值Step步长

If检验表达式Then输出解或者计数器加1

EndIfNext循环变量2．枚举算法的实现要点本节的学习需掌握枚举算法的基本思想，掌握枚举算法的程序实现方法。考查方式为选择题与填空题。本节的学习需掌握枚举算法的基本思想，掌握枚举算法的程序实现方1．如果一个自然数恰好等于它的因子之和，这个数就称为“完全数”。例如，6就是一个“完全数”，因为6的因子为1、2、3，而6＝1＋2＋3。设计一个算法找出1000以内所有的“完全数”，那么求解这个问题主要用到的算法是 (

)A．递归算法B．排序算法C．解析算法D．枚举算法D1．如果一个自然数恰好等于它的因子之和，这个数就称为“完全数2．下列问题适合使用枚举算法解决的是 (

)A．计算本月需上交的电费B．计算全班男同学的平均身高C．查找100以内所有能被2和3整除的数D．200米短跑比赛成绩排名C2．下列问题适合使用枚举算法解决的是 ()C3．用50元钱兑换面值为1元、2元、5元的纸币共25张。每种纸币不少于1张，问有多少种兑换方案。求解这个问题，最适合的算法是 (

)A．排序算法B．递归算法C．枚举算法D．解析算法C3．用50元钱兑换面值为1元、2元、5元的纸币共25张。每种4．用枚举算法求解“找出所有满足各位数字之和等于7的三位数”时，在下列所列举的数值范围内，算法执行效率最高的是 (

)A．从0到999B．从100到999C．从100到700D．从106到700D4．用枚举算法求解“找出所有满足各位数字之和等于7的三位D5．以下VB表达式中，能实现判断某数能同时被3和5整除的是

(

)A．xMod3AndxMod5＝0B．xMod3＝0AndxMod5＝0C．xMod3<>0OrxMod5＝0D．xMod3＝0AndxMod5<>0D5．以下VB表达式中，能实现判断某数能同时被3和5整除的是在我国古代《孙子算经》中曾提出这样一个问题。原文是这样的：“今有物，不知其数，三三数之，剩二；五五数之三，剩三；七七数之；剩二；问物几何？”试用枚举法来分析此题，得出如下的算法：①设定寻找之数最大范围max②设定数n的初始值为7③判断条件n<＝max？，如果是，执行④，如果否，跳转到⑧④判断条件nMod3＝2AndnMod5＝3AndnMod7＝2是否成立⑤如果条件④成立，则输出n⑥n＝n＋1⑦跳转3⑧结束在我国古代《孙子算经》中曾提出这样一个问题。原文是这样的：“根据此算法画出流程图如下图所示：请将流程图中空缺部分补上：(1)边框①处应填入______________________________________________。(2)边框②处应填入_____________________。nMod3=2AndnMod5=3AndnMod7=2?n=n+1根据此算法画出流程图如下图所示：请将流程图中空缺部分补上：n(s\10)Mod10=6?使用枚举算法找出200以内所有十位数字为6的所有正整数，并统计正确解的个数。下图为解决该问题的流程图：

请将流程图中空缺的部分补充完整：(1)边框①处应填入_________________________。(2)边框②处应填入_________________________。s=s-1(s\10)Mod10=6?使用枚举算法找出200以内8．陈丽的支付宝支付密码忘记了，她急需在30分钟内完成货款的支付，请用VB编程帮她找回密码。她零星记得自己的支付密码信息：①密码是6位数字，前面两位为85；②最后两位数字相同；③能被13和33整除。程序界面如图所示，单击“帮助找回密码”按钮Command1后，可能的密码显示在列表框List1中。8．陈丽的支付宝支付密码忘记了，她急需在30分钟内完成货款的解决此问题的VB程序如下：PrivateSubCommand1_Click()DimaAsInteger,sAsLong,bAsInteger,iAsIntegerFori＝0To9999__________________

'①s＝850000＋IIfsMod33＝0Thena＝sMod10_____________________'②Ifa＝bThenList1.AddItemStr(s)EndIfEndIfNextiEndSub解决此问题的VB程序如下：(1)解决此问题的算法是_________________。在程序注释①和注释②的前面，填入适当的语句或表达式，把程序补充完整：(2)程序中注释①前画线处应填入________________________________。(3)程序中注释②前画线处应填入________________________________。注：该示例程序在素材文件夹下vb13文件夹中。枚举算法Step13b=(sMod100)\10(1)解决此问题的算法是_________________。小李设计一个求两数最大公约数的程序。程序运行如下图所示。在文本框Text1和文本框Text2中分别输入两个数，单击“计算”按钮Command1，在标签Label1中显示出结果。小李设计一个求两数最大公约数的程序。程序运行如下图所示。在文VB程序代码如下：PrivateSubCommand1_Click()DimmAsIntegerDimnAsIntegerDimrAsIntegerm＝Val(Text1.Text)n＝Val(Text2.Text)r＝①Label1.Caption＝“两数最大公约数为：”＋Str(r)EndSub

Functionfact(mAsInteger,nAsInteger)AsIntegerDimiAsInteger,maxAsIntegerIfm>nThenmax＝mElsemax＝nFori＝maxTo1Step－1VB程序代码如下：If②Thenmax＝iExitForEndIfNextifact＝maxEndFunction请在划线处填上合适的代码，补充完整程序的功能。(1)划线①处的代码应填入：_______________________。(2)划线②处的代码应填入：_______________________。注：该示例程序在素材文件夹下vb14文件夹中。mModi=0AndnModi=0fact(m,n)If②Then请在划线处填上合适的代“水仙花数”是指一个三位数，其各位数字的立方和等于该数本身。例如153＝13＋53＋33,153就一个“水仙花数”。下面VB程序用来找出“水仙花数”，单击“列举”按钮Command1，在列表框List1中显示所有的三位“水仙花数”。程序运行时界面如下：“水仙花数”是指一个三位数，其各位数字的立方和等于该数本身。程序代码如下：PrivateSubCommand1_Click()DimiAsInteger,aAsInteger,bAsInteger,cAsIntegerFori＝100To999a＝Val(Left(i,1))b＝Val(Mid(i,2,1))c＝Val(Right(i,1))If________________________ThenList1.AddItemiNextEndSub①该程序采用的算法是______________________________。②程序划线处表达式为______________________________。注：该示例程序在素材文件夹下vb15文件夹中。枚举算法i=a^3+b^3+c^3程序代码如下：枚举算法i=a^3+b^3+c^3一张发票上有一个5位数的编码(17**6)，其中有十位数和百位数已模糊不清，但是知道这个数是36的倍数，下面程序实现在列表框List1中输出所有符合条件的数，并在标签Label1中输出这些５位数的个数。请将下面划线处的代码填写完整。一张发票上有一个5位数的编码(17**6)，其中有十位数和百Privatesubcommand1_Click()DimiAsInteger,nAsInteger,cAsIntegerc＝0Fori＝0To99

n＝①

If②Thenc＝c＋1List1.AddItemStr(n)

EndIfNextiLabel1.Caption＝“一共列举出”＋Str(c)＋“个可能的编码”EndSubPrivatesubcommand1_Click()阅读代码，程序请将程序划线处的语句或表达式填充完整。(1)划线①处的代码应填入：__________________________。(2)划线②处的代码应填入：__________________________。注：该示例程序在素材文件夹下vb16件夹中。nMod36=0(1700+i)*10+6阅读代码，程序请将程序划线处的语句或表达式填充完整。nMo12.某木材加工厂需要把购入的木料切割成长度为3米和7米两种规格的线材。现要求编写VB程序(运行界面如下图所示)，实现如下功能：在文本框Text1中输入木材长度，单击“计算”按钮Command1，计算出一种废料长度最小的切割方案，在文本框Text2和文本框Text3中分别输出该切割方案所得3米和7米两种规格线材的数量。按此要求编写的程序如下：12.某木材加工厂需要把购入的木料切割成长度为3米和7米两PrivateSubCommand1_Click()DimlengthAsSingle

'木料长度DimminAsSingle

'最小废料长度DimxAsInteger

'3米规格线材数量DimyAsInteger

'7米规格线材数量DimfAsSingle

'废料长度DimaAsInteger

'废料最少的切割方案所得3米规格线材数量DimbAsInteger

'废料最少的切割方案所得7米规格绒材数量length＝Val(Text1.Text)min＝lengthForx＝0Tolength\3y=(length-3*x）\7

'(1)Iff<minThenmin＝ff=3*x+7yPrivateSubCommand1_Click()fa＝x

'(2)EndIfNextxText2.Text＝Str(a)Text3.Text＝Str(b)EndSuby=b程序加框处代码有错，请改正。(1)加框①处代码应改为___________________________。(2)加框②处代码应改为___________________________。f=length-3*x-7*yb=ya＝xy=b程序加框处代码有错，请改正。f1．枚举算法的基本思想枚举，就是将问题的可能解一个个地列举，逐一判断，即使中途找到符合的解也要继续找下去，将所有可能都找完才结束。枚举算法又叫穷举算法，其基本思想是把问题所有的解一一地罗列出来，并对每一个可能解进行判断，以确定这个可能解是否是问题的真正解。若是，就采纳这个解，否则就抛弃它。3.2枚举算法及程序实现(1)1．枚举算法的基本思想3.2枚举算法及程序实现(1)2．枚举算法的实现要点①列举与检验过程既不重复也不遗漏；②尽可能地使可能解的罗列范围最小，以提高解决问题的效率；③用循环语句(For语句)在一定范围内列举所有可能的解；④用选择语句(If语句)判断和选择真正的解。3．枚举算法的一般格式For循环变量＝初始To终值Step步长

If检验表达式Then输出解或者计数器加1

EndIfNext循环变量2．枚举算法的实现要点本节的学习需掌握枚举算法的基本思想，掌握枚举算法的程序实现方法。考查方式为选择题与填空题。本节的学习需掌握枚举算法的基本思想，掌握枚举算法的程序实现方1．如果一个自然数恰好等于它的因子之和，这个数就称为“完全数”。例如，6就是一个“完全数”，因为6的因子为1、2、3，而6＝1＋2＋3。设计一个算法找出1000以内所有的“完全数”，那么求解这个问题主要用到的算法是 (

)A．递归算法B．排序算法C．解析算法D．枚举算法D1．如果一个自然数恰好等于它的因子之和，这个数就称为“完全数2．下列问题适合使用枚举算法解决的是 (

)A．计算本月需上交的电费B．计算全班男同学的平均身高C．查找100以内所有能被2和3整除的数D．200米短跑比赛成绩排名C2．下列问题适合使用枚举算法解决的是 ()C3．用50元钱兑换面值为1元、2元、5元的纸币共25张。每种纸币不少于1张，问有多少种兑换方案。求解这个问题，最适合的算法是 (

)A．排序算法B．递归算法C．枚举算法D．解析算法C3．用50元钱兑换面值为1元、2元、5元的纸币共25张。每种4．用枚举算法求解“找出所有满足各位数字之和等于7的三位数”时，在下列所列举的数值范围内，算法执行效率最高的是 (

)A．从0到999B．从100到999C．从100到700D．从106到700D4．用枚举算法求解“找出所有满足各位数字之和等于7的三位D5．以下VB表达式中，能实现判断某数能同时被3和5整除的是

(

)A．xMod3AndxMod5＝0B．xMod3＝0AndxMod5＝0C．xMod3<>0OrxMod5＝0D．xMod3＝0AndxMod5<>0D5．以下VB表达式中，能实现判断某数能同时被3和5整除的是在我国古代《孙子算经》中曾提出这样一个问题。原文是这样的：“今有物，不知其数，三三数之，剩二；五五数之三，剩三；七七数之；剩二；问物几何？”试用枚举法来分析此题，得出如下的算法：①设定寻找之数最大范围max②设定数n的初始值为7③判断条件n<＝max？，如果是，执行④，如果否，跳转到⑧④判断条件nMod3＝2AndnMod5＝3AndnMod7＝2是否成立⑤如果条件④成立，则输出n⑥n＝n＋1⑦跳转3⑧结束在我国古代《孙子算经》中曾提出这样一个问题。原文是这样的：“根据此算法画出流程图如下图所示：请将流程图中空缺部分补上：(1)边框①处应填入______________________________________________。(2)边框②处应填入_____________________。nMod3=2AndnMod5=3AndnMod7=2?n=n+1根据此算法画出流程图如下图所示：请将流程图中空缺部分补上：n(s\10)Mod10=6?使用枚举算法找出200以内所有十位数字为6的所有正整数，并统计正确解的个数。下图为解决该问题的流程图：

请将流程图中空缺的部分补充完整：(1)边框①处应填入_________________________。(2)边框②处应填入_________________________。s=s-1(s\10)Mod10=6?使用枚举算法找出200以内8．陈丽的支付宝支付密码忘记了，她急需在30分钟内完成货款的支付，请用VB编程帮她找回密码。她零星记得自己的支付密码信息：①密码是6位数字，前面两位为85；②最后两位数字相同；③能被13和33整除。程序界面如图所示，单击“帮助找回密码”按钮Command1后，可能的密码显示在列表框List1中。8．陈丽的支付宝支付密码忘记了，她急需在30分钟内完成货款的解决此问题的VB程序如下：PrivateSubCommand1_Click()DimaAsInteger,sAsLong,bAsInteger,iAsIntegerFori＝0To9999__________________

'①s＝850000＋IIfsMod33＝0Thena＝sMod10_____________________'②Ifa＝bThenList1.AddItemStr(s)EndIfEndIfNextiEndSub解决此问题的VB程序如下：(1)解决此问题的算法是_________________。在程序注释①和注释②的前面，填入适当的语句或表达式，把程序补充完整：(2)程序中注释①前画线处应填入________________________________。(3)程序中注释②前画线处应填入________________________________。注：该示例程序在素材文件夹下vb13文件夹中。枚举算法Step13b=(sMod100)\10(1)解决此问题的算法是_________________。小李设计一个求两数最大公约数的程序。程序运行如下图所示。在文本框Text1和文本框Text2中分别输入两个数，单击“计算”按钮Command1，在标签Label1中显示出结果。小李设计一个求两数最大公约数的程序。程序运行如下图所示。在文VB程序代码如下：PrivateSubCommand1_Click()DimmAsIntegerDimnAsIntegerDimrAsIntegerm＝Val(Text1.Text)n＝Val(Text2.Text)r＝①Label1.Caption＝“两数最大公约数为：”＋Str(r)EndSub

Functionfact(mAsInteger,nAsInteger)AsIntegerDimiAsInteger,maxAsIntegerIfm>nThenmax＝mElsemax＝nFori＝maxTo1Step－1VB程序代码如下：If②Thenmax＝iExitForEndIfNextifact＝maxEndFunction请在划线处填上合适的代码，补充完整程序的功能。(1)划线①处的代码应填入：_______________________。(2)划线②处的代码应填入：_______________________。注：该示例程序在素材文件夹下vb14文件夹中。mModi=0AndnModi=0fact(m,n)If②Then请在划线处填上合适的代“水仙花数”是指一个三位数，其各位数字的立方和等于该数本身。例如153＝13＋53＋33,153就一个“水仙花数”。下面VB程序用来找出“水仙花数”，单击“列举”按钮Command1，在列表框List1中显示所有的三位“水仙花数”。程序运行时界面如下：“水仙花数”是指一个三位数，其各位数字的立方和等于该数本身。程序代码如下：PrivateSubCommand1_Click()DimiAsInteger,aAsInteger,bAsInteger,cAsIntegerFori＝100To999a＝Val(Left(i,1))b＝Val(Mid(i,2,1))c＝Val(Right(i,1))If________________________ThenList1.AddItemiNextEndSub①该程序采用的算法是______________________________。②程序划线处表达式为______________________________。注：该示例程序在素材文件夹下vb15文件夹中。枚举算法i=a^3+b^3+c^3程序代码如下：枚举算法i=a^3+b^3+c^3一张发票上有一个5位数的编码(17**6)，其中有十位数和百位数已模糊不清，但是知道这个数是36的倍数，下面程序实现在列表框List1中输出所有符合条件的数，并在标签Label1中输出这些５位数的个数。请将下面划线处的代码填写完整。一张发票上有一个5位数的编码(17**6)，其中有十位数和百Privatesubcommand1_Click()DimiAsInteger,nAsInteger,cAsIntegerc＝0Fori＝0To99

n＝①

If②Thenc＝c＋1List1.AddItemStr(n)

EndIfNextiLabel1.Caption＝“一共列举出”＋Str(c)＋“个可能