VB-第6章-数组.ppt

第六章 数组 兴 趣 引 入 概 念 Q:如何定义一个变量 Q:如何定义一宿舍人的年龄 Q:如何定义一个学院学生VB的成绩 Dim A1%,A2%，A3%，A4%，A5%，A6%，A7%，A8%，A9%，A10% …A6000% 本章内容 第一节 数组的概念 哪里没有兴趣，哪里就没有记忆。 主要内容 一、数组的概念 固定大小数组的定义方法 固定大小数组的定义 数组元素的个数 Dim? C（-1 To 5， 4） As? Long声明了C是数组名、长整型、二维数组、第一维下标范围为-1～5，第二维下标的范围是0～4，占据7x 5个长整型变量的空间。 数组的数据类型通常在As子句中给出 如果省略As子句，则将数组定义为Variant类型，这种数组称为默认数组。默认数组能在一个数组中同时存放各种不同类型的数据 。 判断下列数组定义是否正确？ dim m as integer const n as integer = 5 dim a(n) as integer dim b(1 to 6.5) as integer dim c(1 to 2*3) as integer dim d(0 to m) as integer dim e(0 to n) as string 用下标表示数组中的各个元素。 表示方法：数组名（P1，P2，……） 下标可以是常量、变量、或是表达式。 数组维数： 由数组元素中下标的个数决定，一个下标表示一维数组，二个下标表示二维数组。 VB中有一维数组、二维数组、……最多60维数组。 如何说明你所住的宿舍 dim ss(7,59,5) as string 请问一共住了多少人。 数组定义的注意事项 三、数组的结构 1、一维数组的结构 一维数组只能表示线性顺序。 比如： dim A(5) as integer 2、二维数组的结构 二维数组的表示形式是由行和列组成的一张“二维表” 。 示例: option base 1 dim tab (3,4) as integer 其中：3表示行，4表示列，所以表明数组tab中有3行4列共12个元素. 存放方式：二维数组在内存中是“按列存放” 3、三维数组的结构 三维数组由行、列、页组成。 option base 1 dim page(3,3,2) as integer 其中第一个3为行数，第二个3为列数，2为页数。共18个元素。 其逻辑结构和存储结构见P87 按“逐页逐列”进行存储。 四、数组函数及数组语句 在程序中可以使用Lbound和Ubound库函数来求得数组的某一维的下界值和上界值。 比如…… Dim a(5) as integer, b(3 to 8,200 to 208) print lbound(a), lbound(b), lbound(b,2) print ubound(a), ubound(b), ubound(b,2) Erase语句将删除整个动态数组结构并释放该数组所占用的内存，即动态数组经Erase操作后即不复存在。 例：用 Erase 语句重新初始化固定大小的数组元素，以及释放动态数组存储空间。 For Each……Next语句 语句格式：For Each 成员 In 数组 循环体 [Exit For] …… Next [成员] 产生12个能被7整除的两位数，并分成两行输出 Option Base 1 ‘定义数组的默认下标为1 Private Sub Command1_Click() Dim a(12) As Integer, i As Integer, js As Integer js = 14 For i = 1 To 12 a(i) = js js = js + 7 Next i js = 0 For Each v in a js = js + 1 Print v; If js Mod 6 = 0 Then Print Next v Print End Sub Option Base 1 Private Sub Command1_Click() Dim exam(2, 3) As Integer, i As Integer, j As Integer