For循环应用(公开课)ding课件

For…Next循环应用2012-11-22P1For…Next循环应用2012-11-22P1主讲教师：刘芳2012-11-22P2主讲教师：刘芳2012-11-22P2

相传我国南北朝时，京城有个卖鸡的张姓老汉，他有一个儿子非常聪明，尤其擅长算术，到十二三岁时已是远近闻名的“小神童”了。当朝宰相听说后想试探个究竟，于是派仆人到张老汉的店里打听鸡的价钱，张老汉告知“公鸡五文钱一只，母鸡三文钱一只，小鸡一文钱三只”。于是，仆人给他一百文钱，要求公鸡、母鸡、小鸡都要，数量不多不少正好一百只，命他次日送到府上。这可难为了张老汉，他怎么凑也凑不够这个数，只好问儿子。“小神童”不慌不忙，掐指一算就给出了答案，第二天照数送到宰相府。宰相见难不倒“小神童”，又让仆人给张老汉一百文钱，要求再买一百只鸡，搭配方法不能和上次一样。结果“小神童”又很快给出了答案，宰相暗暗称奇，想最后再试一次，谁知还是没有难倒“小神童”。这个故事就是我国古代数学名著《张邱建算经》里的百鸡百钱问题。编写程序，求出结果。任务12012-11-223相传我国南北朝时，京城有个卖鸡的张姓老汉，他有一个儿子非若公鸡x只，母鸡y只，小鸡z只，依题意可以列出以下方程组：实现任务1（1）分析：①②2012-11-224若公鸡x只，母鸡y只，小鸡z只，实现任务1（1）分析2个方程3个未知数不定方程组所谓不定方程，是指未知数的个数多于方程个数，且未知数受到某些限制（如要求是有理数、整数或正整数等等）的方程或方程组。

穷举法（试凑法）2012-11-2252个方程不定方程组所谓不定方程，是指未知数的个数多于穷举法是将各种可能的组合全部一一测试，将符合条件的组合输出。2012-11-226穷举法是将各种可能的组合全部一一测试，将符合条件的组①②将②*3得到15x+9y+z=300④由①得到z=100-x-y

③将③代入④得到15x+9y+100-x-y=300整理后得到：7x+4y=100

⑤2012-11-227①②将②*3得到15x+9y+z=300④由①得到z=“百钱买百鸡”问题最终归结为求7x+4y=100⑤的非负整数解。由⑤得x的范围：x∈[0,14]且x∈Z由⑤得y=(100-7x)/4For循环实现重要结论Int函数Int(y)=y2012-11-228“百钱买百鸡”问题最终归结为求7x+4y=107x+4y=100xy100-x-y025754187881181124847x+4y=100的所有整数解2012-11-2297x+4y=100xy100-x-y025754187881（2）建立用户界面，设置对象属性。2012-11-2210（2）建立用户界面，设置对象属性。2012-11-2210PrivateSubCommand1_Click()DimpAsString‘记录组合List1.ClearForx=0To14y=(100-7*x)/4IfInt(y)=yThenp=Format(x,"@@@@")&Format(y,"@@@@@")&_Format(100-x-y,"@@@@@")

List1.AddItempEndIfNextxEndSub（3）编写程序代码。2012-11-2211PrivateSubCommand1_Click()（3

马克思曾经做过这样一道趣味数学题：有30个人在一家小饭馆里用餐，其中有男人、女人和小孩。每个男人花了3先令，每个女人花了2先令，每个小孩花了1先令，一共花去50先令。问男人、女人和小孩各有几人？课堂练习2012-11-2212马克思曾经做过这样一道趣味数学题：有30个解题过程：假设男人x，女人y，小孩z，列方程组x+y+z=30①3x+2y+z=50②消元整理最后得2x+y=20并且y=20-2xx范围：x∈[0,10]y范围：y∈[0,20]2012-11-2213解题过程：消元整理最后得2x+y=20x范围：x∈[0,10PrivateSubCommand1_Click()Print“男人”,“女人”,“小孩"

Forx=0To10y=20-2*xIfInt(y)=y

ThenPrintx,y,30-x-yEndIf

Nextx

EndSub参考代码：2012-11-2214PrivateSubCommand1_Click()参考2012-11-22152012-11-2215课堂练习

12月13日凌晨3：13，丹姆斯顿大街上的卡尔一家发生了命案，卡尔先生一家人无一幸免。警局接到报案后立即派人赶往现场，经过现场勘察、取样，确定为有人蓄意谋杀……经过多方取证，最后嫌疑犯锁定在卡尔先生的四名同事身上，经审讯得来的口供，警方确定四人中有一名嫌疑犯在说谎，而说谎的这个人就是杀害卡尔一家的凶手。四名嫌疑人（用甲、乙、丙、丁表示）的口供如下，请你判断找出，谁在说谎？

警官问：“12月13日下午3：00至4：00谁离开过办公室？”甲说：“不是我”，乙说：“是丙”，丙说：“是丁”，丁说：“不是我”。

小组讨论，说出到底谁在说谎。并说明你是怎么判断的。

2012-11-2216课堂练习2012-11-2216穷举法（试凑法），是将各种可能的组合全部一一测试，将符合条件的组合输出。课堂小结2、利用穷举法解决典型例题——百钱买百鸡。步骤：①据题意列出不定方程组。②消元，一般消掉z。③代入整理得到Ax+By=C。④变形得到y=(C-Ax)/B，利用Int函数判断是否整数。⑤分析x取值范围，利用For循环编写程序。1、概念3、下拉列表框的属性方法和事件List1.ClearList1.AddITem字符串表达式

[,位置]List1.RemoveItem位置P1082012-11-2217穷举法（试凑法），是将各种可能的组合全部一一测试，将符合条思考：我们使用银行卡在柜员机上取钱时，系统要限制输入密码的次数，为什么？2012-11-2218思考：我们使用银行卡在柜员机上取钱时，系统要限制输入密1、所谓“水仙花数”，是指一个三位数，其各位数的立方和等于该数，如153=1^3+5^3+3^3，编写程序输出所有的“水仙花数”。课后探究解题关键：三位数的个位数、十位数、百位数的表示。2012-11-22191、所谓“水仙花数”，是指一个三位数，其各位数的立方2、有一个长长的楼梯，如果一次上两阶，最后剩一阶；如果一次上3阶，最后剩两阶；如果一次上5阶，最后剩4阶；如果一次上6阶，最后剩5阶；如果一次上7阶，刚好上完。请编写程序，计算该阶楼梯至少有多少台阶？2012-11-22202、有一个长长的楼梯，如果一次上两阶，最后剩一阶；如共同学习，不断进步！谢谢！2012-11-2221共同学习，不断进步！谢谢！2012-11-2221For…Next循环应用2012-11-22P22For…Next循环应用2012-11-22P1主讲教师：刘芳2012-11-22P23主讲教师：刘芳2012-11-22P2

相传我国南北朝时，京城有个卖鸡的张姓老汉，他有一个儿子非常聪明，尤其擅长算术，到十二三岁时已是远近闻名的“小神童”了。当朝宰相听说后想试探个究竟，于是派仆人到张老汉的店里打听鸡的价钱，张老汉告知“公鸡五文钱一只，母鸡三文钱一只，小鸡一文钱三只”。于是，仆人给他一百文钱，要求公鸡、母鸡、小鸡都要，数量不多不少正好一百只，命他次日送到府上。这可难为了张老汉，他怎么凑也凑不够这个数，只好问儿子。“小神童”不慌不忙，掐指一算就给出了答案，第二天照数送到宰相府。宰相见难不倒“小神童”，又让仆人给张老汉一百文钱，要求再买一百只鸡，搭配方法不能和上次一样。结果“小神童”又很快给出了答案，宰相暗暗称奇，想最后再试一次，谁知还是没有难倒“小神童”。这个故事就是我国古代数学名著《张邱建算经》里的百鸡百钱问题。编写程序，求出结果。任务12012-11-2224相传我国南北朝时，京城有个卖鸡的张姓老汉，他有一个儿子非若公鸡x只，母鸡y只，小鸡z只，依题意可以列出以下方程组：实现任务1（1）分析：①②2012-11-2225若公鸡x只，母鸡y只，小鸡z只，实现任务1（1）分析2个方程3个未知数不定方程组所谓不定方程，是指未知数的个数多于方程个数，且未知数受到某些限制（如要求是有理数、整数或正整数等等）的方程或方程组。

穷举法（试凑法）2012-11-22262个方程不定方程组所谓不定方程，是指未知数的个数多于穷举法是将各种可能的组合全部一一测试，将符合条件的组合输出。2012-11-2227穷举法是将各种可能的组合全部一一测试，将符合条件的组①②将②*3得到15x+9y+z=300④由①得到z=100-x-y

③将③代入④得到15x+9y+100-x-y=300整理后得到：7x+4y=100

⑤2012-11-2228①②将②*3得到15x+9y+z=300④由①得到z=“百钱买百鸡”问题最终归结为求7x+4y=100⑤的非负整数解。由⑤得x的范围：x∈[0,14]且x∈Z由⑤得y=(100-7x)/4For循环实现重要结论Int函数Int(y)=y2012-11-2229“百钱买百鸡”问题最终归结为求7x+4y=107x+4y=100xy100-x-y025754187881181124847x+4y=100的所有整数解2012-11-22307x+4y=100xy100-x-y025754187881（2）建立用户界面，设置对象属性。2012-11-2231（2）建立用户界面，设置对象属性。2012-11-2210PrivateSubCommand1_Click()DimpAsString‘记录组合List1.ClearForx=0To14y=(100-7*x)/4IfInt(y)=yThenp=Format(x,"@@@@")&Format(y,"@@@@@")&_Format(100-x-y,"@@@@@")

List1.AddItempEndIfNextxEndSub（3）编写程序代码。2012-11-2232PrivateSubCommand1_Click()（3

马克思曾经做过这样一道趣味数学题：有30个人在一家小饭馆里用餐，其中有男人、女人和小孩。每个男人花了3先令，每个女人花了2先令，每个小孩花了1先令，一共花去50先令。问男人、女人和小孩各有几人？课堂练习2012-11-2233马克思曾经做过这样一道趣味数学题：有30个解题过程：假设男人x，女人y，小孩z，列方程组x+y+z=30①3x+2y+z=50②消元整理最后得2x+y=20并且y=20-2xx范围：x∈[0,10]y范围：y∈[0,20]2012-11-2234解题过程：消元整理最后得2x+y=20x范围：x∈[0,10PrivateSubCommand1_Click()Print“男人”,“女人”,“小孩"

Forx=0To10y=20-2*xIfInt(y)=y

ThenPrintx,y,30-x-yEndIf

Nextx

EndSub参考代码：2012-11-2235PrivateSubCommand1_Click()参考2012-11-22362012-11-2215课堂练习

12月13日凌晨3：13，丹姆斯顿大街上的卡尔一家发生了命案，卡尔先生一家人无一幸免。警局接到报案后立即派人赶往现场，经过现场勘察、取样，确定为有人蓄意谋杀……经过多方取证，最后嫌疑犯锁定在卡尔先生的四名同事身上，经审讯得来的口供，警方确定四人中有一名嫌疑犯在说谎，而说谎的这个人就是杀害卡尔一家的凶手。四名嫌疑人（用甲、乙、丙、丁表示）的口供如下，请你判断找出，谁在说谎？

警官问：“12月13日下午3：00至4：00谁离开过办公室？”甲说：“不是我”，乙说：“是丙”，丙说：“是丁”，丁说：“不是我”。

小组讨论，说出到底谁在说谎。并说明你是怎么判断的。

2012-11-2237课堂练习2012-11-2216穷举法（试凑法），是将各种可能的组合全部一一测试，将符合条件的组合输出。课堂小结2、利用穷举法解决典型例题——