Visual+Basic+程序设计(34章)

1、Visual Basic 程序设计 南京工业大学 基础部 第3章 Visual Basic语言基础 n3.1 Visual Basic程序代码的组织方式 n3.2 编码规则 n3.3 数据类型 n3.4 运算符与表达式 n3.5 VB常用内部函数 3.1 Visual Basic程序代码的组织方式 n3.1.1 过程 n3.1.2 模块 应用程序（.vbp文件） 一个或多个窗体模块 文件（.frm文件） 一个或多个标准模块 文件（.bas文件） 类模块文件 （.Cls文件） 事件过程 通用过程 通用过程 图3-1 VB应用程序组成 3.1.1 过程 n所谓过程，就是具有特定格式、包含若干可 被

2、作为一个整体执行的代码行的组合。 n每个过程用来完成一个特定的功能，通过使 用过程，可以使得程序结构更加清晰。 n两类过程： n事件过程 n通用过程 3.1.2 模块 n1.窗体模块 n2.标准模块 n3.类模块 3.2编码规则 nVB代码不区分字母的大小写代码不区分字母的大小写。 n对于VB中的保留字，首字母总被转换成大写，其 余字母被转换为小写 n对于用户自定义的变量名、过程名，VB以第一次 定义的为准，以后输入的自动向首次定义的转换 n一行可以书写多条语句，中间用冒号一行可以书写多条语句，中间用冒号“：”隔开隔开 。 n一条语句也可以书写在多行上，需要在行的末尾一条语句也可以书写在多行上

3、，需要在行的末尾 加上续行标志加上续行标志“ _”（一个空格加上一个下划线） 。 n适当的注释可以提高程序的可读性 3.3数据类型 n3.3.1标准数据类型 n3.3.2常量 n3.3.3变量 n3.3.4变量的作用域 3.3.1标准数据类型 数据类型数据类型关键字关键字类型符类型符占字节数占字节数取值范围取值范围 整型整型Integer%2-32768 32767 长整型长整型Long 4.94065645841247D-324 1.79769313486232D308 字节型Byte无10 255 逻辑型逻辑型Boolean无2True或False 字符串型（变长）字符串型（变长）Stri

4、ng$10+串长度0 约20亿个字符 字符串型（定长）字符串型（定长）String$串长度1 约65400个字符 日期型Date无8100年1月1日 9999年12月31日 货币型Currency8-922337203685447.5808 922337203685447.5807 对象型Object无4任何对象引用 变体型变体型Variant无=16数值型可达Double型范围； 字符型可达变长字符串型的串长度 1数值数据类型 n数值类型有：Integer、Long、Single、Double、 Currency和Byte。 nInteger（整型）和Long（长整型）用于保存整数。 整型用

5、2个字节存放，取值范围较小，从负32768到 正32767。 nSingle（单精度型）和Double（双精度型）用于保 存浮点实数。 n在VB程序中，很大或很小的数通常采用指数形式表 示。具体形式如下： nmmmEeee 或 mmmDeee n1E-6表示单精度型数值0.000001 n1.23D6表示双精度型数值1230000 n注意：字母E或字母D前后的尾数部分和指数部分均不能 省略，并且指数部分要为整数。 2日期数据类型 nDate型按8个字节的浮点数来存储，表示的日 期范围是从公元100年1月1日到9999年12月 31日，而时间范围从00:00:00到23:59:59。 n任何字面

6、上可以被认作日期和时间的字符任何字面上可以被认作日期和时间的字符（ 汉字除外），只要用一对符号只要用一对符号“#”括起来，括起来， 都可以作为日期型数值都可以作为日期型数值。 n例如：#August 8,2008#、#8 Aug,2008#、 #08/24/2008#、#2008-08-24 12:30:00 PM#都是合法的日期型数据。 3.逻辑（Boolean）数据类型 nBoolean数据类型用于逻辑判断，只有True和 False两个值。 4.字符（String）数据类型 nString类型存放字符型数据，所谓字符型数据所谓字符型数据 就是用一对双引号括起来的字符串就是用一对双引号括起

7、来的字符串。 例：“abcd”，”计算机”，” ”，” n字符串可分为两类：变长字符串和定长字符 串。 5.变体（Variant）数据类型 nVariant类型是特殊的数据类型，它是VB的缺 省数据类型，可以存储各种类型的数据。 3.3.2常量 n在程序运行时保持不变的数据称为常量。 n例如圆周率的值为3.1415926，在进行相关运算 时总是保持不变。 n常量有三类：直接常量、用户声明的符号常 量、系统提供的常量。 直接常量 各种类型的常数，其取值直接反映了其类型。 如：123,123.45,1.2345E2，true 用户声明常量 nPublic | Private Const As Ty

8、pe = nConst PI As Single = 3.14159 n声明常量PI，代表3.1415926 nConst MAX As Integer = y 程序 End Sub 4.3.2 If-Then-Else语句（双分支结构） n双分支结构一般形式如下： IF Then Else End If FalseTrue 表达式 A组语句B组语句 图4-9双分支结构 例4-6计算分段函数 If x = 0 Then y = Sin(x) + Sqr(x * x + 1) Else y = Cos(x) + Exp(x) - 1 End If 0, 1cos 0, 1sin 2 xex xx

9、x y x n例4-7编写程序，输入三角形三条边的长度 ，计算三角形面积。如果输入的三条边不能 构成三角形，给出错误信息。 程序 4.3.3 If-Then-ElseIf-End If语句（多 分支结构） n语句形式如下： If Then ElseIf Then Else End If 例4-8 n例4-8输入学生成绩，按确定后给出相应的 等级。成绩在85到100为“优秀”，70到84 为“良好”，60到69为“及格”，0到59为 “不及格”。如果成绩输入错误，比如大于 100或小于0，则给出“成绩输入错误”提示 信息。 例4-8 n 判断成绩等级 If score 100 Or score

10、= 85 Then 也可写成score = 85 And score= 70 Then strGrade = 良好 ElseIf score = 60 Then strGrade = 及格 Else strGrade = 不及格 End If 程序 4.3.4 Select-Case - End-Select结构语 句 Select Case测试表达式 Case测试项1 A组语句 Case测试项2 B组语句 Case Else N组语句 End Select 4.3.4 Select-Case - End-Select结构语 句 n测试项可以是以下几种形式之一： n具体取值。例如3,5,7,8

11、等（用逗号隔开） n连续的数据范围。例如1 To 10，”A” To “Z”等。 n满足某个判决条件。 nCase 2, 4, 8 测试表达式的值为2或4或8，则匹配 nCase 60 To 100测试表达式的值在60到100之间，则匹 配 nCase “a” To “z”测试表达式的值为小写字母，则匹配 nCase Is 10 测试表达式的值大于10，则匹配 例4-9用Case语句实现例4-6所要求 的成绩等级判定。 Select Case score Case 0 To 59 strGrade = 不及格 Case 60 To 69 strGrade = 及格 Case 70 To 84

12、strGrade = 良好 Case 85 To 100 strGrade = 优秀 Case Else strGrade = 成绩输入错误 End Select 程序 例4-10 例4-10如图所示，在左边文本框txtInput中每 按下一个字符，右边文本框txtOutput中就显 示用户按下了哪一类字符。字符分为字母、 数字、其它字符三类。 程序 补充例题 例:输入一个三位数整数，分别求出百、十、个位数各为多少？ 1、转换成字符型处理、转换成字符型处理 n 将整型变量x转换成字符型变量s。 s = CStr (x ) n将字符串中的字符一一取出。采用mid(s,n1,n2)函数完成 a=m

13、id(s,1,1) b=mid(s,2,1) c=mid(s,3,1) 2、数值法处理、数值法处理 (此处此处x为整型为整型) n即： a= x 100 b=(x-a*100)10 c=x mod 10 例：求一个三位整数的各位数之和 例：判断一个数是否为水仙花数 .例:153=13+53+33就是一个 水仙花数 4.4循环结构与循环结构语句 n4.4.1 Do-Loop循环结构语句 n4.4.2 For-Next循环结构语句 n4.4.3 循环嵌套 4.4.1 Do-Loop循环结构语句 n1Do-Loop“当”型循环结构 n2Do-Loop“直到”型循环结构 n3Exit Do语句 1Do

14、-Loop“当”型循环结构 Do While Exit Do Loop Do Exit Do Loop While 2Do-Loop“直到”型循环结构 Do Until Exit Do Loop Do Exit Do Loop Until 3Exit Do语句 n在循环体中，可以包含一条或多条Exit Do语 句，如果程序执行到Exit Do，就会直接退出 循环体，执行Loop下面的语句。 nExit Do语句一般与If-Then语句结合使用，常 见形式为： nIf Then Exit Do n当条件表达式结果为True，则执行Exit Do语 句，直接退出循环体。 n例4-11计算1到100

15、的和。 程序 n例4-12求出两个自然数的最大公约数。 程序 n例4-13设计一个程序，求出满足以下条件 的最小的n值和s值。 ns=1+2+3+n，且s600 程序 4.4.2 For-Next循环结构语句 n如果循环次数已知，则可以使用For-Next循环结构语 句。 例：求例：求1+2+3+.+100的和的和 该语句一般形式如下： For 循环控制变量初值循环控制变量初值 To 终值终值 Step步长步长 Exit For Next 循环控制变量循环控制变量 n其中，循环控制变量必须为数值型，用来控制循环执 行次数。“Step步长”省略时，步长缺省值为1。For 语句和Next语句之间的

16、语句称为循环体。 For-Next循环执行流程 n（1）将初值赋给循环 控制变量 n（2）判断循环控制变 量是否超出终值范围 ，若没有,则执行循环 体；否则就退出循环 n（3）执行到Next语句 时，将循环控制变量 增加一个步长，转到 第（2）步，继续循环 True False 开始 Next后面的语句 循环变量=初值 循环变量超过终值？ 执行循环体 循环变量=循环变量+步长 图4-18 For-Next循环的逻辑流程 n例4-15使用For-Next循环计算100之内的偶 数之和。 nfor 循环求循环求1+3+5+7+99的和的和 nfor 循环求循环求100+99+98+.+1的和的和

17、nfor 循环求循环求99+97+.+1的和的和 nfor 循环求循环求100+98+96+.+2的和的和 nfor 循环求循环求1*2*3*4*5+*10的积的积,即求即求 10!（注意注意s的初值的初值 ） 程序 Exit For n同Exit Do类似，Exit For的作用是退出For循 环，其一般使用形式为： nIf Then Exit For n例4-16输入一个整数，判断该数是否为素 数。 素数定义：自然数中只能被1及自身所整除的数为素 数。最小素数：最小素数：2。 对给定的自然数n，用2n-1做除数，依次试除n，如 果有某个k(2kn-1)使得k整除n，则n是合数；否 则n为素

18、数 程序 例：判回文数例：判回文数 从左往右和从右往左读内容是一样的，如从左往右和从右往左读内容是一样的，如 “12321”，“abccba”都是回文串。都是回文串。 1）若字符串长度为）若字符串长度为L，则只需比较，则只需比较L2次次 2）若比较过程中出现不相等的字符，则无需）若比较过程中出现不相等的字符，则无需 比较剩余字符，应跳出循环。比较剩余字符，应跳出循环。 3）循环结束后判断循环控制变量的值，若是）循环结束后判断循环控制变量的值，若是 大于循环终值则说明每个字符都比较过了且大于循环终值则说明每个字符都比较过了且 没有不相等的没有不相等的 n例：实验4-3-4.求一个整数的逆序数。例如：452的逆序数 为254。 设输入的数为X，输出为