资源描述：
《循环语句的功能介绍和应用.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、个人收集整理勿做商业用途强烈要求同学们注意:循环语句的功能介绍和应用的内容是程序设计课程的难点和重点,必须全力以赴注意听讲!下面我们分两节课来讲解。第38讲 循环语句的功能介绍和应用(上）P21P95先复习一下上节课内容:1、VB的立即方式,几个常用函数的使用介绍(演示）：打开矩形求解.FRM的立即窗口? Str(10)+Str(5)? Ｖａl（“10”)+Val(“5”)?Fiｘ(６．１)，Fｉx(6.7)，Fix(-6.1),Fix(-６.7)’Fix(x）的值为截去x的小数部分后的整数部分，而且不四舍五入。S=８８8?"S=";S ‘两个以上表达式可以用“，”或“;”分隔,用
2、“；”结果是前后紧接在一起;? "S＝"＋Str(S)‘和上面结果一样2、补讲2个函数:(１)、输入函数:ＩnｐutBox（x) 运行时，会弹出一个输入框，函数值是你键盘输入的值,例如在矩形求解．ＦRＭ中，语句Ｌ= Teｘt1.Ｔexｔ可用:L=ＩnpuｔBox(“L=”，“请输入长度”，3０)来代替，演示； 格式：InｐuｔBoｘ(“提示字符串”,“输入框名称”,默认值) 从上面演示中,凡是单引号’ 后面的内容都不运行，单引号’后面的内容仅是注释内容； （5)输出函数：ＭｓgＢoｘ(表达式)弹出一个输出信息框,把表达式的值显示出来，例如在程矩形求解.FRＭ中，语句Ｔext3.
3、Text ＝ d可用：MsgBｏx(d)代替，演示; ＭｓｇBox(表达式)中的表达式可以是字符串(文本）,例如:语句Text4.Ｔext="有二条相同的边长:高ｈ＝宽w="+ Str（L/4）+"cm"可用:MｓgBｏx(＂有二条相同的边长:高h=宽w=" + Str（Ｌ/4)+"ｃm"）来代替；演示：当Ｌ=１00,S=625时,d＝0，只有一个根;一、循环结构 执行语句：1、2行复习例２：求S=1+1／2＋1/3+…+1/n示意性程序如下：（Ｓ=Ｓ+1／k，k=1,２，3,…,n）条件1 输入ｎ值=１0０２ S＝0: ｋ=1 ３ Y3如果ｋ>n转到7
4、 N执行程序段：4、5４S＝S＋1/ｋ5 ｋ=k＋１6转到3 6转到3 ７ S7输出: S 8结束个人收集整理勿做商业用途二、循环语句功能演示:执行例2:求S=1+1/2＋1/3+…＋1/n的例2累加求和程序.FＲM;求S=1+1/2＋1／3+…+1／n的例2程序的 VＢ程序代码如下：ｎ=Val（n)DｏWhiｌeｎ<1oｒn<> Fｉｘ(n) n=ＩnputBox("输入ｎ不是自然数，请重新输入ｎ=？"）Text1.Tｅｘｔ=n ｎ =Vaｌ(n)LoopPｒivａteSubＣommand1_Cｌick() 插入下面程序段，可限制n只能输入自然数：
5、Ｓ=0n= Ｔexｔ1．Tｅxt=100Foｒ ｋ= 1TonＳｔep １ S＝ S+１/kNｅxtk＝100＋1=101Text2．Tｅxt=ＳEnｄSubTｒuｅ;当至少有一个条件为真时;Ｆalse;２个条件都为假时；注:逻辑运算符or 是:或者意思,条件表达式1 ｏr条件逻辑表达式2=逻辑值 (演示：用立即方式验证Fix(x)和ｏr） P71-73 1、Ｆｏr语句的一般格式:P79For循环变量=初值To 终值Stｅp步长程序段Ｎext循环变量执行功能流程图如下：循环变量ß初值，把终值、步长记录下来（一次性保存下来）循环变量超过终值？N
6、Y结束循环执行循环体内程序段循环变量ß循环变量+步长循环程序功能示例:（执行两种循环语句示例.FRM)（1） S=0ForK =1 Tｏ10Sｔｅp1（注意:Step１可省略)Ｐｒiｎt Ｋ ‘1,2,３,４,…,１0 Ｓ= S+K ‘０+１＋2+3＋…＋１０ＮｅxtK 执行：Kß Ｋ+１,K＞终值10?PrｉnｔSPriｎｔK＝终值+步长个人收集整理勿做商业用途 下面讨论Ｆoｒ K=1 Ｔｏ10 Step 1的其它改变情况：(2）ＦoｒK= 1To10Step 2 (3)Ｆｏr K=１0Ｔｏ １ Ｓtｅp -1 Kß10+(-1),９+(-1),８+(-1),...,
7、直到K＝0<终值１结束循环。大于终值;当步长为正时;小于终值; 当步长为负时；这里说明：循环变量超过终值?的“超过”意思:“大于”或“小于”的两种情况流程图参见:课本P7８图,并和讲稿上的执行功能流程图对照;（４) Ｆoｒ K=1 Ｔo 1０Ｓteｐ1S =S＋1 每次循环把当前的S加１,循环10次：S=1＋１＋1＋１＋1+１+1+1+1+１=1０Neｘt ＫＰｒinｔ S这里说明：循环体内程序段里当然可以没有循环变量Ｋ，这里的K仅是控制
