信息技术（选修一）40750.pptx

《信息技术（选修一）40750.pptx》由会员分享，可在线阅读，更多相关《信息技术（选修一）40750.pptx（116页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、信息技术（选修一）信息技术（选修一）算法与程序设计算法与程序设计指导教师：刘玉军指导教师：刘玉军佛山市顺德区伦教中学佛山市顺德区伦教中学开心开心 快乐快乐 学习学习信息技术（选修一）信息技术（选修一）指导教师：刘玉军指导教师：刘玉军准备o一、学生按座位自由分组、小组编号、推荐小组长；o二、选课，实名注册o三、熟悉天空教室网络平台第一课计算机如何解决问题国际象棋国际象棋“人机大战人机大战”落幕落幕世界冠军惜败世界冠军惜败“深奥的德国深奥的德国人人”中国象棋人机大战中国象棋人机大战计算机微弱优势取胜计算机微弱优势取胜古典问题韩信点兵 韩信是我国西汉初著名的军事韩信是我国西汉初著名的军事家，刘邦得天

2、下，军事上全依靠家，刘邦得天下，军事上全依靠他。韩信点兵，多多益善，不仅他。韩信点兵，多多益善，不仅如此，还能经常以少胜多，以弱如此，还能经常以少胜多，以弱胜强。在与楚军决战时韩信指挥胜强。在与楚军决战时韩信指挥诸侯联军，在垓诸侯联军，在垓gi下十面埋伏，下十面埋伏，击败楚军，楚霸王项羽因此自杀。击败楚军，楚霸王项羽因此自杀。韩信点兵问题：相传汉高祖刘邦问大将军韩信统御士兵多少，韩信答说，每韩信点兵问题：相传汉高祖刘邦问大将军韩信统御士兵多少，韩信答说，每3人人一列余一列余1人、人、5人一列余人一列余2人、人、7人一列余人一列余4人、人、13人一列余人一列余6人人刘邦听后茫刘邦听后茫然而不知其

3、数。你能说出有多少士兵吗？然而不知其数。你能说出有多少士兵吗？韩信点兵问题一求整除3余1、整除5余2、整除7余4的最小自然数。分析问题设所求的数为X，则x应满足：x整除3余1、x整除5余2、x整除7余4。解题步骤（思路）1、令X为12、如果X整除3余1，X整除5余2，X整除7余4，这就是题目要求的数，则记下这个X3、令X为X+14、如果算出，则结束，否则跳转25、写出答案韩信点兵问题二o求整除3余1、整除5余2、整除7余4、整除13余6、整除17余8的最小自然数。编写程序：VB语言参考代码X=1Y=0Doifxmod3=1andxmod5=2andxmod7=4andxmod13=6andxm

4、od17=8theny=xX=x+1Loopuntily0Printy计算机解决问题的步骤o1、分析问题o2、设计算法o3、编写程序o4、调试程序交流求解决问题的方式 相同点不同点人工求解用计算机求解速度慢,易出错.都需要分析问题,设计算法.速度快,需编写程序和调试程序实践o1、模仿学过的用计算机程序解决问题的方法，设计一个算法，尝试求解鸡兔同笼问题：今有鸡兔同笼，上有三十五头，下有九十四足，问鸡兔各几何？实践2.设计一个算法,求两个数中的最大数算法和算法的描述欧几里得:求两个整数的最大公约数的过程辗转相除法，其具体过程如下：设给定的两个正整数为m和n,求它们的最大公约数的步骤为：、以m除以n

5、,令所得的余数为r.、若r=0，则输出结果n,算法结束；否则继续步骤（）。、令m=n,n=r,并返回步骤（）继续进行。实践设给定的两个正整数m=112和n=64，利用辗转相除法，求它们的最大公约数。（）除以，余数为（）除以余数为（）除以余数为答和的最大公约数思考：和的最小公倍数算法算法 algorithm:lgrim概念o通俗地说，算法就是用计算机求解某一问题的方法，是能被机械地执行的动作或指令的有穷集合。算法算法 algorithm:lgrim特征1、输入2、确定性3、有穷性4、输出5、能行性三、算法三、算法 algorithm:lgrim的描述o表示算法的语言主要有自然语言、流程图、伪代码

6、等。例1-2：鸡兔同笼问题。35个头，94只脚，鸡和兔各有多少只？画出流程图。开始输入a和b的值求x=2a-b/2求y=b/2-a输入x,y的值结束例例1-2的算法流程图的算法流程图探究1.求两个大整数的最大公约问题.(9147485和5147480)2.设计一个算法,求出100以内能被3整除的所有正整数计算机解决问题的过程例2：从键盘输入三角形的三边长a、b、c，如果能构成一个三角形，则输出其面积，否则输出“不能构成一个三角形！”的提示信息。提示：计算机三角形面积的公式为：其中p=(a+b+c)/2递归算法一天,小猴子从树上摘下若干个桃子,当即吃了一半,觉得好吃,又吃了一个.第二天小猴子接着

7、吃剩下的一半,再多吃一个.以后每天都是吃前一天剩下的一半,再多吃一个.到第四天,只剩下一个桃子.试设计一下算法流程图.求小猴子第一天摘下多少个桃子.算法描述：算法描述：function你有多少桃子？（第几天）如果如果我第10天，那么我就有一个桃子。否则否则，我的桃子数=（前一天的桃子数+1）*2end function参考代码Function tao(ByVal days As Integer)As IntegerIf days=10 Thentao=1Elsetao=(tao(days+1)+1)*2End IfEnd Function循环算法Dimk,iAsIntegerk=1Fori=1

8、To4Printkk=(k+1)*2Nexti算法流程图P11图1-3伪代码Inputm,nR=mmodnDowhiler0thenm=nn=rr=mmodnLoopPrintn例1：从键盘输入圆的半径r,编程计算圆的面积。1、分析问题圆的半径为r,则圆的面积s=3.14*r22、设计算法根据题意，用顺序结构来完成。第一步输入圆的半径r；第二步求s=3.14*r*r的值第三步输出结果例1：从键盘输入圆的半径r,编程计算圆的面积。3、编写程序（visualBasic语言）DimrasdoubleDimsasdoubler=inputbox(“r=”)s=3.14*r*rPrint“s=“;s4、

9、调试程序程序编好后，通过键盘输入计算机，运行程序，并输出结果，直到没有错误为止。四、课堂练习：画流程图和编写代码例2：从键盘输入三角形的三边长a、b、c，如果能构成一个三角形，则输出其面积，否则输出“不能构成一个三角形！”的提示信息。提示：计算机三角形面积的公式为：其中p=(a+b+c)/2练习有三个装油的瓶子,大瓶子可装1L,中瓶子可装0.7L,小瓶自然语言算法1，把7升的倒满；2，从7升里把3升的倒满，再把这3升倒到10升里去；3，从7升里把3升的倒满，再把这3升倒到10升里去，这样7升的剩1升；4，把7升里的最后1升倒到3升的里去；5，从10升把7升的倒满，这样10升里剩2升；6，从7升

10、里把3升的倒满，再把这3升倒到10升里去，ok，结束。五、程序与程序设计语言o程序设计语言n机器语言n汇编语言n高级语言o程序n编辑程序n编译程序（解释程序）n连接程序第二课程序设计基础目标目标:学习如何使用学习如何使用VB语言来编写程序语言来编写程序知识要点回顾:o程序的基本结构:1.顺序结构2.选择结构3.循环结构n程序设计1.程序设计就是编写程序的过程.需要把计算机做的工作写成一种计算机能接受的程序.n算法1.算法就是求解某一问题的方法.课堂实践探究课堂实践探究o求”半径为r的圆的面积”的程序dimrassingledimsassingler=inputbox(“r”)s=3.14*r*

11、rprints2.1VB语言及程序开发环境1.基础数据类型2.常量与变量3.运算符、函数和表达式2.2程序的顺序结构1.赋值语句（=）2.输入数据的函数（inputbox）3.输出数据的方法(print)问题1o2-2：已知长方体的长、宽、高，编写一个程序，求长方体的全面积和体积。n分析问题n设计算法n编写程序n调试程序问题2o2-3：从键盘上输入一个三位整数，然后将它反向输出。例如输入456，输出应为654。n分析问题n设计算法n编写程序n调试程序代码参考X1=xmod10X2=x10mod10X3=x100Y=x1*100+x2*10+x3练习1：从键盘输入三角形的三边长a、b、c，计算机

12、三角形面积.提示：计算机三角形面积的公式为：p(p-a)(p-b)(p-c)的平方根,其中p=(a+b+c)/2练习1.甲乙进行百米赛跑，甲从开始到终点都以每秒2米，乙第一秒跑1米以后每秒都比前一秒多跑005米，编写程序求谁能获胜。练习1.古希腊有位大数学家Diophantus丢番图有一段有名的墓志铭：过路人，这里埋著Diophantus的骨灰，下面的数字，可以告诉你，他的一生有多长。他的生命的六分之一是愉快的童年；在过了他生命的十二分之一，他的面颊上长了细细的胡须，如此，又过了一生的七分之一，他结了婚。婚后五年，他获得了第一个孩子，感到很幸福。可是，命运给这孩子在这世界上光辉灿烂的生命，只有

13、他父亲的一半。自从儿子死了以后，他在深切的悲痛中活了四年，也结束了尘世的生涯。试问Diophantus活了多少年？练习1.试编写一个程序，求平面中两点之间的距离2.一列火车在某地时的速度为v0=40km/h,现以加速度m/s2加速度行驶，试编写一个程序，求2min后的速度V和距开始点的距离（v=v0+at,s=v0t+at2/2）2.3程序的选择结构（1）、条件语句的格式一：If 条件条件 then 语句语句1（2）、条件语句的格式二：If 条件条件 then 语句组语句组1End if（3）、条件语句的格式三If 条件条件 Then 语句组语句组1Else 语句组语句组2End If 条件成

14、立吗？语句组2语句组1是否练习从键盘输入三角形的三边长a、b、c，如果能构成一个三角形，则输出其面积，否则输出“不能构成一个三角形！”的提示信息。提示：计算机三角形面积的公式为：S=p(p-a)(p-b)(p-c)，p=(a+b+c)/2程序代码dim a as singledim b as singledim c as singledim p as singledim s as singlea=inputbox(a)b=inputbox(b)c=inputbox(c)p=(a+b+c)/2s=p*(p-a)*(p-b)*(p-c)if s0 then s=sqr(s)print s=;sel

15、se print 不能构成三角形不能构成三角形end if编写一程序，判断年份是否为闰年。公历闰年判定遵循的规律为公历闰年判定遵循的规律为:四年一闰四年一闰,百年不闰百年不闰,四百年再闰四百年再闰.公历闰年的简单计算方法（符合以下条件之一的年份即为闰年）公历闰年的简单计算方法（符合以下条件之一的年份即为闰年）1 能被能被4整除而不能被整除而不能被100整除。整除。2 能被能被400整除。整除。测试年份是否闰年2008年2100年2400年测验题一1、从键盘任意输入一个数，如果是正数，则、从键盘任意输入一个数，如果是正数，则输出该数的平方根输出该数的平方根;如果是负数，则输出该如果是负数，则输出

16、该数的立方根数的立方根;否则就输出零。否则就输出零。2、输入两个数、输入两个数a,b，输出较大数的立方值，输，输出较大数的立方值，输出较小数的平方值。出较小数的平方值。测验题二3、铁路托运行李规定：行李重不超过、铁路托运行李规定：行李重不超过50公斤的，托公斤的，托运费按每公斤运费按每公斤0.15元计费；如超过元计费；如超过50公斤，超过公斤，超过部分每公斤加收部分每公斤加收0.10元。编一程序完成自动计费元。编一程序完成自动计费工作。工作。4、某超市为了促销，规定：购物不足、某超市为了促销，规定：购物不足50元的按原价元的按原价付款，超过付款，超过50不足不足100的，超过部分按九折付款，的

17、，超过部分按九折付款，超过超过100元的，超过部分按八折付款。编一程序完元的，超过部分按八折付款。编一程序完成超市的自动计费的工作。成超市的自动计费的工作。练习题三5、输入、输入a,b,c三个不同的数，将它们按由小到三个不同的数，将它们按由小到大的顺序输出。大的顺序输出。6、当前小学生的成绩单由以前的百分制改为、当前小学生的成绩单由以前的百分制改为优秀、良好、合格、不合格四个等级的等级优秀、良好、合格、不合格四个等级的等级制。编一程序完成分数的自动转换工作。转制。编一程序完成分数的自动转换工作。转换规则如下：换规则如下：60分以下的为不合格；分以下的为不合格；60到到69分为合格；分为合格；7

18、0到到89分为良好；分为良好；90分以分以上包括上包括90分的为优秀。分的为优秀。2.3程序的选择结构o登录天空教室网络平台查看教程2.3n192.168.0.1/schooln公用帐号:student密码:student猜数字大小游戏o点击游戏地址,下载并运行简单解释“大”按钮事件部分代码部分代码一：部分代码一：If x 7 Then Flag=True Flag=True表示猜中表示猜中Else Flag=False Flag=False表示未猜中表示未猜中 LOST=LOST+10 多输多输10元元 Label7.Caption=你现在的金额是：你现在的金额是：&WIN-LOST&“元元

19、”End If部分代码二：部分代码二：If k=5 And Flag=True Then 连续连续5次并且都猜中次并且都猜中 WIN=WIN+100 多赢多赢100元元 Label7.Caption=你现在的金额是：你现在的金额是：&WIN-LOST&“元元”End If条件语句常见的几种使用格式（1）、条件语句的格式一：If 条件条件 then 语句语句1（2）、条件语句的格式二：If 条件条件 then 语句组语句组1End if（3）、条件语句的格式三If 条件条件 Then 语句组语句组1Else 语句组语句组2End If 条件成立吗？语句组2语句组1是否探究活动o网址：http:/

20、192.168.0.1/ifo问题简单介绍一种测试体型的方法：体重估算法，对于青少年来说，假设某同学的体重为W（公斤），身高为H（厘米），标准体重用B（公斤）来表示，体重指数用T来表示，可得：B=H105T=（WB）B。当体重指数（T）大于0.1时，表示该同学偏胖；当体重指数（T）小于负的0.1时，表示该同学偏瘦；当体重指数（T）在负的0.1和0.1之间时，表示该同学体型标准。活动要求：o同学们根据自己对同学们根据自己对if语句的掌握情况，选做语句的掌握情况，选做“任务目标任务目标”中的第一层任务或第二层任务，中的第一层任务或第二层任务，保存并提交作业（保存并提交作业（.frm）o程序一般四个

21、组成部分程序一般四个组成部分:1.定义变量定义变量2.输入数据输入数据3.处理数据处理数据4.输出结果输出结果五组测试数据体重（体重（kg）身高（身高（cm）提示提示142150标准265151偏胖346171偏瘦451162偏瘦559157偏胖作业评讲应用拓展o学生根据情况任选一题1.编写一元二次方程的求解程序，要求能够判断方程是否有根，如果没有根则给出相应的提示信息。2.编一个程序，输入三个数，输出其中的最大数。回顾小结o通过这节课的学习，我们了解if语句三种常用格式的使用方法，并利用if语句来编写程序。希望大家在日常生活学习多发现问题，并思考如何利用学过的计算机知识来解决问题2.3.1从

22、制作矩形框问题开始o问题张军找来一条长度为L的铁丝，希望用来制作一个面积为S的矩形框。他问李明：这个矩形的长和宽应当是多少，才能使制作出来的矩形框面积为指定的值呢？1、分析问题o设所求矩形的宽为x,根据题目的条件，矩形的周长是L，那么它的长与宽的和就是L/2，长应为L/2-x，根据矩形的面积公式，方程如下：x(L/2-x)=s通过求根公式可得出解答2、设计算法1.输入铁丝的长度L；2.输入矩形的面积S;3.计算判别式D=L*L/4-4*S4.如果D=0,则1.计算x1=(L/2+sqr(D)/22.x2=(L/2-sqr(D)/2并输出x1和x2，否则输出“找不到这样的矩形”5.结束3、编写程

23、序DimLasdoubleDimSasdoubleDimDasdoubleL=inputbox(“请输入铁丝的长度：”)S=inputbox(“请输入矩形的面积：”)D=L*L/4-4*SIfD=0thenx1=(L/2+sqr(D)/2x2=(L/2-sqr(D)/2print“这个矩形的长和宽分别为：”；x1;”和”；x2Elseprint“找不到这样的矩形”EndIF2.3.2条件语句1.条件语句的格式If条件Then语句组1Else语句组2EndIf2.3.2条件语句2.条件语句的执行过程条件成立吗？语句组2语句组1是否2.3.2条件语句3.关系表达式关系运算符号有：运算符号=含义等于

24、大于大于等于小于小于等于不等于关系表达式的值：假（False）和真（True）数据类型：逻辑型(Boolean)2.3.2条件语句4.逻辑表达式逻辑运算符：Not(非)And(与)Or(或)5.逻辑运算的顺序算术运算关系运算逻辑运算例：a+bc+dAnda=5orNotc0Ord=0thenPrint“Y=“;AelsePrint“Y=”;-A实践2、某商场为了对苹果进行促销，规定购买2千克以上可以在原价每千克1.5元的基础上打8折。请设计一个程序计算购买x千克苹果的应付款。练习1编写一程序，判断年份是否为闰年。闰年的条件：年份能被4整除但不能被100整除，或能够被100整除也能被400整除。

25、X=inputbox(“输入年份”)If(xmod4=0)and(xmod1000)thenprintx;”闰年”If(xmod100=0)and(xmod400=0)thenprintx;”闰年”练习2编一个程序，输入三个数，输出其中最大数a=inputbox(“a”)b=inputbox(“b”)c=inputbox(“c”)Max=aIfbmaxthenmax=bIfcmaxthenmax=cPrint“最大数是”;max练习DimxasdoubleX=inputbox(“x”)Ifx8thenX=x-8PrintxEndifIfx5thenprintx+91、当输入9时程序运行结果是多

26、少？2、当输入20时程序运结果是多少？2.多重选择语句的格式o基本格式：SelectCase表达式Case表达式列表1语句组1Case表达式列表2语句组2CaseElse语句组N+1EndSelect实践1、当F=1，2，3，4时程序运行的结果Dima,b,cassingleDimdasstringF=inputbox(“请输入F的值：”)A=2B=3Selectcasefcase1:c=a+b:d=“+”case2:c=a-b:d=“-”case3:c=a*b:d=“*”case4:c=a/b:d=“/”EndselectPrinta;d;b;”=”;c综合练习1我们把字符作为如下的分类：大

27、写字母：A-Z；小写：a-z;数字：0-9；其他字符。编写一个程序，根据上述分类的方法，输入一个字符，报告该字符所属的类型。代码参考DimcAsStringc=InputBox(输入任意字符)SelectCasecCaseAToZprint字母大写类别&cCaseaTozprint字母小写类别&cCase0To9print数字类别&cCaseElseprint其他类别&cEndSelect思考问题l编程程输出出10以内的所有偶数以内的所有偶数?l程序代程序代码:print 2print 4print 6print 8print 10 如果要依次输出如果要依次输出100甚至甚至1000以内的所有

28、偶数。怎么办？以内的所有偶数。怎么办？通式通式:Print i(i=2 4 6 8 10)循环结构思想l利用循利用循环结构，使我构，使我们只要通只要通过少量的少量的语句，句，让计算机重复算机重复执行行许多次，从而完成要求。多次，从而完成要求。l重复要做的事情就是循重复要做的事情就是循环体。在上例中循体。在上例中循环体是什么？体是什么？lprint il利用利用计数数变量来控制循量来控制循环执行的次数行的次数,否否则是死循是死循环。l变化化规律律:后一个常量后一个常量总比前一个常量大比前一个常量大2。即。即i=i+2。新课：For循环结构l本本节课学学习目目标l1.理解循理解循环结构的基本思想。

29、构的基本思想。l2.掌握用掌握用For循循环语句句编写程序。写程序。l基本格式：基本格式：For 循循环变量量=初初值 to 终值 Step 步步长语句句组Next 循循环变量量说明：1.For语句：其作用是确定循句：其作用是确定循环变量的量的值如何如何变化，化，从而控制循从而控制循环的次数。的次数。2.循循环变量：它是一个数量：它是一个数值变量。量。3.初初值、终值和步和步长可以是常量、可以是常量、变量和表达式；量和表达式；4.步步长：如果步：如果步长为1，则可省略不写。可省略不写。5.循循环体在体在For语句和句和Next语句之句之间的的语句序列，句序列，可是一个或多个可是一个或多个语句。

30、句。6.Exit For语句：退出循句：退出循环。7.Next语句：循句：循环终端端语句，在其后的循句，在其后的循环变量量须与与For语句中的句中的“循循环变量量”一致。一致。For 循环变量循环变量=初值初值 to 终值终值 Step 步长步长语句组语句组Next 循环变量循环变量观察：单步执行i值变化情况输出出10以内的所有偶数以内的所有偶数For i=2 to 10 step 2 Print iNext i源程序源程序自主探究视频视频 袁隆平：一粒种子改变世界袁隆平：一粒种子改变世界背景介绍：杂交水稻之父背景介绍：杂交水稻之父袁隆平袁隆平 登录天空教室网络平台登录天空教室网络平台 查看教

31、程查看教程2.4.1网网 址：址：192.168.0.1/school公用帐号公用帐号:student 密码密码:student探究任探究任务：超超级水稻种植水稻种植实验的的统计分析分析要求：用要求：用For循循环语句句实现，并上，并上传探究探究结果。果。l现已知某个因素已知某个因素M种水平种水平5次次试验的的亩产量（量（单位：位：千克）如下表所示，求各种水平影响下的千克）如下表所示，求各种水平影响下的亩产量。量。水平水平第第1次次第第2次次第第3次次第第4次次第第5次次水平水平19081099790886845水平水平2509699843755788水平水平39871100955102099

32、5作品展示评价内内 容容权重权重得分得分设计思路清晰，目的性强设计思路清晰，目的性强2020设计界面友好，实用性强设计界面友好，实用性强2020程序运行良好，结果正确程序运行良好，结果正确2020程序结构优化，算法科学程序结构优化，算法科学2020富有创新意识，方法独特富有创新意识，方法独特2020总分总分评价量表评价量表 参考作品参考作品实践1.编程求程求1+2+3+100的和的和2.编程求程求10！拓展任务1.要求：用要求：用For循循环语句句实现2.猴子吃桃猴子吃桃问题3.一天，小猴子从一天，小猴子从树上摘下若干上桃子，当即吃上摘下若干上桃子，当即吃了一半，了一半，觉得不得不过瘾，又吃了

33、一个。第二天小猴，又吃了一个。第二天小猴子接着吃剩下的一半，子接着吃剩下的一半，还觉得不得不过瘾，又吃了一，又吃了一个。以后每天都是吃前一天剩下的，就再多吃一个。以后每天都是吃前一天剩下的，就再多吃一个。到第四天，只剩一个桃子。个。到第四天，只剩一个桃子。试设计一个算法，一个算法，求小猴子第一天摘下多少个桃子。求小猴子第一天摘下多少个桃子。小结：1.For语句与句与Next语句必句必须成成对出出现，缺一不可。，缺一不可。2.For语句必句必须在在Next语句之前。句之前。3.For语句中的循句中的循环变量与量与Next语句中的循句中的循环变量量必必须一致。一致。4.如果步如果步长为1，则ste

34、p 1可省略。可省略。For 循环变量循环变量=初值初值 to 终值终值 Step 步长步长语句组语句组Next 循环变量循环变量2.4程序循环结构1.For循环语句格式：For循环变量=初值To终值Step步长语句组Next循环变量实践写出循环结束时变量A的值、循环次数、运行结果。1、fora=1to10printanexta2、fora=1to100s=s+anextaprints3、fora=100to1step-1s=s+anextaPrints4、fora=1to10a=a+1printanexta实践编程输出：九九乘法表编程输出：九九乘法表P57(图图2-19)1*1=12*1=2

35、 2*2=43*1=3 3*2=6 3*3=94*1=4 4*2=8 4*3=12 4*4=165*1=5 5*2=10 5*3=15 5*4=20 5*5=256*1=6 6*2=12 6*3=18 6*4=24 6*5=30 6*6=367*1=7 7*2=14 7*3=21 7*4=28 7*5=35 7*6=42 7*7=498*1=8 8*2=16 8*3=24 8*4=32 8*5=40 8*6=48 8*7=56 8*8=649*1=9 9*2=18 9*3=27 9*4=36 9*5=45 9*6=54 9*7=63 9*8=72 9*9=81代码参考Dimiasinteger

36、DimjasintegerFori=1to9forj=1toIprinti&“*”&j&“=“&i*j;nextjprintNexti2.4程序循环结构Do循环语句（循环次数不确定）一、当条件满足时执行循环体Dowhile条件循环体loop=二、当条件满足时退出循环Do循环体loopuntil条件问题：陈婷今年17岁了，她的生日正好是3月12日植树节。今年植树节老师带同学们到公园里去植树。陈婷很高兴，一个人就栽了3棵树，过了一个很有意义的生日。她想，如果从明年开始每年过生日的时候都去植树，并且每一年要比前一年多栽一棵树，这样下去，到多少岁时才能累计种到或超过100棵树呢？代码参考Dimagea

37、sintegerDimtreeasintegerAge=17Tree=3Doage=age+1tree=tree+age-14Loopuntiltree=100Printage,tree实践1、已知s=1+2+3+N，找出一个最大的整数N，使得S=30000Printn实践2、假设纸的长度足够长，厚度为0.1毫米，对折一次厚度增加1倍，现在对折纸张，直到总厚度超过珠穆朗玛峰的高度为止（最新高度：8844.43米），对折纸张的次数。代码参考K=0H=0.1Dok=k+1h=h*2Loopuntilh=8844.43*1000Printk练习o求2-1000中完全数（因子之和等于它本身的数为完全数

38、），例如28的因子是1、2、4、7、14，且1+2+4+7+14=28，则28是完全数 Dim x As Long Dim k As Long Dim s As Long For x=2 To 1000 s=0 For k=1 To x-1 If x Mod k=0 Then s=s+k End If Next If s=x Then print x End If Next综合练习1.现在面值为1元、2元和5元的钞票（假设每种钞票的数量足够多），从这些钞票中出30张使其总面值为100元，问有多少种取法？输出每种取法中各面额钞票的张数。Dim k1,k2,k5 As Integer For k1

39、=1 To 100 For k2=1 To 100 For k5=1 To 100 If k1+2*k2+5*k5=100 And k1+k2+k5=30 Then MsgBox(k1&|&k2&|&k5)End If Next Next Next综合练习2.如果一个3位数等于它的各位数字的立方和，则这个3位数称为“水仙花”数。例如153=13+53+33。试编程求出所有水仙花数。DimnaslongDimaasintegerDimbasintegerDimcasintegerForn=100to999a=nmod10b=(n10)mod10c=n100Ifa*a*a+b*b*b+c*c*c=

40、nthenprintn综合练习3.如果一个4位数等于它的各位数字的4次方和，则这个4位数称为“玫瑰花”数，例如1634=14+64+34+44。试编程求出所有玫瑰花数。综合练习4、如果一个正整数的立方能够分解为另外3个正整数的立方和，那么我们把这个正整数称为“好数”。即A、X、Y、Z都是正整数，且满足A3=X3+Y3+Z3，则称A为好数。例如，6是最小的好数（63=33+43+53）。请求出最小的10个好数。a=6 k=1 Do While k=10 a=a+1 For i=1 To a-1 For j=1 To a-1 For z=1 To a-1 If a*a*a=i*i*i+j*j*j+

41、z*z*z Then Print a,i,j,z k=k+1 i=a j=a z=a End If Next z Next j Next i Loop综合练习有一根长为600cm的钢筋，需要截成长度为69cm、39cm、29cm的三种规格的短料，在三种规格的短料至少各截1的前提下，如何截取才能使所余下的材料最少？Dim x,y,z As Int16 Dim min As Integer min=600 Dim a,b,c As Integer For x=1 To 20 For y=1 To 20 For z=1 To 20 If 600-69*x-39*y-29*z=0 Then min=600-69*x-39*y-29*z a=x b=y c=z End If Next Next Next print min&|&a&|&b&|&c