三章VB的程序结构基础.ppt

《三章VB的程序结构基础.ppt》由会员分享，可在线阅读，更多相关《三章VB的程序结构基础.ppt（32页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、现代教育技术中心 WWW.LNCC.EDU.CN三章VB的程序结构基础 Still waters run deep.流静水深流静水深,人静心深人静心深 Where there is life,there is hope。有生命必有希望。有生命必有希望现代教育技术中心 WWW.LNCC.EDU.CN本章主要内容本章主要内容 顺序与选择结构程序设计顺序与选择结构程序设计 For循环结构程序设计循环结构程序设计 While循环结构程序设计循环结构程序设计 Do循环结构程序设计循环结构程序设计 多重循环多重循环 程序举例程序举例现代教育技术中心 WWW.LNCC.EDU.CN1VB代码不区分字母的大小

2、写（l）VB中的关键字，首字母总被转换成大写，其余字母被转换成小写。（2）若关键字由多个英文单词组成，它会将每个单词首字母转换成大写。（3）对于用户自定义的变量、过程名，VB以第一次定义为准，以后输入的自动向首次定义的转换。2语句书写自由（l）同一行上可以书写多条语句，语句间用冒号“：”分隔。VB编程风格（编 码 规 则）现代教育技术中心 WWW.LNCC.EDU.CN（2）单行语句可分若干行书写，在本行后加入续行符（空格加下划线“_”）；（3）一行允许多达255个字符。3注释有利于程序的维护和调试（l）注释以Rem开头，但一般用单撇号“”引导注释内容，用撇号引导的注释可以直接出现在语句后面。

3、（2）也可以使用“编辑”工具栏的“设置注释块”、“解除注释块”按钮，使选中的若干行语句（或文字）增加注释或取消注释十分方便。4保留行号与标号VB源程序也接受行号与标号，但这不是必须的。标号是以字母开始而以冒号结束的字符串，一般用在转向语句中。对于结构化程序设计方法，应限制转向语句的使用。VB编程风格（编 码 规 则）现代教育技术中心 WWW.LNCC.EDU.CN例如，下面是例如，下面是一段代码一段代码的书写：的书写：Rem This is example 注释注释Dim x As Integer,y As Integer,_z As Integer 续行符续行符x=15:y=10 一行多语句

4、一行多语句z=(x+y)/2VB编程风格（编 码 规 则）现代教育技术中心 WWW.LNCC.EDU.CN三种控制结构三种控制结构:顺序结构顺序结构、分支结构分支结构和和循环循环结构结构。顺序结构顺序结构即是整个程序按书写顺序依次执行。即是整个程序按书写顺序依次执行。流程图为：流程图为：语句1语句2 str=“欢迎访问欢迎访问”text1.text=str 文本框中显示文本框中显示“欢迎访问欢迎访问”3.1 顺序结构顺序结构现代教育技术中心 WWW.LNCC.EDU.CN格式：格式：变量名变量名=表达式表达式作作用用：计计算算右右边边表表达达式式的的值值，然然后后赋赋给给左左边的变量。边的变量

5、。例如：例如：Width=10 赋整型数赋整型数Height=23Area=Width*Height 赋表达式的值赋表达式的值R=Height/4Area=R*R*3.14赋值语句赋值语句现代教育技术中心 WWW.LNCC.EDU.CN注意：注意：(l)搞清赋值号与关系运算符等于号都用搞清赋值号与关系运算符等于号都用“=”表示。表示。例例：赋赋值值语语句句ab与与ba是是两两个个结结果果不不相相同同的的赋赋值值语语句句，而在关系表达式中而在关系表达式中ab与与ba两种表示方法是等价的两种表示方法是等价的(2)赋值号左边的变量只能是变量或者对象属性名，赋值号左边的变量只能是变量或者对象属性名，不

6、能是常量、常数符号、表达式。不能是常量、常数符号、表达式。(3)不能在一句赋值语句中，同时给各变量赋值。不能在一句赋值语句中，同时给各变量赋值。问题：下列赋值表达式的结果问题：下列赋值表达式的结果 n%=3.5 n=123 n=1a23 n%=True n$=123四舍五入，四舍五入，n中的结果为中的结果为4 n中的结果是中的结果是123 出出现现“类类型型不不匹匹配配”的的错错误误 n中的结果是中的结果是-1 n中的结果是中的结果是“123”现代教育技术中心 WWW.LNCC.EDU.CN问题：问题：1、下面正确的赋值语句是（、下面正确的赋值语句是（）A、x+y=30 B、y=*r*r C、

7、y=x+30 D、3y=x 2、为为了了给给x,y,z三三个个变变量量赋赋初初值值1，下下面面赋赋值值语语句句正正确的是确的是()A、x=1:y=1:z=1 B、x=1,y=1,z=1 C、x=y=z=1 D、xyz=1 3、赋赋值值语语句句 a=123+MID(“123456”,3,2）执执行行后后，a变量中的值是（变量中的值是（）；）；赋赋值值语语句句 a=123&MID(“123456”,3,2）执执行行后后，a变量中的值是（变量中的值是（）A、”12334”B、123 C、12334 D、157 CADA现代教育技术中心 WWW.LNCC.EDU.CN数据输出数据输出 Print Pr

8、int方法方法格式：格式：对象名对象名.Print Print 表达式表表达式表 说明：说明：1 1、“对象名对象名”可以是窗体、立即窗口、图可以是窗体、立即窗口、图片框、打印机，若省略对象名在当前窗体上输出。片框、打印机，若省略对象名在当前窗体上输出。2 2、“表达式表表达式表”是一个或多个表达式，可为数是一个或多个表达式，可为数值表达式（求出表达式的值输出）或字符串（原值表达式（求出表达式的值输出）或字符串（原样输出）。若省略，则输出一空行。样输出）。若省略，则输出一空行。3 3、多个表达式之间可以用以下分隔符隔开：、多个表达式之间可以用以下分隔符隔开：，标准输出格式，每，标准输出格式，每

9、1414列作为一个输出区段列作为一个输出区段 ；紧凑格式输出；紧凑格式输出 现代教育技术中心 WWW.LNCC.EDU.CN示例：Print 1,2;3;Print 1,2;3;Print -4Print -4Print 5;“abcd”Print 5;“abcd”运行结果：运行结果：运行结果：运行结果：111122223333-4 4 4 45 5 5 5abcdabcdabcdabcd现代教育技术中心 WWW.LNCC.EDU.CN与Print方法有关的函数1、Tab（n）功能：与Print方法一起使用，在参数n指定的位置输出其后的表达式的值。说明：1）n是数值表达式，值为整数，若省略，则

10、将输出点移动到下一个输出区的起点。2）若n小于1，则tab将输出位置移动到第1列。3）一个print方法中使用多个Tab函数时，每个Tab函数对应一个输出项，各项之间用分号隔开。如：Print Tab(10);“Good”;tab(26);”Morning”Print Tab(10);“Good”;tab(26);”Morning”现代教育技术中心 WWW.LNCC.EDU.CN2、Spc(n)使光标从当前位置跳过使光标从当前位置跳过使光标从当前位置跳过使光标从当前位置跳过n n n n个空格，对输出进行定位。个空格，对输出进行定位。个空格，对输出进行定位。个空格，对输出进行定位。比较比较比较

11、比较：Print Tab(2);“Hello”;Tab(10);”world”Print Tab(2);“Hello”;Tab(10);”world”Print Tab(2);“Hello”;Tab(10);”world”Print Tab(2);“Hello”;Tab(10);”world”Print Spc(2);”Hello”;Spc(10);”world”Print Spc(2);”Hello”;Spc(10);”world”Print Spc(2);”Hello”;Spc(10);”world”Print Spc(2);”Hello”;Spc(10);”world”3、Format$

12、(数值表达式数值表达式,格式字符串格式字符串)例如：Private Sub Command1_Click()Print Format$(348.52,$#.00),Format(Now,hh:mm AM/PM)Print Format$(1348.52,$0,000.00),Format(Now,ttttt)Print Format$(0.52,#%),Format(0.05,00%)End Sub现代教育技术中心 WWW.LNCC.EDU.CN 选择结构选择结构即是对给定条件进行分析判断即是对给定条件进行分析判断,并根据结果采取不同的操作。并根据结果采取不同的操作。1）If语句语句 单分支语

13、句格式单分支语句格式(1)If Then 执行语句执行语句 End If流程图流程图条件表达式执行语句YN(2)If Then 3.2选择结构现代教育技术中心 WWW.LNCC.EDU.CNDim x As Integer,y As IntegerDim Max As Integer,Min As Integer（1）If x y Then Max=x:Min=y End If If y x Then Max=y:Min=x End If（2）If x y Then Max=x:Min=y If y x Then Max=y:Min=x例：已知两个数x和y,比较它们的大小。现代教育技术中心 W

14、WW.LNCC.EDU.CN例：输入三个数，输出其中最大值。例：输入三个数，输出其中最大值。Private Sub Command1_Click()Private Sub Command1_Click()Private Sub Command1_Click()Private Sub Command1_Click()Dim a!,b!,c!,max!Dim a!,b!,c!,max!Dim a!,b!,c!,max!Dim a!,b!,c!,max!a=InputBox(a=InputBox(a=InputBox(a=InputBox(请输入第一个数请输入第一个数请输入第一个数请输入第一个数)b

15、=InputBox(b=InputBox(b=InputBox(b=InputBox(请输入第二个数请输入第二个数请输入第二个数请输入第二个数)c=InputBox(c=InputBox(c=InputBox(c=InputBox(请输入第三个数请输入第三个数请输入第三个数请输入第三个数)max=a max=a max=a max=a If b max Then max=b If b max Then max=b If b max Then max=b If b max Then max=b If c max Then max=c If c max Then max=c If c max Th

16、en max=c If c max Then max=c Print a;,;b;,;c;Print a;,;b;,;c;Print a;,;b;,;c;Print a;,;b;,;c;中最大值是：中最大值是：中最大值是：中最大值是：;max;max;max;maxEnd SubEnd SubEnd SubEnd Sub现代教育技术中心 WWW.LNCC.EDU.CN双分支语句格式双分支语句格式（1）If Then 执行语句执行语句 Else 执行语句执行语句 End If流程图流程图判断表达式N执行语句2Y执行语句1（2）If Then Else 现代教育技术中心 WWW.LNCC.EDU.

17、CNDim x As Integer,y As Integer Dim Max As Integer,Min As Integer(1)If x y Then Max=x:Min=y Else Max=y:Min=x End If前例已知两个数前例已知两个数x和和y,比较它们的大小比较它们的大小,又可写成如又可写成如下代码。下代码。(2)If x y Then Max=x:Min=y _ Else Max=y:Min=xxyMax=yMin=xMax=x Min=yYN流程图流程图现代教育技术中心 WWW.LNCC.EDU.CN1、下面程序段运行后，显示的结果（下面程序段运行后，显示的结果（）

18、Dim x%If x0 Then Print x Else Print x+12、下面程序运行后输出的结果为（下面程序运行后输出的结果为（）x=Int(Rnd)+3 If x28 Then y=x2+1 If x2=9 Then y=x2-2 If x28 Then y=x3 Print y x没赋值默认为没赋值默认为017 Rnd函数的取值范围为函数的取值范围为01，取整后，取整后x 的值为的值为3问题：问题：现代教育技术中心 WWW.LNCC.EDU.CN 是指是指If或或Else后面的语句块中又包含后面的语句块中又包含If语句。语句。语句形式如下：语句形式如下：形式形式1：If Then

19、 执行语句执行语句ElseIf Then 执行语句执行语句.Else执行语句执行语句End If判2判1判n块1块2块nYYY块n+1NNNIf语句的嵌套语句的嵌套现代教育技术中心 WWW.LNCC.EDU.CNIf mark=90 Then Print 优优ElseIf mark=80 Then Print 良良ElseIf mark=70 ThenPrint 中中ElseIf mark=60 ThenPrint 及格及格ElsePrint 不及格不及格End If 注意：注意：(1)不不管管有有几几个个分分支支，程程序序执执行行了了一一个个分分支支后后，其其余余分分支不再执行。支不再执行。

20、(2)当当多多分分支支中中有有多多个个表表达达式式同同时时满满足足，则则只只执执行行第第一一个个与与之之匹匹配配的的语语句句块块。因因此此，要要注注意意对对多多分分支支中中表表达达式式的的书书写写次次序序，防防止止某某些些值值的的过过滤。滤。例例:已已知知输输入入某某课课程程的的百百分分制制成成绩绩mark，要要求求显显示示对对应应五五级制的评定，评定条件如下：级制的评定，评定条件如下：优优 mark=90 良良 90mark=80等级等级=中中 80mark=70 及格及格 70mark=60 不及格不及格 mark=60 Then Print“及格及格ElseIf mark=70 Then

21、 Print“中中ElseIf mark=80 ThenPrint“良良ElseIf mark=90 ThenPrint“优秀优秀ElsePrint“不及格不及格”End If 现代教育技术中心 WWW.LNCC.EDU.CN 形式形式2：If表达式表达式1Then If表达式表达式11then End If End If注意：注意：（l l）对对于于嵌嵌套套结结构构，为为了了增增强强程程序序的的可可读读性性，书书写写时时采采用用锯锯齿齿型；型；（2 2）IfIf语句形式若语句形式若不在一行上书写，必不在一行上书写，必须与须与End IfEnd If配对。多配对。多个个IfIf嵌套，嵌套，En

22、d IfEnd If与与它最接近的它最接近的IfIf配对。配对。If语句的嵌套语句的嵌套现代教育技术中心 WWW.LNCC.EDU.CN例例:利用利用If语句设计程序，可以统计用户键语句设计程序，可以统计用户键入的字符串中字母、数字和其他字符的个入的字符串中字母、数字和其他字符的个数。数。步骤：步骤：1、添加控件。、添加控件。新建工程，在窗体中添加新建工程，在窗体中添加4个文本框和个文本框和4个标签。个标签。2、设置属性。、设置属性。4个标签的个标签的Caption属性分别属性分别为：为：“输入字符串输入字符串”、“字母个数字母个数”、“数字数字个数个数”和和“其他字符个数其他字符个数”。3、

23、编写代码（见下页）。、编写代码（见下页）。4、调试生成可执行文件。、调试生成可执行文件。现代教育技术中心 WWW.LNCC.EDU.CNOption Explicit Dim num As Integer，letter As Integer，Dim other As IntegerPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=Asc(a)And KeyAscii=Asc(A)And KeyAscii=Asc(0)And KeyAscii=Asc(9)_ Then num=num+1 Text2.Text=Str(num)E

24、lse other=other+1Text4.Text=Str(other)End If End Sub统计用户键入的字符串中字母、数字和其他字符的个数。统计用户键入的字符串中字母、数字和其他字符的个数。现代教育技术中心 WWW.LNCC.EDU.CN语句格式：语句格式：Select Case 测试表达式测试表达式 Case 表达式值列表达式值列1 语句块语句块1 Case 表达式值列表达式值列2 语句块语句块2 .Case Else 语句块语句块nEnd Select测试表达式测试表达式块块1 块块2.块块n值值1值值2值值nEnd Select流程图流程图:功能：功能：功能：功能：根据测试

25、表达式的值，按顺序匹配根据测试表达式的值，按顺序匹配根据测试表达式的值，按顺序匹配根据测试表达式的值，按顺序匹配CaseCaseCaseCase后面的表达式表，如果匹配，则执行后面的表达式表，如果匹配，则执行后面的表达式表，如果匹配，则执行后面的表达式表，如果匹配，则执行CaseCaseCaseCase下的语句组，然后转到下的语句组，然后转到下的语句组，然后转到下的语句组，然后转到End SelectEnd SelectEnd SelectEnd Select之后之后之后之后继续执行。继续执行。继续执行。继续执行。说明：说明：说明：说明：1 1 1 1、“测试表达式测试表达式测试表达式测试表达

26、式”的值与的值与的值与的值与“表达式表列表达式表列表达式表列表达式表列”的的的的值均不匹配的时候，执行值均不匹配的时候，执行值均不匹配的时候，执行值均不匹配的时候，执行case else case else case else case else 子句子句子句子句,再转再转再转再转到到到到End SelectEnd SelectEnd SelectEnd Select语句之后继续执行。语句之后继续执行。语句之后继续执行。语句之后继续执行。2 2 2 2、测试表达式可以是数值表达式或字符串表、测试表达式可以是数值表达式或字符串表、测试表达式可以是数值表达式或字符串表、测试表达式可以是数值表达式或

27、字符串表达式。达式。达式。达式。3 3 3 3、“表达式列表表达式列表表达式列表表达式列表”中的表达式必须与测试表中的表达式必须与测试表中的表达式必须与测试表中的表达式必须与测试表达式的类型一致。达式的类型一致。达式的类型一致。达式的类型一致。4 4 4 4、“表达式列表表达式列表表达式列表表达式列表”称为域值，可以是下列形称为域值，可以是下列形称为域值，可以是下列形称为域值，可以是下列形式之一：式之一：式之一：式之一：1 1 1 1）,222 当当当当“测试表达式测试表达式测试表达式测试表达式”的值与其中之一相同，就的值与其中之一相同，就的值与其中之一相同，就的值与其中之一相同，就执行该执行

28、该执行该执行该CaseCaseCaseCase子句中的语句块。子句中的语句块。子句中的语句块。子句中的语句块。2 2 2 2）To To To To 222 当当当当“测试表达式测试表达式测试表达式测试表达式”的值落在表达式的值落在表达式的值落在表达式的值落在表达式1 1 1 1和表达和表达和表达和表达式式式式2 2 2 2之间（含自身），则执行该之间（含自身），则执行该之间（含自身），则执行该之间（含自身），则执行该CaseCaseCaseCase子句中的子句中的子句中的子句中的语句块。语句块。语句块。语句块。(书写时必须把较小值写在前面书写时必须把较小值写在前面书写时必须把较小值写在前面书

29、写时必须把较小值写在前面)3 3 3 3）Is Is Is Is 当当当当“测试表达式测试表达式测试表达式测试表达式”的值满足的值满足的值满足的值满足“关系表达式关系表达式关系表达式关系表达式”指定条件时，执行该指定条件时，执行该指定条件时，执行该指定条件时，执行该CaseCaseCaseCase子句中的语句块。子句中的语句块。子句中的语句块。子句中的语句块。2）Select Case 语句（情况语句）现代教育技术中心 WWW.LNCC.EDU.CNSelect Case 语句与语句与If块分支语句功能类似，可以将块分支语句功能类似，可以将前例改写成前例改写成Select Case语句语句Op

30、tion Explicit Dim num As Integer，letter As Integer，Dim other As IntegerPrivate Sub Text1_KeyPress(KeyAscii As Integer)Select Case KeyAscii Case Asc(a)To Asc(z),Asc(A)To Asc(Z)letter=letter+1 Text3.Text=Str(letter)Case Asc(0)To Asc(9)num=num+1 Text2.Text=Str(num)Case Elseother=other+1Text4.Text=Str(o

31、ther)End Select End Sub现代教育技术中心 WWW.LNCC.EDU.CN用以下简易方法判断一个人的胖瘦。人的身高与体重的关系是：身高低于166cm,体重=身高-100(kg)；身高在166cm-175cm 之间，体重=身高-105(kg)，身高在175cm-185cm 之间，体重=身高-110(kg)；身高高于是185cm，体重=身高-115（kg）,如果一个人的实际体重超过上述体重指标的5%为胖，低于上述体重指标的5%为瘦。2）Select Case 语句（情况语句）现代教育技术中心 WWW.LNCC.EDU.CNVB中中提提供供的的条条件件函函数数：IIF函函数数和和

32、Choose函函数数，前前者者代代替替IF语语句句，后后者者可可代代替替Select Case语句，均适用于简单的判断场合。语句，均适用于简单的判断场合。（l）IIf函数函数IIf函数形式是：函数形式是：IIf（表达式，当条件为表达式，当条件为True时的值，当条件为时的值，当条件为 False时的值时的值）例如，求例如，求x，y中大的数，放入中大的数，放入max变量中。变量中。语句如下：语句如下：Max=IIf(x y,x,y)条件函数条件函数现代教育技术中心 WWW.LNCC.EDU.CN函数形式是：函数形式是：Choose（整数表达式，选项列表）整数表达式，选项列表）作作用用：Choos

33、e根根据据整整数数表表达达式式的的值值来来决决定定返返回回选选项项列列表表中中的的某某个个值值。如如果果整整数数表表达达式式值值是是1，则则Choose会会返返回回列列表表中中的的第第1个个选选项项。如如果果整整数数表表达达式式值值是是2，则则会会返返回回列列表表中中的的第第2个个选选项项，以以此此类类推推。若若整整数数表表达达式式的的值值小小于于1或或大大于于列列出出的的选选项项数数目目时时，Choose函数返回函数返回Null。例例如如，根根据据Nop是是14的的值值，转转换换成成+、-、*、/运算符的语句如下运算符的语句如下:op=Choose(nop,+,-,*,/)（2）Choose

34、函数现代教育技术中心 WWW.LNCC.EDU.CNu暂停语句暂停语句格式：格式：格式：格式：StopStopStopStop说说说说明明明明：1 1 1 1、可可可可放放放放置置置置在在在在过过过过程程程程中中中中的的的的任任任任何何何何地地地地方方方方，相相相相当当当当于于于于在在在在程程程程序序序序代代代代码码码码中中中中设设设设置置置置断断断断点点点点，类类类类似似似似于于于于执执执执行行行行“运运运运行行行行”菜单中的菜单中的菜单中的菜单中的“中断中断中断中断”命令。命令。命令。命令。2 2 2 2、执执执执行行行行StopStopStopStop语语语语句句句句时时时时，系系系系统

35、统统统将将将将自自自自动动动动打打打打开开开开“立立立立即即即即窗窗窗窗口口口口”，方便程序员调试跟踪程序。，方便程序员调试跟踪程序。，方便程序员调试跟踪程序。，方便程序员调试跟踪程序。3 3 3 3、程程程程序序序序调调调调试试试试结结结结束束束束后后后后，生生生生成成成成可可可可执执执执行行行行文文文文件件件件之之之之前前前前，应应应应删除代码中的所有删除代码中的所有删除代码中的所有删除代码中的所有StopStopStopStop语句。语句。语句。语句。补充：暂停与程序结束补充：暂停与程序结束现代教育技术中心 WWW.LNCC.EDU.CNu结束语句结束语句格式：格式：格式：格式：EndE

36、ndEndEnd功能：功能：功能：功能：通常用来结束一个程序的执行。通常用来结束一个程序的执行。通常用来结束一个程序的执行。通常用来结束一个程序的执行。在不同环境下的其他用途：在不同环境下的其他用途：在不同环境下的其他用途：在不同环境下的其他用途：End SubEnd SubEnd SubEnd Sub：结束一个结束一个结束一个结束一个SubSubSubSub过程过程过程过程End FunctionEnd FunctionEnd FunctionEnd Function：结束一个结束一个结束一个结束一个FunctionFunctionFunctionFunction过程过程过程过程End IfEnd IfEnd IfEnd If：结束一个结束一个结束一个结束一个If If If If语句块语句块语句块语句块End TypeEnd TypeEnd TypeEnd Type：结束记录类型的定义结束记录类型的定义结束记录类型的定义结束记录类型的定义End SelectEnd SelectEnd SelectEnd Select：结束情况语句结束情况语句结束情况语句结束情况语句 补充：暂停与程序结束补充：暂停与程序结束