《第三讲——程序的基本结构.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)的值。用
2、InputBox输入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 1
3、1,1、选择结构,例题,输入学生成绩，评定等级。方法：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 语句块n End Select,Page 14,1、选择结构,
4、Select Case语句 说明： 测试表达式可以是数值或字符串表达式； 表达式列表与测试表达式的类型必须相同； 测试的值可以为以下类型：,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. 输入年和月，输出该月天数。,
5、分析： 大小月天数不一样； 2月份：润年为29天，否则为28天； 润年：年份能被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 Sele
6、ct,Page 19,1、选择结构,On Error Goto语句 程序中的错误：语法错误和运行错误，对于可以预见的运行错误，要采用On Error Goto 语句来捕获。,语法： On Error Goto L1 例：求一个数的倒数。 On Error Goto L1 Print 1/(Text1.Text) Exit Sub L1:Msgbox”除数为0，重新输入！”,Page 20,第二讲,1,2,3,循环结构 4课时,2,Page 21,2、循环结构,循环是指在程序设计中，从某处开始有规律地反复执行某一程序块，被反复执行的程序块称为“循环体”,在VB中，实现循环结构的语句有： ForN
7、ext WhileWend DoLoop,Page 22,2、循环结构,For Next语句 语法： FOR = TO STEP 循环体 NEXT 例：计算1100之间奇数和 For i = 1 to 99 step 2 s = 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 f
8、or Next n,Page 24,2、循环结构,For Next语句 例题 求123n 求n! 求1！2!+3!+n！ 求11/2+1/3-1/4+(-1)n-1(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
9、 5=3 and i mod 3=2 then Exit for,若求出11000之间所有满足此条件的数，试改写此程序,Page 26,2、循环结构,While Wend语句 语法： 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=1 a1=x*
10、a0/1 a2=x*a1/2 an=x*an-1/n,Page 28,2、循环结构,Do Loop语句 DoLoop当型循环：,Do While 循环体 Loop 先判断，再执行，循环体执行零次或多次,当型循环若要执行，条件必须为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
11、Until 循环体 Loop 先判断，再执行，循环体执行零次或多次,直到型循环若要执行，条件必须为False，或直到条件成立时结束,Page 31,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,Page 32,2、循环结构,循环的嵌套多重循环 循环的嵌套：循环里面还有循环 循环的嵌套执行过程是外循环执行一次，内循环执行一遍，即内循环执行结束后，再
12、进行下一次外循环，直到外循环结束 外循环包含内循环，不能交叉 在多重循环中，各层循环的控制变量不能同名 双重循环在求解矩阵时的特殊含义：外层循环表示行数，内存循环表示列数 双重循环输出矩阵时内层循环结束后必须有换行（Print）语句,Page 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、循环结构,循环
13、结构的应用 迭代法 已知一个数列前几项为1、1、2、3、5、8，从第三项开始都 等于它前面两项的和，求出该数列的前40项，每行输出5 个数据,思考：某天小猴子摘了若干只桃子，当天吃了一半多一个，第二天又吃了剩下的一半多一个，如此，到第7天只剩1只桃子，问小猴子一共摘了多少只桃子？,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、循环结构,循环结构的应用 金字塔 分析：使用双重循环，外层循环用于控制行数，内层循环用于输 出每一行的信息。,思考：如何输出右图？,感谢您的聆听,