第3章 VB程序语句与控制结构.doc

第3章VB程序语句与控制结构一个VB应用程序主要由用户界面和响应各事件的程序代码组成，程序代码是应用程序的核心。本章首先介绍程序代码设计的基础知识，再通过一些典型的例子，使大家逐步掌握编程的思路和技巧。VB虽然是面向对象的程序设计语言，但在代码设计中仍然支持结构化程序设计的三种基本结构，即顺序结构、选择结构和循环结构。本章将主要介绍数据的输入与输出、三种基本程序控制结构及语句。3.1数据的输入与输出VB的输入/输出有多种形式，常用的输入方式有：使用键盘输入数据的函数InputBox以及文本框等控件。常用的输出方式有：Print方法、MsgBox函数和过程以及图形框、文本框、标签等控件。有关控件的使用在其第六章中介绍，本节主要介绍InputBox函数、MsgBox函数与过程以及Print方法的使用。311 InputBox函数格式：InputBox(提示，标题，默认，x坐标位置，y坐标位置)功能：InputBox函数产生一个对话框，作为输入数据的界面，等待用户输入内容，当用户单击“确定”按钮或按回车键，函数返回输入的值，其值的类型为字符串（String）。说明：（1）“提示”：必选项。字符串表达式，在对话框中作为提示信息显示，可为汉字。若要多行显示，必须在每行行末加回车符Chr(13)和换行符Chr(10)符或VB符号常数vbCrLf。（2）“标题”：可选项。字符串表达式，在对话框的标题区显示；若省略，默认为应用程序名。（3）“默认”：可选项。字符串表达式，当输入对话框中无输入时，则该默认值作为输入的内容。（4）“x坐标位置、y坐标位置”：可选项。整型表达式，确定对话框左上角相对于屏幕左上角的x、y坐标，单位为twip。该项省略时，对话框出现在屏幕水平、垂直中间的位置。【注意】各项参数次序必须一一对应，除了“提示”一项不能省略外，其余各项均可省略，处于中间的默认部分要用逗号占位符跳过。例如，运行如下代码段，结果显示如图3-1所示,当单击“确定”按钮后，变量strName的值为“李林”。Dim strName as String*20Title = InputBox函数示例Msg1 = 请输入你的姓名StrName=InputBox(Msg1，Title， ，200，200)图3-1312 Msgbox函数与过程MsgBox用于输出数据，它会在屏幕上显示一个对话框。在对话框中显示消息，等待用户单击按钮，并返回所选按钮的整数值。有函数和过程两种形式。MsgBox函数格式： 变量=MsgBox（提示，按钮，标题）MsgBox过程格式： MsgBox 提示，按钮，标题说明：（1）“提示”和“标题”的意义与InputBox函数中对应的参数相同。（2）“按钮”：可选项。数值表达式，决定信息框按钮的数目和类型及出现在信息框上的图标类型。该数值表达式的值由4部分数值求和得到，它也可以用符号常量表示。其设置见表3.1。（3）MsgBox函数返回所选按钮整数值的意义见表3.2（4）MsgBox过程与MsgBox函数的区别是：MsgBox过程没有返回值，也不用圆括号“（）”，所以常用于较简单的信息显示。其他用法与MsgBox函数相同。表3.1“按钮”设置及意义类别符号常量按钮值意义按钮数目vbOkOnlyvbOkCancelvbAbortRetryIgnorevbYesNoCancelvbYesNovbRetryCancel012345只显示“确定”按钮。显示“确定”和“取消”按钮。显示“终止”、“重试”和“忽略”按钮。显示“是”、“否”和“取消”按钮。显示“是”和“否”按钮。显示“重试”和“取消”按钮。图标类型vbCriticalvbQuestionvbExclamationvbInformation16324864显示警示图标，红色STOP标志。显示询问图标？。显示警告消息图标！。显示信息图标i。默认按钮vbDefaultButton1vbDefaultButton2vbDefaultButton30256512第一个按钮为默认按钮。第二个按钮为默认按钮。第三个按钮为默认按钮。模式vbApplicationModalvbSystemModal04096应用程序模式系统模式表3.2MsgBox函数的返回值返回值符号常量被单击的按钮1vbOk确定2vbCancel取消3vbAbort终止4vbRetry重试5vbIgnore忽略6vbYes是7vbNo否例如，在代码中加入以下语句，程序在运行中会打开图3-2所示的消息框。Msg=”程序运行出错，继续吗？”Title=”Msgbox演示程序”Resp=MsgBox(Msg,308,Title)If Resp=6 thenPrint“你选择了是！”ElsePrint“你选择了否！”End If图3-2程序中，MsgBox函数的参数308也可以写成符号常量的形式。因308=4+48+256，因而可将数字308写成vbYesNo+vbCritical+vbDefaultButton2的常量表达式的形式；同样，If语句也可写成If Resp=vbYes then的形式。【例3.1】输入圆的半径，求圆的面积。（1）进入代码窗口，编辑程序代码如下：Private Sub Form_Click()Const Pi = 3.14定义常量PiDim r As Double, a as Doubler = InputBox(请输入圆的半径)a = Pi * r * rMsgBox(圆的面积为： & a )End Sub（2）运行程序，输入半径为5，输入、输出对话框如图3-3所示。图3-3313 Print方法Print方法常用于在屏幕上输出信息。在本书第一章1.4.2节中已有介绍。例如，执行如下代码：a = 10：b=15c$ =“欢迎使用Visual Basic”Print“数值表达式a+b的值为：”;a+bPrintPrint“字符串变量c$的值为：”;c$运行结果如下：“数值表达式a+b的值为： 25“字符串变量c$的值为：欢迎使用Visual Basic【例3.2】 用Print方法输出图形。程序运行结果如图3-4所示。Private Sub Form_Click()For i=1 to 5Print Tab(i);String(6-i,”)Next IEnd Sub图3-4【注意】当Tab(i)中i的值小于当前位置的值时，重新定位在下一行的i列。例如，执行以下语句：Print tab(5);“abcdefg”;tab(8);“1234567”运行结果如下：abcdefg1234567314打印机输出Visual Basic除了可以在屏幕上输出以外，还可以在打印机上输出所需要的信息。1用PrintForm方法打印格式：窗体名.PrintForm功能：将指定窗体的信息传送到打印机进行打印。说明：（1）缺省窗体名，则打印当前窗体的信息。（2）PrintForm方法不仅可以打印窗体上的文本，而且还可以打印出窗体上的任何可见的控件及图形。若窗体中包含图形，需要将输出窗体的AutoReDraw属性设置为True。2用Printer对象打印格式：Printer.Print 表达式列表功能：把“表达式列表”中的内容输出到打印机上。例如，下列语句行将字符串“欢迎使用Visual Basic”输出到Windows系统的缺省打印机上。Printer.Print 欢迎使用Visual BasicPrinter对象包含多种属性和方法用以控制打印的各种特性。Printer对象的属性不能在属性窗口中设置，只能在运行时通过程序代码来设置。下面介绍一些Printer对象常用的属性和方法。（1）Page属性Page属性用来保持和返回当前的页号，格式为：Printer.Page每当打印完一页后，Page属性值自动增1。通常用Page属性打印页号，例如：Printer.Print 第; Printer.Page; 页（2）NewPage方法NewPage方法用以结束 Printer 对象中的当前页并前进到下一页，也就是实现换页操作，格式为：Printer.NewPage执行NewPage方法可以强制使打印机前进到下一个打印页，并将打印位置重置到新页的左上角。调用 NewPage方法时，它将 Printer 对象的 Page 属性加 1。（3）EndDoc 方法EndDoc方法用来结束文件打印，格式为：Printer.EndDoc执行EndDoc方法表明打印操作的结束，并向打印机管理程序发送最后一页的退出信号，并把Page属性重置为1。（4）KillDoc方法KillDoc方法用于立即终止当前打印作业，格式为：Printer.KillDoc执行KillDoc方法将中断Print函数的执行，且清除打印缓冲区中的所有信息。【例3.3】 编写程序，实现连续打印“打印测试页1”和“打印测试页2”两张测试页。Private Sub Form_Click()Printer.Print 打印测试页;Printer.PagePrinter.NewPagePrinter.Print 打印测试页;Printer.PagePrinter.EndDocEnd Sub单击窗体后，打印机打印两页，分别为“打印测试页1”和“打印测试页2”。3.2顺序结构顺序结构就是程序的各语句按出现的先后次序执行。在Visual Basic中顺序结构的语句主要有赋值语句、输入语句、输出语句等。3.2.1赋值语句赋值语句是程序设计中最基本的语句，也是为变量和事件的属性赋值的最主要的方法。赋值语句的一般形式为：变量名= 表达式或对象名.属性 = 表达式赋值语句的作用：先计算右边表达式的值，然后赋给左边的变量或控件属性。例如：sum= 100把数值常量100赋给变量sumaver=sum/10将表达式sum/10的值赋给变量averText1.Text =”Hello!”为文本框显示字符串Text1.Text=”清除文本框的内容【注意】（1）表达式可以是任何类型的表达式，一般应与变量名的类型一致，当表达式的类型与变量的类型不一致时，作如下处理：若左边是字符型变量，将右边非字符型转换成左边的类型。例如：C$=123数值常量123转换为字符型数据”123”赋给c若左边是数值型变量，右边表达式为数字字符串时，自动转换成数值类型赋给左边变量。若右边表达式有非数字字符或空串时，则出现类型不匹配错误。例如:m%=”100”数字串”100”转换为数值100赋给变量mm%=”a100”出现类型不匹配的错误m%=”出现类型不匹配的错误若左边是逻辑型变量，右边是数值型表达式，非0转换为True,0转换为False;反之，将逻辑型表达式的值赋给数值型变量时，True转换为-1，False转换为0。例如:Dim f as Booleanx%=10:y%=5f=x+yf中结果为Truef=x-10f中结果为Falsen%=xy表达式xy值为True,n中结果为-1n%=x=y表达式x=y值为False,n中结果为0不管表达式的值是什么类型，都可以直接赋给一个变体类型的变量。（2）赋值号与关系运算符等于都用“=”表示，但系统不会产生混淆，会根据所处的位置自动判断是何种意义的符号。也就是在条件表达式中出现的是等号，否则是赋值号。例如：赋值语句a=b与b=a是两个结果不相同的赋值语句，而在关系表达式中a=b与b=a两种表示方法是等价的。（3）赋值号左边只能是变量，不能是常量、符号常量、表达式。下列语句均为错误的赋值语句：5 = x + y左边是常量vbcrlf=34左边是符号常量x + y = 5左边是表达式（4）不能在一条赋值语句中，同时给多个变量赋值。例如：要对x，y，z三个变量值赋初值1，如下面语句书写语法上没错，但结果不正确：Dim x%, y%, z%x = y = z = 1执行该语句前x，y，z的变量值默认是0，Visual Basic在编译时，将右边两个“=”作为关系运算符处理，先进行y=z比较，结果为True(-1)；接着True=1比较结果False(0)；最后将False赋值给x，因此最后三个变量中的值仍为0。正确书写应分别使用三条赋值语句完成,写成:x=1y=1z=1或x=1:y=1:z=1书写在同一行上（5）如下赋值语句形式很常用：sum=sum+x表示将变量sum、x中的值相加后再赋给sum，与循环结构结合使用，起到累加作用。n=n+1表示将变量n的值加1后再赋给n，与循环结构结合使用，起到计数器的作用。3.2.2顺序结构举例【例3.4】输入某位同学的三门课程的成绩，求它们的平均分。程序代码如下：Private Sub Form_Click()Dim s1!,s2!,s3!,aver!s1=InputBox(“输入第一门课程的成绩”)s2=InputBox(“输入第二门课程的成绩”)s3=InputBox(“输入第三门课程的成绩”)aver=(s1+s2+s3)/3print“aver=”;averEnd Sub33选择结构在人们所处理的问题中，常常需要根据某些给定的条件是否满足来决定所执行的操作。选择结构就是对给定条件进行判断，从而选择执行不同分支，一般可由条件语句来完成。VB中的条件语句包括If语句和Select语句。331 If条件语句1ifThen语句语句格式：（1）If Then （2）If ThenEnd If语句功能：当的值为True或非零时，执行Then后面的语句（或语句块），否则不做任何操作，实现单分支选择结构。其流程如图3-5图3-5说明：（1）表达式一般为关系表达式或逻辑表达式，也可为算术表达式。例如：If n=0 Then EndIf 年龄=35 and 职称=”讲师”Then n=n+1If x-5 Then print“x5”（2）格式（1）中的是单行语句，若要执行多条语句，语句间用冒号分隔，且必须在一行上。格式（2）中的可以是一条或多条语句。例如，语句If xy Then x=x-5:y=y+5也可写成If xy Thenx=x-5y=y+5End If【例3.5】 输入x的值，并输出其绝对值。程序代码如下：Private Sub Command1_Click()Dim x!x = InputBox(请输入一个数)If x0 Thenx = -xPrint 绝对值是：; xEnd Sub2IfThenElse语句语句格式：（1）If Then Else （2）If ThenElseEnd If语句功能：当的值为True或非零时，执行Then后面的语句（或语句块），否则执行Else后面的语句（或语句块），实现双分支选择结构。其流程如图3-6图3-6例如：输入一个整数，判断其奇偶性。程序代码如下：Private Sub Form_Click()Dim x as integerx=InputBox(“请输入一个整数”)Ifx mod 2=0 Then Print x;”是偶数”Else Print x;”是奇数”End Sub3IfThenElseIf语句语句格式：If ThenElseIf ThenElseEnd If语句功能：根据不同的表达式值确定执行哪个语句块，实现多分支选择结构。其流程如图3-7图3-7使用说明：先计算的值，若为真，则执行,并跳过其他分支语句执行If语句的后续语句（即End If后面的语句）；若为假，则计算的值，依此类推，直到找到一个为真的条件时，才执行相应的语句块，然后执行End If后面的语句。格式中的Else是可选项，表示若无任何表达式值为真时，则执行；若无Else选项，且所有条件表达式值都不为真，则不执行If语句中的任何语句块。【注意】当If语句内有多个表达式的值为真时，只执行第一个为真的表达式后的语句块。【例3.6】在文本框中输入若干字符，统计其中字母字符、数字字符以及其他字符的个数，并显示结果。程序代码如下：Dim countX%,countY%,countZ%Private Sub Text1_KeyPress(KeyAscii As Integer)Dim c$c=chr(KeyAscii)将文本框中输入的字符赋给变量cIf Ucase(c)=”A”And Ucase(c)=”0”And c=”9”ThencountY=county+1ElsecountZ=countZ+1End IfIf KeyAscii=13 Then当按回车键字符输入完毕,显示结果Print“字母字符有”;countX;”个”Print“数字字符有”;countY;”个”Print“其他字符有”;countZ;”个”End IfEnd Sub332 Select Case语句Select Case语句是多分支结构的另一种表示形式，它可使程序代码更加简单、清晰、易读。语句格式：Select CaseCaseCaseCase ElseEnd Select语句功能：根据条件表达式的值转向相应的语句块，实现多路分支。其流程如图3-8。图3-8使用说明：先求出条件表达式的值，然后从上到下跟各个Case子句中的表达式列表进行匹配，如果找到了相匹配的值，则执行该子句下的语句块。若有多个Case子句的值与条件表达式的值相匹配，则只执行第一个与之匹配的Case子句后面的语句块。如果没有任何Case子句中的表达式列表与之匹配，则执行Case Else子句中的语句块。格式说明：（1）条件表达式可以是数值表达式或字符串表达式，一般为变量。（2）表达式列表用来描述条件表达式的可能取值情况，可以由多个表达式组成，表达式与表达式之间要用“，”隔开，必须与条件表达式的数据类型相同且有确定的值。表达式列表有以下三种形式：表达式或由逗号分隔的多个表达式例如：Case“A”Case 1,2,3Case a,b To 例如：Case -10 to 10Case“A”to“F”Casea to bIs 例如：Is =a+b【例3.7】某商店进行购物打折优惠活动促销，根据每位顾客一次性购物的消费额给予不同的折扣，具体方法如下：(1) 购物1000元以上的九五折优惠，(2) 购物2000元以上的九折优惠，(3) 购物3000元以上的八五折优惠，(4) 购物5000元以上的八折优惠。程序代码如下：Private Sub Command1_Click()Dim x As Single, y As Singlex = InputBox(请输入购物金额：)Select Case xCase Is 1000Print 不优惠y = xCase Is 2000Print 九五折优惠y = 0.95 * xCase Is 3000Print 九折优惠y = 0.9 * xCase Is = 5000Print 八折优惠y = 0.8 * xEnd SelectPrint 优惠后应收款额为：; yEnd Sub333选择结构的嵌套将一个选择结构放在另一个选择结构内，称为选择结构的嵌套。If语句的多分支格式实际上是一种If结构的嵌套形式。选择结构的嵌套既可以是同一种结构的嵌套，也可以是不同结构之间的嵌套。例如可以在If结构中又包含If语句，或在If结构中包含Select语句等形式。例如：若x大于0，则y等于1；若x小于0，则y等于-1；否则，y等于0。语句如下：If x0 Then y=1 Else If x0方程有两个不同实根s=sqr(disc)Print“x1=”;(-b+s)/(2*a)Print“x2=”;(-b-s)/(2*a)Case Is=0方程有两个相同实根Print“The root is:”Print“x=”;-b/(2*a)Case Else方程没有实根Print“No real root.”End SelectEnd IfEnd Sub334条件函数1IIF函数使用IIf函数也可以实现简单的双分支选择结构。语句格式：result = IIF（条件表达式，）语句说明：（1）“result”是函数的返回值：当条件表达式为真时，函数返回的值，当条件表达式为假时，函数返回的值。（2）和可以是任何表达式。例如：语句If xy Then max=x Else max=Y也可写成：Max=IIf(xy,x,y)2Choose()函数使用Choose函数也可以实现简单的多分支选择结构。语句格式：result=Choose(整数表达式，选项列表)语句说明：Choose函数根据整数表达式的值来决定返回选项列表中的某个值。若整数表达式值是1，则Choose函数会返回列表中的第1个选项。若整数表达式值是2，则会返回列表中的第2个选项，以此类推。若整数表达式的值小于1或大于列出的选项数目时，Choose函数返回Null。例如：c=Choose(x,”red”,”green”,”blue”)当x值为1时，返回“red”;当x值为2时，返回“green”;当x值为3时，返回“blue”；当x不在1-3之间，函数返回Null。3、Switch函数Switch函数称开关函数，计算一个条件表达式列表，并返回与该表中一个等于True的条件表达式相联系的一个表达式的值。语句格式：Result=Switch(,)语句说明：当条件表达式1为True时,返回表达式1的值；当条件表达式2为True时,返回表达式2的值，依此类推。例如：y=switch(x0,1,x=0,0,x0,-1)34循环结构在实际应用中，经常遇到一些需要反复多次处理的问题，例如求若干个数之和、积等。重复执行某一程序块称作循环。Visual Basic提供了多种不同风格的循环结构语句，包括Do Loop、While Wend，For Next，For Each Next等，其中最常用的是For Next语句和Do Loop语句。341计数循环For循环又称计数循环，常用于循环次数预知的场合。语句格式如下：For = ToStep Next 说明：（1）参数、和都是数值型。（2）内是一系列VB合法的语句，构成循环体。（3）步长为可选参数，如果没有指定，则默认值为1。步长可以为正，也可以为负。若为正，则初值应小于或等于终值；若为负，则初值应大于或等于终值，这样才能保证执行循环体内的语句；若为0，循环永远不能结束（即出现死循环）。（4）该语句的执行过程如图3-9所示：把“初值”赋给“循环变量”，仅被赋值一次。检查循环变量的值是否超过终值，若是就结束循环，执行Next后的下一语句；否则执行一次循环体。执行Next语句，循环变量的值增加一个步长，转继续循环。图3-9【例3.9】求1到100的和。Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0给变量sum赋初值0For i = 1 To 100sum = sum + i累加Next iPrint sumEnd Sub思考：若要将上例的求和问题改为求积，如求10！，应如何编写代码？【注意】（1）一般在循环体内不要修改循环变量的值，否则会影响原有的循环控制状况。例如以下程序段：For i=1 To 5If i Mod 2 = 0 Then i = i + 1Print i;Next i程序执行打印结果为：1 3 5循环体执行了3次，若没有第二行，程序应执行5次。（2）如果在循环体中没有修改循环变量的值，则循环的次数可以从For语句中指定的参数直接计算出来：循环次数=Int(循环终值-循环初值)/步长)+1如：For i=1 To 10 Step 3Print i;Next i循环次数=int(10-1)/3)+1=4【例3.10】 求Fibonacci数列的前30个数。这个数列有如下特点：前两个数为1，从第三个数开始，其值是前两个数的和，即：F1=1 （n=1）F2=1 （n=2）Fn= Fn1+ Fn2（n3）程序如下：Private Sub Command1_Click()Dim i As IntegerDim f1 As Long, f2 As Long, fn As Longf1 = 1f2 = 1Print f1,Print f2,For i = 3 To 30f1，f2已知，从第三个数开始计算fn = f1 + f2f1 = f2f2 = fn更改f1,f2的值Print fn,If i Mod 4 = 0 Then Print打印4个数后换行打印NextEnd Sub运行结果如图3-10：图3-10342条件型循环条件型循环是根据某个条件决定循环的次数。常用的循环结构有：While循环结构及Do循环结构。1. While循环结构While循环结构用WhileWend语句来实现，语句格式如下：While Wend语句说明：（1）“条件表达式”可以是关系表达式、逻辑表达式或数值表达式。如果是数值表达式，值为0被作为False，非零值则为True。（2）语句的执行过程是：先计算条件表达式的值，若为True，则执行循环中的语句块，遇到Wend语句时返回While语句继续判断条件表达式的值，若仍为真，则继续执行语句块，重复上述过程直到条件表达式的值为False,则退出循环结构，执行Wend语句的后续语句。循环环执行过程如图3-11。（3）如果条件一开始就不成立，则语句块一次也不会被执行。图3-11例如，用While循环语句改写例3.9，程序代码如下：Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0 :i=1While i=100sum = sum + ii=i+1WendPrint sumEnd Sub2. Do循环结构Do循环结构的形式较灵活，可分为以下几种：（1）先判断条件的DoLoop循环格式一：Do WhileLoop语句执行过程：先计算条件表达式的值，若为True，则执行语句块中的语句；若为False则退出循环结构。循环环执行过程如图3-12。格式二：Do UntilLoop语句执行过程和格式一基本相同，唯一不同的是，它在条件表达式为False时重复执行语句块，直到条件为True时退出循环结构。循环环执行过程如图3-13。图3-12图3-13【例311】将10000元存入银行，按3.25%的利率，试问多长时间就会连本带利翻一番。程序代码如下：Private Sub Form_Click()Dim year%,money!,original!,interest!original=10000money=originalInterest=3.25/100Do While money2*originalyear=year+1money=money+interest*money累计每过一年的连本带利的金额LoopPrint“In”;year;”years,youll have”;moneyEnd Sub请读者自己使用格式二改写上述程序。（2）后判断条件的DoLoop循环格式三：DoLoop While语句执行过程：首先执行语句块中语句，然后计算条件表达式，如果条件表达式值为True，则继续执行语句块，否则退出循环结构。循环体至少执行一次。循环环执行过程如图3-14。格式四：DoLoop Until格式四的执行过程和格式三基本一样，也是先执行后判断。唯一不同的是，它在条件表达式值为假时重复执行语句块，直到条件表达式值为真时退出循环结构。循环环执行过程如图3-15。图3-14图3-15【例312】用辗转相除法求两正整数m，n的最大公约数。求最大公约数的算法如下：（1）对于已知两数m，n，使得mn；（2）m除以n得余数r；（3）令mn，nr；（4）若r0，转到（2）继续执行，直到r=0求得最大公约数为m，循环结束。程序代码如下：Private Sub Form_Click()Dim m%,n%m = InputBox(输入m)n = InputBox(输入n)If mnt=mm=nn=tEnd Ifm1=mn1=nDor = m Mod nm = nn = rLoop while ( r 0)Print m1; ,; n1; 的最大公约数为; mEnd Sub（3）无条件循环格式：DoLoop重复执行循环体，循环不会停止，除非在循环体中有Exit Do语句或在执行时按下Ctrl+Break键。例如：Private Sub Form_Click()s=0i=0Doi=i+1s=s+iIf s=3000 Then Exit Do当s3000,执行Exit Do语句退出循环LoopPrint i,sEnd Sub343循环结构的嵌套在一个循环语句的循环体内又包含另一个循环语句，称为循环的嵌套。循环的嵌套既可以是同一种循环结构的嵌套，也可以是不同循环结构之间的嵌套。例如，可以在For循环中包含另一个For循环，也可以在Do循环中包含一个For循环。【例313】输出3-100之间的素数。素数，就是一个大于2且只能被1和本身整除的整数。判断某数m是否为素数的算法是：对于m从i=2，3，m-1判别m能否被i整除，只要有一个能整除，m就不是素数，否则m是素数。程序代码如下：Private Sub Form_Click()Dim m%,i%,k%,Flag As BooleanFor m=3 To 100Flag=TrueFor i=2 To m-1内循环判断m是否为素数If (m mod i)=0 Then Flag=FalseNext iIf Flag Thenk = k + 1If (k Mod 10) = 0 Then Print m Else Print m;每行显示10个End IfNext mEnd Sub实际上m不可能被大于m的数整除，因此为减少循环次数，可将内循环语句改为：For i=2 To int(sqr(m)循环次数就会大大减少。【注意】（1）内外循环不能交叉。例如，以下程序段是错误的：For i=1 to 10For i=1 to 10For j=1 to 10应改为：For j=1 to 10Next iNext jNext jNext i（2）两个并列的循环结构的循环变量可以同名，但嵌套结构中的内循环变量不能与外循环变量同名。例如：正确的程序段错误的程序段For i=1 to 10For i=1 to 10For i=1 to 10Next iFor i=1 to 10Next iNext iNext i35辅助控制语句351 End语句End语句的作用是使程序结束运行,它可以放在任何事件过程中。语句格式如下：End在过程、函数、分支等的结束部分都用到以End开头的语句，这些语句一般只结束某个过程或语句块。如End Sub、End If、End Function等。352 With语句语句格式：With End With语句功能：用于对单个对象或用户自定义类型变量执行一系列语句，而不需重复地给出对象名或用户自定义类型变量名。使用说明：（1）语句格式中，是指单个对象或用户自定义类型变量。（2）该语句可以嵌套。（3）使用With语句对某个对象