第三讲——程序的基本结构课件

单击此处编辑母版文本样式,第二级,第三级,第四级,单击此处编辑母版标题样式,Page,*,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,*,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,Page,*,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,Page,*,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,Page,*,*,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,*,第三讲程序的基本结构,1、舟遥遥以轻飏，风飘飘而吹衣。,2、秋菊有佳色，裛露掇其英。,3、日月掷人去，有志不获骋。,4、未言心相醉，不再接杯酒。,5、黄发垂髫，并怡然自乐。,第三讲程序的基本结构第三讲程序的基本结构1、舟遥遥以轻飏，风飘飘而吹衣。,2、秋菊有佳色，裛露掇其英。,3、日月掷人去，有志不获骋。,4、未言心相醉，不再接杯酒。,5、黄发垂髫，并怡然自乐。大学计算机基础绍兴文理学院,王秀庆WangxiuqingVB程序设计第三讲 程序基本结构,1,、选择结构,VB,中实现选择结构的语句：,If,和,Select Case,条件,语句,1,语句,2,T,F,1,、选择结构,IF,语句,行,IF,语句,IF,THEN,Else,说明：,行,If,语句在同一行内写完，,没有,End If,语句,行,If,语句如果分行写，则在行结束处插入“,_,”,（空格、下划线）后，再按回车键,1,、选择结构,例题,求分段函数,f(x),的值。用,InputBox,输入,x,，计算结果,f(x),输出到,Text,控件,。,f(x)=,1-x,2,x5,1,、选择结构,IF,语句,块,IF,语句,If,THEN,Else,End If,在块,If,语句中，,If,与,End If,必须配对使用,1,、选择结构,例题,求,ax,2,+bx+c=0,方程的解,分析：,如何输入,a,，,b,，,c,值？,根据,a,，,b,，,c,，求,x,的值；,d=b*b-4*a*c,若,d=0,，方程为实根，否则为虚根。,输出,x1,，,x2,1,、选择结构,IF,语句,块,If,语句的扩展,多重,If,语句,If Then,else,If then,else,If then,End if,End if,End If,1,、选择结构,例题,输入学生成绩，评定等级。方法：,90,100,分为“优秀”；,80,89,分为“良好”；,70,79,分为“中等”；,60,69,分为“及格”；,60,分以下为“不及格”。,1,、选择结构,IF,语句,多重,If,语句的改进写法,If Then,elseIf,then,elseIf,then,End If,1,、选择结构,Select Case,语句,功能：根据测试表达式的值选择第一个符合条件的语句块执行。,Select Case,测试表达式,Case,值,1,语句块,1,Case,值,2,语句块,2,Case Else,语句块,n,End Select,1,、选择结构,Select Case,语句,说明：,测试表达式可以是数值或字符串表达式；,表达式列表与测试表达式的,类型必须相同,；,测试的值可以为以下类型：,Case,单值,例：,Case 3,Case,表达式,To,表达式 例：,Case 1 To 3,Case,枚举类型 例：,Case 2,，,4,，,6,Case,Is,关系运算符,+,表达式 例：,Case Is 3,1,、选择结构,例题,1.,输入学生成绩，评定等级。方法：,90,100,分为“优秀”；,80,89,分为“良好”；,70,79,分为“中等”；,60,69,分为“及格”；,60,分以下为“不及格”。,1,、选择结构,例题,2.,输入年和月，输出该月天数。,分析：,大小月天数不一样；,2,月份：润年为,29,天，否则为,28,天；,润年：,年份能被,4,整除并且不能被,100,整除或能被,400,整除为闰年,判断年份,y,为润年的,VB,表达式,y Mod 4=0 And y Mod 100 0 Or y Mod 400=0,1,、选择结构,例题,3.,求分段函数的值,Y=f(x)=,x+3 x3,x,2,1=x=3,x,0.5,0 x1,0 x=0,1,、选择结构,例题,4.,思考,a,分别为,3,、,-1,、,125,、,4,时，程序运行的结果分别是多少？,Select Case a Mod 5,Case Is 4,w=a+10,Case Is 2,w=a*2,Case Else,w=a-10,End Select,1,、选择结构,On Error,Goto,语句,程序中的错误：语法错误和运行错误，对于可以预见的运行错误，要采用,On Error,Goto,语句来捕获。,语法：,On Error Goto,L1,例：求一个数的倒数。,On Error Goto,L1,Print 1/(Text1.Text),Exit Sub,L1:,Msgbox”,除数为,0,，重新输入！”,第二讲,1,2,3,循环结构,4,课时,2,2,、循环结构,循环是指在程序设计中，从某处开始有规律地,反复执行某一程序块,，被反复执行的程序块称为“,循环体,”,在,VB,中，实现循环结构的语句有：,ForNext,WhileWend,DoLoop,2,、循环结构,For Next,语句,语法：,FOR,=,TO,STEP,循环体,NEXT,例：计算,1,100,之间奇数和,For i=1 to 99 step 2,s =s+i,Next i,2,、循环结构,For Next,语句,For,循环的几点说明：,步长缺省为,1,初值,终值，步长必须为,负,循环次数,N,Int,(,（终值初值）,/,步长,),1,循环正常结束，,循环控制变量的值,终值,在循环体中可以加入,Exit For,语句，强制退出循语句,例：,For n=1 to 99,s=s+n,If s100 then Exit for,Next n,2,、循环结构,For Next,语句,例题,求,1,2,3,n,求,n!,求,1,！,2!+3!+,n,！,求,1,1/2+1/3-1/4+(-1),n-1,(1/n),的值,2,、循环结构,For Next,语句,例题,找出,1,个,在,1-1000,中被,7,除余,5,、被,5,除余,3,、被,3,除余,2,的数,dim i as integer,For i=1 to 1000,if i mod 7=5 and i mod 5=3 and i mod 3=2 then,Exit for,Next i,if i=1000,then Print i,For i=5 to 1000 step 7,if i mod 5=3 and i mod 3=2 then Exit for,若求出,11000,之间所有满足此条件的数，试改写此程序,2,、循环结构,While Wend,语句,语法：,While,循环体,Wend,功能：当条件表达式,成立,时，执行循环体,说明,ForNext,循环和,WhileWend,循环可以通用；一般,ForNext,用于,循,环次数已知,的情况，而,WhileWend,多用于,循环次数未知,的情况,2,、循环结构,While Wend,语句,例题：输入,X,，求下列级数的和直至末项小于,10,-5,为止：,1+,X+X,2,/2!+X,3,/3!+X,4,/4!+X,n,/n!+.,分析：,a0=1,a1=x*a0/1,a2=x*a1/2,an=x*an-1/n,2,、循环结构,Do Loop,语句,DoLoop,当型循环：,Do,While,循环体,Loop,先判断，再执行，,循环体执行零次或多次,Do,循环体,Loop,While,先执行，再判断条件，,循环体至少执行一次,当型循环若要执行，,条件必须为,True,2,、循环结构,Do Loop,语句,例题：阅读程序，分析结果,2.a=5:s=0,Do,S=s+a:a=a-1,Loop,while a,0,Print s;a,1.a=5:s=0,Do,while a=0,S=s+a:a=a-1,Loop,Print s;a,2,、循环结构,Do Loop,语句,DoLoop,直到型循环：,Do,Until,循环体,Loop,先判断，再执行，,循环体执行零次或多次,Do,循环体,Loop,Until,先执行，再判断条件，,循环体至少执行一次,直到型循环若要执行，,条件必须为,False,，或直到条件成立时结束,2,、循环结构,Do Loop,语句,例题：阅读程序，分析结果,2.s=0:i=11,Do,s=s+i,i=i+1,Loop until i10,Print s,；,i,1.s=0:i=11,Do Until i 10,s=s+i,i=i+1,Loop,Print s;i,2,、循环结构,循环的嵌套,多重循环,循环的嵌套：循环里面还有循环,循环的嵌套执行过程是外循环执行,一次,，内循环执行,一遍,，即内循环执行结束后，再进行下一次外循环，直到外循环结束,外循环包含内循环，不能交叉,在多重循环中，各层循环的控制变量不能同名,双重循环在求解矩阵时的特殊含义：,外层循环表示行数，内存循环表示列数,双重循环输出矩阵时内层循环结束后必须有,换行（,Print,）语句,2,、循环结构,循环结构的应用,穷举法,公鸡每只,5,元，母鸡,3,元，小鸡,1,元,3,只，用,100,块钱买,100,只鸡，,公鸡、母鸡、小鸡各多少只？,分析：设公鸡,x,只，母鸡,y,只，小鸡,z,只；根据条件列出方程：,1,、,x+y+z,=100,2,、,5x+3y+z/3=100,使用穷举法，尝试每一种可能,思考：,x,2,+y,2,+z,2,=2000,的所有解,2,、循环结构,循环结构的应用,迭代法,已知一个数列前几项为,1,、,1,、,2,、,3,、,5,、,8,，从第三项开始都,等于它前面两项的和，求出该数列的前,40,项，每行输出,5,个数据,思考：某天小猴子摘了若干只桃子，当天吃了一半多一个，第二天又吃了剩下的一半多一个，如此，到第,7,天只剩,1,只桃子，问小猴子一共摘了多少只桃子？,2,、循环结构,循环结构的应用,求素数,判断输入的任意正整数是否为素数,分析：,1,、什么是素数？,2,、如何判断？,3,、改进算法,思考：输出,11000,之间所有的素数,2,、循环结构,循环结构的应用,乘法口诀表,分析：上图一共有九行，九列。采用二重循环来解决，外层循环,控制行数，内层循环控制列数,即,:,For i=1 to 9,For j=1 to 9,循环体,Next j,，,i,2,、循环结构,循环结构的应用,乘法口诀表,思考：如何输出上图表示的口觉表,2,、循环结构,循环结构的应用,金字塔,分析：使用双重循环，外层循环用于控制行数，内层循环用于输,出每一行的信息。,思考：如何输出右图？,感谢您的聆听,56,、书不仅是生活，而且是现在、过去和未来文化生活的源泉。,库法耶夫,57,、生命不可能有两次，但许多人连一次也不善于度过。,吕凯特,58,、问渠哪得清如许，为有源头活水来。,朱熹,59,、我的努力求学没有得到别的好处，只不过是愈来愈发觉自己的无知。,笛卡儿,60,、生活的道路一旦选定，就要勇敢地走到底，决不回头。,左,拉,