VB的基本控制结构.ppt

《VB的基本控制结构.ppt》由会员分享，可在线阅读，更多相关《VB的基本控制结构.ppt（59页珍藏版）》请在三一办公上搜索。

1、VB程序设计采用结构化程序设计的思想，结构化程序设计的特点是程序结构清晰，易读性强，并易于查错纠错。在VB中有三种基本的程序控制结构：顺序结构、选择结构和循环结构。VB所有的程序都可以由这若干个这三种基本结构的组合，通过各种算法，以解决不同的实际问题。,第四章 VB的基本控制结构,4.1 顺序结构4.2 选择结构4.3 循环结构4.4 循环嵌套4.5 常用算法,第四章 VB的基本控制结构,顺序结构是一种线性结构，也是程序设计中最简单、最常用的基本结构。它在程序运行过程中，按照语句出现的顺序从上到下依此执行。顺序结构流程图如下图所示，先执行语句A，再执行语句B。,4.1顺序结构,顺序结构中主要的

2、语句是赋值语句，通过赋值语句，可以在程序中改变变量的值，或改变对象属性值。其语法格式为：Let变量表达式 Let对象.属性表达式其中表达式中可以包含变量、常量、属性。此时等号称为赋值等号。例如：Dim A As String A=Text1.Text Label1.Caption=A,赋值语句,说明：(1)赋值语句兼有计算和赋值双重功能。(2)“”是赋值等号，与数学上的等号意义不同。(3)赋值等号两边的数据类型通常要求一致，但VB提供的对某些数据类型的自动转换机制，可强制变量转换为适当的数据类型。例如，当逻辑型赋值给数值型时，True转换为-1，False转换为0；反之，非0转换为True，0

3、转换为False；(4)赋值等号左边的只能是变量或对象的属性，不能是常量、常数符号、表达式，否则出错。,赋值语句,计算机智能化的标志之一就是具有逻辑判断的能力；即针对不同的情况作出不同的选择。在程序设计中，这一功能的实现是借助相应的选择结构语句来完成的。选择结构也称为分支结构，其特点是根据给定的条件来选择执行相应的程序语句。VB中提供的选择结构语句主要有：If语句、IIf函数以及SelectCase语句。,4.2选择结构,先对条件测试，根据测试的结果选择执行不同的分支,1.If条件语句,3.Select Case 结构,Visual Basic 程序设计,选择结构,2.IIf函数,例：If s

4、core=60 Then Print 祝贺你考试通过！End If Print“继续努力！”等价于：If Score=60 Then Print“祝贺你考试通过！”Print“继续努力!”,1.IfThen 结构,格式:(1)If 条件 Then(A组语句)EndIf,(2)If 条件 Then 语句,执行规则：若条件成立,执行A组语句;条件不成立,跳过A组语句.,If条件语句,使用前提：条件成立时,A组语句中只一条执行语句,例：If score=60 Then Print score Print 祝贺你考试通过！End If Print“继续努力！”,.,1.IfThen结构,例1：输入两个

5、数，分别放在x和y变量中，比较它们大小，然后将大数放在x中，小数放在y中。,x%=Text1.textY%=Text2.textIf x y Then y=x x=yEnd IfPrint x,y,t=x x=y y=t,思考：3个数的排序如何实现？,If条件语句,例：If score=60 Then Print“祝贺你考试通过！”Else Print“考试未通过.”End If Print 继续努力！,2.IfThenElse 结构,格式：If 条件 Then A组语句 Else B组语句 END If,执行规则:条件成立,执行A组语句,条件不成立,执行B组语句,例2：计算分段函数：(可用单

6、分支、双分支和两个单分支分别实现）,If条件语句,2.IfThenElse 结构,例3:已知三边的长，设计 求面积的程序。,开始,If条件语句,例4：(思考)输入二级考试成绩，要求显示对应三级制的 评定。评定条件为：,If条件语句,格式：If 条件1 Then（A组语句）ElseIf 条件2 Then（B组语句）ElseIf 条件3 Then（C组语句）Else（n组语句）End If,.,3.IfThenElseIf 结构,Mark=Text1.TextIf Mark=90 Then Print 优ElseIf Mark=60 Then Print“通过Else Print“未通过End I

7、f,若条件1与条件2换位，结果会怎样？,If条件语句,格式：If 条件1 Then A组语句 ElseIf 条件2 Then B组语句 ElseIf 条件3 Then C组语句 Else n组语句 End If,.,3.IfThenElseIf 结构,注意：多分支语句中，有多个分 支同时满足，只执行第一 个与之匹配的语句块。注意 ElseIf 的写法,If条件语句,例5 编写一个按月收入额计算个人收入调节税的程序 计算方法如下 0 Pay1000(Pay-1000)*0.05 1000Pay2000 Z(Pay-2000)*0.15+50 2000Pay3000(Pay-3000)*0.25+

8、200 3000Pay4000(Pay-4000)*0.35+450 Pay4000 分析：选择语句结构 每个条件的表示及先后顺序,.,3.IfThenElseIf 结构,If条件语句,.,4.If语句的嵌套,If条件语句,If语句的嵌套是指if 或else后面的语句块中又包含If语句。语句形式：If Then If Then End If End If,注意：(1)对于嵌套结构，为了增强程序的可读性，应该采用缩进 形式书写；(2)If语句形式若不在一行上书写，必须与End If配对 多个If嵌套，End If与它最接近的If 配对。,格式：result=IIf(条件,True部分,False

9、部分)当“条件”为真时，IIf函数返回“True部分”，而当“条件”为假时返回“False部分”例如，当成绩x=60时为合格，否则不及格，用If语句表示如下：If x=60 Then r=”合格”Else r=”不合格”End If 而用IIf函数来代替则为：r=IIf(x60，”合格”，”不合格”)再看下面的例子：用IIf函数判断数的奇偶性x是被判断的整数，result为接收结果的字符串变量Result=IIf(x mod 2=0,”x是偶数”，”x是奇数”)由上可见，对于一些简单的选择结构，用IIF函数可以使程序大大简化。,IIf函数,Select Case 测试表达式 Case 测试项1

10、 A组语句 Case 测试项2 B组语句 Case Else n组语句End Select,Select Case语句,说明：测试表达式的值应是数字或字符型 测试项的取值必须与测试表达式 的值类型相同，常用形式为：具体取值，用逗号隔开如：1，5，9连续的范围：界1 TO 界2如：12 To 20 满足某个条件：Is运算符如：Is10 三种形式可以组合使用,Select Case 结构,例6：输入二级考试成绩，要求显 示对应三级制的评定。Mark=Val(Text1.Text)Select case Mark case is=90 Print 优 case 60 to 90 Print“通过 C

11、ase Else Print“未通过End select,Mark=Val(Text1.Text)K=mark10Select case K case 10,9 Print 优 case 8 to 6 Print“通过 Case Else Print“未通过End select,在“种类”中选择油品种类，界面上的说明文字将随之改变，并将“数量”文本框设为焦点；在数量文本框中输入需购的油品数量后，单击“计算”按钮，在“总价”文本框显示所购油品种类应付的金额。已知汽油单价：90号 2.30元/升95号 2.45元/升100号 2.60元/升,选择结构,例7 编写一个加油站计费程序,要求：单击“计算

12、”按钮，则根据输入操作数以及所选的运算符，求得运算结果，并显示在相应的文本框中。提示：当除数为0时，用消息框给出提示,选择结构,例8 编写一个简单运算器的程序,总 结,条件语句,1.IfThen 结构2.IfThenElse 结构3.IfThenElseIf 结构4.IIf函数5.Select Case 结构,循环结构是程序设计中的一种基本结构。当程序中出现需要反复执行相同的代码解决同一问题时，就可以用循环结构来实现。循环结构既可以简化程序，又可以提高程序的效率。VB继承了所有Basic语言中的各种循环语句，而且在VB中实现循环结构的语句最多。循环结构可分为计数型和条件型两种基本的结构，实现计

13、数型循环结构的语句是ForNext，而实现条件型循环结构的语句有DoLoop及WhileWend。,4.3 循环结构,循环结构,循环:是在指定的条件下多次重复执行一组语句,1.For Next,2.DoLoop,3.WhileWend,For 循环变量=初值 TO 终值 Step 步长 语句块 Exit For 语句块 Next 循环变量,For循环格式：,执行过程:(1)将初值赋循环变量；(2)判断循环变量值是否小于等于 终止值；(3)若是,执行循环体（语句块）；(4)然后将变量增加一个步长；(5)重复24步骤。(6)否则，结束循环,For循环,步长省略，默认为1,程序代码：Dim I%,s

14、%For I=1 To 10 step 1 Next I Print I,s,例1:求1+2+3+4+10之和.,分析:重复过程(循环体):ss+I初值、终值和增量:1、10、1,初值与终值换位 可以吗？,循环体的执行次数是多少?输出的I、S的值是多少?For I=1 To 10执行多少次？,s=s+I,For I=10 To 1 Step-1,For循环,For 循环变量=初值 TO 终值 Step 步长 语句块 Exit For 语句块 Next 循环变量,Dim I,s As Integer For I=1 To 10 s=s+I Next I Print I,s,例2:求10！,分析:

15、重复过程:*初值、终值与增量不变,例1:求1+2+3+4+10之和.,分析:重复过程(循环体):+初值、终值和增量:1、10、1,Dim I,s As Integer For I=1 To 10 s=s*I Next I Print I,s,s=1For I=1 To 10,For I=1 To 10 s=1,For循环,【范例3-5】设计程序，输入一个班（设全班人数不超过100人）学生的VB学习成绩，统计其中及格的学生人数，并计算出全班的平均分。由于学生人数不定，输入负数时截止。（1）用户界面及数据测试如图3-13，3-14，3-15所示。,（2）设置界面对象属性，如表3-4所示。,（3）程

16、序代码设计如下：Private Sub Command1_Click()Dim Grade As Single,PassCount As Integer,total As Integer Dim i As Integer,Sum As Single Sum=0 PassCount=0 Average=0 total=0 For i=1 To 100 当输入学生成绩个数大于100时停止循环 Grade=Val(InputBox(请输入学生的VB成绩:)If Grade=60 Then PassCount=PassCount+1 计算及格学生人数 total=total+1 计算总人数 Sum=S

17、um+Grade 计算总分 End If Next i If total 0 Then Average=Sum/total 防止用户未输入值时溢出 Text1.Text=Str(total)Text2.Text=Str(PassCount)Text3.Text=Str(Average)End Sub,S1=0S2=0For I=1 To 1000 S1=S1+INext I,练习1：计算11000的奇数和与偶数和 方法一：方法二：,Step 2,For I=1 To 1000 Step 2 S2=S2+INext IPrint S1,S2,0,S1=0S2=0For I=1 To 1000 I

18、f I mod 20 then S1=S1+I Else S2=S2+I End IfNext IPrint S1,S2,For循环,练习2：输入一个正整数，求各位数字之和,输入正整数k 求它的位数 用For循环 1，位数和步长 取k的末位数，求和 使k去掉末位数 重复以上两步，直到结束 在text2中显示结果或者用字符串操作来处理，更为简单,For循环,例：分析下列程序段的输出结果：Dim I As Integer,J As Integer J=0 For I=0 To 10 Step 2 I=I+3 J=J+1 Next I,注意：初值、终值、步长必须是数值型，步长为正，初值终值；缺省为默

19、认为1 在已知循环次数时使用For循环，循环次数=int(终值-初值)/步长)+1 组成循环体的语句块可以是一条或多条语句 Exit For表示当遇到该语句时，退出循环体，执行Next的下一句；在循环体内对循环变量可多次引用，但在循环过程中一般不改变其值，否则影响结果。注意在循环体内对循环变量、步长、初值、终值修改对循环次数的影响。退出循环后，循环变量保持退出时的值,思考：我国现有人口13亿，按人口年增长率0.8%计算，多少年后我国人口超过26亿？,For循环,1.Do While 循环体 Loop,2.D0 循环体 Loop While,3.Do Until 循环体 Loop,4.Do 循环

20、体 Loop Until,DoLoop循环,1.While循环,Do While 循环体 Loop,执行过程:（先判断，后执行）先判断循环条件,若为真:执行循环体,再判断循环条件否则，跳过循环体,执行Loop之后语句,DoLoop循环,Do While 循环体 Loop,Dim I,s As Integer For I=1 To 10 s=s+I Next I Print I,s,例1:求1+2+3+4+10的和.,Dim I,s As Integer I=1Do WhileLoopPrint I,s,s=s+I,I=10,I=I+1,I=11,(1)循环体执行了几次?(2)没有I=1会怎样?

21、(3)将Print语句移到Loop的 前面结果怎样?(4)I先赋值为11,结果如何?,1.While循环,DoLoop循环,D0 循环体 Loop While,执行过程:（先执行，后判断）先执行循环体,再判断循环条件,若为真，继续执行循环体;否则，结束循环,执行Loop之后语句,1.While循环,DoLoop循环,D0 循环体 Loop While,例4:修改例3,Dim I,s As Integer I=1 Do While I=10 s=s+I I=I+1 Loop Print I,s,Dim I,s As Integer I=1 Do s=s+I I=I+1 Loop While I=

22、10 Print I,s,(1)循环体执行几次？(2)将I先赋值为11，执行结果如何?,1.While循环,DoLoop循环,Do While 循环体 Loop,D0 循环体 Loop While,区别:(1)执行顺序不同 形式一:先判断,后执行循环体;形式二:先执行循环体,后判断(2)执行次数不同（特殊情况下）形式一:条件不满足,循环体可能一次也不执行 形式二:不论条件如何,至少执行一次,1.While循环,DoLoop循环,练习3：用辗转相除法求两自然数m、n的最大公约数和 最小公倍数,分析：最大公约数 已知两数m、n m Mod n的值为r mn，nr，若r0，则重复 否则，循环结束，m

23、为所求的最大公约数最小公倍数原两个数相乘，再除以最大公约数,DoLoop循环,练习4：我国现有人口13亿，按人口年增长率0.8%计算，多少年后我国人口超过26亿。,分析计算公式：26=13（1+0.008）n 已知：当前人口数量为P=13，年增长率为R=0.008 循环条件：当前人口数是否超过26亿 若没，计算下一年人口数PP*(1+R)，年数+1，再判断,DoLoop循环,执行过程:（先判断，后执行）先判断循环条件：条件为假:执行循环体,然后再判断条件.条件为真:跳过循环体,执行Loop之后语句,Do Until 循环体 Loop,2.Until循环,DoLoop循环,Do Until 循环

24、体 Loop,例5:修改上例,Dim I,s As Integer I=1Do While I=10 s=s+I I=I+1LoopPrint I,s,Dim I,s As Integer I=1Do Until s=s+I I=I+1LoopPrint I,s,条件应该如何写出?显示的I、S值与 上例一样吗？,Do 循环体 Loop Until,I10,DoLoop循环,2.Until循环,几种形式比较:,Do While 循环体 Loop（While）,Do Until 循环体 Loop（Until）,区别:While 条件为真时执行循环体,否则退出循环 Until 条件为假时执行循环体,

25、否则退出循环,关系：while和Until可以相互转换，但循环条件取反,DoLoop循环,形式:,While 循环体 Wend,While 条件为真时执行循环体,否则退出循环,Whilewend循环,循环语句比较,练习5：输入一个正整数n，求最大的k，使得1*1+2*2+k*kn成立,循环结构.练习,分析：输入n值 判断累加和sn?若是，s加下一个数的平方值 重复2、3 若否，结束循环 由text2输出最后一个累加数k,对吗?,循环的嵌套：在一个循环体内又包含了一个完整的循环结构,循环嵌套,For I=1 To 9 For J=1 To I s=I Next J Picture1.Print

26、Next I,注意：内、外循环变量不能同名 外循环必须完全包含内循环，不能出现交叉,分析：用三种循环个位x的可能取值为09十位y的可能取值为09百位z的可能取值为19，看三个位置上的数是否满足如下条件，若满足，即是其中一个解 x3+y3+z3=z100y10 x,循环嵌套,？,练习6：求水仙花数 水仙花数是指一个N位数，其各个数字的n次方之和等于数字本身。,Exit语句,满足循环条件的情况下，提前跳出循环体，结束循环。,两种形式：Exit For、Exit Do,其他辅助控制语句,Dim I As Integer,If I mod 17=0 then print I end If,For I=

27、100 to 200 Next I,Exit for,分析：重复工作：判断每个数除17的余数是否为0 初值、终值和增量：,练习7：求出100200之间的第一个能被17整除的整数。,其他辅助控制语句,1.累加、连乘,例1：编写一个大奖赛统计选手得分的程序。要求单击“得分显示”按钮，则可以利用随机函数产生10个80100分之间的随机整数，输出在窗体上，并将计算选手的最后得分也在窗体上显示。,思考题：如果在评委的给分中，去掉一个最高分和一个最低分，然后计算最后得分,分析：由随机函数生成80100之间的10个数据 连续求和 求平均值,2.求阶乘,例2：求任一给定整数的阶乘，n！,分析：对于任意整数n，

28、有三种可能：若:n0:用循环实现乘运算 输出结果,思考题：1.已知n，求1!n!之和 2.给定条件1!n!之和=5000，求最大n值,3.求素数,素数(质数)：一个大于等于2的整数，并且只能被1和自身 整除，而不能被其他整数整除的数,分析：用穷举法 用2n-1逐个去除整数n.若余数不为0，用下一个整数去除，直到n1为止 否则进行标记，或退出循环 输出结果,例4：判断一个正整数n是否为素数,思考题：找出100200之间的所有素数,并添加在窗体的文本框中,4.求数的质因子,将一个正整数分解为质因数乘积。如362233,分析：当x=I时 如果x mod I0，I是一个因子 否则I加1,思考题：判断一

29、个正整数n是否是完数 即一个数恰好等于它的因子之和 如：28124714,5.穷举法,穷举法：就是将可能出现的各种情况一一测试，判断是否 满足条件,For x=0 To 100 For y=0 To 100 For z=0 To 100 If x+y+z=100 And _ 3*x+2*y+0.5*z=100 Then Print x,y,z End If Next z Next y Next x,例：百钱买百鸡,假设：小鸡5角/只，公鸡2元/只，母鸡3元/只，现有100元钱要买100只鸡，编程列出所有可能的购鸡方案分析：设母鸡、公鸡、小鸡分别买X、Y、Z只 X+Y+Z=100 3*X+2*Y

30、+0.5*Z=100,For x=0 To 33 For y=0 To 25 If 3*x+2*y+0.5*(100-x-y)_=100 Then Print x,y,z End If Next y Next x,6.字符转换,例：将一个二进制的原码转换成反码,分析：循环语句决定转换的次数 Mid函数获取一个二进制位 If语句判断该位01,10,思考题：输入一个十进制整数，输出其原码和反码,7.字符转换,例：字符加密。将由大写英文字母组成的字符串的每个字符的ASCII代码转换成二进制，按位与指定密钥“01111111”进行异或运算，把得到的结果转换成十进制数，再转换成对应的加密字符,分析：其中一个字符的转换 获取每个字母的ASCii码（ASC函数，取子串函数）将十进制ASCII码转换成二进制ASCII码。再与01111111进行异或运算 再转换成对应的字符（chr函数）连接成字符串,素数最大公约数最小公倍数阶乘逆序求一个数的因子,常用算法复习,