VB的程序结构基础ppt课件

1、现代教育技术中心主讲人：姚灵2010年2月第三章 VB的程序构造根底3.1 顺序构造3.2 选择构造3.3 循环构造现代教育技术中心 WWW.LNCC.EDU.CN现代教育技术中心 WWW.LNCC.EDU.CN1VB代码不区分字母的大小写lVB中的关键字，首字母总被转换成大写，其他字母被转换成小写。2假设关键字由多个英文单词组成，它会将每个单词首字母转换成大写。3对于用户自定义的变量、过程名，VB以第一次定义为准，以后输入的自动向初次定义的转换。2语句书写自在l同一行上可以书写多条语句，语句间用冒号“：分隔。VB编程风格编 码 规 那么现代教育技术中心 WWW.LNCC.EDU.CN2单行语

2、句可分假设干行书写，在本行后参与续行符空格加下划线“_；3一行允许多达255个字符。3注释有利于程序的维护和调试l注释以Rem开头，但普通用单撇号“引导注释内容，用撇号引导的注释可以直接出如今语句后面。 2也可以运用“编辑工具栏的“设置注释块、“解除注释块按钮，使选中的假设干行语句或文字添加注释或取消注释非常方便。 4保管行号与标号VB源程序也接受行号与标号，但这不是必需的。标号是以字母开场而以冒号终了的字符串，普通用在转向语句中。对于构造化程序设计方法，应限制转向语句的运用。VB编程风格编 码 规 那么现代教育技术中心 WWW.LNCC.EDU.CN例如，下面是一段代码的书写：例如，下面是一

3、段代码的书写： Rem This is example 注释注释Dim x As Integer, y As Integer, _z As Integer 续行符续行符x = 15: y = 10 一行多语一行多语句句z = (x + y) / 2VB编程风格编 码 规 那么现代教育技术中心 WWW.LNCC.EDU.CN三种控制构造三种控制构造:顺序构造、分支构造和循环顺序构造、分支构造和循环构造。构造。顺序构造即是整个程序按书写顺序依次执顺序构造即是整个程序按书写顺序依次执行。流程图为：行。流程图为：语句1语句2 str=“欢迎访问 text1.text=str 文本框中显示“欢迎访问3.

4、1 顺序构造顺序构造现代教育技术中心 WWW.LNCC.EDU.CN格式：格式： 变量名变量名=表达式表达式作用：计算右边表达式的值，然后赋给左作用：计算右边表达式的值，然后赋给左边的变量。边的变量。例如：例如：Width = 10 赋整型数赋整型数Height = 23Area = Width * Height 赋表达式的值赋表达式的值R = Height / 4Area = R * R * 3.14赋值语句赋值语句现代教育技术中心 WWW.LNCC.EDU.CN转换阐明：变量名或对象属性名的类型与表转换阐明：变量名或对象属性名的类型与表达式的类型通常要求一致，但达式的类型通常要求一致，但V

5、B提供的对某些提供的对某些数据类型的自动转换机制，可强迫变量转换为数据类型的自动转换机制，可强迫变量转换为适当的数据类型。适当的数据类型。 当表达式为数值型而与变量精度不同时，强迫转当表达式为数值型而与变量精度不同时，强迫转换成左边变量的精度。换成左边变量的精度。 当表达式是数字字符串，左边变量是数值类型，当表达式是数字字符串，左边变量是数值类型，自动转换成数值类型再赋值，但当表达式有非自动转换成数值类型再赋值，但当表达式有非数字字符或空串，那么出错。数字字符或空串，那么出错。当逻辑型赋值给数值型时。当逻辑型赋值给数值型时。True转换为转换为-1，False转换转换为为0；反之当数值型赋值给

6、逻辑型时，非；反之当数值型赋值给逻辑型时，非0转换为转换为 True，0为为False。任何非字符类型赋值给字符类型，自动转换为字符类任何非字符类型赋值给字符类型，自动转换为字符类型。型。 赋值语句赋值语句现代教育技术中心 WWW.LNCC.EDU.CN留意：留意：(l)搞清赋值号与关系运算符等于号都用搞清赋值号与关系运算符等于号都用“=表示。表示。例：赋值语句例：赋值语句ab与与ba是两个结果不一样的赋是两个结果不一样的赋值语句，而在关系表达式中值语句，而在关系表达式中ab与与ba两种表示两种表示方法是等价的方法是等价的(2)赋值号左边的变量只能是变量或者对象属性名，赋值号左边的变量只能是变

7、量或者对象属性名，不能是常量、常数符号、表达式。不能是常量、常数符号、表达式。(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=

8、*r*r C、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数据输出数

9、据输出 Print Print方法方法格式：格式： 对象名对象名. Print . Print 表达式表表达式表 阐明：阐明：1 1、“对象名可以是窗体、立刻窗口、图对象名可以是窗体、立刻窗口、图片框、打印机，假设省略对象名在当前窗体上输片框、打印机，假设省略对象名在当前窗体上输出。出。2 2、“表达式表是一个或多个表达式，可为数值表达式表是一个或多个表达式，可为数值表达式求出表达式的值输出或字符串原样表达式求出表达式的值输出或字符串原样输出。假设省略，那么输出一空行。输出。假设省略，那么输出一空行。3 3、多个表达式之间可以用以下分隔符隔开：、多个表达式之间可以用以下分隔符隔开： ，规范输出

10、格式，每，规范输出格式，每1414列作为一个输出区段列作为一个输出区段 ；紧凑格式输出；紧凑格式输出 现代教育技术中心 WWW.LNCC.EDU.CN例如：现代教育技术中心 WWW.LNCC.EDU.CN与Print方法有关的函数1、Tabn功能：与Print方法一同运用，在参数n指定的位置输出其后的表达式的值。阐明： 1n是数值表达式，值为整数，假设省略，那么将输出点挪动到下一个输出区的起点。 2假设n小于1，那么tab将输出位置挪动到第1列。 3一个print方法中运用多个Tab函数时，每个Tab函数对应一个输出项，各项之间用分号隔开。 如：Print Tab(10);“Good;tab(

11、26);Morning 现代教育技术中心 WWW.LNCC.EDU.CN2、Spc(n)3、Format$(数值表达式数值表达式,格式字符串格式字符串)例如：例如：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 选择构造即是对给定条件进展分析

12、判别选择构造即是对给定条件进展分析判别,并根据结果采取不同的操作。并根据结果采取不同的操作。1If语句语句 单分支语句格式单分支语句格式(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 Integer1If x y Then Max = x : Min = y End If If y x Then Max = y:Min = x End If2 If x y

13、Then Max = x : Min = y If y x Then Max = y: Min = x例：知两个数x和y,比较它们的大小。 现代教育技术中心 WWW.LNCC.EDU.CN例：输入三个数，输出其中最大值。例：输入三个数，输出其中最大值。现代教育技术中心 WWW.LNCC.EDU.CN双分支语句格式双分支语句格式1 If Then 执行语句执行语句 Else 执行语句执行语句 End If流程图流程图判别表达式N执行语句2Y执行语句12 If Then Else 现代教育技术中心 WWW.LNCC.EDU.CNDim x As Integer, y As Integer Dim

14、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、下面程序段运转后，显示的结果、下面程序段运转后，显示的结果 Dim x

15、% 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 执行语

16、句执行语句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)不论有几个分支，程序不论有几个分支，程序执行了一个分支后，其他分执行了一个分支后，其他分支不再执行

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

18、eIf mark = 70 Then 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 2IfIf语句方式假语句方式假设不在一行上书写，设不在一行上书写，必需与必需与End IfEnd

19、If配对。配对。多个多个IfIf嵌套，嵌套，End IfEnd If与它最接近的与它最接近的IfIf配对配对。 If语句的嵌套语句的嵌套现代教育技术中心 WWW.LNCC.EDU.CN例例:利用利用If语句设计程序，可以统计用户键语句设计程序，可以统计用户键入的字符串中字母、数字和其他字符的个入的字符串中字母、数字和其他字符的个数。数。步骤：步骤： 1、添加控件。、添加控件。 新建工程，在窗体中添新建工程，在窗体中添加加4个文本框和个文本框和4个标签。个标签。 2、设置属性。、设置属性。4个标签的个标签的Caption属性属性分别为：分别为：“输入字符串、输入字符串、“字母个数、字母个数、“数字个数和数字个数和“其他字符个数。其他字符个数。 3、编写代码见下页。、编写代码见下页。 4、调试生成可执行文件。、调试生成可执行文件。现代教育技术中心 WWW.LNCC.EDU.CNOption Explicit Dim num As Integer， letter As Integer， Dim other As In