第三章 VB程序设计语言基础

《第三章 VB程序设计语言基础》由会员分享，可在线阅读，更多相关《第三章 VB程序设计语言基础（12页珍藏版）》请在金锄头文库上搜索。

1、第三章 VB 程序设计语言基础教学内容：一、 VB 中的数据与运算vb 据类型、常量与变量、运算符与表达式、数组二、 标准函数常用的内部函数（数学函数、转换函数、字符串函数、日期与时间函数等）三、三种基本结构（顺序、判定、循环）教学要求：理解：VB 6.0 的基本语法规则、数据类型掌握：VB 6.0 的常量、变量、运算符、运算规则、函数、表达式的正确书写）掌握：判定结构和循环结构的使用方法，直到型和当型的区别。3.1 数据与运算数据类型： 数值数据类型(1) Integer 型和 Long 型用来表示整数。Integer 型数据占 2 个字节，Long 型数据占 4 个字节。除了十进制整型数，

2、常用的还有八进制和十六进制，它们的表示方法为：Intger 型： 八进制 数值前加&O 或&。如&O123十六进制 数值前加&H。如&H123Long 型： 八进制数值前加&O 或&，最后加&。如&O123&十六进制 数值前加&H，最后加&。如&H123&(2) Single 型和 Double 型用来表示浮点数。Single 型占 4 个字节，Double 型占 8 个字节。表示一些单精度型常量和双精度常量时，可以用以下方法：123E5，0.34E-2 ，0.8D2(3) Currency 型为表示钱款而设置。占 8 个字节。小数点左边最多 15 位，右边最多 4 位。(4) Byte 型占

3、 1 个字节，表示无符号整数。 字符数据类型字符（String ）类型存放字符型数据。用双引号括起来，如“abc”。注：”“表示空字符串，长度为 0。若字符串中含有双引号，则用连续两个双引号表示，如”abc”12”。日期数据类型日期型（Date）表示日期和时间，占 8 个字节。用 “”括起来，如 2004-5-4等。逻辑数据类型逻辑型（Boolean）表示逻辑判断，占 2 个字节。只有 True 和 Fale 两个值。逻辑型数据转换成整型数据时，True 转换为-1，False 转换为 0。其他类型数据转换成逻辑型数据时，非 0 数转换为 True， 0 转换为 False。对象数据类型对象型

4、（Object）表示图形、OLE 对象或其他对象，占 4 个字节。变体数据类型变体型（Varient）可存放任何类型的数据 类型说明符可在常量或 变量的后边加上类型说明符指明它是哪一种数据类型，常见的类型说明符如下：整型：% 长整型：&单精度型：! 双精度型：#字符串型：$ 货币型：3.1.2 变量与常量命名规则 1. 名字由字母、汉字、数字或下划线组成；2名字的第一个字符必须是字母或汉字；3名字的有效长度小于等于 255 个字符；4不能使用 VB 中的关键字。5VB 中不区分变量名的大小写。6为了增加程序的可读性，可在变量名前加一个缩写的前缀来表明该变量的数据类型。变量变量定义的一般格式如下

5、：Declare 变量名 As 类型其中，Declare 可以是 Dim、Static、Public、ReDim。Dim、Static 用于定义局部变量Dim 用于定义窗体和模块级变量Public 用于定义全局变量ReDim 用于重新定义数组类型可以是基本数据类型或用户自定义数据类型若“As 类型” 省略，默认为变体数据类型可在变量名后加类型说明符代替“As 类型例如：Dim x as Integer,y as Single Dim s as String注：Dim 定义的局部变量是自动变量，过程结束后其值被重新设置；Static 定义的局部变量是景泰变量，过程结束后其值继续保留。常量VB 中

6、有三种常量：即直接常量、用户声明的符号常量和系统提供的常量。（1）直接常量直接常量其常数值直接反映了其类型，也可在常数值后紧跟类型符显示地说明常数的数据类型。（2）符号常量常量可用由用户定义的符号常量表示，格式如下：Const 符号常量名 As 类型=表达式 ,常量名表达式 例如：Const PI3.1415926（3）系统提供的常量除了用户通过声明创建符号常量外，VB 系统还提供了应用程序和控件定义的常量，这些常量位于对象库中，在“对象浏览器”中的 Visual Basic(VB)、Visual Basic for Applications(VBA)等对象库中列举了 Visual Basic

7、 的常量。 3.1.3 运算符和表达式运算符1. 算术运算符加： 减：- 乘：*整除： 浮点除：/ 取模：Mod负号：- 幂运算：2. 字符串运算符“&”和”“都是将两个字符串拼接起来。但字符串连接时最好用”& ”，因为“+”还可以作为算术运算符使用3. 关系运算符对两个表达式的值做比较，若关系成立，则返回 True，否则返回 False。等于 = 大于 大于等于 = 小于 或字符运算符 关系运算符 逻辑运算符 常用内部函数VB 提供了大量的内部函数(或称标准函数 )供用户在编程时调用。内部函数按其功能可分成数学函数、转换函数、字符串函数、日期函数和格式输出函数等。 具体内容参见课本。3.1.

8、4 数组1数组的概念一、数组的概念 在实际应用中，经常需要处理同一类型的成批数据。比如，要处理 100 个学生的会计这门课程的考试成绩，如果在程序中定义 100 个变量来表示这批成绩，显然是很麻烦的。我们可以用 VB 提供的数组来完成这个功能。可以用 c1，c2，c100 来分别代表每个学生的分数，也就是说，用一批具有相同名字、不同下标的下标变量来表示同一属性的一组数据，这样能更清楚的表示它们之间的关系。在 VB 中，把一组具有相同名字、不同下标的下标变量称为数组。在计算机中，下标用“（） ”括起来。比如 c(2)，其中 c 为数组名，2 是下标。根据数组中下标变量的个数可以分为一维数组、二维

9、数组或多维数组。 二、数组的声明定义数组可以用 Dim、Public、Private、Static 语句实现。格式（以 Dim 为例）：Dim （ ， ） As 例：Dim c(99) as SingleDim s(3,4) as stringDim stu(3,6) Dim a(2 to 100) as string*5Dim b(2 to 30,5 to 40)说明：数组必须要先定义，后使用如果不用 AS 语句指明类型，默认为变体数据类型一般情况下，下标的下界默认为 0，如果希望下标从 1 开始，可以用 Option Base 语句设置，格式为 Option Base n ,其中 n 为下

10、标的下界，只能是 0 或 1可以根据需要指定数组下标的下界，格式为：Dim 数组名（下界 To 上界,下界 To上界）在同一个过程中，数组名不能与变量名同名在定义数组时如果指明了类型，那么数组中的每个元素都是这种类型的；如果没有指明或定义成了变体数据类型，则其中的每个元素也是变体类型，可以存放各种类型的数据。 2静态数组与动态数组定义数组后，为了使用数组，必须为数组开辟所需要的内存区。根据内存区开辟时机的不同，可把数组分为静态数组和动态数组。通常把需要在编译时开辟内存区的数组叫做静态数组，把需要在运行时开辟内存区的数组叫做动态数组。 一、静态数组静态数组的数组元素的个数是在数组声明时确定的，系

11、统运行过程中它的个数不变。前面定义的几个数组都是静态数组。我们主要讲一下动态数组。 二、动态数组 动态数组是在声明数组时未给出数组的大小（省略括号中的下标） ，当要使用它时，随时用 ReDim 语句重新指出大小的数组。使用动态数组的优点是可根据用户需要，有效地利用存储空间，它是在程序执行到 ReDim 语句时分配存储空间。 建立动态数组的方法是，使用 Dim、Private 或 Public 语句声明括号内为空的数组，然后在过程中用 ReDim 语句指明该数组的大小。形式如下： ReDim （ ， ） As 例如：Dim s() as integer 定义动态数组 s，括号不能省略Privat

12、e Sub Form_Click().n = InputBox(输入 n 的值)m = InputBox(输入 m 的值)n = Val(n)m = vla(m)ReDim s(n, m) 重新指明数组的大小.End Sub在过程中可多次使用 ReDim 语句来改变数组的大小，不能改变数组维数，也不能改变数组的类型。 每次执行 ReDim 语句时，当前存储在数组中的值都会全部丢失。Visual Basic 重新将数组元素的值置为 Empty（对 Variant 数组） 、置为 0（对 Numeric 数组） 、置为 零长度字符串（对 String 数组） 。如果希望改变数组大小又不丢失数组中的

13、数据，可使用具有 Preserve 关键字的 ReDim 语句就可做到这点。如： Dim this() As StringPrivate Sub Command1_Click()ReDim this(4)this(2) = microsoftPrint this(2)ReDim Preserve this(6)Print this(2)End Sub3. 数组的清除和重定义在一个程序中，同一个数组只能定义一次。有时可能需要清除数组的内容或对数组重新定义，这可以用 Erase 语句来实现。格式如下： Erase ， 说明：在 Erase 语句中，只给出要刷新的数组名，不带括号和下标Erase 语

14、句用于静态数组时，用来重新初始化各元素，内容被清空。若是数值数组各元素被置 0，字符数组各元素被置为空字符串。Erase 语句用于动态数组时，删除整个数组的结构并释放该数组所占用的内存。动态数组经 Erase 后不再存在。下次引用该动态数组之前，必须用 ReDim 语句重新定义该数组的维数。 4数组元素的基本操作一、给数组元素赋值1利用循环结构For i=1 to 5A(i)=3Next i2利用 InputBox()函数输入Private Sub Command1_Click()Dim b(2, 3)For i = 0 To 2 For j = 0 To 3 b(i, j) = InputB

15、ox(输入 & Str(i) & , & Str(j) & 的值)Next j Next iFor i = 0 To 2For j = 0 To 3Print b(i, j); ;Next jPrintNext iEnd Sub 当给一个较大的数组赋值时，以上方法比较麻烦，可以用 Array()函数解决。3利用 Array（）函数Private Sub Form_Click()Dim a, ba = Array(1, 2, 3, 4, 5)b = Array(11, 22, 33)For i = 0 To UBound(a)Print a(i);Next iprintFor i = 0 To UBound(b)Print b(i);Next iPrintEnd Sub 说明：Array() 函数对各元素赋值，声明的数组是动态数组或连小括号都省略的数组，