信息技术选修一

信息技术（选修一）信息技术（选修一）指导教师：刘玉军指导教师：刘玉军佛山市顺德区伦教中学佛山市顺德区伦教中学开心开心 快乐快乐 学习学习信息技术（选修一）信息技术（选修一）指导教师：刘玉军指导教师：刘玉军准备o 一、学生按座位自由分组、小组编号、推荐小组长；o 二、选课，实名注册o 三、熟悉天空教室网络平台第一课 计算机如何解决问题国际象棋国际象棋“人机大战人机大战”落幕落幕世界冠军惜败世界冠军惜败“深奥的德国深奥的德国人人”中国象棋人机大战中国象棋人机大战计算机微弱优势取胜计算机微弱优势取胜古典问题韩信点兵 韩信是我国西汉初著名的军事韩信是我国西汉初著名的军事家，刘邦得天下，军事上全依靠家，刘邦得天下，军事上全依靠他。韩信点兵，多多益善，不仅他。韩信点兵，多多益善，不仅如此，还能经常以少胜多，以弱如此，还能经常以少胜多，以弱胜强。在与楚军决战时韩信指挥胜强。在与楚军决战时韩信指挥诸侯联军，在垓诸侯联军，在垓gi下十面埋下十面埋伏，击败楚军，楚霸王项羽因此伏，击败楚军，楚霸王项羽因此自杀。自杀。韩信点兵问题：相传汉高祖刘邦问大将军韩信统御士兵多少，韩信答说，每韩信点兵问题：相传汉高祖刘邦问大将军韩信统御士兵多少，韩信答说，每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为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=0Do if x mod 3=1 and x mod 5=2 and x mod7=4 and x mod 13=6 and x mod 17=8 then y=xX=x+1Loop until y0Print y计算机解决问题的步骤o 1、分析问题o 2、设计算法o 3、编写程序o 4、调试程序交流求解决问题的方式 相同点不同点人工求解用计算机求解速度慢,易出错.都需要分析问题,设计算法.速度快,需编写程序和调试程序实践o 1、模仿学过的用计算机程序解决问题的方法，设计一个算法，尝试求解鸡兔同笼问题：今有鸡兔同笼，上有三十五头，下有九十四足，问鸡兔各几何？ 实践2.设计一个算法,求两个数中的最大数算法和算法的描述欧几里得:求两个整数的最大公约数的过程辗转相除法，其具体过程如下：设给定的两个正整数为m和n,求它们的最大公约数的步骤为：、以m除以n,令所得的余数为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 表示算法的语言主要有自然语言、流程图、伪代码等。例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)()(cpbpapps递归算法一天,小猴子从树上摘下若干个桃子,当即吃了一半,觉得好吃,又吃了一个.第二天小猴子接着吃剩下的一半,再多吃一个.以后每天都是吃前一天剩下的一半,再多吃一个.到第四天,只剩下一个桃子.试设计一下算法流程图.求小猴子第一天摘下多少个桃子.算法描述：算法描述： function你有多少桃子？（第几天） 如果如果我第10天，那么我就有一个桃子。 否则否则，我的桃子数=（前一天的桃子数+1）*2 end function参考代码Function tao(ByVal days As Integer) As IntegerIf days = 10 Thentao = 1Elsetao = (tao(days + 1) + 1) * 2End IfEnd Function循环算法Dim k, i As Integerk = 1For i = 1 To 4 Print k k = (k + 1) * 2Next i算法流程图P11 图1-3伪代码Input m,nR=m mod nDo while r0 thenm=nn=rr=m mod nLoopPrint n例1：从键盘输入圆的半径r,编程计算圆的面积。1、分析问题圆的半径为r,则圆的面积s=3.14*r22、设计算法根据题意，用顺序结构来完成。第一步输入圆的半径r；第二步求s=3.14*r*r的值第三步输出结果例1：从键盘输入圆的半径r,编程计算圆的面积。3、编写程序（visual Basic语言）Dim r as double Dim s as doubler=inputbox(“r=”)s=3.14*r*rPrint “s=“;s4、调试程序程序编好后，通过键盘输入计算机，运行程序，并输出结果，直到没有错误为止。四、课堂练习：画流程图和编写代码 例2：从键盘输入三角形的三边长a、b、c，如果能构成一个三角形，则输出其面积，否则输出“不能构成一个三角形！”的提示信息。提示：计算机三角形面积的公式为： 其中 p=(a+b+c)/2)()(cpbpapps练习有三个装油的瓶子,大瓶子可装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，结束。五、程序与程序设计语言o 程序设计语言n 机器语言n 汇编语言n 高级语言o 程序n 编辑程序n 编译程序（解释程序）n 连接程序第二课 程序设计基础目标目标:学习如何使用学习如何使用VB语言来编写程序语言来编写程序知识要点回顾:o 程序的基本结构:1. 顺序结构2. 选择结构3. 循环结构n 程序设计1. 程序设计就是编写程序的过程.需要把计算机做的工作写成一种计算机能接受的程序.n 算法1. 算法就是求解某一问题的方法.课堂实践探究课堂实践探究o 求”半径为r的圆的面积”的程序dim r as singledim s as singler=inputbox(“r”)s=3.14*r*rprint s2.1 VB语言及程序开发环境1. 基础数据类型2. 常量与变量3. 运算符、函数和表达式2.2程序的顺序结构1. 赋值语句（=）2. 输入数据的函数（inputbox）3. 输出数据的方法 (print)问题1o 2-2：已知长方体的长、宽、高，编写一个程序，求长方体的全面积和体积。n 分析问题n 设计算法n 编写程序n 调试程序问题2o 2-3：从键盘上输入一个三位整数，然后将它反向输出。例如输入456，输出应为654。n 分析问题n 设计算法n 编写程序n 调试程序代码参考X1=x mod 10X2=x10 mod 10X3=x100Y=x1*100+x2*10+x3练习1：从键盘输入三角形的三边长a、b、c，计算机三角形面积. 提示：计算机三角形面积的公式为：p(p-a)(p-b)(p-c)的平方根,其中p=(a+b+c)/2 练习1. 甲乙进行百米赛跑，甲从开始到终点都以每秒2米，乙第一秒跑1米以后每秒都比前一秒多跑005米，编写程序求谁能获胜。练习1. 古希腊有位大数学家Diophantus丢番图有一段有名的墓志铭： 过路人，这里埋著Diophantus的骨灰，下面的数字，可以告诉你，他的一生有多长。他的生命的六分之一是愉快的童年；在过了他生命的十二分之一，他的面颊上长了细细的胡须，如此，又过了一生的七分之一，他结了婚。婚后五年，他获得了第一个孩子，感到很幸福。可是，命运给这孩子在这世界上光辉灿烂的生命，只有他父亲的一半。自从儿子死了以后，他在深切的悲痛中活了四年，也结束了尘世的生涯。试问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 条件成立吗？语句组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=;selse print 不能构成三角形不能构成三角形end if编写一程序，判断年份是否为闰年。公历闰年判定遵循的规律为公历闰年判定遵循的规律为: 四年一闰四年一闰,百年不闰百年不闰,四百年再闰四百年再闰.公历闰年的简单计算方法（符合以下条件之一的年份即为闰年）公历闰年的简单计算方法（符合以下条件之一的年份即为闰年）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 程序的选择结构o 登录天空教室网络平台 查看教程2.3n 192.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 & “元元”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:/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 程序一般四个组成部分程序一般四个组成部分:1. 定义变量定义变量2. 输入数据输入数据3. 处理数据处理数据4. 输出结果输出结果五组测试数据体重（体重（kg）身高（身高（cm）提示提示142150标准265151偏胖346171偏瘦451162偏瘦559157偏胖作业评讲应用拓展o 学生根据情况任选一题1. 编写一元二次方程的求解程序，要求能够判断方程是否有根，如果没有根则给出相应的提示信息。2. 编一个程序，输入三个数，输出其中的最大数。回顾小结o 通过这节课的学习，我们了解if语句三种常用格式的使用方法，并利用if语句来编写程序。希望大家在日常生活学习多发现问题，并思考如何利用学过的计算机知识来解决问题 2.3.1 从制作矩形框问题开始o 问题 张军找来一条长度为L的铁丝，希望用来制作一个面积为S的矩形框。他问李明：这个矩形的长和宽应当是多少，才能使制作出来的矩形框面积为指定的值呢？1、分析问题o 设所求矩形的宽为x,根据题目的条件，矩形的周长是L，那么它的长与宽的和就是L/2，长应为L/2-x，根据矩形的面积公式，方程如下：x(L/2-x)=s0212SLxx通过求根公式可得出解答2、设计算法1. 输入铁丝的长度L；2. 输入矩形的面积S;3. 计算判别式D=L*L/4-4*S4. 如果D=0,则计算 x1=(L/2+sqr(D)/2 x2=(L/2-sqr(D)/2 并输出x1和x2，否则输出“找不到这样的矩形”5. 结束3、编写程序Dim L as doubleDim S as doubleDim D as doubleL=inputbox(“请输入铁丝的长度：”)S=inputbox(“请输入矩形的面积：”)D=L*L/4-4*SIf D=0 then x1=(L/2+sqr(D)/2 x2=(L/2-sqr(D)/2 print “这个矩形的长和宽分别为：”；x1;”和”；x2Else print “找不到这样的矩形”End IF2.3.2 条件语句1.条件语句的格式If 条件 Then 语句组1 Else 语句组2 End If2.3.2 条件语句2.条件语句的执行过程条件成立吗？语句组2语句组1是否2.3.2 条件语句3.关系表达式 关系运算符号有：运算符号=含义等于大于大于等于小于小于等于不等于关系表达式的值：假（False）和真（True）数据类型：逻辑型(Boolean)2.3.2 条件语句4.逻辑表达式 逻辑运算符： Not(非) And(与) Or(或) 5.逻辑运算的顺序 算术运算关系运算逻辑运算 例：a+bc+d And a=5 or Not c0 Or d=0 then Print “Y=“;A else Print “Y=”;-A实践2、某商场为了对苹果进行促销，规定购买2千克以上可以在原价每千克1.5元的基础上打8折。请设计一个程序计算购买x千克苹果的应付款。练习1编写一程序，判断年份是否为闰年。闰年的条件：年份能被4整除但不能被100整除，或能够被100整除也能被400整除。X=inputbox(“输入年份”)If (x mod 4=0) and (x mod 1000) then print x;”闰年”If (x mod 100=0) and (x mod 400=0) then print x;”闰年”练习2编一个程序，输入三个数，输出其中最大数a=inputbox(“a”)b=inputbox(“b”)c=inputbox(“c”)Max=aIf bmax then max=bIf cmax then max=cPrint “最大数是”;max练习Dim x as doubleX=inputbox(“x”)If x8 then X=x-8Print xEnd ifIf x5 then print x+91、当输入9时程序运行结果是多少？2、当输入20时程序运结果是多少？2.多重选择语句的格式o 基本格式：Select Case 表达式 Case 表达式列表1 语句组1 Case 表达式列表2 语句组2 Case Else 语句组N+1End Select实践1、当F=1，2，3，4时程序运行的结果Dim a,b,c as singleDim d as stringF=inputbox(“请输入F的值：”)A=2B=3Select case f case 1:c=a+b:d=“+” case 2:c=a-b:d=“-” case 3:c=a*b:d=“*” case 4:c=a/b:d=“/”End selectPrint a;d;b;”=”;c综合练习1 我们把字符作为如下的分类：大写字母：A-Z；小写：a-z;数字：0-9；其他字符。编写一个程序，根据上述分类的方法，输入一个字符，报告该字符所属的类型。代码参考Dim c As String c = InputBox(输入任意字符) Select Case c Case A To Z print 字母大写类别 & c Case a To z print 字母小写类别 & c Case 0 To 9 print 数字类别 & c Case Else print 其他类别 & c End Select综合练习2编写一个程序，让计算机同我们一起玩剪发、钉锤、布游戏。如果人输了，则输出“LOSE”,人赢了，则输出”WIN”,人与计算机平了，则输出“DEUCE”.思考问题l编程输出编程输出10以内的所有偶数以内的所有偶数?l程序代码程序代码:print 2print 4print 6print 8print 10 如果要依次输出如果要依次输出100甚至甚至1000以内的所有偶数。怎么办？以内的所有偶数。怎么办？ 通式通式:Print i (i=2 4 6 8 10)循环结构思想l利用循环结构，使我们只要通过少量的语句，让计算机重复利用循环结构，使我们只要通过少量的语句，让计算机重复执行许多次，从而完成要求。执行许多次，从而完成要求。l重复要做的事情就是循环体。在上例中循环体是什么？重复要做的事情就是循环体。在上例中循环体是什么？lprint il利用计数变量来控制循环执行的次数利用计数变量来控制循环执行的次数,否则是死循环。否则是死循环。l变化规律变化规律:后一个常量总比前一个常量大后一个常量总比前一个常量大2。即。即i=i+2。新课：For循环结构 l本节课学习目标本节课学习目标l1. 理解循环结构的基本思想。理解循环结构的基本思想。l2. 掌握用掌握用For循环语句编写程序。循环语句编写程序。l基本格式：基本格式：For 循环变量循环变量=初值初值 to 终值终值 Step 步长步长语句组语句组Next 循环变量循环变量说明：1.For语句：其作用是确定循环变量的值如何变化语句：其作用是确定循环变量的值如何变化，从而控制循环的次数。，从而控制循环的次数。2.循环变量：它是一个数值变量。循环变量：它是一个数值变量。3.初值、终值和步长可以是常量、变量和表达式；初值、终值和步长可以是常量、变量和表达式；4. 步长：如果步长为步长：如果步长为1，则可省略不写。，则可省略不写。5.循环体在循环体在For语句和语句和Next语句之间的语句序列，语句之间的语句序列，可是一个或多个语句。可是一个或多个语句。6.Exit For语句：退出循环。语句：退出循环。7.Next语句：循环终端语句，在其后的循环变量须语句：循环终端语句，在其后的循环变量须与与For语句中的语句中的“循环变量循环变量”一致。一致。For 循环变量循环变量=初值初值 to 终值终值 Step 步长步长语句组语句组Next 循环变量循环变量观察：单步执行i值变化情况输出输出10以内的所有偶数以内的所有偶数For i=2 to 10 step 2 Print iNext i源程序源程序自主探究视频视频 袁隆平：一粒种子改变世界袁隆平：一粒种子改变世界背景介绍：杂交水稻之父背景介绍：杂交水稻之父袁隆平袁隆平 登录天空教室网络平台登录天空教室网络平台 查看教程查看教程2.4.1网网 址：址：192.168.0.1/school公用帐号公用帐号:student 密码密码:student：要求：用要求：用For循环语句实现，并上传探究结果。循环语句实现，并上传探究结果。l现已知某个因素现已知某个因素M种水平种水平5次试验的亩产量（单位：次试验的亩产量（单位：千克）如下表所示，求各种水平影响下的亩产量。千克）如下表所示，求各种水平影响下的亩产量。水平水平第第1次次第第2次次第第3次次第第4次次第第5次次水平水平19081099790886845水平水平2509699843755788水平水平398711009551020995作品展示评价内内 容容权重权重得分得分设计思路清晰，目的性强设计思路清晰，目的性强2020设计界面友好，实用性强设计界面友好，实用性强2020程序运行良好，结果正确程序运行良好，结果正确2020程序结构优化，算法科学程序结构优化，算法科学2020富有创新意识，方法独特富有创新意识，方法独特2020总分总分评价量表评价量表 参考作品参考作品实践1.编程求编程求1+2+3+100的和的和2.编程求编程求10！拓展任务1.要求：用要求：用For循环语句实现循环语句实现2.猴子吃桃问题猴子吃桃问题一天，小猴子从树上摘下若干上桃子，当即吃了一天，小猴子从树上摘下若干上桃子，当即吃了一半，觉得不过瘾，又吃了一个。第二天小猴子一半，觉得不过瘾，又吃了一个。第二天小猴子接着吃剩下的一半，还觉得不过瘾，又吃了一个接着吃剩下的一半，还觉得不过瘾，又吃了一个。以后每天都是吃前一天剩下的，就再多吃一个。以后每天都是吃前一天剩下的，就再多吃一个。到第四天，只剩一个桃子。试设计一个算法，。到第四天，只剩一个桃子。试设计一个算法，求小猴子第一天摘下多少个桃子。求小猴子第一天摘下多少个桃子。小结：1.For语句与语句与Next语句必须成对出现，缺一不可。语句必须成对出现，缺一不可。2.For语句必须在语句必须在Next语句之前。语句之前。3.For语句中的循环变量与语句中的循环变量与Next语句中的循环变量语句中的循环变量必须一致。必须一致。4.如果步长为如果步长为1，则，则step 1可省略。可省略。For 循环变量循环变量=初值初值 to 终值终值 Step 步长步长语句组语句组Next 循环变量循环变量2.4 程序循环结构1. For 循环语句格式：For 循环变量=初值 To 终值 Step 步长 语句组Next 循环变量实践写出循环结束时变量A的值、循环次数、运行结果。1、for a=1 to 10 print a next a2、for a=1 to 100 s=s+a next a print s3、for a=100 to 1 step -1 s=s+a next aPrint s4、for a=1 to 10 a=a+1 print a next a实践编程输出：九九乘法表编程输出：九九乘法表P57(图图2-19)1*1=12*1=2 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代码参考Dim i as integerDim j as integerFor i=1 to 9 for j=1 to I print i & “*” & j & “=“ & i * j ; next j printNext i2.4 程序循环结构Do 循环语句（循环次数不确定）一、当条件满足时执行循环体 Do while 条件 循环体 loop=二、当条件满足时退出循环 Do 循环体 loop until 条件问题： 陈婷今年17岁了，她的生日正好是3月12日植树节。今年植树节老师带同学们到公园里去植树。陈婷很高兴，一个人就栽了3棵树，过了一个很有意义的生日。她想，如果从明年开始每年过生日的时候都去植树，并且每一年要比前一年多栽一棵树，这样下去，到多少岁时才能累计种到或超过100棵树呢？代码参考Dim age as integerDim tree as integerAge=17 Tree=3Do age=age+1 tree=tree+age-14Loop until tree=100Print age,tree实践1、已知s=1+2+3+N，找出一个最大的整数N，使得S=30000Print n实践2、假设纸的长度足够长，厚度为0.1毫米，对折一次厚度增加1倍，现在对折纸张，直到总厚度超过珠穆朗玛峰的高度为止（最新高度：8844.43米），对折纸张的次数。代码参考K=0H=0.1Do k=k+1 h=h*2Loop until h=8844.43*1000Print k练习o 求2-1000中完全数（因子之和等于它本身的数为完全数），例如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 = 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。试编程求出所有水仙花数。Dim n as longDim a as integerDim b as integerDim c as integerFor n=100 to 999 a=n mod 10 b=(n10) mod 10 c=n 100If a*a*a+b*b*b+c*c*c=n then print n综合练习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 + 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