第四章控制结构程序设计课件.ppt

《第四章控制结构程序设计课件.ppt》由会员分享，可在线阅读，更多相关《第四章控制结构程序设计课件.ppt（164页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、1Visual BasicVisual Basic程序设计基础程序设计基础谢谢观赏2019-8-212第四章第四章 控制结构程序设计控制结构程序设计关系运算与逻辑运算1选择结构程序设计24 选择控件 单分支条件语句 双分支条件语句 多分支条件语句 If语句嵌套谢谢观赏2019-8-213关系运算符关系运算符各个关系运算符的优先级是相同的各个关系运算符的优先级是相同的 关系运算符可以对关系运算符可以对数值、字符串数值、字符串、表达式表达式进行比较进行比较关系运算的结果为关系运算的结果为逻辑值逻辑值 运算符含 义实 例结 果=等于大于大于等于小于小于等于不等于ABCDE=ABRABCDE ABRx

2、-y+5=(x-3)*z 23 323=312 23FalseFalseFalseTrueTrue谢谢观赏2019-8-214思考题思考题思考：思考：v x=6 x=6 当当x=6x=6时，结果为时，结果为true true v456=456=“456456”出错！类型不匹配出错！类型不匹配vSqr(2)2=2 Sqr(2)2=2 False,Sqr(2)False,Sqr(2)是个近似数，有误差，所以不等是个近似数，有误差，所以不等两个字符串进行比较：逐一比较每个字符的ASCII,只有两个字符串中所有字符相同时，两字符串相等谢谢观赏2019-8-21运算符的优先级运算符的优先级5算术运算符算

3、术运算符 字符串运算符字符串运算符 关系运算符关系运算符 逻辑运算符逻辑运算符-(负号)*,/Mod+,-&无优先顺序NotAndOrXor由高到低例：设a=4，b=3,c=2,d=1，表达式ab+1Or cd And b Mod c 的值？谢谢观赏2019-8-216ContentsContents关系运算与逻辑运算1选择结构程序设计2 选择控件 单行结构条件语句 块结构条件语句 IIf函数 If语句的嵌套谢谢观赏2019-8-217选择控件选择控件1单选按钮单选按钮单选按钮单选按钮2复选框复选框复选框复选框谢谢观赏2019-8-218单选按钮单选按钮单选按钮 OptionButtonOpt

4、ionButtonOptionButtonvv属性属性 Caption:Caption:Option1Option1、Option2Option2 EnabledEnabled ValueValuevv 事件事件 ClickClickTrue 为选中False 为不选 表明从一组选项中选择一项，只能选中一表明从一组选项中选择一项，只能选中一项项谢谢观赏2019-8-219复选框复选框CheckBoxCheckBoxv属性Caption:Check1、Check2ValueAlignmentv事件Click1-Checked 为选中0-Unchecked 为不选2-Grayed 为禁止操作（灰色

5、）一组复选框，可以同时选中多个，也可以一个都不选一组复选框，可以同时选中多个，也可以一个都不选谢谢观赏2019-8-2110框架控件框架控件FrameFrame框架框架用来对控件进行分组，即把指定的控件放到框架用来对控件进行分组，即把指定的控件放到框架中中框架Frame Caption:Caption:Frame1 Frame1、Frame2Frame2 Enable:Enable:False False时，框架中所有对象均时，框架中所有对象均被屏蔽被屏蔽谢谢观赏2019-8-2111单行结构条件语句单行结构条件语句表达式表达式语句组语句组1 1语句组语句组2 2T TF F谢谢观赏2019-

6、8-2112单行结构条件语句单行结构条件语句x y t=x x=yy=tFalseTrueIF Then 单分支选择：单分支选择：If xy Then t=x:x=y:y=tIf xy Then t=x:x=y:y=t谢谢观赏2019-8-211313块结构条件语句块结构条件语句单分支和双分支选择的块形式单分支和双分支选择的块形式表达式表达式语句组语句组1 1语句组语句组2 2T TF Fx yx y t=x t=x x=yx=yy=ty=tFalseFalseTrueTrueIf If Then Then End IfEnd IfIf If ThenThen 1ElseElse 2End I

7、fEnd If谢谢观赏2019-8-2114y y=tan(x+1)tan(x+1)+3+3x x2 2 (x=x=0)0)sin sin x x -x x3 3+x (x x (x 0)0)If If x=0 x=0 ThenThen y=tan(x+1)+3*x2 y=tan(x+1)+3*x2ElseElse y=sin(x)x3+x y=sin(x)x3+xEnd IfEnd If计算分段函数条件语句条件语句谢谢观赏2019-8-21条件语句a=3a=3b=2b=2if if abab then then msgbox“amsgbox“a大于大于b”b”Else Else msgbox

8、 “amsgbox “a小于小于b”b”End ifEnd if15谢谢观赏2019-8-21条件语句a=3a=3b=2b=2c=1c=1if if abab and acand ac then then msgbox“amsgbox“a最大最大”End ifEnd if1616谢谢观赏2019-8-21条件语句a=3a=3b=2b=2c=1c=1if if abab and acand ac then then msgbox“amsgbox“a最大最大”Else Else msgbox“amsgbox“a不是最大不是最大”End ifEnd if1717谢谢观赏2019-8-2118块结构条

9、件语句块结构条件语句If a100 thenIf a100 then print print“a a大于大于100100”ElseifElseif a50 then a50 then print print“a a大于大于5050，小于，小于100100”ElseifElseif a10 then a10 then print print “a a大于大于1010，小于，小于5050”ElseElse print print“a a小于等于小于等于1010”End ifEnd if谢谢观赏2019-8-21条件语句条件语句v判断一个字符是大写字母、小写字母或者不是字母判断一个字符是大写字母、小

10、写字母或者不是字母19谢谢观赏2019-8-21条件语句条件语句Dim str as stringDim str as stringstr=“C”str=“C”If If str=“A”and str=“A”and str=“a”and str=“a”and str=A And Ucase(strC)=A And Ucase(strC)=0 And strC=0 And strC=9 Then ThenPrint strC+Print strC+是数字字符是数字字符是数字字符是数字字符 ElseElsePrint strC+Print strC+是其它字符是其它字符是其它字符是其它字符 End

11、 IfEnd If条件语句条件语句vv已知变量已知变量strCstrC中存放了一个字符，判断该字符是字母字符、中存放了一个字符，判断该字符是字母字符、数字字符还是其它字符，并作相应的显示数字字符还是其它字符，并作相应的显示谢谢观赏2019-8-2122程序的基本组成程序的基本组成v程序设计的一般步骤：程序设计的一般步骤：分析：问题定义分析：问题定义 设计：设计解题步骤算法设计：设计解题步骤算法 选择与创建界面选择与创建界面 编码：用程序设计语言描述写程序编码：用程序设计语言描述写程序 测试与调度：改错测试与调度：改错 完成文档：整理和组织描述程序的所有资料完成文档：整理和组织描述程序的所有资料

12、谢谢观赏2019-8-2123&输入两个数，输出较大的数。输入两个数，输出较大的数。编写代码：Private Sub Command1_Click()Dim max As Single Dim min As Single max=Val(Text1.Text)min=Val(Text2.Text)If max min Then max=min End If Label3.Caption=较大值为较大值为&maxEnd SubFTmax=minmax intYintY,intXintX,intYintY)Print Print intMaxintMaxIf If intX intYintX in

13、tY Then Then intMax=intXintMax=intXElseElse intMax=intYintMax=intYEnd IfEnd If谢谢观赏2019-8-2130IIf()IIf()函数函数 If user=SYL And psw=123456 Then MsgBox(正确正确！)Else MsgBox(错误错误！)End IfMsgBox IIf(user=SYL And psw=123456,正确正确！,错误！错误！)IIf(user=SYL And psw=123456,MsgBox(正确！正确！),MsgBox(错误！错误！)IIf(条件条件,表达式表达式1,表

14、达式表达式2)谢谢观赏2019-8-2131&编写一个程序，根据用户输入的某个学生的成绩评出优、良编写一个程序，根据用户输入的某个学生的成绩评出优、良好、中等、及格和不及个五个等级。判断标准如下好、中等、及格和不及个五个等级。判断标准如下等级等级不及格不及格 score60及格及格 60score70中等中等 70score80良好良好 80score90优优 score90IfIf语句语句谢谢观赏2019-8-2132&编写一个程序，根据用户输入的某个学生的成绩评出优、良好、编写一个程序，根据用户输入的某个学生的成绩评出优、良好、中等、及格和不及个五个等级。中等、及格和不及个五个等级。IfI

15、f语句语句谢谢观赏2019-8-2133编写代码：编写代码：Private Sub Command1_Click()Dim score As Single Dim s As String score=Val(Text1.Text)End SubT If score 60 Then s=不及格不及格 ElseIf score 70 Then s=及格及格 ElseIf score 80 Then s=中等中等 ElseIf score=285 Then Label4.Caption=可以获奖！可以获奖！ElseIf a=90 And b=90 And c=90 Then Label4.Capti

16、on=可以获奖！可以获奖！ElseIf a=100 And b=100 And c=80 Then Label4.Caption=可以获奖！可以获奖！Else Label4.Caption=不可获奖！不可获奖！End IfEnd SubT能改成下面的代码吗？能改成下面的代码吗？If a+b+c=285 or a=90 And b=90 And c=90 or _ a=100 And b=100 And c=80 Then Label4.Caption=不可获奖！不可获奖！End IfIf IfIf语句语句语句谢谢观赏2019-8-2136IFIF语句的嵌套语句的嵌套If a100 thenIf

17、 a100 thenIf b100 thenIf b100 thenPrint“a,bPrint“a,b均大于均大于100”100”endifendifEndifEndif谢谢观赏2019-8-21实验实验vv任意输入三个边长，判断是否能构成三角形，若能构成三任意输入三个边长，判断是否能构成三角形，若能构成三角形，则判断该三角形是等边、等腰还是一般三角形角形，则判断该三角形是等边、等腰还是一般三角形37谢谢观赏2019-8-2138例题例题【例例】征兵条件：男性征兵条件：男性18182020岁，岁，1.651.65米以上；女性米以上；女性16161818岁，岁，1.601.60米以上，要求：从

18、键盘输入一个人信息，判断是否符号条米以上，要求：从键盘输入一个人信息，判断是否符号条件件If If 性别性别性别性别 =“=“男男男男”Then Then 为男性 If If 年龄年龄年龄年龄 =18 And=18 And 年龄年龄年龄年龄 =20 Then=1.65 Then=1.65 Then Print Print 合格合格合格合格 End If End If End IfEnd IfElse Else 为女性 If If 年龄年龄年龄年龄 =16 And=16 And 年龄年龄年龄年龄 =18 Then=1.6 Then=1.6 Then Print Print 合格合格合格合格 En

19、d If End If End IfEnd IfEnd IfEnd If谢谢观赏2019-8-2139IFIF语句的嵌套语句的嵌套v比较比较x,y,zx,y,z的大小，并进行调整，使得的大小，并进行调整，使得xyzxyz效果：效果：X Y ZX Y Z X Y if(xy)X Y if(x Y X Y Z Z谢谢观赏2019-8-2140IFIF语句的嵌套语句的嵌套比较比较x,y,zx,y,z的大小，并进行调整的大小，并进行调整使得使得xyzxyzIf If x y Then x y Thent=x:x=y:y=t t=x:x=y:y=t EndIfEndIf If If yz Then yz

20、 Then t=y:y=z:z=tt=y:y=z:z=tIf If x y Thenx y Then t=x:x=y:y=t t=x:x=y:y=tEnd IfEnd IfEnd IfEnd Ifyz交换交换x x和和y yxyxy交换y和zFalseFalseTrueTrueFalseFalseTrueTrue谢谢观赏2019-8-2141&编写一个程序，让用户输入三个数并判断该三个数能否组成编写一个程序，让用户输入三个数并判断该三个数能否组成一个直角三角形。一个直角三角形。If IfIf语句语句语句谢谢观赏2019-8-2142&编写一个程序，让用户输入三个数判并断该三个数能否组成一编写一

21、个程序，让用户输入三个数判并断该三个数能否组成一个直角三角形。个直角三角形。TT三角形？三角形？FT直角三角形？直角三角形？F输出判断结果输出判断结果输出判断结果输出判断结果输出判断结果输出判断结果If IfIf语句语句语句谢谢观赏2019-8-2143小结小结v单行结构：单行结构：If If ThenThen v块结构：块结构：If If ThenThen End IfEnd If谢谢观赏2019-8-2144双分支条件语句双分支条件语句vv块结构：块结构：If If ThenThen 1 ElseElse 2 End IfEnd Ifvv单行结构：单行结构：If If ThenThen 1

22、 ElseElse 2表达式表达式表达式表达式语句组语句组语句组语句组1 1语句组语句组语句组语句组2 2T TF F谢谢观赏2019-8-2145多分支条件语句多分支条件语句块块IFIF语句语句条件条件条件条件1 1条件条件条件条件2 2条件条件条件条件n n语句块语句块语句块语句块1 1语句块语句块语句块语句块2 2语句块语句块语句块语句块n n语句块语句块语句块语句块n+1n+1F FF FF FT TT TT TIf IfThenThenElseIfElseIfElseIfElseIfThenThenThenThenElseElse谢谢观赏2019-8-2146IfIf嵌套嵌套vvIf

23、 If Then1 Then If If Then2 Then If If Thenn Then n End If End If 2 End If End If 1 End If End If谢谢观赏2019-8-2147第四章第四章 控制结构程序设计控制结构程序设计关系运算与逻辑运算1选择结构程序设计24多分支结构程序设计3谢谢观赏2019-8-214848多分支结构程序设计多分支结构程序设计Select Select CaseCaseSelect CaseSelect Case 变量或表达式变量或表达式Case Case 条件条件1 11CaseCase 条件条件2 22 Case Els

24、eCase Else n+1End SelectEnd Select表达式表达式表达式表达式1 1语句块语句块语句块语句块1 1表达式表达式表达式表达式2 2语句块语句块语句块语句块2 2表达式表达式表达式表达式n n语句块语句块语句块语句块n n语句块语句块语句块语句块n+1n+1TrueTrueTrueTrueTrueTrueFalseFalseFalseFalseFalseFalse谢谢观赏2019-8-21多分支结构程序设计多分支结构程序设计Select CaseSelect Caseselect caseselect case a acasecase 1 1 msgbox“a msg

25、box“a等于等于1”1”casecase 2 2 msgbox “a msgbox “a等于等于2”2”case elsecase else msgbox “a msgbox “a不等于不等于1 1也不等于也不等于2”2”end selectend select49谢谢观赏2019-8-2150多分支结构程序设计多分支结构程序设计Select Select CaseCase测试表达式可以是数学表达式、字符串表达式、逻辑表达式测试表达式可以是数学表达式、字符串表达式、逻辑表达式或混合表达式。或混合表达式。CaseCase子句后的表达式列表可是以下几种格式：子句后的表达式列表可是以下几种格式：表

26、达式表达式1 1，表达式，表达式2 2，表达式，表达式n n表达式表达式1 to 1 to 表达式表达式2 2Is Is 表达式表达式还可以是上述三种格式的结合还可以是上述三种格式的结合Case 2,4,6,8,VB，程序设计程序设计Case 60 to 100Case is=60 and is100谢谢观赏2019-8-21多分支结构程序设计多分支结构程序设计Select Select CaseCaseselect caseselect case a acasecase 1,2,3,4,51,2,3,4,5 msgboxmsgbox “a a大于大于1 1，小于，小于5 5”casecase

27、 6 to 106 to 10 msgboxmsgbox “a a大于大于1 1，a a小于小于1010”casecase is10is10 msgboxmsgbox “a a大于大于1010”case elsecase else msgboxmsgbox “a a小于小于1 1”end selectend select51谢谢观赏2019-8-2152多分支结构程序设计多分支结构程序设计Select CaseSelect Case当表达式结果与多个当表达式结果与多个CaseCase表达式列表的值匹配时，则只表达式列表的值匹配时，则只执行第一个匹配的执行第一个匹配的CaseCase语句对应的语

28、句块语句对应的语句块Case ElseCase Else子句必须放在全部子句必须放在全部CaseCase子句语句后面。子句语句后面。当表达当表达式的值与前面所有式的值与前面所有CaseCase语句均不匹配时，才执行语句均不匹配时，才执行Case Case ElseElse子句子句部分，这个部分，这个子句可以省略子句可以省略谢谢观赏2019-8-21多分支结构程序设计多分支结构程序设计Select CaseSelect Caseselect caseselect case a acasecase is10is10 msgbox“a msgbox“a大于大于10”10”casecase is20i

29、s20 msgbox “a msgbox “a大于大于20”20”casecase is30is30 msgbox “a msgbox “a大于大于30”30”end selectend select53谢谢观赏2019-8-2154真题真题以下以下CaseCase语句中错误的是语句中错误的是_。（A A）Case 0 To 10 Case 0 To 10（B B）Case Is10Case Is10（C C）Case Is10 And Is10 And Is10Case 3,5,Is10C注意：1、Select Case后不能跟多个变量2、不能在条件中出现变量3、不能在条件中出现逻辑表达形式

30、但下面这种情况可以使用Case option1.Value True And Option2.value=True 这里其实是一个表达式的值，属于简单常量形式谢谢观赏2019-8-2155Select Case a,b,cSelect Case a,b,cCase Case a100a100MsgBoxMsgBox 输入数据错误输入数据错误 Case Case b100b100MsgBoxMsgBox “输入数据错误输入数据错误 Case Case c100c100MsgBoxMsgBox “输入数据错误输入数据错误 Else Else Text4.Text=Text4.Text=a+b+ca

31、+b+cEnd SelectEnd Select注意注意注意不能在条件中出现变量和不能在条件中出现变量和不允许的逻辑表达形式不允许的逻辑表达形式不能对多个变量进行判断不能对多个变量进行判断谢谢观赏2019-8-2156例子例子Select Case Select Case SeasonSeason case case 冬季冬季冬季冬季 Total_Price=Price*(1-0.15)*num Total_Price=Price*(1-0.15)*num case case 春季春季春季春季,秋季秋季秋季秋季 Total_Price Total_Price=Price*(1-0.08)*nu

32、m=Price*(1-0.08)*num case case elseelse Total_Price Total_Price=Price*num=Price*numEnd SelectEnd Select 空调机基本单价为空调机基本单价为25002500元。元。购买空调机的价格随季节而异。冬购买空调机的价格随季节而异。冬季购买，优惠季购买，优惠1515，春、秋季购，春、秋季购买，优惠买，优惠8 8，夏季购买，不优惠。，夏季购买，不优惠。计算出顾客随季节购买空调机的总计算出顾客随季节购买空调机的总价。价。思考：用思考：用思考：用思考：用IFIFIFIF块结构如何实现？块结构如何实现？块结构如何

33、实现？块结构如何实现？谢谢观赏2019-8-2157&邮局向国外寄包裹的收费计算如下：当包裹重量不超过邮局向国外寄包裹的收费计算如下：当包裹重量不超过1515克时收费克时收费5 5元；当包裹重量为元；当包裹重量为1515克至克至3030克时收费克时收费9 9元；当包元；当包裹重量为裹重量为3030至至4545克时收费克时收费1212元；当包裹重量为元；当包裹重量为4545克至克至6060克克时收费时收费1414元；当包裹重量为元；当包裹重量为6060克至克至7575克时收费克时收费1616元；当包元；当包裹重量超过裹重量超过7575克时收费克时收费2020元。请编写一个程序根据包裹重元。请编写

34、一个程序根据包裹重量计算邮费。量计算邮费。分析：本题根据包裹的重量来计算包裹的邮寄费。一个输入量为包裹重量，一个输出量为邮寄费。所以用一个文本框接收输入量，一个文本框作为输出，一个按钮实现“计算”功能，一个按钮实现“退出”功能。Select CaseSelect Case语句语句 谢谢观赏2019-8-2158v编写代码：Private Sub Command1_Click()Private Sub Command1_Click()Dim a as Single,b as Integer Dim a as Single,b as Integer a=Val(Text1.text)a=Val(T

35、ext1.text)Select Case a Select Case a Case Is=15 Case Is=15 b=5 b=5 Case Is=30 Case Is=30 b=9 b=9 Case 30 to 45 Case 30 to 45 b=12 b=12 Case 45 to 60 Case 45 to 60 b=14 b=14Case 60 to 75Case 60 to 75 b=16 b=16 Case ElseCase Else b=20 b=20End SelectEnd SelectText2.text=bText2.text=bEnd SubEnd SubSele

36、ct CaseSelect Case语句语句 谢谢观赏2019-8-2159编写代码：IF语句实现Private Sub Command1_Click()Private Sub Command1_Click()Dim a As Single,b As IntegerDim a As Single,b As Integera=Val(Text1.Text)a=Val(Text1.Text)If a=15 ThenIf a=15 Then b=5b=5ElseIfElseIf a=30 Then a=30 Then b=9b=9ElseIfElseIf a=45 Then a=45 Then b=

37、12b=12ElseIfElseIf a=60 Then a=60 Then b=14b=14ElseIfElseIf a=75 Then a=75 Then b=16b=16 Else Else b=20 b=20End IfEnd IfText2.Text=bText2.Text=bEnd SubEnd SubSelect CaseSelect Case语句语句 谢谢观赏2019-8-2160&航空公司规定在旅游的旺季航空公司规定在旅游的旺季7 79 9月份，如果订票数超过月份，如果订票数超过2020张，票价优惠张，票价优惠15%15%，2020张以下，优惠张以下，优惠5%5%；在旅游的淡

38、季；在旅游的淡季1 15 5月份、月份、1010月份、月份、1111月份，如果订票数超过月份，如果订票数超过2020张，票价张，票价优惠优惠30%30%，2020张以下，优惠张以下，优惠20%20%；其他情况一律优惠；其他情况一律优惠10%10%。设计程序，根据月份和订票张数来计算总的订票金额，假。设计程序，根据月份和订票张数来计算总的订票金额，假设每张飞机票单价为设每张飞机票单价为600600元。元。Select CaseSelect Case语句语句 谢谢观赏2019-8-2161Select Case Combo1.ListIndex Case 6 To 8 If num 20 Then

39、 rate=0.95 Else rate=0.85 End If Case 9,10,0 To 4 If num 0=0 0 Label4.Caption=x1=&(-b+Sqr(b 2-4*a*c)/(2*a)Label5.Caption=x2=&(-b-Sqr(b 2-4*a*c)/(2*a)Case Is=0 Label4.Caption=二次方程有二次方程有2个实根个实根 Label5.Caption=x1、x2=&-b/(2*a)Case Is 0 Label4.Caption=二次方程没有实根二次方程没有实根 End Select End If Else MsgBox(你输入的数据

40、无效，请重新输入！你输入的数据无效，请重新输入！)End If谢谢观赏2019-8-2164第四章第四章 控制结构程序设计控制结构程序设计4关系运算与逻辑运算1选择结构程序设计2多分支结构程序设计3循环结构程序设计4 For-Next循环 Do-Loop循环 While-Wend循环 列表框和组合框 多重循环 GoTo语句控制循环谢谢观赏2019-8-2165(1)(1)“当型当型循环循环”循循 AA条件条件真真条条 件件循循 环环 体体 AA假假流程图流程图循环类别循环类别(2)(2)“直到型直到型循环循环”真真条条 件件循循 环环 体体 AA假假流程图流程图谢谢观赏2019-8-2166F

41、or-NextFor-Next计数型循环计数型循环【重点重点】v格式格式 For For 循环变量循环变量 =初值初值 To To 终值终值 step step 步长步长 循环语句块循环语句块 Next Next 循环变量循环变量 v功能功能 根据根据指定的循环次数指定的循环次数执行循环体执行循环体 For For i i=1 To 2 step =1 To 2 step 1 1Print iNext Next i i谢谢观赏2019-8-2167For For i i=1 To 2 step =1 To 2 step 1 1Print iPrint iNext Next i ii=1i=2T

42、rueFor-NextFor-Next计数型循环计数型循环【重点重点】谢谢观赏2019-8-2168i=1i=2Print iTrueFor-NextFor-Next计数型循环计数型循环【重点重点】For For i i=1 To 2 step =1 To 2 step 1 1Print iPrint iNext Next i i谢谢观赏2019-8-2169i=1i=2Print iTruei=i+步长步长For-NextFor-Next计数型循环计数型循环【重点重点】For For i i=1 To 2 step =1 To 2 step 1 1Print iPrint iNext Nex

43、t i i谢谢观赏2019-8-2170i=1i=2Print iTruei=i+步长步长For-NextFor-Next计数型循环计数型循环【重点重点】For For i i=1 To 2 step =1 To 2 step 1 1Print iPrint iNext Next i i谢谢观赏2019-8-2171For For i i=1 To 2 step =1 To 2 step 1 1 Print iPrint iNext Next i ii=1i=2Print iTruei=i+步长步长False退出循环退出循环执行过程：(1)设置循环变量等于初值。(2)判断循环变量是否大于(步长

44、为负时小于)终止值，如果是则退出循环，否则继续。(3)执行语句块。(4)循环变量加上步长值。(5)重复步骤(2)到(4)。For-NextFor-Next计数型循环计数型循环【重点重点】谢谢观赏2019-8-2172vv说明说明 循环变量：循环变量：初值、终值和步长均是数值表达式初值、终值和步长均是数值表达式 循环次数：循环次数：步长：步长：为正，初值应小于等于终值；为正，初值应小于等于终值；为负，初值大于等于终值；为负，初值大于等于终值；省略默认为省略默认为1 1；不允许为不允许为0 0。n n关键字关键字NextNext为循环正常结束的终端语句，为循环正常结束的终端语句，NextNext语

45、句中的循环变量语句中的循环变量必须与必须与F Foror语句中的语句中的循环变量循环变量一致。一致。n n循环体内可以利用循环体内可以利用E Exitxit For For语句可提前结束循环。语句可提前结束循环。For-NextFor-Next计数型循环计数型循环【重点重点】For 循环变量=初值 To 终值 step 步长循环语句块Next 循环变量当循环变量当循环变量不在循环体不在循环体内改变时内改变时谢谢观赏2019-8-21For For 循环循环ForFor i=0 i=0 toto 10 10 stepstep 2 2 print iprint iNextNext i i73谢谢观

46、赏2019-8-21For For 循环循环ForFor i=0 i=0 toto 10 10 stepstep 1 1 print iprint iNextNext i iForFor i=0 i=0 toto 10 10 stepstep 2 2 print iprint iNextNext i i74谢谢观赏2019-8-21For For 循环循环ForFor i=10 i=10 toto 0 0 stepstep-1-1 print iprint iNextNext i iForFor i=10 i=10 toto 0 0 stepstep-2-2 print iprint iNex

47、tNext i i75谢谢观赏2019-8-21For For 循环循环ForFor i=10 i=10 toto 0 0 stepstep 1 1 print iprint iNextNext i iForFor i=10 i=10 toto 0 0 stepstep 2 2 print iprint iNextNext I I76谢谢观赏2019-8-21For For 循环循环ForFor i=0 i=0 toto 10 10 stepstep 1 1 print iprint ii=i+1i=i+1NextNext i iForFor i=0 i=0 toto 10 10 stepst

48、ep 2 2 print iprint i i=i-2 i=i-2NextNext i i77谢谢观赏2019-8-21For For 循环循环输出从输出从5050到到100100的偶数？的偶数？ForFor i i=50=50 toto 100 100 stepstep 2 2 print print i iNext Next i iForFor i i=0=0 toto 50 50 stepstep 2 2 print i+50print i+50NextNext i i78谢谢观赏2019-8-2179Private Sub Command1_Click()Private Sub Com

49、mand1_Click()Dim Dim i i%,x%,x%x=2x=2 For For i i=1=1 To To 1010 Step Step 2 2 x=x=x+ix+i Next Next i i Print x=;x,Print x=;x,i i=;=;i iEnd End SubSub判断下面程序段运行后，输出的结果为判断下面程序段运行后，输出的结果为课堂练习课堂练习2 2谢谢观赏2019-8-211.Private Sub 1.Private Sub Form_ClickForm_Click()()For For i i=7 to 90 step 5=7 to 90 step

50、5 print print i i Next Next i i End Sub End Sub上述程序共执行执行循环体的次数是（）上述程序共执行执行循环体的次数是（）A)14 B)15 C)16 D)17A)14 B)15 C)16 D)17习题习题80谢谢观赏2019-8-212.2.在窗体上放置一个命令按钮，然后编写如下事件过程：在窗体上放置一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Private Sub Command1_Click()x=5 x=5 For i=1 to 20 Step 2 For i=1 to 20 Step 2 x=