VisualBasic的基本控制结构

优选VisualBasic的基本控制结构当前1页，总共71页。24.1顺序结构当前2页，总共71页。4.1顺序结构

顺序结构是程序设计中最基本、最简单的结构，在此结构中，程序按照语句出现的先后顺序依次执行。顺序结构是任何程序的基本结构，即使在选择结构和循环结构中也包含有顺序结构。语句1语句n当前3页，总共71页。4.1顺序结构

【例4.1】单击窗体，在窗体上输出两行不同格式的文字。新建工程，在窗体的Click事件中添加以下代码：PrivateSubForm_Click()Form1.FontSize=12Form1.ForeColor=vbRedForm1.Print"您好"Form1.FontSize=16Form1.ForeColor=vbBlueForm1.Print"欢迎学习VisualBasic"EndSub当前4页，总共71页。54.2选择结构当前5页，总共71页。4.2选择结构

选择结构是根据某个条件决定执行哪部分程序，可以用If语句或SelectCase语句实现。其中If语句根据分支的多少分为单分支、双分支和多分支If语句。SelectCase语句使程序只能根据某一个条件的不同取值来决定执行哪部分程序。大部分情况下两种语句间可以相互替换。当前6页，总共71页。1.If…Then语句（单分支语句）语句格式如下：

(1)If<条件表达式>Then<语句块>EndIf(2)If<条件表达式>Then<语句>

其中条件表达式可以是任意类型的，语句块可以是一条或多条语句。若用简单的形式(2)表示，则只能有一条语句或语句间用冒号分隔，并且必须写在同一行上。该语句的作用是当条件表达式的值为True或非0数值时，执行Then后面的语句块(或语句)，否则跳过此语句，直接执行If语句后面的语句。4.2.1If语句条件表达式语句块FalseTrue当前7页，总共71页。2.If…Then…Else语句（双分支结构）

语句格式如下：(1)If<条件表达式>Then

<语句块1>

Else

<语句块2>

EndIf(2)If<条件表达式>Then<语句1>Else<语句2>

该语句的作用是当条件表达式的值为非零（True）时，执行Then后面的语句块1（或语句1），否则执行Else后面的语句块2（或语句2）。4.2.1If语句条件表达式语句块1语句块2TrueFalse当前8页，总共71页。例：计算分段函数y的值。PrivateSubCmdCalculate_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text) ‘输入

Ifx<0Theny=5*x+Exp(x)-2Elsey=2*Sqr(x+7)-6EndIfText2.Text=Cstr(y)‘输出EndSubcmdCalculateText1当前9页，总共71页。4.2.1If语句3.If…Then…ElseIf语句（多分支结构）当要处理的实际问题有多个条件时，就要用到该语句结构。语句格式如下：

If<条件表达式1>Then<语句块1>ElseIf<条件表达式2>Then<语句块2>…[Else<语句块n+1>]EndIf

该语句的执行过程是：如果“条件表达式1”的值为True，则执行“语句块1”；如果“条件表达式2”的值为True，则执行“语句块2”；……；如果所有的ElseIf子句后面的条件表达式都不为True，则执行Else后面的“语句块n+1”，Else是可选项。对于整个块结构条件语句，“语句块1”、“语句块2”、……“语句块n+1”中只能有一块被执行。当前10页，总共71页。If…Then…ElseIf多分枝结构流程图条件1语句块1语句块2语句块n语句块n+1条件2条件nTrueTrueTrueFalseFalseFalse当前11页，总共71页。4.2.1If语句【例4.2】输入三个互不相同的整数，将其中的最大值存入变量max中并显示。【例4.3】用键盘输入一字符，判断该字符是小写字母、大写字母、数字字符还是其他字符，并作相应的显示。当前12页，总共71页。4.2.1If语句

4.If语句的嵌套

If语句的嵌套是指If或Else后面的语句块中又包含If语句。下面是常见的双分支选择结构中的嵌套If结构的形式：If<条件表达式1>Then…If<条件表达式11>Then…EndIf…Else…EndIfIf<条件表达式1>Then…Else…If<条件表达式11>Then…EndIf…EndIf

在使用嵌套结构时，书写程序时更应注意采用缩进格式，增加程序可读性，且每个If语句必须与EndIf配对。当前13页，总共71页。开始边长>0?是否能组成三角形计算输出出错信息结束是否是否例：已知三角形的三边，求三角形的面积当前14页，总共71页。PrivateSubcmdCalculate_Click()DimaAsSingle,bAsSingle,cAsSingle,pAsSingle,sAsSinglea=Val(Text1.Text):b=Val(Text2.Text):c=Val(Text3.Text)If(1)ThenIfa+b>cAndb+c>aAndc+a>bThenp=(a+b+c)/2

s=Sqr(p*(p-a)*(p-b)*(p-c))

Text4.Text=Cstr(s)ElseText4.Text=“不能构成三角形”

EndIfElseText4.Text=“边长不能小于0”EndIfEndSub计算公式：其中：a>0Andb>0Andc>0获取数据输出到文本框当前15页，总共71页。例：计算分段函数y的值。PrivateSubcmdCalculate_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)Ifx<0Theny=1/(x-5)ElseIfx<5Theny=3*x^2+4*x+5Elsey=Log(x)EndIfEndIfText2.text=Cstr(y)EndSub05当前16页，总共71页。例：计算等级分。计算规则如下：分数100-9089-8079-7069-60<60

等级分ABCDEPrivateSubText1_KeyPress(KeyAsciiAsInteger)DimScoreAsInteger,DegreeAsStringIfKeyAscii=13ThenScore=Val(Text1.Text)IfScore>=0AndScore<=100ThenIfScore>=90ThenDegree="A"ElseIfScore>=80ThenDegree="B"ElseIfScore>=70ThenDegree="C"ElseIfScore>=60ThenDegree="D"ElseDegree="E"EndIfEndIfEndIfEndIfText2.Text=Cstr(Degree)EndIfEndIfEndSub缺点：嵌套层次过多，结构不清晰，容易出错。当前17页，总共71页。PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimScoreAsInteger,DegreeAsStringIfKeyAscii=13ThenScore=Val(Text1.Text)IfScore>=0And

Score<=100ThenIfScore>=90ThenDegree="A"ElseIfScore>=80ThenDegree="B"ElseIfScore>=70ThenDegree="C"ElseIfScore>=60ThenDegree="D"ElseDegree="E"EndIfEndIfText2.Text=Cstr(Degree)EndIfEndSub特点：结构清晰。当前18页，总共71页。

SelectCase语句是实现多分支选择结构的另一种表示形式，又称为“情况选择”语句。当需要分情况讨论，或根据某些离散的值进行不同的处理时，使用SelectCase语句可以更加简洁的表达算法，而且也容易扩充。

SelectCase语句的格式如下：

SelectCase测试表达式

Case表达式值1<语句块1>Case表达式值2<语句块2>…[CaseElse<语句块n+1>]EndSelect4.2.2SelectCase语句测试表达式语句块1语句块2语句块n+1表达式值1表达式值2其他情况…当前19页，总共71页。

其中，测试表达式可以是数值表达式或字符串表达式。表达式值只能是简单条件，而不能是用逻辑运算符连接而成的复合条件。表达式值必须与“测试表达式”的类型一致，可以是下面情形之一：1.表达式[,表达式]…

当“测试表达式”的值与其中一个表达式的值相匹配时，就执行该Case子句的语句块。例如：Case-1,1Case"a","A"2.<表达式1>To<表达式2>

当“测试表达式”的值处在这个范围时，就执行该Case子句的语句块。必须把比较小的值写在前面，把比较大的值写在后面，字符常量的范围必须按字母顺序写出。例如：Case1To10Case"A"To"Z"4.2.2SelectCase语句当前20页，总共71页。3.Is关系运算表达式只要“测试表达式”的值满足给定的条件就执行该Case子句的语句块。只能是简单的条件，不能用逻辑运算符把两个或多个简单条件组合在一起。4.可以由以上3种形式混合组成，各种形式间用逗号分隔。条件组合是或的关系，不能表示与的关系。5.对于多分支选择结构，用SelectCase语句比用If…Then…ElseIf语句更为直观，程序可读性强。两者的区别在于：SelectCase语句只对单一表达式求值，并根据求值结果执行不同的语句块，而If…Then…ElseIf语句可以对不同的表达式求值。所以，当对多个条件进行判断时，只能用If…Then…ElseIf语句。4.2.2SelectCase语句当前21页，总共71页。【例4.4】将例4.3用SelectCase语句实现。程序代码如下：PrivateSubCommand1_Click()DimstAsString*1st=Text1.TextSelectCasestCase"a"To"z"Text2.Text="是小写字母"Case"A"To"Z"Text2.Text="是大写字母"Case"0"To"9"Text2.Text="是数字字符"CaseElseText2.Text="是其他字符"EndSelectEndSub当前22页，总共71页。例：将计算等级分用SelectCase语句改写。PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimScoreAsInteger,DegreeAsStringIfKeyAscii=13ThenScore=Val(Text1.Text)SelectCaseScoreCase90To100Degree="A"Case80To89Degree="B"Case70To79Degree="C"Case60To69Degree="D"CaseIs<60Degree="E"EndSelectText2.Text=DegreeEndIfEndSub从文本框取数据向文本框放数据如果改为Else，结果会怎样？SelectCaseScoreCaseIs<0Degree=""CaseIs<60Degree="E"CaseIs<70Degree="D"CaseIs<80Degree="C"CaseIs<90Degree="B"CaseIs<=100Degree="A"EndSelect当前23页，总共71页。分支结构的适用情况验证用户输入数据的合法性分段函数计算用于区分等级其他需根据判断结果执行不同操作的情况当前24页，总共71页。254.3循环结构当前25页，总共71页。4.3循环结构

循环结构是根据某一条件（即循环条件）反复执行某一段程序（即循环体）。循环体被反复执行的次数称为循环次数。

VB中提供了两种类型的循环语句：计数型循环语句和条件型循环语句。循环要素：（1）循环控制条件——逻辑表达式或关系表达式等（2）循环体——重复执行的语句块为防止死循环，在循环体内必须要有对应语句，使得循环控制条件不满足，从而结束循环运行。当前26页，总共71页。窗体上打印一行hello

……窗体上打印一行hello110…例：在窗体上打印10行“Hello”当前27页，总共71页。提示：要设立一个变量，用于记录已打印的行数，每打印一行，计数变量要加1，循环控制条件即计数变量小于10窗体上打印一行helloTrueFalse未满10行？循环控制条件:

是否已打印了10行循环体:

在窗体上打印一行“Hello”当前28页，总共71页。

4.3.1For…Next语句

4.3.2Do…Loop语句

4.3.3GoTo语句（选讲）3124.3循环结构

4.4循环嵌套4当前29页，总共71页。[格式]：For<循环变量>=<初值>To<终值>[Step<步长值>]

…

[ExitFor]

…Next<循环变量>[功能]： 该语句是计数型循环语句，用于循环次数已知的循环结构。由循环变量控制，有限次地执行循环体。 执行流程和步骤见下页：4.3.1For…Next语句循环体当前30页，总共71页。步骤：1.计算初值、终值和步长值，将初值赋于计数变量；2.判断“循环变量”是否到达“终值”。如果“步长”为正数，则“循环变量”大于“终值”时结束循环，否则执行第3步；如果“步长”为负数，则“循环变量”小于“终值”时结束循环，否则执行第3步。3.执行循环体。4.循环变量=循环变量+步长值5.返回第2步，继续循环。计数变量=初值计数变量>终值是循环体计数变量=计数变量+步长值否步长值为正的计数循环计算初值、终值和步长值For<循环变量>=<初值>To<终值>[Step<步长>] <循环体>Next<循环变量>当前31页，总共71页。[说明]：

For-Next是关键字，成对出现，缺一不可；循环体为可执行语句组成，可以嵌套选择结构和循环结构；循环变量应为整型或单精度型，初值、终值和步长值为相应类型的表达式；步长值可以为正，也可以为负，可以省略，省略时默认步长值为1；循环次数为：Int((终值-初值）/步长值）+1

语句ExitFor可以无条件退出计数循环如果“初值”、“终值”、“步长”中包含有变量且在循环体内被改变，不会改变循环执行的次数，但循环变量若在循环体内被重新赋值，循环次数则有可能发生变化。4.3.1For…Next语句当前32页，总共71页。【例4.5】计算216。程序代码如下：PrivateSubCommand1_Click()DimiAsInteger,xAsLongx=1Fori=1To16x=x*2NextiPrintxEndSub其中i为循环变量，其值在1~16之间变化。计算结果存放在累乘器x中，它的初值应设为1。在计算累乘时应注意累乘的大小，选择适当的数据类型。当前33页，总共71页。【例4.6】输入20个整数，分别计算并输出正数和负数的平均值。程序代码如下：PrivateSubForm_Click()DimiAsInteger,numberAsIntegerDimPnumberAsInteger,NnumberAsIntegerDimpAsInteger,nAsIntegerDimPavAsSingle,NavAsSingleFori=1To20number=InputBox("Enterdata:")'输入数据Ifnumber>0ThenPnumber=Pnumber+number'正数求和

p=p+1'正数计数ElseNnumber=Nnumber+number'负数求和

n=n+1'负数计数EndIfNextiPav=Pnumber/p'求正数平均值Nav=Nnumber/n'求负数平均值Text1.Text=Str(Pav)'显示正数平均值Text2.Text=Str(Nav)'显示负数平均值EndSub

程序运行后，显示一个对话框，在对话框中输入第一个数，接着再显示一个对话框，再输入下一个数……直到20个数输完为止。输入完20个数之后，文本框1和文本框2中分别显示正数和负数的平均值。当前34页，总共71页。4.3.2Do…Loop语句[格式]：Do[While/Until<条件>]或Do<循环体><循环体>

LoopLoop[While/Until<条件>]重复执行的语句块当前35页，总共71页。格式一：DoWhile<条件>

<循环体>Loop条件？循环体成立Loop的后继语句不成立执行步骤：1.判断条件是否成立。如果条件不成立，转向第4步2.执行循环体；3.转向执行第1步；4.结束循环，执行Loop语句的后继语句。当前36页，总共71页。PrivateSubform_Click()DimiAsIntegeri=0 DoWhilei<10Print"hello"

i=i+1LoopEndSub例：在窗体上打印10行“Hello”。i为计数器，判定是否打印了10行当前37页，总共71页。例：求1到100之间的整数之和。PrivateSubCommand1_Click()DimiAsInteger,sumAsIntegersum=0:i=1DoWhilei<=100

sum=sum+i

i=i+1Loopprint"sum=";sumEndSub循环体设初值,sum为累加器当前38页，总共71页。格式二：Do<循环体>LoopWhile<条件>条件？循环体不成立Loop的后继语句成立执行步骤：1执行循环体；

2

判断条件是否成立。如果条件成立，转向第1步3条件不成立，结束循环，执行Loop语句的后继语句。当前39页，总共71页。格式三：DoUntil<条件>

<循环体>Loop条件？循环体不成立Loop的后继语句成立执行步骤：1.判断条件是否成立。如果条件成立，转向第4步2.执行循环体；3.转向执行第1步；4.结束循环，执行Loop语句的后继语句。当前40页，总共71页。PrivateSubCommand3_Click()DimsumAsInteger,iAsIntegersum=0:i=1DoUntili>100sum=sum+i

i=i+1LoopPrint"sum=";sumEndSub例：求1到100之间的整数之和。当前41页，总共71页。格式四：Do<循环体>LoopUntil<条件>条件？循环体不成立Loop的后继语句成立执行步骤：1.执行循环体；2.判断条件是否成立。如果条件不成立，转向第1步3.

条件成立，结束循环，执行Loop语句的后继语句。当前42页，总共71页。格式五：Do<循环体>Loop执行步骤：

反复执行循环体。该结构为“死循环”，一般通过ExitDo语句退出循环。

ExitDo语句最常用的形式是与If-Then语相结合，即：IfeThenExitDo当在执行循环体时，条件e被满足，则执行ExitDo语句直接退出循环。注意：如果运行时出现死循环，使用Ctrl+Break中止循环体Loop后续语句当前43页，总共71页。PrivateSubCommand5_Click()DimsumAsInteger,iAsIntegersum=0:i=1Dosum=sum+i

Ifi=100ThenExitDoi=i+1LoopPrint"sum=";sumEndSub例：求1到100之间的整数之和。当前44页，总共71页。[功能]：根据条件成立与否，控制重复执行循环体。[说明]： （1）Do和Loop为结构关键字，必须成对出现，缺一 不可； （2）循环体为可执行语句组成，可以嵌套分支结构 和循环结构； （3）语句ExitDo可无条件退出循环，一般情况 下在该语句前加上If语句；

IfeThenExitDo

当在执行循环体时，条件e被满足，则执行 ExitDo语句直接退出循环。 （4）Do—loop循环共有5种具体格式。4.3.2Do…Loop语句当前45页，总共71页。小结：（1）While短语总是在条件成立时，继续进行循环；条件不成立时，结束循环。因此称为当型循环；区别在于：首次执行循环语句时，若循环条件不成立，则格式二的循环体被执行一次，而格式一的循环体不被执行。（2）Until短语总是在条件不成立时，继续进行循环；条件成立时，结束循环。因此称为直到型循环；区别在于：首次执行循环语句时，若循环条件不成立，则格式四的循环体被执行一次，而格式三的循环体不被执行。（3）这两种短语是可以相互转换的。4.3.2Do…Loop语句当前46页，总共71页。条件？循环体成立Loop的后继语句不成立条件？循环体不成立Loop的后继语句成立条件？循环体不成立Loop的后继语句成立条件？循环体不成立Loop的后继语句成立DoWhilee......[ExitDo]LoopDountile......[ExitDo]LoopDo......[ExitDo]LoopWhileeDo......[ExitDo]Loopuntile当前47页，总共71页。

DoWhileeDo......[ExitDo][ExitDo]......LoopLoopWhilee

DoUntileDo......[ExitDo][ExitDo]......LoopLoopUntile不管条件成立与否循环体至少要执行一次当型直到型4.3.2Do…Loop语句当前48页，总共71页。Do-Loop循环知道循环继续或结束的条件条件循环For-Next循环知道循环执行次数计数循环当前49页，总共71页。[分析]：算法：求最大公约数的常用方法是辗转相除法。

1、输入两个自然数M、N; 2、求M除以N的余数R；

3、使得M=N，即用N代换M; 4、使得N=R，即用R代换N; 5、若R≠0,则重复2、3、4（循环），否则转6 6、输出M,此时M即为M和N的最大公约数。例：求两个数的最大公约数。当前50页，总共71页。1810MNR8108282020R=8R=2R=0M=2即最大公约数求最大公约数当前51页，总共71页。

在该例中，我们使用了三个变量，分别表示被除数（m）、除数（n）及余数（r）。

Dor=mModnm=nn=rLoopUntilr=0最大公约数是（）？当前52页，总共71页。问题分析及界面设计

由于输入的数据M和N要求是自然数，在程序中应加入对数据的合法性进行检验的部分；考虑到程序的应用范围，数据类型可选用长整型。设计好的用户界面及程序代码如下。当前53页，总共71页。PrivateSubCommand1_Click()

DimmAsLong,nAsLong,rAsLong m=Val(Text1.Text) ‘取数据M n=Val(Text2.Text) ‘取数据N Ifm<1Orn<1Then‘检验数据合法性

Text3.Text="数据错误！"

Else

Do ‘求最大公约数

r=mModn m=n n=r LoopUntilr=0 Text3.Text=CStr(m)‘输出最大公约数

EndIf

EndSub

PrivateSubCommand2_Click() Text1.Text="" ‘清除文本框1

Text2.Text="" ‘清除文本框2

Text3.Text="" ‘清除文本框3 Text1.SetfocusEndSub

PrivateSubCommand3_Click() End EndSub当前54页，总共71页。【例4.14】计算圆周率的近似值。计算公式如下：直到最后一项的绝对值小于10-6为止。[提示]：由于本题无法预知循环次数，可以用Do…Loop语句来解决。

s=s+<通项表达式>可实现累加。当前55页，总共71页。PrivateSubCommand1_Click()DimPIAsDouble,sumAsDouble,tAsDoubleDimnAsInteger

n=1:sum=0

‘S为累加器

Dot=(-1)^(n-1)/(2*n-1)‘求通项

sum=sum+t

n=n+1LoopUntilabs(t)<0.000001PI=4*sumText1.Text=CStr(PI)EndSubPrivateSubCommand2_Click()UnloadmeEndSubDo

t=(-1)^(n-1)/(2*n-1)sum=sum+tIfabs(t)<0.000001thenExitDo

n=n+1Loop10^(-6)或1E-6当前56页，总共71页。【例4.7】求满足以下条件的最小n和sum值。

sum=1+2+3+…+n且sum≥1000这是一个循环次数未知的问题，可以用Do…Loop循环语句来解决。程序代码如下：OptionExplicitPrivateSubCommand1_Click()DimnAsInteger,sumAsIntegern=1sum=0'累加器置0Dosum=sum+n'累加

Ifsum>=1000ThenExitDo'若sum大于等于1000，结束循环

n=n+1LoopPrint"sum最小值=";sum'输出最小的sum值

Print"n最小值=";n'输出最小的n值EndSub

本例使用格式五的Do…Loop循环方式，根据题目给出的条件，由ExitDo语句结束循环。当前57页，总共71页。4.3.3GoTo语句（选讲）

前面介绍的循环结构都是根据某个条件进行循环，称为有条件跳转语句；还有一种结构，即GoTo语句，是无条件跳转语句，程序执行到该语句时不需要判断条件，直接将程序执行的流程无条件地转移到本过程的另一段程序代码。格式为：

GoTo行标签|行号行标签为语句行标识符的简称。该语句在执行后，无条件地转移到行标签或行号所在的位置处往下执行。行标签的命名与变量命名相同，行标签的后面跟“：”，行号则采用正整数形式。

GoTo语句可以改变程序的执行顺序，跳过程序的某一部分去执行另一部分，或者返回已经执行过的某段程序使之重复执行，因此，用GoTo语句可以构成循环。在结构化程序设计中，要尽量少用或不用GoTo语句，以免造成结构混乱，程序可读性下降，用选择结构或循环结构来代替。当前58页，总共71页。【例4.8】用GoTo语句编写例4.7程序程序代码如下：OptionExplicitPrivateSubCommand1_Click()DimnAsInteger,sumAsIntegern=1sum=0There:sum=sum+nn=n+1Ifsum<1000ThenGoToTherePrint"sum最小值=";sumPrint"n最小值=";n-1EndSub当前59页，总共71页。604.4循环嵌套

当前60页，总共71页。4.4循环嵌套在一个循环结构的循环体内又包含了另一个循环结构称为循环嵌套。循环嵌套对Do…Loop和For…Next均适用。在使用循环嵌套时必须注意：①内循环变量和外循环变量不能同名。②内循环必须完整地包含在外循环之内，不得相互交叉。③若循环体内有If语句，或If语句内有循环语句，也不能交叉。④不能从循环体外转向循环体内，也不能从外循环转向内循环，反之则可。⑤在循环体中遇到ExitFor(Do)时，则只能跳出当前一层循环。当前61页，总共71页。【例4.9】编写程序，找出100以内所有满足a2+b2=c2且a≤b的自然数组合。

本题属于“穷举”问题，解题的基本思想是：一一列举各种可能的情况，并判断哪种情况是符合要求的解，这种算法称为穷举法（又称“枚举法”），通常采用循环结构来实现。程序界面如图所示，主要由三个列表框和一个命令按钮及用于说明的标签组成，查找到的a、b、c分别放入三个列表框中，组数显示在界面下方的标签4上。当前62页，总共71页。程序代码如下：OptionExplicitPrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegerDimiAsIntegerFora=1To100Forb=1To100Forc=1To100Ifa^2+b^2=c^2Anda<=bThenList1.AddItemaList2.AddItembList3.AddItemci=i+1EndIfNextcNextbNextaLabel4.Caption="共有"&i&"组"EndSub本程序使用了三重循环，循环变量在1~100之间变化，内循环体被执行了100*100*100次。当前63页，总共71页。644.5程序示例当前64页，总共71页。【例4.10】编写程序，找出10000以内的所有素数并作相应显示。

所谓素数(质数)是指只能被1和自身整除的数，因此可以按素数的定义来进行判断。用数x依次除以2到x-1之间的所有数，若都无法整除，则x为素数。实际上，判断一个数x是否为素数并不需要从2判断到x-1，只要从2