VB三种程序结构VisualBasic语言作为结构化程序设计.ppt

《VB三种程序结构VisualBasic语言作为结构化程序设计.ppt》由会员分享，可在线阅读，更多相关《VB三种程序结构VisualBasic语言作为结构化程序设计.ppt（60页珍藏版）》请在三一办公上搜索。

1、3.2 VB三种程序结构Visual Basic语言作为结构化程序设计语言，提供了三种控制流来控制程序的流程：顺序，条件分支和循环语句。,3.2.1 顺序结构顺序结构程序中的语句依照其在程序中的位置依次顺序地执行。1、赋值语句格式：变量名/对象.属性名=表达式功能：将赋值号右边表达式的值赋给赋值号左边的变量或对象属性。举例：Form1.width=300 Temp=20,说明：1、当表达式为数值型且与变量的精度不相同时，强制转换成左边变量的精度。例如：Dim A as integerA=4.7 A是整型变量，A中的结果是5。2、当表达式是数字字符串，左边变量是数值类型时，自动转换成数值类型再赋

2、值；但当表达式有非数字字符或空串时，则出错。例如；n=“123”n中的结果是123 n为整形 n=“1a23”出现“类型不匹配”的错误3、当逻辑型赋值给数值型时，True转换为-1，False转换为0；反之，当数值型赋给逻辑型时，非0转换为True，0转换为False.,2、MsgBox函数：向用户显示信息（输出）MsgBox语句:MsgBox（提示内容,答复按钮+图标,标题）MsgBox函数：Dim x As IntegerX=MsgBox(提示内容,答复按钮+图标,标题),功能：打开一个消息框，等待用户选择一个按钮。MsgBox函数返回所选按钮对应的整数值，其数值的意义见后表。若不需要返回

3、值，则作为MsgBox语句。,参数说明,提示内容：显示给用户的信息。最长1024字符。如果 内容超过一行，则可以在每一行之间用回车符 Chr(13)、换行符(Chr(10)或是回车与换行符的组合(Chr(13)&Chr(10)将各行分隔开来。答复按钮+图标：确定在消息框中按钮 的数目和类型，以及图标的类型。标题：显示在消息框标题栏上的文本。,按钮设置值及意义,MsgBox函数返回所选按钮整数值的意义,3、InputBox函数：从用户处获取信息（输入）功能：打开一个对话框，等待用户键入内容。当用户单击确定按钮或按回车键时，函数返回输入的值，其值的类型为字符串。,（1）句法,变量名=InputBo

4、x(提示,标题,默认值横坐标，纵坐标)（2）参数说明提示：提示信息，类型是字符串。标题：是对话框窗口中的标题文本，类型是 字符串。默认值：在用户输入信息之前，输入框中显 示的内容，类型是字符串。,例：,bb=MsgBox(错误，重输吗？,vbYesNo+vbDefaultButton2+vbCritical,确认重输对话框)If bb=vbNo Then End,4、print语句格式1：对象.Print 表达式，|；功能：显示数据。对象可以是窗体（Form）、图形框(PictureBox)或打印机（Printer）。如果省略了对象，则在窗体上输出。说明：表达式：可选项。可以是一个或多个表达式

5、。当有多个表达式时，要用分隔符（逗号、分号）隔开。当表达式缺省时，则屏幕显示一个空行。输出格式分为标准输出格式和紧凑输出格式。标准输出格式：以14个字符宽度划分为一个区段，每个数据项占一个区段的位置。（数据项之间用逗号隔开）紧凑输出格式：对于数值型数据，前面有一个符号位，后面有一个空格；对于每个字符串，各个数据项之间没有间隔。（各数据项之间用分号或空格作为分隔符）,格式2：对象.PrintSpc(n)/Tab(n)表达式表Spc(n)函数：用于在输出时插入n个空格。Tab（n）函数：表示在第n 列显示。,?Round(3.89456,3)结果:3.895说明：在三角函数中，以弧度表示；sqr的

6、自变量不能是负数,Rnd函数返回小于1，大于等于0的单精度随机数。VB用于产生随机数的公式取决于称为种子（seed）的初始值。默认情况下，每次运行一个应用程序，VB提供一相同的种子，即Rnd产生相同序列的随机数。为了每次运行时，产生不同序列的随机数，可执行Randomize语句，格式如下：Randomize number如果省略number，则用系统计时器返回的值作为新的种子Rnd(x):x=0:得到的相同的随机数结果。大于 0:序列中的下一个。省略:序列中的下一个随机数。例子：int(b-a+1)*rnd)+a要产生3050之间的随机数int(Rnd*21)+30,Len()函数格式：Len

7、(String)功能：计算字符串的长度。例子：Len(Visual)函数返回值为6Mid()函数格式：Mid(String,n,m)功能：从String字符串中从第n 个字符开始连续取m个字符。例子：Mid(VisualBasic6.0,7,5)函数返回值是Basic InStr()函数格式：InStr(n,string1,string2)功能；在string1 中从n开始查找 string2，如果存在，函数值为string2在string1中的位置值；找不到时函数的值为0。n是可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。例子：Print InStr(2,e

8、fabcdefg,ef)函数返回值为7,删除前后空格函数格式：TRIM():去掉前后空格 LTRIM()：去掉前空格 RTRIM()：去掉后空格例：trim(“ab“)=“ab”ltrim(“ab“)=“ab”Rtrim(“ab“)=“ab”取子串函数格式：LEFT(,)功能：从表达式值的左端取一个指定长度的子串格式：RIGHT(,)功能：从表达式的右端取一个指定长度的子串。例子：LEFT(VisualBasic6.0,5)函数返回值是Visua“RIGHT(VisualBasic6.0,5)函数返回值是“ic6.0“,4Str()格式：Str(Number)功能：将数值型量转换成字符型量。说

9、明：Number为一个数值型量，返回一个字符型量。示例：Print Str(12345)值为字符“12345。说明：Str函数将非负数值转换成字符类型后，会在转换后的字符串左边增加空格，即数值的符号位。如Str(123)的结果为“123，而不是123。Print Str(123),三、日期函数,1Date格式：Date功能：提取计算机系统的当前日期。说明：该函数是无参函数，返回日期的格式为月-日-年示例：如果今天是2000年3月10日，则a=Date的值为“03-10-2000”Print Date2Now格式：Now功能：提取计算机系统的当前的时间和日期。示例：a=Now a的值为00-3-

10、6 10:08:34,表示当前系统日期为2000年3月6日，系统时间为10点8分34秒。Print Now,3Time格式：Time功能：提取计算机系统的当前的时间。说明：该函数是无参函数，返回由当前系统时间组成的一个字符串。示例：a=Time a的值为10:08:34。,4、格式：YEAR(日期表达式)MONTH(日期表达式)DAY(日期表达式)功能：返回年月日例：Print Date Print Day(#3/12/2006#)5、格式：HOUR(日期时间表达式)MINUTE(日期时间表达式)Second(日期时间表达式)功能：返回时、分、秒。例：Print TimePrint Hour(

11、#1:34:24 PM#)Print Minute(Time),四、其他函数,1Asc（）格式：Asc(String)功能：将字符串转换成ASCII值。示例：Print Asc(C)值为67。2Chr（）格式：Chr(x)功能：将ASCII码值转换成字符串。示例：Print Chr(66)值为字符B。Chr和Asc函数是一对互为反函数,3.小写转换函数格式：Lcase()功能：将指定表达式值中的大写字母转换成小写字母，其他字符不变。例：?Lcase(BOOK)book4.大写转换函数格式：Ucase()功能：将指定表达式值中的小写字母转换成大写字母，其他字符不变。例：?Ucase(“work”

12、)WORK,5Val（）格式：Val(String)功能：将字符串量转换成数值量。示例：a=Val(-13.456)值为-13.456 b=Val(13-456)值为13 Val将数字字符串转换为数值，当字符串中出现非数值字符时，停止转换，函数返回的是停止转换前的结果。如Val(“123.45ty”)结果为-123.45。6.str()功能：将数值转换成字符串。,Visual Basic 选择结构的实现：IfThen 语句（单分支结构）If.ThenElse 语句（双分支结构）Select Case 语句（多分支结构）,3、2、2 分支结构,1.IfThen语句（单分支结构）,格式1：If 表

13、达式Then 语句 格式2：If 表达式Then 语句块 End If,功能：当条件表达式的值为“真”时，则执行Then后面的语句或语句块；否则不执行任何操作。,说明：语句块可以是一条或多条语句。如果使用格式1的简单形式表示，则只能是一条语句；或用冒号隔开的多条语句，但这些语句必须书写在一行上。If.Then 的单行格式不用 End If 语句。Dim x As IntegerPrivate Sub Command1_Click()x=90If x 0 Then MsgBox 正数:Print x=90End SubPrivate Sub Command2_Click()x=90If x 0

14、ThenMsgBox 正数Print x=90End IfEnd Sub,【例3-3】任意输入3个数，找出其中的最大值。编写的窗体单击事件过程代码如下：Private Sub Form_Click()Dim a As Single,b As Single,c As Single,max As Single a=InputBox(请输入第一个数,输入框)b=InputBox(请输入第二个数,输入框)c=InputBox(请输入第三个数,输入框)max=a If b max Then max=b If c max Then max=c Print 三个数中最大的为：&maxEnd Sub,说明：块

15、结构的条件语句可以嵌套，即把一个If Then Else 块放在另一个If Then Else 块内。嵌套必须完全嵌套，也就是内层条件语句必须完全包含在外层条件语句之中。,【例3-4】火车站行李费的收费标准是40kg以内（包括40kg）0.20元/kg，超过部分为0.50元/kg。编写程序，根据输入的任意重量，计算出应付的行李费。根据题意计算公式如下：Pay=Weight0.20 Weight40(Weight-40)0.50+400.20 Weight40,编写的窗体单击事件过程代码如下：Private Sub Form_Click()Dim weight As Single,pay As

16、Singleweight=InputBox(请输入行李重量,输入框)If weight 40 Thenpay=(weight-40)*0.5+40*0.2Elsepay=weight*0.2End IfPrint 行李重量=&weightPrint 所付费用=&payEnd Sub,语句格式：If 表达式1 Then 语句块1 ElseIf 表达式2Then 语句块2 Else 语句块 n+1 End If,说明：不管有几个分支，程序执行了一个分支后，其余分支不再执行。ElseIf子句的数量没有限制，可以根据需要使用任意多个ElseIf子句。,例：【例3-6】输入一个学生的成绩score，根据

17、其所在分数段给出他的考试等级。分数段划分规则是：90100为“输入错误”。Private Sub Form_Click()Dim score As Singlescore=InputBox(请输入学生的成绩score;)If score 60 ThenPrint 不及格ElseIf score 70 ThenPrint 及格ElseIf score 80 ThenPrint 中等ElseIf score 90 ThenPrint 良好ElseIf score=100 ThenPrint 优秀ElsePrint 输入错误End IfEnd Sub,If 语句的嵌套是指if或else语句后面的语句

18、块中又包含if语句。语句形式为：,If then if then endif endif,【例3-5】输入系数a，b和c，求二次方程ax2+bx+c=0的实根。Private Sub Form_Click()Dim a!,b!,c!,d!,x1!,x2!,xa=InputBox(请输入系数a:)b=InputBox(请输入系数b:)c=InputBox(请输入系数c:)d=b*b-4*a*cIf d 0 Thenx1=(-b+Sqr(d)/(2*a)x2=(-b-Sqr(d)/(2*a)Print x1=;x1,x2=;x2ElseIf d=0 Thenx=-b/(2*a):Print x=;

19、xElsePrint 此方程无实根End IfEnd IfEnd Sub,Private Sub Form_Click()Dim score As Singlescore=InputBox(请输入学生的成绩score:)If score 60 ThenPrint 不及格ElseIf score=70 ThenPrint 及格ElseIf score=80 ThenPrint 中等ElseIf score=90 ThenPrint 良好ElseIf score=100 ThenPrint 优秀ElsePrint 输入错误End IfEnd Sub,格式：Select Case 测试变量或表达式

20、Case 表达式表1 语句块1 Case 表达式表2 语句块2 Case 表达式表n 语句块n Case Else 语句块n+1 End Select,功能：根据Select Case 中的结果与各Case子句中的值比较，决定执行哪一组语句块。如果有多个Case短语中的值与测试值匹配，则根据自上而下判断原则，只执行第一个与之匹配的语句块。说明：如果在一个列表中有多个值，就用逗号把值隔开。例：,一个表达式。如：Case 6 一组用逗号隔开的枚举值。如：Case 1，3，5，7表达式1 TO 表达式2。如：Case 1 To 10Is 关系运算表达式。如 case is5,Private Sub

21、Form_Click()Dim score As Singlescore=InputBox(请输入学生的成绩score;)Select Case scoreCase Is 60Print 不及格Case Is 70Print 及格Case Is 80Print 中等Case Is 90Print 良好Case Is=100Print 优秀Case ElsePrint 输入错误End SelectEnd Sub,循环是在指定的条件下多次重复执行一组语句，这可通过循环结构来实现。VB中提供了两种类型的循环语句：一种是计数循环语句；另一种是条件循环语句。Visual Basic 支持的循环结构有：F

22、or.Next DoLoop WhileWend,3.2.3 循环结构,格式：For 循环变量=初值 To 终值 Step 步长 Exit For Next 循环变量,说明：格式中的参数说明：循环变量必须为数值型。循环的初值、终值和步长都是数值表达式，其中，增量参数可正可负。如果增量为正，则初值必须小于等于终值；如果增量为负，则初值必须大于等于终值。如果没有设置step，则增量默认为1。Exit For为强行退出循环语句。当遇到该语句时，退出循环，执行Next的下一个语句。当循环是单层循环时，Next后面的循环变量可以不写。,例：3-8 求阶乘。Private Sub Form_Click()

23、Dim i%,f fEnd Sub,DoLoop循环用于事先不知道循环次数的循环结构。此种语句四种语法格式：.Do While Loop 语句.Do Loop While 语句.Do Until Loop 语句.Do Loop Until 语句,格式：Do While 条件表达式 循环体 Exit Do 循环体 Loop,说明：1、循环体中要有控制循环的语句，以避免出现死循环。2、由于该循环的特点是先判断条件，然后再决定是否要执行循环体里的语句。3、Exit Do 表示当遇到该语句时，强制退出循环，执行Loop后的下一条语句。,Private Sub cmdDoWhileLoop_Click(

24、)Dim i As Integer Dim Total As Long Do until i 100 Total=Total+i*i i=i+1 Loop Print TotalEnd Sub,例 求1到100之间所有自然数的平方和。即,【例3-10】给出两个正整数M和N，求他们的最大公约数和最小公倍数。求最大公约数的算法如下：（1）以M作被除数，N作除数，求余数R。（2）如果R不为零，则将除数N做为新的被除数M，将余数R做为新的除数N，再进行相除，得到新的余数R。（3）如果R仍不等于0，则重复步骤（2）。如果R为零，则这时的被除数N就是最大公约数。最小公倍数为这两个数的乘积除以他们的最大公约

25、数。,编写窗体单击事件过程代码如下：Private Sub Form_Click()Dim A As Integer,B As Integer,N As Integer,M As Integer,R As Integer,T As Integer M=InputBox(请输入第一个正整数M,求M、N最大公约数和最小公倍数)N=InputBox(请输入第二个正整数N,求M、N最大公约数和最小公倍数)A=M:B=N If M 0 M=N N=R R=M Mod N Loop Print 最大公约数为：,N Print 最小公倍数为：,A*B/NEnd Sub,格式：Do 循环体 Exit Do 循

26、环体 Loop While条件表达式,说明：至少要执行循环体一次。与Do While循环的区别：Do While循环先测试条件是否成立，只有成立才执行循环；而该循环先执行循环体，后测试条件是否成立。,例 求1到100之间所有自然数的平方和。即,Private Sub cmdDoLoopWhile_Click()Dim i As Integer Dim Total As Long Do Total=Total+i*i i=i+1 Loop While i=100 Label1.Caption=Do Loop While方法结果：Label2.Caption=Format(Total)End Su

27、b,格式：Do Until条件表达式 循环体 Exit Do 循环体 Loop,格式：Do 循环体 Exit Do 循环体 Loop Until条件表达式,Private Sub cmdDoUntilLoop_Click()Dim i As Integer Dim Total As Long Do Until i 100 Total=Total+i*i i=i+1 Loop?TotalEnd Sub,格式：While 条件表达式 循环体 Wend功能：当While的条件表达式的值是True时执行循环体内的代码，直到While后的条件表达式的值为False。说明：它与Do Loop语句的差别是：

28、While Wend语句中不能使用Exit语句跳出循环。,3.While Wend循环,例：求N要求N的阶乘最接近 2000，但不大于2000。Private Sub Form_Click()Dim n%,f%n=0f=1While f 2000n=n+1f=f*nWendf=f/nn=n-1Print n=;nEnd Sub,多重循环,循环体内含有循环语句的循环称多重循环。格式：For 循环变量=初值 To 终值 Step 步长 For 循环变量=初值 To 终值 Step 步长 Next 循环变量 Next 循环变量,类型说明符有：Dim I as integerDim i%表示整型&表示

29、长整型！表示单精度型#表示双精度型 表示货币型 表示字符型,【例3-11】编写程序，判断用户输入的数是否为素数。素数是指除了1和该数本身，不能被任何其他整数所整除的数。判断一个自然数n（n=3）是否为素数，只要依次用从2到n/2作除数去除n，若n不能被其中任何一个数整除，则n为素数。若flag为0:没有找到除了1和它本身以外能整除n的数，即n为素数；flag为1:则说明找到了某个能整除n的正整数，即n不是素数。,Private Sub Form_Click()Dim n!,k%,flag%,i%n=InputBox(请输入一个大于2的整数)k=Int(Sqr(n)flag=0 i=2 While i=k And flag=0 If n Mod i=0 Then flag=1 Else i=i+1 End If Wend If flag=0 Then Print n;是素数 Else Print n;不是素数 End IfEnd Sub,