信息技术（选修一）

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,#,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,#,单击此处编辑标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,信息技术（选修一）,算法与程序设计,指导教师：刘玉军,佛山市顺德区伦教中学,开心,快乐,学习,信息技,术,术（选,修,修一）,指导教,师,师：刘,玉,玉军,准备,一、学,生,生按座,位,位自由,分,分组、,小,小组编,号,号、推,荐,荐小组,长,长；,二、选,课,课，实,名,名注册,三、熟,悉,悉天空,教,教室网,络,络平台,第一课,计,计算,机,机如何,解,解决问,题,题,国际象,棋,棋“人,机,机大战,”,”落幕世界冠,军,军惜败,“,“深奥,的,的德国,人,人”,中国象,棋,棋人机,大,大战计算机,微,微弱优,势,势取胜,古典问,题,题,韩,韩信点,兵,兵,韩信是,我,我国西,汉,汉初著,名,名的军,事,事家，,刘,刘邦得,天,天下，,军,军事上,全,全依靠,他,他。韩,信,信点兵,，,，多多,益,益善，,不,不仅如,此,此，还,能,能经常,以,以少胜,多,多，以,弱,弱胜强,。,。在与,楚,楚军决,战,战时韩,信,信指挥,诸,诸侯联,军,军，在,垓,垓g,i,下,下十面,埋,埋伏，,击,击败楚,军,军，楚,霸,霸王项,羽,羽因此,自,自杀。,韩信点,兵,兵问题,：,：相传,汉,汉高祖,刘,刘邦问,大,大将军,韩,韩信统,御,御士兵,多,多少，,韩,韩信答,说,说，每3人一,列,列余1,人,人、5,人,人一列,余,余2人,、,、7人,一,一列余4人、13人,一,一列余6人,刘邦,听,听后茫,然,然而不,知,知其数,。,。你能,说,说出有,多,多少士,兵,兵吗？,韩信点,兵,兵问题,一,一,求整除3余1,、,、整除5余2,、,、整除7余4,的,的最小,自,自然数,。,。,分析问,题,题,设所求,的,的数为X，则x应满,足,足：x,整,整除3,余,余1、x整除5余2,、,、x整,除,除7余4。,解题步,骤,骤（思,路,路）,1、令X为1,2、如,果,果X整,除,除3余1，X,整,整除5,余,余2，X整除7余4,，,，这就,是,是题目,要,要求的,数,数，则,记,记下这,个,个X,3、令X为X,+,+1,4、如,果,果算出,，,，则结,束,束，否,则,则跳转2,5、写,出,出答案,韩信点,兵,兵问题,二,二,求整除3余1,、,、整除5余2,、,、整除7余4,、,、整除13余6、整,除,除17,余,余8的,最,最小自,然,然数。,编写程,序,序：VB语言,参,参考代,码,码,X=1,Y=0,Do,ifx mod3=1and xmod 5,=,=2andxmod7=4and xmod 13=6and xmod 17=8theny=x,X=x,+,+1,Loop until y,0,Printy,计算机,解,解决问,题,题的步,骤,骤,1、分,析,析问题,2、设,计,计算法,3、编,写,写程序,4、调,试,试程序,交流,求解决问题的方式,相同点,不同点,人工求解,用计算机求解,速度慢,易出,错,错.,都需要,分,分析问,题,题,设,计,计算法,.,.,速度快,需编,写,写程序,和,和调试,程,程序,实践,1、模,仿,仿学过,的,的用计,算,算机程,序,序解决,问,问题的,方,方法，,设,设计一,个,个算法,，,，尝试,求,求解鸡,兔,兔同笼,问,问题：,今有鸡,兔,兔同笼,，,，上有,三,三十五,头,头，下,有,有九十,四,四足，,问,问鸡兔,各,各几何,？,？,实践,2.设,计,计一个,算,算法,求,求两个,数,数中的,最,最大数,算法和,算,算法的,描,描述,欧几里,得,得:求,两,两个整,数,数的最,大,大公约,数,数的过,程,程,辗,辗转相,除,除法，,其,其具体,过,过程如,下,下：,设给定,的,的两个,正,正整数,为,为m和n,求,它,它们的,最,最大公,约,约数的,步,步骤为,：,：,、以m除以n,令,所,所得的,余,余数为r.,、若r=0,，,，则输,出,出结果n,算,法,法结束,；,；否则,继,继续步,骤,骤（,）,）。,、令m=n,n=r,并,返,返回步,骤,骤（,）,）继续,进,进行。,实践,设给定,的,的两个,正,正整数m=112和n=64，利,用,用辗转,相,相除法,，,，求它,们,们的最,大,大公约,数,数。,（）,除,除以,，余,数,数为,（）,除,以,以,余,余数为,（）,除,以,以,余,余数为,答,和,的最,大,大公约,数,数,思考：,和,和,的,的最小,公,公倍数,算法,algorithm,:,: ,lg,ri,m,概,概念,通俗地,说,说，算,法,法就是,用,用计算,机,机求解,某,某一问,题,题的方,法,法，是,能,能被机,械,械地执,行,行的动,作,作或指,令,令的有,穷,穷集合,。,。,算法,algorithm,:,: ,lg,ri,m,特,特征,1、输,入,入,2、确,定,定性,3、有,穷,穷性,4、输,出,出,5、能,行,行性,三、算,法,法,algorithm,:,: ,lg,ri,m,的,的描,述,述,表示算,法,法的语,言,言主要,有,有自然,语,语言、流程图、伪代,码,码等。,例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,递归算,法,法,一天,小,小猴子,从,从树上,摘,摘下若,干,干个桃,子,子,当,即,即吃了,一,一半,觉,觉得好,吃,吃,又,吃,吃了一,个,个.第,二,二天小,猴,猴子接,着,着吃剩,下,下的一,半,半,再,多,多吃一,个,个.以,后,后每天,都,都是吃,前,前一天,剩,剩下的,一,一半,再,再多吃,一,一个.,到,到第四,天,天,只,剩,剩下一,个,个桃子,.,.试设,计,计一下,算,算法流,程,程图.,求,求小猴,子,子第一,天,天摘下,多,多少个,桃,桃子.,算法描,述,述：,function你有多,少,少桃子,？,？（第,几,几天）,如果我第10天，,那,那么我,就,就有一,个,个桃子,。,。,否则，我的,桃,桃子数,=,=（前,一,一天的,桃,桃子数,+,+1）,*,*2,endfunction,参考代,码,码,Functiontao,(,(ByValdaysAsInteger)AsInteger,Ifdays =10Then,tao,=,=1,Else,tao,=,=,(,(tao(days,+,+1),+,+ 1,),) *2,EndIf,EndFunction,循环算,法,法,Dimk,iAsInteger,k =1,Fori,=,= 1To4,Printk,k =,(,(k,+,+1),*,* 2,Next i,算法流,程,程图,P11,图,图1,-,-3,伪代码,Inputm,n,R=mmod n,Dowhiler0 then,m=n,n=r,r=mmod n,Loop,Printn,例1：,从,从键盘,输,输入圆,的,的半径r,编,程,程计算,圆,圆的面,积,积。,1、分,析,析问题,圆的半,径,径为r,则圆,的,的面积s=3,.,.14,*,*r2,2、设,计,计算法,根据题,意,意，用,顺,顺序结,构,构来完,成,成。,第一步,输,输入圆,的,的半径r；,第二步,求,求s=3.14*r,*,*r的,值,值,第三步,输,输出结,果,果,例1：,从,从键盘,输,输入圆,的,的半径r,编,程,程计算,圆,圆的面,积,积。,3、编,写,写程序,（,（visual Basic语言,）,）,Dimrasdouble,Dimsasdouble,r=inputbox(“r=”,),),s=3,.,.14,*,*r*r,Print,“,“s=,“,“;s,4、调,试,试程序,程序编,好,好后，,通,通过键,盘,盘输入,计,计算机,，,，运行,程,程序，,并,并输出,结,结果，,直,直到没,有,有错误,为,为止。,四、课,堂,堂练习,：,：画流,程,程图和,编,编写代,码,码,例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升里,把,把3升,的,的倒满,，,，再把,这,这3升,倒,倒到10升里,去,去，ok，结,束,束。,五、程,序,序与程,序,序设计,语,语言,程序设,计,计语言,机器语,言,言,汇编语,言,言,高级语,言,言,程序,编辑程,序,序,编译程,序,序（解,释,释程序,）,）,连接程,序,序,第二课,程,程序,设,设计基,础,础,目标:,学,学习如,何,何使用VB语,言,言来编,写,写程序,知识要,点,点回顾,:,:,程序的,基,基本结,构,构:,顺序结,构,构,选择结,构,构,循环结,构,构,程序设,计,计,程序设,计,计就是,编,编写程,序,序的过,程,程.需,要,要把计,算,算机做,的,的工作,写,写成一,种,种计算,机,机能接,受,受的程,序,序.,算法,算法就,是,是求解,某,某一问,题,题的方,法,法.,课堂实,践,践探究,求”半,径,径为r,的,的圆的,面,面积”,的,的程序,dimrassingle,dimsassingle,r=inputbox(“r”),s=3,.,.14,*,*r*r,prints,2.1VB,语,语言及,程,程序开,发,发环境,基础数,据,据类型,常量与,变,变量,运算符,、,、函数,和,和表达,式,式,2.2,程,程序的,顺,顺序结,构,构,赋值语,句,句（=,）,）,输入数,据,据的函,数,数（inputbox）,输出数,据,据的方,法,法 (print),问题1,2-2,：,：已知,长,长方体,的,的长、,宽,宽、高,，,，编写,一,一个程,序,序，求,长,长方体,的,的全面,积,积和体,积,积。,分析问,题,题,设计算,法,法,编写程,序,序,调试程,序,序,问题2,2-3,：,：从键,盘,盘上输,入,入一个,三,三位整,数,数，然,后,后将它,反,反向输,出,出。例,如,如输入456,，,，输出,应,应为654。,分析问,题,题,设计算,法,法,编写程,序,序,调试程,序,序,代码参,考,考,X1=x mod10,X2=x10 mod10,X3=x100,Y=x1*100+x2*10+x3,练习,1：从,键,键盘输,入,入三角,形,形的三,边,边长a,、,、b、c，计,算,算机三,角,角形面,积,积.,提示,：,：计算,机,机三角,形,形面积,的,的公式,为,为：p,(,(p-a)(p-b,),)(p,-,-c),的,的平方,根,根,其,中,中p=,(,(a+b+c,),)/2,练习,甲乙进,行,行百米,赛,赛跑，,甲,甲从开,始,始到终,点,点都以,每,每秒2,米,米，乙,第,第一秒,跑,跑1米,以,以后每,秒,秒都比,前,前一秒,多,多跑0,05,米,米，编,写,写程序,求,求谁能,获,获胜。,练习,古希腊,有,有位大,数,数学家Diophantus丢番,图,图有一,段,段有名,的,的墓志,铭,铭：,过,过路,人,人，这,里,里埋著Diophantus的骨,灰,灰，下,面,面的数,字,字，可,以,以告诉,你,你，他,的,的一生,有,有多长,。,。他的,生,生命的,六,六分之,一,一是愉,快,快的童,年,年；在,过,过了他,生,生命的,十,十二分,之,之一，,他,他的面,颊,颊上长,了,了细细,的,的胡须,，,，如此,，,，又过,了,了一生,的,的七分,之,之一，,他,他结了,婚,婚。婚,后,后五年,，,，他获,得,得了第,一,一个孩,子,子，感,到,到很幸,福,福。可,是,是，命,运,运给这,孩,孩子在,这,这世界,上,上光辉,灿,灿烂的,生,生命，,只,只有他,父,父亲的,一,一半。,自,自从儿,子,子死了,以,以后，,他,他在深,切,切的悲,痛,痛中活,了,了四年,，,，也结,束,束了尘,世,世的生,涯,涯。,试,试问Diophantus,活,活了多,少,少年？,练习,试编写,一,一个程,序,序，求,平,平面中,两,两点之,间,间的距,离,离,一列火,车,车在某,地,地时的,速,速度为v0=40km/h,现以,加,加速度m/s2加速度,行,行驶，,试,试编写,一,一个程,序,序，求2min后的,速,速度V,和,和距开,始,始点的,距,距离,（,（v=v0+at,s=v0t+at2/2）,2.3,程,程序,的,的选择,结,结构,（1）,、,、条件,语,语句的,格,格式一,：,：,If,条,条件then 语,句,句1,（2）,、,、条件,语,语句的,格,格式二,：,：,If,条,条件then,语句组1,Endif,（3）,、,、条件,语,语句的,格,格式三,If,条,条件Then,语句组1,Else,语句组2,EndIf,条件成立吗？,语句组2,语句组1,是,否,练习,从键盘,输,输入三,角,角形的,三,三边长a、b,、,、c，,如,如果能,构,构成一,个,个三角,形,形，则,输,输出其,面,面积，,否,否则输,出,出“不,能,能构成,一,一个三,角,角形！,”,”的提,示,示信息,。,。提,示,示：计,算,算机三,角,角形面,积,积的公,式,式为：,S=,p(p-a,),)(p,-,-b),(,(p-c),，,，p,=,=(a,+,+b+c)/2,程序代,码,码,dimaassingle,dimbassingle,dimcassingle,dimpassingle,dimsassingle,a=inputbox(a),b=inputbox(b),c=inputbox(c),p=(a+b,+,+c),/,/2,s=p,*,*(p,-,-a),*,*(p,-,-b),*,*(p,-,-c),ifs0then,s=sqr(s),print,s=,;s,else,print,不能,构,构成三,角,角形,endif,编写一,程,程序，,判,判断年,份,份是否,为,为闰年,。,。,公历闰,年,年判定,遵,遵循的,规,规律为,:,: 四,年,年一闰,百年,不,不闰,四,四百年,再,再闰.,公历闰,年,年的简,单,单计算,方,方法（,符,符合以,下,下条件,之,之一的,年,年份即,为,为闰年,）,）,1 能,被,被4整,除,除而不,能,能被100整,除,除。,2 能,被,被400整除,。,。,测试年份,是否闰年,2008年,2100年,2400年,测验题,一,一,1、从,键,键盘任,意,意输入,一,一个数,，,，如果,是,是正数,，,，则输,出,出该数,的,的平方,根,根;如,果,果是负,数,数，则,输,输出该,数,数的立,方,方根;,否,否则就,输,输出零,。,。,2、输,入,入两个,数,数a,b，输,出,出较大,数,数的立,方,方值，,输,输出较,小,小数的,平,平方值,。,。,测验题,二,二,3、铁,路,路托运,行,行李规,定,定：行,李,李重不,超,超过50公斤,的,的，托,运,运费按,每,每公斤0.15元计,费,费；如,超,超过50公斤,，,，超过,部,部分每,公,公斤加,收,收0.10元,。,。编一,程,程序完,成,成自动,计,计费工,作,作。,4、某,超,超市为,了,了促销,，,，规定,：,：购物,不,不足50元的,按,按原价,付,付款，,超,超过50不足100,的,的，超,过,过部分,按,按九折,付,付款，,超,超过100元,的,的，超,过,过部分,按,按八折,付,付款。,编,编一程,序,序完成,超,超市的,自,自动计,费,费的工,作,作。,练习题,三,三,5、输,入,入a,b,c,三,三个不,同,同的数,，,，将它,们,们按由,小,小到大,的,的顺序,输,输出。,6、当,前,前小学,生,生的成,绩,绩单由,以,以前的,百,百分制,改,改为优,秀,秀、良,好,好、合,格,格、不,合,合格四,个,个等级,的,的等级,制,制。编,一,一程序,完,完成分,数,数的自,动,动转换,工,工作。,转,转换规,则,则如下,：,：60,分,分以下,的,的为不,合,合格；60到69分,为,为合格,；,；70,到,到89,分,分为良,好,好；90分以,上,上包括90分,的,的为优,秀,秀。,2.3,程,程序,的,的选择,结,结构,登录天,空,空教室,网,网络平,台,台 查,看,看教程2.3,192,.,.168.0,.,.1/school,公用帐,号,号:student,密,密码,:,:student,猜数字,大,大小游,戏,戏,点击游,戏,戏地址,下载,并,并运行,简单解,释,释“大,”,”按钮,事,事件部,分,分代码,部分代,码,码一：,Ifx 7Then,Flag =True,Flag,=,=True表,示,示猜中,Else,Flag =False,Flag=False表示未,猜,猜中,LOST =LOST,+,+ 10,多输10元,Label7,.,.Caption,=,= 你现在,的,的金额,是,是： &WIN -LOST,&,& “元”,EndIf,部分代,码,码二：,Ifk =5AndFlag,=,= TrueThen连续5次并且,都,都猜中,WIN,=,=WIN,+,+100,多赢100元,Label7,.,.Caption,=,= ,你,你现在,的,的金额,是,是：,&,&WIN,-,-LOST &,“,“元,”,”,EndIf,条件语,句,句常见,的,的几种,使,使用格,式,式,（1）,、,、条件,语,语句的,格,格式一,：,：,If,条,条件then 语,句,句1,（2）,、,、条件,语,语句的,格,格式二,：,：,If,条,条件then,语句组1,Endif,（3）,、,、条件,语,语句的,格,格式三,If,条,条件Then,语句组1,Else,语句组2,EndIf,条件成立吗？,语句组2,语句组1,是,否,探究活,动,动,网址：http:/,/,/192.168.0.1,/,/if,问题, 简,单,单介绍,一,一种测,试,试体型,的,的方法,：,：体重,估,估算法,，,，对于,青,青少年,来,来说，,假,假设某,同,同学的,体,体重为W（公,斤,斤），,身,身高为H（厘,米,米），,标,标准体,重,重用B,（,（公斤,）,）来表,示,示，体,重,重指数,用,用T来,表,表示，,可,可得：,B=H,105,T=（WB）B。,当体重,指,指数（T）大,于,于0.1时，,表,表示该,同,同学偏,胖,胖；,当体重,指,指数（T）小,于,于负的0.1,时,时，表,示,示该同,学,学偏瘦,；,；,当体重,指,指数（T）在,负,负的0,.,.1和0.1,之,之间时,，,，表示,该,该同学,体,体型标,准,准。,活动要,求,求：,同学们,根,根据自,己,己对if语句,的,的掌握,情,情况，,选,选做“,任,任务目,标,标”中,的,的第一,层,层任务,或,或第二,层,层任务,，,，保存,并,并提交,作,作业（,.,.frm）,程序一,般,般四个,组,组成部,分,分:,定义变,量,量,输入数,据,据,处理数,据,据,输出结,果,果,五组测,试,试数据,体重（,kg,）,身高（,cm,）,提示,1,42,150,标准,2,65,151,偏胖,3,46,171,偏瘦,4,51,162,偏瘦,5,59,157,偏胖,作业评,讲,讲,应用拓,展,展,学生根,据,据情况,任,任选一,题,题,编写一,元,元二次,方,方程的,求,求解程,序,序，要,求,求能够,判,判断方,程,程是否,有,有根，,如,如果没,有,有根则,给,给出相,应,应的提,示,示信息,。,。,编一个,程,程序，,输,输入三,个,个数，,输,输出其,中,中的最,大,大数。,回顾小,结,结,通过这,节,节课的,学,学习，,我,我们了,解,解if,语,语句三,种,种常用,格,格式的,使,使用方,法,法，并,利,利用if语句,来,来编写,程,程序。,希,希望大,家,家在日,常,常生活,学,学习多,发,发现问,题,题，并,思,思考如,何,何利用,学,学过的,计,计算机,知,知识来,解,解决问,题,题,2.3,.,.1,从,从制作,矩,矩形框,问,问题开,始,始,问题,张,张军找,来,来一条,长,长度为L的铁,丝,丝，希,望,望用来,制,制作一,个,个面积,为,为S的,矩,矩形框,。,。他问,李,李明：,这,这个矩,形,形的长,和,和宽应,当,当是多,少,少，才,能,能使制,作,作出来,的,的矩形,框,框面积,为,为指定,的,的值呢,？,？,1、分,析,析问题,设所求,矩,矩形的,宽,宽为x,根据,题,题目的,条,条件，,矩,矩形的,周,周长是L，那,么,么它的,长,长与宽,的,的和就,是,是L/2，长,应,应为L,/,/2-x，根,据,据矩形,的,的面积,公,公式，,方,方程如,下,下：x,(,(L/2-x,),)=s,通过求,根,根公式,可,可得出,解答,2、设,计,计算法,输入铁,丝,丝的长,度,度L；,输入矩,形,形的面,积,积S;,计算判,别,别式D,=,=L*L/4,-,-4*S,如果D,=0,则,计算x1,=,=(L,/,/2+sqr,(,(D),),)/2,x2=,(,(L/2-sqr(D),/,/2,并,并输出x1和x2，,否,否则输,出,出“找,不,不到这,样,样的矩,形,形”,结束,3、编,写,写程序,DimLasdouble,DimSasdouble,DimDasdouble,L=inputbox(“,请,请输入,铁,铁丝的,长,长度：,”,”),S=inputbox(“,请,请输入,矩,矩形的,面,面积：,”,”),D=L,*,*L/4-4,*,*S,IfD=0 then,x1=,(,(L/2+sqr(D),/,/2,x2=,(,(L/2-sqr(D),/,/2,print,“,“这个,矩,矩形的,长,长和宽,分,分别为,：,：”；x1;,”,”和”,；,；x2,Else,print,“,“找不,到,到这样,的,的矩形,”,”,EndIF,2.3,.,.2,条,条件语,句,句,1.条,件,件语句,的,的格式,If,条,条件Then,语句组1,Else,语句组2,EndIf,2.3,.,.2,条,条件语,句,句,2.条,件,件语句,的,的执行,过,过程,条件成立吗？,语句组2,语句组1,是,否,2.3,.,.2,条,条件语,句,句,3.关,系,系表达,式,式,关系运,算,算符号,有,有：,运算符号,=,=,c+dAnd a,=5orNot c,0Ord=0 thenPrint,“,“Y,=,=“;A elsePrint,“,“Y,=,=”;,-,-A,实践,2、某,商,商场为,了,了对苹,果,果进行,促,促销，,规,规定购,买,买2千,克,克以上,可,可以在,原,原价每,千,千克1,.,.5元,的,的基础,上,上打8,折,折。请,设,设计一,个,个程序,计,计算购,买,买x千,克,克苹果,的,的应付,款,款。,练习1,编写一,程,程序，,判,判断年,份,份是否,为,为闰年,。,。闰年,的,的条件,：,：年份,能,能被4,整,整除但,不,不能被100,整,整除，,或,或能够,被,被100整除,也,也能被400,整,整除。,X=inputbox(“,输,输入年,份,份”),If,(,(xmod4=0)and,(,(xmod 100,0)thenprintx;”,闰,闰年”,If,(,(xmod100=0,),) and,(,(xmod400=0,),) thenprintx;,”,”闰年,”,”,练习2,编一个,程,程序，,输,输入三,个,个数，,输,输出其,中,中最大,数,数,a=inputbox(“a”),b=inputbox(“b”),c=inputbox(“c”),Max,=,=a,Ifbmaxthen max=b,Ifcmaxthen max=c,Print,“,“最大,数,数是”,;,;max,练习,Dimxasdouble,X=inputbox(“x”),Ifx8then,X=x,-,-8,Printx,Endif,Ifx5thenprintx+9,1、当,输,输入9,时,时程序,运,运行结,果,果是多,少,少？,2、当,输,输入20时程,序,序运结,果,果是多,少,少？,2.多,重,重选择,语,语句的,格,格式,基本格,式,式：,SelectCase,表,表达式,Case 表,达,达式列,表,表1,语句组1,Case 表,达,达式列,表,表2,语句组2,Case Else,语句组N+1,EndSelect,实践,1、当F=1,，,，2，3，4,时,时程序,运,运行的,结,结果,Dima,b,cassingle,Dimdasstring,F=inputbox(“,请,请输入F的值,：,：”),A=2,B=3,Selectcasef,case 1,:,:c=a+b,:,:d=,“,“+”,case 2,:,:c=a-b,:,:d=,“,“-”,case 3,:,:c=a*b,:,:d=,“,“*”,case 4,:,:c=a/b,:,:d=,“,“/”,Endselect,Printa;d,;,;b;,”,”=”,;,;c,综合练,习,习1,我们把,字,字符作,为,为如下,的,的分类,：,：大写,字,字母：A-Z,；,；小写,：,：a-z;数,字,字：0,-,-9；,其,其他字,符,符。编,写,写一个,程,程序，,根,根据上,述,述分类,的,的方法,，,，输入,一,一个字,符,符，报,告,告该字,符,符所属,的,的类型,。,。,代码参,考,考,DimcAsString,c =InputBox,(,(输,入,入任意,字,字符,),),SelectCasec,Case ATo,Z,print,字母,大,大写类,别,别,&,& c,Case aTo,z,print,字,母,母小写,类,类别,&,&c,Case 0To,9,print,数字,类,类别,&,&c,Case Else,print,其他,类,类别,&,&c,EndSelect,综合练,习,习2,编写一,个,个程序,，,，让计,算,算机同,我,我们一,起,起玩剪,发,发、钉,锤,锤、布,游,游戏。,如,如果人,输,输了，,则,则输出,“,“LOSE”,人赢,了,了，则,输,输出”WIN,”,”,人,与,与计算,机,机平了,，,，则输,出,出“DEUCE”.,思考问,题,题,编程输,出,出10,以,以内的,所,所有偶,数,数?,程序代,码,码:,print2,print4,print6,print8,print10,如果要,依,依次输,出,出100甚至1000以内,的,的所有,偶,偶数。,怎,怎么办,？,？,通式:Print i (i=2 4 6 8 10),循环结,构,构思想,利用循,环,环结构,，,，使我,们,们只要,通,通过少,量,量的语,句,句，让,计,计算机,重,重复执,行,行许多,次,次，从,而,而完成,要,要求。,重复要,做,做的事,情,情就是,循,循环体,。,。在上,例,例中循,环,环体是,什,什么？,printi,利用计,数,数变量,来,来控制,循,循环执,行,行的次,数,数,否,则,则是死,循,循环。,变化规,律,律:后,一,一个常,量,量总比,前,前一个,常,常量大2。即i=i,+,+2。,新课：For,循,循环结,构,构,本节课,学,学习目,标,标,1.,理,理解循,环,环结构,的,的基本,思,思想。,2.,掌,掌握用For,循,循环语,句,句编写,程,程序。,基本格,式,式：,For,循,循环,变,变量=,初,初值to,终,终值Step 步,长,长,语句组,Next 循,环,环变量,说明：,For,语,语句：,其,其作用,是,是确定,循,循环变,量,量的值,如,如何变,化,化，从,而,而控制,循,循环的,次,次数。,循环变,量,量：它,是,是一个,数,数值变,量,量。,初值、,终,终值和,步,步长可,以,以是常,量,量、变,量,量和表,达,达式；,步长：,如,如果步,长,长为1,，,，则可,省,省略不,写,写。,循环体,在,在For语句,和,和Next语,句,句之间,的,的语句,序,序列，,可,可是一,个,个或多,个,个语句,。,。,Exit For语,句,句：退,出,出循环,。,。,Next语句,：,：循环,终,终端语,句,句，在,其,其后的,循,循环变,量,量须与For,语,语句中,的,的“循,环,环变量,”,”一致,。,。,For,循,循环,变,变量=,初,初值to,终,终值Step 步,长,长,语句组,Next 循,环,环变量,观察：,单,单步执,行,行i值,变,变化情,况,况,输出10以内,的,的所有,偶,偶数,Fori=2 to 10 step2,Printi,Next i,源程序,自主探,究,究,视频, 袁,隆,隆平：,一,一粒种,子,子改变,世,世界,背景介,绍,绍：杂,交,交水稻,之,之父,袁隆,平,平,登录天,空,空教室,网,网络平,台,台 查,看,看教程2.4,.,.1,网,址,址：192,.,.168.0,.,.1/school,公用帐,号,号:student,密,密码,:,:student,探究任,务,务,：,超级水,稻,稻种植,实,实验的,统,统计分,析,析,要求：,用,用For循环,语,语句实,现,现，并,上,上传探,究,究结果,。,。,现已知,某,某个因,素,素M种,水,水平5,次,次试验,的,的亩产,量,量（单,位,位：千,克,克）如,下,下表所,示,示，求,各,各种水,平,平影响,下,下的亩,产,产量。,水平,第1次,第2次,第3次,第4次,第5次,水平1,908,1099,790,886,845,水平2,509,699,843,755,788,水平3,987,1100,955,1020,995,作品展,示,示评价,内 容,权重,得分,设计思路清晰，目的性强,20,设计界面友好，实用性强,20,程序运行良好，结果正确,20,程序结构优化，算法科学,20,富有创新意识，方法独特,20,总分,评价量,表,表,参考作,品,品,实践,编程求1+2,+,+3+,+100的,和,和,编程求10！,拓展任,务,务,要求：,用,用For循环,语,语句实,现,现,猴子,吃,吃桃问,题,题,一天，,小,小猴子,从,从树上,摘,摘下若,干,干上桃,子,子，当,即,即吃了,一,一半，,觉,觉得不,过,过瘾，,又,又吃了,一,一个。,第,第二天,小,小猴子,接,接着吃,剩,剩下的,一,一半，,还,还觉得,不,不过瘾,，,，又吃,了,了一个,。,。以后,每,每天都,是,是吃前,一,一天剩,下,下的，,就,就再多,吃,吃一个,。,。到第,四,四天，,只,只剩一,个,个桃子,。,。试设,计,计一个,算,算法，,求,求小猴,子,子第一,天,天摘下,多,多少个,桃,桃子。,小结：,For,语,语句与Next语句,必,必须成,对,对出现,，,，缺一,不,不可。,For,语,语句必,须,须在Next,语,语句之,前,前。,For,语,语句中,的,的循环,变,变量与Next语句,中,中的循,环,环变量,必,必须一,致,致。,如果步,长,长为1,，,，则step1可,省,省略。,For,循,循环,变,变量=,初,初值to,终,终值Step 步,长,长,语句组,Next 循,环,环变量,2.4,程,程序,循,循环结,构,构,For,循,循环,语,语句,格式：,For,循,循环,变,变量=,初,初值To,终,终值Step 步,长,长,语句组,Next 循,环,环变量,实践,写出,循,循环结,束,束时变,量,量A的,值,值、循,环,环次数,、,、运行,结,结果。,1、fora=1to10,printa,next a,2、fora=1to100,s=s,+,+a,next a,prints,3、fora=100to1 step,-,-1,s=s,+,+a,next a,Prints,4、fora=1to10,a=a,+,+1,printa,next a,实践,编程输,出,出：九,九,九乘法,表,表P57(图2-19),1*1,=,=1,2*1,=,=22*2,=,=4,3*1,=,=33*2,=,=63*3=9,4*1,=,=44*2,=,=84*3=124*4,=,=16,5*1,=,=55*2,=,=105*3=15 5,*,*4=205*5,=,=25,6*1,=,=66*2,=,=126*3=18 6,*,*4=246*5,=,=306*6=36,7*1,=,=77*2,=,=147*3=21 7,*,*4=287*5,=,=357*6=42 7,*,*7=49,8*1,=,=88*2,=,=168*3=24 8,*,*4=328*5,=,=408*6=48 8,*,*7=568*8,=,=64,9*1,=,=99*2,=,=189*3=27 9,*,*4=369*5,=,=459*6=54 9,*,*7=639*8,=,=729*9=81,代码参,考,考,Dimiasinteger,Dimjasinteger,Fori=1 to 9,forj=1 to I,printi &,“,“*,”,” &j,&,& “,=,=“,&,& i,*,*j ;,next j,print,Next i,2.4,程,程序,循,循环结,构,构,Do,循,循环语,句,句（循,环,环次数,不,不确定,）,）,一、当,条,条件满,足,足时执,行,行循环,体,体,Dowhile,条,条件,循环体,loop,=,=,=,=,=,=,=,=,=,=,=,=,=,二、当,条,条件满,足,足时退,出,出循环,Do,循环体,loop until 条,件,件,问题：,陈婷今,年,年17,岁,岁了，,她,她的生,日,日正好,是,是3月12日,植,植树节,。,。今年,植,植树节,老,老师带,同,同学们,到,到公园,里,里去植,树,树。陈,婷,婷很高,兴,兴，一,个,个人就,栽,栽了3,棵,棵树，,过,过了一,个,个很有,意,意义的,生,生日。,她,她想，,如,如果从,明,明年开,始,始每年,过,过生日,的,的时候,都,都去植,树,树，并,且,且每一,年,年要比,前,前一年,多,多栽一,棵,棵树，,这,这样下,去,去，到,多,多少岁,时,时才能,累,累计种,到,到或超,过,过100棵树,呢,呢？,代码参,考,考,Dimage as integer,Dimtreeasinteger,Age,=,=17,Tree=3,Do,age,=,=age+1,tree=tree,+,+age-14,Loop until tree,=100,Printage,tree,实践,1、已,知,知s=1+2,+,+3+,+N，找,出,出一个,最,最大的,整,整数N,，,，使得S,=30000,Printn,实践,2、假,设,设纸的,长,长度足,够,够长，,厚,厚度为0.1,毫,毫米，,对,对折一,次,次厚度,增,增加1,倍,倍，现,在,在对折,纸,纸张，,直,直到总,厚,厚度超,过,过珠穆,朗,朗玛峰,的,的高度,为,为止（,最,最新高,度,度：8844,.,.43,米,米），,对,对折纸,张,张的次,数,数。,代码参,考,考,K=0,H=0,.,.1,Do,k=k,+,+1,h=h,*,*2,Loop until h,=8844,.,.43,*,*1000,Printk,练习,求2-1000中完,全,全数（,因,因子之,和,和等于,它,它本身,的,的数为,完,完全数,）,），例,如,如28,的,的因子,是,是1、2、4,、,、7、14，,且,且1+2+4,+,+7+14=28，,则,则28,是,是完全,数,数,DimxAsLong,DimkAsLong,DimsAsLong,Forx,=,= 2To1000,s =0,Fork,=,= 1Tox,-,- 1,Ifx Modk =0Then,s =s,+,+ k,EndIf,Next,Ifs =xThen,printx,EndIf,Next,综合练,习,习,现在面,值,值为1,元,元、2,元,元和5,元,元的钞,票,票（假,设,设每种,钞,钞票的,数,数量足,够,够多）,，,，从这,些,些钞票,中,中出30张使,其,其总面,值,值为100元,，,，问有,多,多少种,取,取法？,输,输出每,种,种取法,中,中各面,额,额钞票,的,的张数,。,。,Dimk1, k2,k5AsInteger,Fork1,=,=1 To 100,Fork2,=,=1 To 100,Fork5,=,=1 To 100,Ifk1,+,+ 2,*,*k2,+,+ 5,*,*k5,=,= 100Andk1,+,+k2,+,+ k5 =30Then,MsgBox,(,(k1,&,&,|,&,&k2,&,& ,|,|,&,& k5),EndIf,Next,Next,Next,综合练,习,习,2.如,果,果一个3位数,等,等于它,的,的各位,数,数字的,立,立方和,，,，则这,个,个3位,数,数称为,“,“水仙,花,花”数,。,。例如153,=,=13+53+33。试编,程,程求出,所,所有水,仙,仙花数,。,。,Dimnaslong,Dimaasinteger,Dimbasinteger,Dimcasinteger,Forn=100to999,a=nmod 10,b=(n10)mod10,c=n,100,Ifa*a,*,*a+b*b,*,*b+c*c,*,*c=n thenprintn,综合练,习,习,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,DoWhilek ,=,= 10,a =a,+,+ 1,Fori,=,= 1Toa,-,- 1,Forj,=,= 1Toa,-,- 1,Forz,=,= 1Toa,-,- 1,Ifa *a,*,* a,=,=i *i,*,* i,+,+j *j,*,* j,+,+z *z,*,* zThen,Printa,i,j,z,k =k,+,+ 1,i =a,j =a,z =a,EndIf,Next z,Next j,Next i,Loop,综合练,习,习,有一根,长,长为600cm的钢,筋,筋，需,要,要截成,长,长度为69cm、39cm,、,、29cm的,三,三种规,格,格的短,料,料，在,三,三种规,格,格的短,料,料至少,各,各截1,的,的前提,下,下，如,何,何截取,才,才能使,所,所余下,的,的材料,最,最少？,Dimx,y,zAsInt16,Dimmin As Integer,min,=,=600,Dima,b,cAsInteger,Forx,=,= 1To20,Fory,=,= 1To20,Forz,=,= 1To20,If600,-,-69,*,* x,-,-39,*,* y,-,-29,*,* z,=0 Then,min,=,=600,-,-69,*,* x,-,-39,*,* y,-,-29,*,* z,a =x,b =y,c =z,EndIf,Next,Next,Next,printmin,&,&,|,&,&a &,|, &b,&,& ,|,|,&,& c,