第二章 Visual Basic语言基础.

Presentation on theme: "第二章 Visual Basic语言基础."— Presentation transcript:

1 第二章 Visual Basic语言基础

2 第二章 Visual Basic语言基础 2.1 Visual Basic 的基本数据类型 2.2 常量与变量
2.8 数组 2.9 程序举例

3 2.1 Visual Basic 的基本数据类型 定义： 1）数据：描述客观事物的数、字符以及所有能被输入到计算机程序加工处理的符号集合。
2）数据类型：指数据在计算机内部的表述和存储形式 VB有11种基本数据类型，一种用户自定义数据类型。

4 2.1.1 用于保存数值的数据类型 VB有6种 整型(Integer) 长整型(Long) 单精度型(Single) 双精度型(Double) 字节型(Byte) 货币型(Currency) 1、整型数据 整型：占两个字节 表示方式：±n[%] 长整型：占四个字节 表示方式： ±n& 2、浮点型数据 单精度(Single)：指数E 精度7位 表示方式:！ 双精度(Double)：指数D 精度16位 表示方式:#

5 3、货币型 定点数或整数，用于计算货币的数量 最多保留小数点右边4位，左边15位。 4、字节型 用于存储一个字节的无符号整数。 取值范围：0~255

6 2.1.2 日期型数据（Date） 任何可以辨别的文本日期都可以赋值给日期数据变量 表示方式： 日期型数据前后必须添加符号“#”

7 2.1.3 字符串型数据（String） 用于表示连续的字符序列，专用于存放文字信息。用半角的” ”来界定。
定长字符串型：能包含的最大字符数是固定 的，并且可以指定。 所占内存：字符串本身的长度 变长字符串型：能包含的字符个数是可变的。 所占内存：10个字节+字符长度

8 2.1.4 逻辑型数据（Boolean） 用于表示逻辑量，占用两个字节。 取值： True（真） （整型数据） False（假） （整型数据） 若其他类型数据转换成逻辑数据时： 非0数据 True False

9 2.1.5 对象型数据（Object） 作用：可以被用来引用应用程序所能使识别的任何实际对象。 大小：占4个字节

10 2.1.6 变体型数据（Variant） 作用：是VB提供的一种特殊数据类型，是所有未声明变量的默认数据类型。

11 2.2 常量与变量 2.2.1 常量 定义：指在程序运行过程中其值始终保持不变的量。 分为： 直接常量 符号常量 系统常量

12 1、直接常量 简称常量。 又分为： 数值常量：数值、小数点、正负号 字符串常量：用半角” ”界定 日期常量：用# #界定 布尔常量：T F 无界定符号 2、符号常量 格式:Const 符号常量名 [as 数据类型]=表达式

13 3、系统常量 由VB提供的具有专门名称和作用的常量。 变量 1、定义：指在程序运行过程中可以改变其值的量。 2、特性： 名字、数据类型、作用范围、生存周期 3、变量形式： 属性变量、内存变量 1）变量命名规则 2）声明内存变量的形式： 显式声明、隐式声明

14 2.8 数 组 2.8.1 概 述 数组的概念：数组并不是一种数据类型，而是一组相同类型数据的集合。用一个统一的名字（数组名）代表逻辑上相关的一批数据，每个元素用下标变量来区分；下标变量代表元素在数组中的位置。 其表示形式： A(1)，A(10) X(1,1), X1(1,10), X(2,10) Y(0,0,0), Y(1,2,5)

15 Visual Basic中的数组，按不同的方式可分为以下几类：
按数组的大小（元素个数）是否可以改变来分为：定长数组、动态（可变长）数组。 按元素的数据类型可分为：数值型数组、字符串数组、日期型数组、变体数组等。 按数组的维数可分为：一维数组、二维数组、多维数组。 对象数组：菜单对象数组、控件数组。

16 2.8.2 一维数组 形式: 2.8.2.1 一维数组的声明 (无隐式声明)
Dim 数组名([<下界>to]<上界>)[As <数据类型>] 或： Dim 数组名[<数据类型符>]([<下界>to]<上界>) 例：Dim a(1 to 10) As Integer ‘ 声明了a数组有10个元素 与上面声明等价形式： Dim a%(1 to 10) 数组元数的数据类型 1是下标的下界 10是下标的上界

17 说明： 1．数组名的命名规则与变量的命名相同。 2．数组的元素个数：上界-下界+1。
3．缺省<下界>为0，若希望下标从1开始，可在模块的通用部分使用Option Base语句将设为1。其使用格式是： Option Base 0| ' 后面的参数只能取0或1 例如： Option Base ' 将数组声明中缺省<下界>下标设为1 4．<下界>和<上界>不能使用变量，必须是常量，常量可以是直接常量、符号常量，一般是整型常量。

18 5．如果省略As子句，则数组的类型为变体类型。
6．数组中各元素在内存占一片连续的存储空间，一维数组在内存中存放的顺序是下标大小的顺序，如图5-1所示：

19 2.8.2.2 一维数组元素的引用 数组必须先定义后使用 使用形式： 数组名(下标) 其中：下标可以是整型变量、常量或表达式。
使用形式： 数组名(下标) 其中：下标可以是整型变量、常量或表达式。 例如： 设有下面的数组B(10) As Integer 则下面的语句都是正确的。 A(1)=A(2)+B(1) ' 取数组元素运算 A(i)=B(i) ' 下标使用变量 B(i+1)=A(i+2) ' 下标使用表达式 引用不能下标越界，P113例

20 2.8.2.3 一维数组的基本操作 1. 可通过循环给数组元素的初值 For i = 1 To 10 'A数组的每个元素值为1 A(i)=1
Next i 2. 数组的输入 For i = 1 To 4 For j = 1 To 5 sc(i, j) = InputBox("输入sc(" &i & "," & j & ") 的值") Next j Next I

21 3. 数组的输出 输出如下图所示的下三角数据 Dim sc(5,5) As Integer,i%,j% For i = 1 To 5
For j = 1 To i sc(i, j) = i * 5 + j Print sc(i, j); " "; Next j Print ' 换行 Next I

22 4. 求数组中最大元素及所在下标 Dim Max As Integer,iMax As Integer Max=A(1)：iMax=1 For i = 2 To 10 If A(i)>Max Then Max=A(i) iMax=i End If Next I 5. 将数组元素倒置 For i =1 To 10\2 t=A(i) A(i)=A(10-i+1) A(10-i+1)=t Next I 例5.1

23 一维数组的应用 一、分类统计 例5.2 在例5.1中如果还要统计0~9，10~19，20~20，….80~89，90~99分数段及100分的学生人。 则可另用数组bn来存各分数段的人数，并用bn(0)存0~9分的人数，bn(1)存10~19分的人数，…bn(9)存90~99分的人数，bn(10)存100分的人数。

24 二、 排序问题 1．选择法排序 算法思想： 1）对有n个数的序列（存放在数组a(n)中），从中选出最小（升序）或最大（降序）的数，与第1个数交换位置； 2）除第1 个数外，其余n-1个数中选最小或最大的数，与第2个数交换位置； 3）依次类推，选择了n-1次后，这个数列已按升序排列。

25

26 选择法排序（升序）的VB程序： For i = 1 To n - 1 p = i For j = i + 1 To n If a(p) > a(j) Then p = j Next j temp = a(i) a(i) = a(p) a(p) = temp Next i

27 2．冒泡法排序（递增） 算法思想：(将相邻两个数比较，小的调到前头) 1）有n个数（存放在数组a(n)中），第一趟将每相邻两个数比较，小的调到前头，经n-1次两两相邻比较后，最大的数已“沉底”，放在最后一个位置，小数上升“浮起”； 2）第二趟对余下的n-1个数（最大的数已“沉底”）按上法比较，经n-2次两两相邻比较后得次大的数； 3）依次类推，n个数共进行n-1趟比较，在第j 趟中要进行n-j次两两比较。

28

29 冒泡法排序（升序）的VB程序： For i = 1 To n - 1 For j = 1 To n-i If a(j) > a(j+1) Then temp=a(j) a(j)=a(j+1) a(j+1)=temp End if Next j Next i

30 例5.3 用随机函数产生50个[10，100 ）的随机整数，并按照由小到大的顺序打印出来。
程序界面如下：

31 2.8.3 二维数组及多维数组 2.8.3.1 二维数组的声明 声明格式如下： 其中的参数与一维数组完全相同。
二维数组及多维数组 二维数组的声明 声明格式如下： Dim 数组名([<下界>] to <上界>，[<下界> to ]<上界>) [As <数据类型>] 其中的参数与一维数组完全相同。 例如：Dim a(2,3) As Single 二维数组在内存的存放顺序是“先行后列”。例如数组a的各元素在内存中的存放顺序是： a(0,0)→a(0,1)→a(0,2)→a(0,3)→a(1,0)→a(1,1)→a(1,2)→ a(1,3)→a(2,0)→(2,1)→a(2,2)→a(2,3)

32 2.8.3.2 二维数组的引用 2.8.3.3 二维数组的基本操作 引用形式： 数组名(下标1，下标2) 例如： a(1,2)=10
引用形式： 数组名(下标1，下标2) 例如： a(1,2)=10 a(i+2,j)＝a(2,3)*2 在程序中常常通过二重循环来操作使用二维数组元素。 二维数组的基本操作 二维数组数据的输入 2. 求最大元素及其所在的行和列 3. 计算两矩阵相乘 4. 矩阵的转置

33 2.8.3.5 多维数组的声明和引用 定义多维数组的格式如下：
多维数组的声明和引用 定义多维数组的格式如下： Dim 数组名([<下界>] to <上界>，[<下界> to ]<上界>，……) [As <数据类型>] 例如： Dim a(5,5,5) As Integer 声明a是三维数组 Dim b(2,6,10,5) As Integer ' 声明b是四维数组

34 Preserve参数：保留数组中原来的数据
2.8.4 动态数组 动态数组：在声明时未给出数组的大小。定长数组是在程序编译时分配存储空间，而动态数组是在程序执行时分配存储空间。 动态数组的建立及使用 建立动态数组包括声明和大小说明两步： 1．在使用Dim、Private或Public语句声明括号内为空的数组。 格式：Dim | Private|Public 数组名（）As 数据类型 例：Dim a() As Integer 2．在过程中用ReDim语句指明该数组的大小。 格式：ReDim [Preserve] 数组名（下标1[，下标2…]） 例：Redim A(10) Redim Preserve A(20) Preserve参数：保留数组中原来的数据

35 × 说明： （1）ReDim语句是一个可执行语句，只能出现在过程中，并且可以多次使用，改变数组的维数和大小。
例： Private Sub Form_Click() Dim N As Integer N=Val(InputBox(“输入N=？”)) Dim a(N) As Integer ……. End sub ×

36 例5.5 （3）在过程中可以多次使用ReDim来改变数组的大小，也可 改变数组的维数。 例：ReDim x(10) ReDim x(20)
Print x(20) ReDim x(20, 5) x(20, 5) = 10 Print x(20, 5) （4）每次使用ReDim语句都会使原来数组中值丢失，可以在ReDim后加Preserve 参数来保留数组中的数据。但此时 只能改变最后一维的大小。 例5.5

37 与数组操作有关的几个函数 Aarry函数 Aarry函数可方便地对数组整体赋值，但它只能给声明Variant的变量或仅由括号括起的动态数组赋值。赋值后的数组大小由赋值的个数决定。 例如，要将1,2,3,4,5,6,7 这些值赋值给数组a，可使用下面的方法赋值。 Dim a() A=array(1,2,3,4,5,6,7) Dim a

38 2 求数组的上界Ubound( )函数、 下界 Lbound( )函数
分别用来确定数组某一维的上界和下界值。 使用形式如下： UBound(<数组名>[, <N>]) LBound(<数组名> [, <N>]) 其中： <数组名>：必需的。数组变量的名称，遵循标准变量命名约定。 <N> ：可选的；一般是整型常量或变量。指定返回哪一维的上界。1 表示第一维，2 表示第二维，如此等等。如果省略默认是1。