枚举算法之算法实现专业知识讲座

解题过程解题过程分两步：逐一列举可能的解的范围。这个过程用循环结构实现。对每一个列举可能的解进行检验，判断是否为真正的解。这个过程用分支结构实现。枚举算法=循环结构+分支结构，循环结构内嵌套选择结构结构流程图开始结束输入输出循环结构分支结构作用：逐一列举可能解的范围作用：逐一检验可能解的是否是真解代码填空DimchickenAsIntegerDimfootAs()

Forchicken=1to()foot=()If()()Print"鸡:"+Str()EndIfNextchickenintegerChicken*2+(79-chicken)*479Foot=200thenchickenPrivateSubForm_Click()DimrabbitAsIntegerDimchickenAsIntegerDimfootAsIntegerForchicken=1To79foot=chicken*2+(79-chicken)*4Iffoot=200ThenPrint"鸡:"+Str(chicken)rabbit=79-chickenPrint"兔:"+Str(rabbit)EndIfNextchickenEndSub例:一份单据被涂抹的数字的推算。问题：一张单据上有一个5位数的编号，其百位数和十位数处已经变得模糊不清，如图所示。但是知道这个5位数是37或67的倍数。现在要设计一个算法，找出所有满足这些条件的5位数。并统计这些5位数的个数。要求：分别有DO循环和FOR循环各写出一段代码。任务000102039899000102039899……让变量J依次取0到99这100个不同的值,同时对于J的每个确定的值乘以10加上25006这样就能形成一个可能解.0J乘以1000加上25006250061102501622025026……98980259869999025996J验证条件:NMOD37=0

OR

NMOD67=0for循环PrivateSubCommand1_Click()DimjAsInteger'定义一个中间被涂抹的两位数变量DimnAsInteger'定义被求的结果5位数变量DimcAsInteger'定义被求的符合要求的五位数个数变量c=0List1.ClearForj=0To99n=25006+j*10IfnMod37=0OrnMod67=0ThenList1.AddItemStr(n)c=c+1EndIfNextjList1.AddItem"总计有"+Str(c)+"个五位数"EndSubDo循环PrivateSubCommand1_Click()DimjAsInteger'定义一个中间被涂抹的两位数变量DimnAsInteger'定义被求的结果5位数变量DimcAsInteger'定义被求的符合要求的五位数个数变量c=0List1.ClearDoWhilej<=99n=25006+j*10IfnMod37=0OrnMod67=0ThenList1.AddItemStr(n)c=c+1EndIfj=j+1LoopList1.AddItem"总计有"+Str(c)+"个五位数"EndSub2、在联欢会上，小明提出玩数7的游戏：游戏规则：从1开始数起，每个人数一个数，凡是遇到7的倍数，就要喊“过”，这样一直数到100为止。要求：用枚举算法帮小明找出1到100之间所有7的倍数。结果显示在窗体上。PrivateSubForm_Click()DimiAsIntegeri=1Fori=1To100IfiMod7=0ThenPrintiEndIfNextiEndSubfor循环PrivateSubForm_Click()Dimi