《第三讲——程序的基本结构.ppt》由会员分享，可在线阅读，更多相关《第三讲——程序的基本结构.ppt（39页珍藏版）》请在三一办公上搜索。
1、大学计算机基础,绍兴文理学院王秀庆Wangxiuqing,VB程序设计,第三讲 程序基本结构,Page 3,教学内容,1,2,3,选择结构3课时,循环结构4课时,数组及其应用3课时,Page 4,教学内容,1,2,3,选择结构3课时,Page 5,1、选择结构,VB中实现选择结构的语句：If和Select Case,Page 6,1、选择结构,IF语句行IF语句IF THEN Else,说明：行If语句在同一行内写完，没有End If语句 行If语句如果分行写，则在行结束处插入“_”（空格、下划线）后，再按回车键,Page 7,1、选择结构,例题,求分段函数f(x)的值。用InputBox输入
2、x，计算结果f(x)输出到Text控件。,Page 8,1、选择结构,IF语句块IF语句If THEN Else End If,在块If语句中，If与End If必须配对使用,Page 9,1、选择结构,例题,求ax2+bx+c=0方程的解,分析：如何输入a，b，c值？根据a，b，c，求 x 的值；d=b*b-4*a*c 若d=0，方程为实根，否则为虚根。输出x1，x2,Page 10,1、选择结构,IF语句块If语句的扩展多重If语句 If Then else If then else If then End if End if End If,Page 11,1、选择结构,例题,输入学生成绩
3、，评定等级。方法：90100分为“优秀”；8089分为“良好”；7079分为“中等”；6069分为“及格”；60分以下为“不及格”。,Page 12,1、选择结构,IF语句多重If语句的改进写法 If Then elseIf then elseIf then End If,Page 13,1、选择结构,Select Case语句功能：根据测试表达式的值选择第一个符合条件的语句块执行。Select Case 测试表达式 Case 值1 语句块1 Case 值2 语句块2 Case Else 语句块nEnd Select,Page 14,1、选择结构,Select Case语句说明：测试表达式可以
4、是数值或字符串表达式；表达式列表与测试表达式的类型必须相同；测试的值可以为以下类型：,Case 单值 例：Case 3 Case 表达式 To 表达式 例：Case 1 To 3 Case 枚举类型 例：Case 2，4，6 Case Is 关系运算符+表达式 例：Case Is 3,Page 15,1、选择结构,例题,1.输入学生成绩，评定等级。方法：90100分为“优秀”；8089分为“良好”；7079分为“中等”；6069分为“及格”；60分以下为“不及格”。,Page 16,1、选择结构,例题,2.输入年和月，输出该月天数。,分析：大小月天数不一样；2月份：润年为29天，否则为28天；
5、润年：年份能被4 整除并且不能被100整除或能被400整除为闰年 判断年份 y 为润年的VB表达式 y Mod 4=0 And y Mod 100 0 Or y Mod 400=0,Page 17,1、选择结构,例题,3.求分段函数的值,Page 18,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,Page 19,1、选择结构,On Error Goto语句程序中的错误：语法错误和运行错误，对
6、于可以预见的运行错误，要采用On Error Goto 语句来捕获。,语法：On Error Goto L1例：求一个数的倒数。On Error Goto L1Print 1/(Text1.Text)Exit SubL1:Msgbox”除数为0，重新输入！”,Page 20,第二讲,1,2,3,循环结构4课时,2,Page 21,2、循环结构,循环是指在程序设计中，从某处开始有规律地反复执行某一程序块，被反复执行的程序块称为“循环体”,在VB中，实现循环结构的语句有：ForNext WhileWend DoLoop,Page 22,2、循环结构,For Next语句语法：FOR=TO STEP
7、 循环体NEXT 例：计算1100之间奇数和 For i=1 to 99 step 2s=s+i Next i,Page 23,2、循环结构,For Next语句For循环的几点说明：步长缺省为1 初值 终值，步长必须为负 循环次数NInt(（终值初值）/步长)1 循环正常结束，循环控制变量的值终值 在循环体中可以加入Exit For语句，强制退出循语句 例：For n=1 to 99 s=s+n If s100 then Exit for Next n,Page 24,2、循环结构,For Next语句例题 求123n 求n!求1！2!+3!+n！求11/2+1/3-1/4+(-1)n-1(
8、1/n)的值,Page 25,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之间所有满足此条件的数，试改写此程序,Page 26,2、循环结构,While Wen
9、d语句语法：While 循环体 Wend功能：当条件表达式成立时，执行循环体,说明 ForNext循环和WhileWend循环可以通用；一般ForNext用于循 环次数已知的情况，而WhileWend多用于循环次数未知的情况,Page 27,2、循环结构,While Wend语句例题：输入X，求下列级数的和直至末项小于10-5为止：1+X+X2/2!+X3/3!+X4/4!+Xn/n!+.分析：a0=1a1=x*a0/1a2=x*a1/2an=x*an-1/n,Page 28,2、循环结构,Do Loop语句DoLoop当型循环：,Do While 循环体Loop先判断，再执行，循环体执行零次
10、或多次,当型循环若要执行，条件必须为True,Page 29,2、循环结构,Do Loop语句例题：阅读程序，分析结果,2.a=5:s=0 Do S=s+a:a=a-1 Loop while a0 Print s;a,1.a=5:s=0 Do while a=0 S=s+a:a=a-1 Loop Print s;a,Page 30,2、循环结构,Do Loop语句DoLoop直到型循环：,Do Until 循环体Loop先判断，再执行，循环体执行零次或多次,直到型循环若要执行，条件必须为False，或直到条件成立时结束,Page 31,2、循环结构,Do Loop语句例题：阅读程序，分析结果,
11、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,Page 32,2、循环结构,循环的嵌套多重循环 循环的嵌套：循环里面还有循环 循环的嵌套执行过程是外循环执行一次，内循环执行一遍，即内循环执行结束后，再进行下一次外循环，直到外循环结束 外循环包含内循环，不能交叉 在多重循环中，各层循环的控制变量不能同名 双重循环在求解矩阵时的特殊含义：外层循环表示行数，内存循环表示列数 双重循环输出矩阵时内层循环结束后必须有换行（Print）语句,Pag
12、e 33,2、循环结构,循环结构的应用 穷举法 公鸡每只5元，母鸡3元，小鸡1元3只，用100块钱买100只鸡，公鸡、母鸡、小鸡各多少只？分析：设公鸡x只，母鸡y只，小鸡z只；根据条件列出方程：1、x+y+z=100 2、5x+3y+z/3=100 使用穷举法，尝试每一种可能,思考：x2+y2+z2=2000的所有解,Page 34,2、循环结构,循环结构的应用 迭代法 已知一个数列前几项为1、1、2、3、5、8，从第三项开始都 等于它前面两项的和，求出该数列的前40项，每行输出5 个数据,思考：某天小猴子摘了若干只桃子，当天吃了一半多一个，第二天又吃了剩下的一半多一个，如此，到第7天只剩1只
13、桃子，问小猴子一共摘了多少只桃子？,Page 35,2、循环结构,循环结构的应用 求素数 判断输入的任意正整数是否为素数 分析：1、什么是素数？2、如何判断？3、改进算法,思考：输出11000之间所有的素数,Page 36,2、循环结构,循环结构的应用 乘法口诀表 分析：上图一共有九行，九列。采用二重循环来解决，外层循环 控制行数，内层循环控制列数,即:For i=1 to 9 For j=1 to 9 循环体 Next j，i,Page 37,2、循环结构,循环结构的应用 乘法口诀表 思考：如何输出上图表示的口觉表,Page 38,2、循环结构,循环结构的应用 金字塔 分析：使用双重循环，外层循环用于控制行数，内层循环用于输 出每一行的信息。,思考：如何输出右图？,感谢您的聆听,
