VB公开课电子课件

VB公开课电子课件VB公开课电子课件VB公开课电子课件课前回顾3、PrivateSubForm_Clicka=Len(Mid(“visualBasic”,8))Ifa>2thenx=“a”ElseIfa>3thenx=“b”ElseIfa>4thenx=“c”ElseIfa>5thenx=“d”EndIfLabel1.Caption=xEndSub单击窗体后，标签中显示的结果是（）A.aB.bC.cD.dA.a由于本人工作能力和接触项目有限，希望借此机会将自己的体会与大家分享，更希望大家能提出更多更为深刻的意见!谢谢VB公开课电子课件VB公开课电子课件VB公开课电子课件课前回1课前回顾3、PrivateSubForm_Clicka=Len(Mid(“visualBasic”,8))Ifa>2thenx=“a”ElseIfa>3thenx=“b”ElseIfa>4thenx=“c”ElseIfa>5thenx=“d”EndIfLabel1.Caption=xEndSub

单击窗体后，标签中显示的结果是（）A.aB.bC.cD.dA.a课前回顾3、PrivateSubForm_Click单击2课前回顾4、PrivateSubCommand1_Clickn=Val(Text1.Text)SelectCasenCase1to20x=10Case2,4,6,11x=20CaseIs<10x=30Case10x=40EndSelectText2.Text=xEndSub

在文本框Text1中输入11，然后单击按钮后，则文本框Text2中显示的结果是()A.10B.20C.30D.40A.10课前回顾4、PrivateSubCommand1_Cli3课前回顾5、执行下列程序段后，x的值为（）DimxAsIntegerIfx=0Thenx=5Ifx=5Thenx=x+2Ifx>5Thenx=x+1A.0B.8C.6D.程序出错B.8课前回顾5、执行下列程序段后，x的值为（）B.84第五章循环结构程序设计第五章循环结构程序设计5一、循环结构的基本概念二、Do...Loop语句三、For...Next语句四、While...Wend循环结构五、列表框和组合框六、常用算法介绍本章内容一、掌握三种循环结构的语法格式及运用；二、掌握两种控件的常用属性、方法和事件；三、掌握多项累加和累乘的算法学习重点一、循环结构的基本概念本章内容一、掌握三种循环结构的语法格式6

循环结构由两部分组成：（1）循环体：反复执行的处理步骤（2）循环控制部分：指定循环条件来控制重复次数的语句。正常情况下，循环次数必须是有限的。

在一些算法中，从某处开始，按照一定条件，反复执行某一处理步骤的情况，这就是循环结构。一、循环结构的基本概念循环结构由两部分组成：在一些算法中，从某处开7一、循环结构的基本概念VB提供的循环控制语句有以下四种：1.Do...Loop2.For...Next3.While...Wend4.ForEach...Next2.For...Next1.Do...Loop一、循环结构的基本概念VB提供的循环控制语句有以下四种：2.8后测型Do...Loop循环前测型Do...Loop循环满足条件？循环体是否循环体是否满足条件？先判断后执行先执行后判断先判断指定的条件是否为成立，若条件成立，执行循环条件，条件不成立时退出循环。先执行循环体，然后再检查条件是否成立，如果不成立就重复执行循环体，直到条件成立退出循环。二、Do...loop语句后测型Do...Loop循环前测型Do...Loop循环满足9DoWhile<条件>[<语句列1>][ExitDo][<语句列2>]Loop（1）前测型循环循环体满足条件？是否二、Do...loop语句DoUntil<条件>[<语句列1>][ExitDo][<语句列2>]Loop当型前测型直到前测型（1）前测型循环循环体满足条件？是否二、Do...loop语10说明：1.前测型循环是先判断条件，根据条件成立与否决定是否执行循环体，这种情况下，循环体有可能一次都不被执行。2.当VB执行DoWhile...Loop循环时，若条件为True，执行循环体，条件为False时退出循环；当VB执行DoUntil...Loop循环时，若条件为False，执行循环体，条件为True时退出循环。3.在语句列中的任何位置都可放置ExitDo语句，执行ExitDo语句时，就会退出循环。二、Do...loop语句说明：二、Do...loop语句11执行过程：1.先把初值赋给循环变量；2.再判断条件，若符合条件，则执行循环体内语句，否则跳出循环执行Loop后语句；3.执行循环体时，若出现ExitDo语句，则无条件跳出循环，执行Loop后语句；4.要注意防止死循环的情况出现，若出现死循环，可按Ctrl+Break键强行中断程序的运行。二、Do...loop语句执行过程：二、Do...loop语句12例题：求1+2+…+100的值程序：条件s=s+ii=i+1DoWhileLoopi<=100s=0i=1Prints循环体i<=100?i=1开始输出s结束否是s=0i=i+1s=s+i二、Do...loop语句例题：求1+2+…+100的值程序：条件s=s+iDoW131i=1s=02534i=2i=6i=5i=4i=3s=3s=15s=10s=6s=1s=s+ii=i+1s=s+ii=i+1s=s+ii=i+1s=s+ii=i+1s=s+ii=i+1如果用DoUntil...Loop来求1+2+3+...+100的和，应何如修改代码？二、Do...loop语句1i=1s=02534i=2i=6i=5i=4i=3s=3s14s=0i=1DoWhilei<=100s=s+ii=i+1Loops=0i=1DoUntili>100s=s+ii=i+1Loop总结：通过上述两种方法，可以得知，前测型循环都是先判断条件，再根据条件决定是否执行循环体。

DoWhile...Loop是当条件为True时才执行，而DoUntil...Loop是当条件为False时才执行。二、Do...loop语句s=0s=0总结：通过上述两种方法，可以得知，前测型循环都是15例题：求10以内的奇数的和。二、Do...loop语句PrivateSubForm_Click()DimiAsIntegerDimsAsIntegeri=1s=0DoWhilei<10s=s+ii=i+2LoopPrintsEndSub

DoUntili>=10如果用DoUntil...Loop计算，应何如修改代码？例题：求10以内的奇数的和。二、Do...loop语句Pri16Do[<语句列1>][ExitDo][<语句列2>]LoopWhile<条件>（2）后测型循环二、Do...loop语句Do[<语句列1>][ExitDo][<语句列2>]LoopUntil<条件>当型后测型直到后测型循环体满足条件？否是（2）后测型循环二、Do...loop语句当型后测型直到后测17说明：1.后测型循环是先执行循环体，再判断条件，根据条件成立与否决定是否执行循环体，这种情况下，至少执行一次循环体。2.当VB执行Do...LoopWhile循环时，若条件为True，执行循环体，条件为False时退出循环；当VB执行Do...LoopUntil循环时，若条件为False，执行循环体，条件为True时退出循环。3.在语句列中的任何位置都可放置ExitDo语句，执行ExitDo语句时，就会退出循环。二、Do...loop语句说明：二、Do...loop语句18执行过程：1.先把初值赋给循环变量；2.然后执行循环体，接着判断条件，若符合条件，则继续执行循环体内语句，否则跳出循环执行Loop后语句；3.执行循环体时，若出现ExitDo语句，则无条件跳出循环，执行Loop后语句；4.要注意防止死循环的情况出现，若出现死循环，可按Ctrl+Break键强行中断程序的运行。二、Do...loop语句执行过程：二、Do...loop语句19s=0i=1Do

s=s+ii=i+1LoopWhilei<=100Printsi=1开始结束s=0输出si=i+1s=s+1否是程序：i<=100?二、Do...loop语句如果用Do...LoopUntil来求1+2+3+...+100的和，应何如修改代码？s=0i=1开始结束s=0输出si=i+1s=s+1否是程序20s=0i=1Dos=s+ii=i+1LoopWhilei<=100s=0i=1Dos=s+ii=i+1LoopUntili>100总结：通过上述两种方法，可以得知，后测型循环都是先执行循环体，再判断条件，根据条件决定是否执行循环体。

Do...LoopWhile是当条件为True时才执行，而Do...LoopUntil是当条件为False时才执行。二、Do...loop语句s=0s=0总结：通过上述两种方法，可以得知，后测型循环都是21例题：假设s=1×2×3×......×n,求s不大于400000时的最大的n值和此时s的值。二、Do...loop语句PrivateSubCommand1_Click()DimsAsLongDimnAsIntegers=1n=0Don=n+1s=s*nLoopWhiles<=400000Text1.Text="n的值为"&Str(n-1)&"，"&"此时s的值为"&Str(s/n)EndSub

LoopUntils>400000如果用Do...LoopUntil计算，应何如修改代码？例题：假设s=1×2×3×......×n,求s不大于40022i=10s=0DoWhilei<=2s=s+ii=i+1LoopPrintsPrintii=10s=0Dos=s+ii=i+1LoopWhilei<=2PrintsPrinti前测型不一定执行循环体后测型至少执行一次循环体二、Do...loop语句思考：以上两个程序的输出结果一样吗？那么s和i的值分别是什么？s=0i=10s=10i=11不一样i=10i=10前测型不一定执行循环体后测型至少执行一次循环23例题：用前测型循环和后测型循环求5！的值。二、Do...loop语句程序界面截图程序运行结果例题：用前测型循环和后测型循环求5！的值。二、Do...lo241.如果以下程序运行后输出结果是720，那么在程序中Until后面的条件应为()i=10s=1Do

s=s*ii=i-1LoopUntil条件PrintsA.i>8B.i>=8C.i<=8D.i<8①S=10i=9②S=90i=8③S=720i=7随堂练习D.i<81.如果以下程序运行后输出结果是720，那么在程序中Unti252.编写代码如下：PrivateSubCommand1_Click()x=0DoWhilex<50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)EndSub随堂练习程序运行后，单击命令按钮后，在两个文本框中显示的值分别为（）A.1和0B.2和72C.3和50D.4和168B.2和722.编写代码如下：随堂练习程序运行后，单击命令按钮后，在两个263.编写代码如下：PrivateSubCommand1_Click()Dima%,b%a=10:b=20DoUntila>10b=b*a+aa=a+1LoopPrinta;bEndSub随堂练习程序运行后，单击命令按钮后，输出的结果是（）A.11

210B.10

20C.11

410D.10410A.112103.编写代码如下：随堂练习程序运行后，单击命令按钮后，输出的27当型前测型循环当型后测型循环执行循环体前测试条件执行循环体后测试条件当条件真时执行循环体当条件真时执行循环体当条件假时跳出循环体当条件假时跳出循环体可能不执行循环体至少执行一次循环体1.当型前测型与当型后测型的比较DoWhile

条件

循环体Loop知识总结Do

循环体