VB基本语句(8学时).ppt

5.1分支结构,5.3程序示例,5.2循环结构,信电工程学院VisualBasic程序设计,第五章基本的控制结构,5.4二级考试部分试题,先对条件测试，根据测试的结果选择执行不同的分支,1.If条件语句,2.SelectCase结构,VisualBasic程序设计,5.1选择结构,3.条件函数,例：Ifscore=60ThenPrint祝贺你考试通过！EndIfPrint“继续努力！”等价于：IfScore=60ThenPrint“祝贺你考试通过！”Print“继续努力!”,1.IfThen结构,格式:(1)If条件Then(A组语句)EndIf,(2)If条件Then语句,执行规则：若条件成立,执行A组语句;条件不成立,跳过A组语句.,5.1.1If条件语句,使用前提：条件成立时,A组语句中只一条执行语句,例：Ifscore=60ThenPrintscorePrint祝贺你考试通过！EndIfPrint“继续努力！”,练习,.,1.IfThen结构,例1：输入两个数，分别放在x和y变量中，比较它们大小，然后将大数放在x中，小数放在y中。,x%=Text1.textY%=Text2.textIfx=60ThenPrint“祝贺你考试通过！”ElsePrint“考试未通过.”EndIfPrint继续努力！,2.IfThenElse结构,格式：If条件ThenA组语句ElseB组语句ENDIf,执行规则:条件成立,执行A组语句,条件不成立,执行B组语句,例2：计算分段函数：(可用双分支和两个单分支分别实现）,5.1.1If条件语句,2.IfThenElse结构,例3:已知三边的长，设计求面积的程序(P64)。,开始,5.1.1If条件语句,例4：(思考)输入二级考试成绩，要求显示对应三级制的评定。评定条件为：,5.1.1If条件语句,.,3.IfThenElseIf结构,Mark=Text1.TextIfMark=90ThenPrint优ElseIfMark=60ThenPrint“通过ElsePrint“未通过EndIf,若条件1与条件2换位，结果会怎样？,格式：If条件1Then（A组语句）ElseIf条件2Then（B组语句）ElseIf条件3Then（C组语句）Else（n组语句）EndIf,5.1.1If条件语句,.,格式：If条件1ThenA组语句ElseIf条件2ThenB组语句ElseIf条件3ThenC组语句Elsen组语句EndIf,3.IfThenElseIf结构,注意：多分支语句中，有多个分支同时满足，只执行第一个与之匹配的语句块。注意ElseIf的写法,5.1.1If条件语句,.,例5编写一个按月收入额计算个人收入调节税的程序计算方法如下（P77例5-8）0Pay1000或离退休(Pay-1000)*0.051000Pay2000Z(Pay-2000)*0.15+502000Pay3000(Pay-3000)*0.25+2003000Pay4000(Pay-4000)*0.35+450Pay4000分析：选择语句结构每个条件的表示及先后顺序,3.IfThenElseIf结构,5.1.1If条件语句,.,4.If语句的嵌套,5.1.1If条件语句,If语句的嵌套是指if或else后面的语句块中又包含If语句。语句形式：IfThenIfThenEndIfEndIf,注意：(1)对于嵌套结构，为了增强程序的可读性，应该采用缩进形式书写；(2)If语句形式若不在一行上书写，必须与EndIf配对多个If嵌套，EndIf与它最接近的If配对。,SelectCase测试表达式Case测试项1A组语句Case测试项2B组语句CaseElsen组语句EndSelect,说明：测试表达式的值应是数字或字符型测试项的取值必须与测试表达式的值类型相同，常用形式为：具体取值，用逗号隔开如：1，5，9连续的范围：界1TO界2如：12To20满足某个条件：Is运算符如：Is10三种形式可以组合使用,5.1.2SelectCase语句,SelectCase结构,例5：输入二级考试成绩，要求显示对应三级制的评定。Mark=Val(Text1.Text)SelectcaseMarkcaseis=90Print优case90to60Print“通过CaseElsePrint“未通过Endselect,Mark=Val(Text1.Text)K=mark10SelectcaseKcase10,9Print优case8to6Print“通过CaseElsePrint“未通过Endselect,5.1.3条件函数（可选）,1.Iif函数-替代IF语句格式：Iif(表达式、条件为真的值，条件为假的值),例：实现将X，Y变量中的大数放入Tmax变量,用If语句：IfXYThenTmax=XElseTmax=YEndIf,用Iif函数：Tmax=IIf(XY,X,Y),2.Choose函数-替代SelectCase语句格式：Choose(整数表达式、选项列表),例：用1、2、3、4分别返回不同的运算符,Nop=Rnd*4+1SelectCaseNopCase1OP=Case2OP=”Case3OP=CaseElseOP=”EndSelect,Nop=Int(Rnd*4+1)Op=Choose(Nop,”,”,”,”),5.1.3条件函数（可选）,例7编写一个加油站计费程序,在“种类”中选择油品种类，界面上的说明文字将随之改变，并将“数量”文本框设为焦点；在数量文本框中输入需购的油品数量后，单击“计算”按钮，在“总价”文本框显示所购油品种类应付的金额。已知汽油单价：90号2.30元/升95号2.45元/升100号2.60元/升,例8编写一个简单运算器的程序,要求：单击“计算”按钮，则根据输入操作数以及所选的运算符，求得运算结果，并显示在相应的文本框中。提示：当除数为0时，用消息框给出提示,总结,条件语句,1.IfThen结构2.IfThenElse结构3.IfThenElseIf结构4.SelectCase结构,5.2循环结构,循环:是在指定的条件下多次重复执行一组语句,1.ForNext,2.DoLoop,3.循环嵌套,4.其他辅助控制语句,For循环变量=初值TO终值Step步长语句块ExitFor语句块Next循环变量,For循环格式：,执行过程:(1)将初值赋循环变量；(2)判断循环变量值是否小于等于终止值；(3)若是,执行循环体（语句块）；(4)然后将变量增加一个步长；(5)重复24步骤。(6)否则，结束循环,5.2.1For循环,步长省略，默认为1,程序代码：DimI%,s%ForI=1To10step1NextIPrintI,s,例1:求1+2+3+4+10之和.,分析:重复过程(循环体):ss+I初值、终值和增量:1、10、1,初值与终值换位可以吗？,循环体的执行次数是多少?输出的I、S的值是多少?ForI=1To10执行多少次？,s=s+I,ForI=10To1Step-1,5.2.1For循环,For循环变量=初值TO终值Step步长语句块ExitFor语句块Next循环变量,DimI,sAsIntegerForI=1To10s=s+INextIPrintI,s,例2:求10！,分析:重复过程:*初值、终值与增量不变,例1:求1+2+3+4+10之和.,分析:重复过程(循环体):+初值、终值和增量:1、10、1,DimI,sAsIntegerForI=1To10s=s*INextIPrintI,s,s=1ForI=1To10,ForI=1To10s=1,5.2.1For循环,S1=0S2=0ForI=1To1000S1=S1+INextI,练习1：计算11000的奇数和与偶数和方法一：方法二：,Step2,ForI=1To1000Step2S2=S2+INextIPrintS1,S2,0,S1=0S2=0ForI=1To1000IfImod20thenS1=S1+IElseS2=S2+IEndIfNextIPrintS1,S2,5.2.1For循环,练习2：输入一个正整数，求个位数字之和,输入正整数k求它的位数用For循环1，位数和步长取k的末位数，求和使k去掉末位数重复以上两步，直到结束在text2中显示结果,5.2.1For循环,例：分析下列程序段的输出结果：DimIAsInteger,JAsIntegerJ=0ForI=0To10Step2I=I+3J=J+1NextI,注意：初值、终值、步长必须是数值型，步长为正，初值终值；缺省为默认为1在已知循环次数时使用For循环，循环次数=int(终值-初值)/步长)+1组成循环体的语句块可以是一条或多条语句ExitFor表示当遇到该语句时，退出循环体，执行Next的下一句；在循环体内对循环变量可多次引用，但在循环过程中一般不改变其值，否则影响结果。退出循环后，循环变量保持退出时的值,思考：我国现有人口13亿，按人口年增长率0.8%计算，多少年后我国人口超过26亿？,5.2.1For循环,1.DoWhile循环体Loop,2.D0循环体LoopWhile,3.DoUntil循环体Loop,4.Do循环体LoopUntil,5.2.2DoLoop循环,1.While循环,DoWhile循环体Loop,执行过程:（先判断，后执行）先判断循环条件,若为真:执行循环体,再判断循环条件否则，跳过循环体,执行Loop之后语句,5.2.2DoLoop循环,DoWhile循环体Loop,DimI,sAsIntegerForI=1To10s=s+INextIPrintI,s,例1:求1+2+3+4+10的和.,DimI,sAsIntegerI=1DoWhileLoopPrintI,s,s=s+I,I=10,I=I+1,I=11,(1)循环体执行了几次?(2)没有I=1会怎样?(3)将Print语句移到Loop的前面结果怎样?(4)I先赋值为11,结果如何?,1.While循环,5.2.2DoLoop循环,D0循环体LoopWhile,执行过程:（先执行，后判断）先执行循环体,再判断循环条件,若为真，继续执行循环体;否则，结束循环,执行Loop之后语句,1.While循环,5.2.2DoLoop循环,D0循环体LoopWhile,例4:修改例3,DimI,sAsIntegerI=1DoWhileI=10s=s+II=I+1LoopPrintI,s,DimI,sAsIntegerI=1Dos=s+II=I+1LoopWhileI=10PrintI,s,(1)循环体执行几次？(2)将I先赋值为11，执行结果如何?,1.While循环,5.2.2DoLoop循环,DoWhile循环体Loop,D0循环体LoopWhile,区别:(1)执行顺序不同形式一:先判断,后执行循环体;形式二:先执行循环体,后判断(2)执行次数不同（特殊情况下）形式一:条件不满足,循环体可能一次也不执行形式二:不论条件如何,至少执行一次,1.While循环,5.2.2DoLoop循环,练习3：用辗转相除法求两自然数m、n的最大公约数和最小公倍数,分析：最大公约数已知两数m、nmModn的值为rmn，nr，若r0，则重复否则，循环结束，m为所求的最大公约数，最小公倍数原两个数相乘，再除以最大公约数,5.2.2DoLoop循环,练习4：我国现有人口13亿，按人口年增长率0.8%计算，多少年后我国人口超过26亿。,分析计算公式：26=13（1+0.008）n已知：当前人口数量为P=13，年增长率为R=0.008循环条件：当前人口数是否超过26亿若没，计算下一年人口数PP*(1+R)，年数+1，再判断,5.2.2DoLoop循环,执行过程:（先判断，后执行）先判断循环条件：条件为假:执行循环体,然后再判断条件.条件为真:跳过循环体,执行Loop之后语句,DoUntil循环体Loop,2.Until循环,5.2.2DoLoop循环,DoUntil循环体Loop,例5:修改上例,DimI,sAsIntegerI=1DoWhileI10,5.2.2DoLoop循环,2.Until循环,几种形式比较:,DoWhile循环体Loop（While）,DoUntil循环体Loop（Until）,区别:While条件为真时执行循环体,否则退出循环Until条件为假时执行循环体,否则退出循环,关系：while和Until可以相互转换，但循环条件取反,5.2.2DoLoop循环,练习5：输入一个正整数n，求最大的k，使得1*1+2*2+k*kn成立,循环结构.练习,分析：输入n值判断累加和sn?若是，s加下一个数的平方值重复2、3若否，结束循环由text2输出最后一个累加数k,对吗?,循环的嵌套：在一个循环体内又包含了一个完整的循环结构,5.2.3循环嵌套,ForI=1To9ForJ=1ToIs=INextJPicture1.PrintNextI,注意：内、外循环变量不能同名外循环必须完全包含内循环，不能出现交叉,分析：用三种循环个位x的可能取值为09十位y的可能取值为09百位z的可能取值为19，看三个位置上的数是否满足如下条件，若满足，即是其中一个解x3+y3+z3=z100y10x,？,练习6：求水仙花数水仙花数是指一个3位数，其各个数字的立方和等于数字本身。,5.2.3循环嵌套,思考题：输入一个三位数，如何验证它是否是水仙花数？,DimmAsInteger,sumAsInteger,nAsInteger,aAsIntegerm=Val(InputBox(请输入一个数M：)n=mDoWhilem0a=mMod10sum=sum+a3m=m10LoopIfsum=nThenText1.Text=这是一个水仙花数ElseText1.Text=“这不是一个水仙花数”Endif,1.GoTo语句2.Exit语句,满足循环条件的情况下，提前跳出循环体，结束循环。,两种形式：ExitFor、ExitDo,作用：无条件的转移到标号或行号指定的语句语法：GoTo标号|行号,100IfI=100Thens=s+II=I+2GoTo100EndIf,5.2.4其他辅助控制语句,DimIAsInteger,IfImod17=0thenprintIendIf,ForI=100to200NextI,Exitfor,分析：重复工作：判断每个数除17的余数是否为0初值、终值和增量：,练习7：求出100200之间的第一个能被17整除的整数。,5.2.4其他辅助控制语句,累加和、平均值求素数求数的质因数穷举法递推法,5.3程序示例,5,1.累加、连乘,例1：编写一个大奖赛统计选手得分的程序。要求单击“得分显示”按钮，则可以利用随机函数产生10个80100分之间的随机整数，输出在窗体上，并将计算选手的最后得分也在窗体上显示。,思考题：如果在评委的给分中，去掉一个最高分和一个最低分，然后计算最后得分,分析：由随机函数生成80100之间的10个数据连续求和求平均值,2.求阶乘,例2：求任一给定整数的阶乘，n！,分析：对于任意整数n，有三种可能：若:n0:用循环实现乘运算输出结果,思考题：1.已知n，求1!n!之和2.给定条件1!n!之和=5000，求最大n值,思考题1：DimiAsInteger,jAsInteger,factAsIntegerDimsumAsIntegerN=Val(InputBox(请输入N)Fori=1ToNfact=1累乘器置1Forj=1Toifact=fact*jNextjsum=sum+factNextiPrintsum,思考题2：DimiAsInteger,jAsInteger,factAsIntegerDimsumAsIntegern=1DoWhilesum=I时如果xmodI0，I是一个因子否则I加1,思考题：判断一个正整数n是否是完数即一个数恰好等于它的因子之和如：28124714,求数的质因子方法privateSubCommand1_Click()Dimn%,Factor%,FirstAsBooleann=InputBox(输入一个正整数)Factor=2First=TrueDoDoWhilenModFactor=0内循环考虑到有多个相同的质因数IfFirstThenPrintn;=;Factor;ElsePrint*;Factor;EndIfn=nFactorFirst=FalseLoopFactor=Factor+1LoopUntilFactornEndSub,思考题参考答案：DimnAsInteger,iAsInteger,sumAsIntegern=Val(InputBox(输入一个正整数)Fori=1Ton2IfnModi=0Thensum=sum+iNextiIfsum=nThenText1.Text=这是一个完数ElseText1.Text=这不是一个完数EndIf,4.穷举法,穷举法：就是将可能出现的各种情况一一测试，判断是否满足条件,Forx=0To100Fory=0To100Forz=0To100Ifx+y+z=100And_3*x+2*y+0.5*z=100ThenPrintx,y,zEndIfNextzNextyNextx,例：百钱买百鸡,假设：小鸡5角/只，公鸡2元/只，母鸡3元/只，现有100元钱要买100只鸡，编程列出所有可能的购鸡方案分析：设母鸡、公鸡、小鸡分别买X、Y、Z只X+Y+Z=1003*X+2*Y+0.5*Z=100,Forx=0To33Fory=0To50If3*x+2*y+0.5*(100-x-y)_=100ThenPrintx,y,zEndIfNextyNextx,4.字符转换,例：将一个二进制的原码转换成反码,分析：循环语句决定转换的次数Mid函数获取一个二进制位If语句判断该位01,10,思考题：输入一个十进制整数，输出其原码和反码,4.字符转换,例：字符加密。将由大写英文字母组成的字符串的每个字符的ASCII代码转换成二进制，按位与指定密钥“01111111”进行异或运算，把得到的结果转换成十进制数，再转换成对应的加密字符,分析：其中一个字符的转换获取每个字母的ASCii码（ASC函数，取子串函数）将十进制ASCII码转换成二进制ASCII码。再与01111111进行异或运算再转换成对应的字符（chr函数）连接成字符串,5.递推法,递推法：就是将一个复杂的计算过程转化为简单过程的多次重复。,例：猴子吃桃子,小猴在一天摘了若干个桃子，当天吃掉一半多一个，以后每天吃掉剩下的桃子的一半多一个，到第七天要吃时只剩下一个了，问小猴那天共摘了几个桃子Xn-1Xn=-12,实验分支语句,1.求z的值，z本题能否用selectcase语句替换实现？为什么？2.实验5-23.货币兑换（实验书5-4）4.计算运费（实验书5-5）*5.编写一个高速公路收费程序不同的车行不同的里数，收费标准不同。小型客车收费系数为1，大型客车的收费系数为1.5，货车的收费系数为2，当行程不超过100Km时，应付费20收费系数，当行程不超过200Km时，应付费40收费系数收费，当行程不超过300Km时，应付费60