Visual Basic 清华大学vb编程语言基础 第6讲

静态数组
数组声明中若有两个下标，则为二维数组， 有两个或两个以上下标，则为多维数组。
多维数组声明格式 Dim 数组名(下标1[，下标2，……) [as 类型] Dim a(2,3) as integer
a(0,0) a(1,0) a(2,0) a(0,1) a(1,1) a(2,1) a(0,2) a(1,2) a(2,2) a(0,3) a(1,3) a(2,3)
第六讲
数组
内容提要
数组的概念
数组的声明
与数组有关的函数和语句 组具有相同名字和类型的数据的
集合。
用统一的名字代表逻辑上相关的一批数据，每个元素用 下标来区分。
数组必须先声明后使用
Dim student(1 to 30) as String 声明时指定数组名称、类型、维数和大小。 •数组声明时下标的个数确定数组的维数，VB中的数组 最多60维。 •按声明时数组的大小是否确定分为静态数组和动态数组。
的次数由数组的元素数决定，即数组有多少个元素，该语句
就自动循环多少次。
For Each……Next语句-例
定义一个有10个元素的一维整型数组a，使用随机函数 为数组的每个元素赋1~99之间的值，然后用For Each……Next语句读取并显示数组a中各元素的值。
Option Base 1 （放到过程外） Private Sub Form_Click() Dim a(10) As Integer Dim i As Integer For i = 1 To 10 a(i) = Int(Rnd * 100) Next i For Each x In a Print x; Next x Print End Sub 窗体上单击4次后的结果。
动态数组的应用
ReDim a(6) '重定义数组的大小 Print "第2次输出数组a:" For i = 1 To 6 a(i) = i '再次为数组赋值 Print a(i); Next i Print ReDim Preserve a(10) '重定义数组的大小，但保留其中的元素 Print "第3次输出数组a:" For i = 1 To 10 Print a(i); Next i End Sub
运行时创建控件数组-例
用“筛法”找100以内的全部素数
分析：用“筛法”求素数时首先把要判断的全部整数写在纸 上，然后逐一判断是否是素数，不是素数的就把该整数筛掉， 最后剩下的就是素数。
UB=8 U2B=6
LB=0 L2B=0
Split函数
从一个字符串开始，以某个指定符号为分隔符， 分离若干个子字符串建立一个下标为0的一维数组
Split(字符串表达式[,分隔符]) Dim i%
Dim a() As String
a = Split("how!are!you", "!") For i = 0 To UBound(a) how are you
的上界和下界
UBound(数组名[，维数]) LBound(数组名[，维数])
Dim DynArray(8) As String
Dim UB%, LB%, U2B%, L2B% UB = UBound(DynArray) LB = LBound(DynArray) Print UB, LB Dim matrix(1 To 5, 6) As Integer U2B = UBound(matrix, 2) L2B = LBound(matrix, 2) Print U2B, L2B
动态数组
动态数组也称为可调数组，在数组声明时不指定数 组的大小，而在使用时才指定数组的大小。动态数 组使用灵活、方便，可以更高效的使用计算机内存。 创建动态数组:
在窗体模块、标准模块或过程中用Dim语句或Public语 句声明一个没有下标的数组，将数组声明为动态数组 在过程中用ReDim语句指明数组的大小，其一般格式为：
动态数组的应用
Option Base 1 '设定数组的下界为1 Dim a() As Integer '在过程外声明动态数组a Private Sub Command1_Click() Dim m%, n%, i%, j% m = Val(InputBox("输入m")) n = Val(InputBox("输入n")) ReDim a(m, n) '定义数组的大小 Print "输出数组a:" For i = 1 To m For j = 1 To n a(i, j) = i * j '为数组赋值 Print a(i, j); Next j Print Next i
数组有关的操作
数组元素的引用
数组元素的引用方法是在数组的后面的括号中指
定下标，引用方法和简单变量相同，即可以被赋值
也可以参与运算。
a(2)=a(1)+10
引用数组时，其下标要在数组声明的范围内， 否则程序运行时会出现“下标越界”的错误。
数组有关的操作
数组元素的输出
数组元素的输出可以用Print方法实现。对于矩阵 形式的输出，如： Option Base 1 （放在过程外） 1 2 3 Dim a(1 To 3, 1 To 3) As Integer 4 5 6 Dim i%, j% For i = 1 To 3 7 8 9 先把上面的数据存放在3 行3列的数组a中， 然后 用二重循环按原样输出。
动态的分配内存空间。
ReDim语句中数组的下标即可以是常量，也可以是有确定值的变量， as 类型可省略，若不省略，必须与Dim语句声明的类型一致。 在过程中可多次使用ReDim语句改变数组的维数和大小。 每执行一个新的ReDim语句都会使原来数组中的值丢失，可以在 ReDim语句后加上Preserve参数用来保留数组中的数据，但Preserve参数 只能改变最后一维的大小，前面几维大小不能改变。
For j = 1 To 3 Print a(i, j); Next j Print Next i
For Each……Next语句
For Each……Next语句专门用于数组或对象集合
的每一个成员
For Each 成员 In 数组 循环体 [Exit For] Next 成员
“成员”是一个Variant变量，代表数组中的每个元素 该语句可以对数组元素进行查询、显示和读取，循环重复
ReDim [Preserve] 数组名(下标1[，下标2……]) [as 类型]
动态数组的使用
在过程外部用Dim语句声明一个动态数组： Dim a() as integer 在过程内部用ReDim语句指明数组的实际大小： ReDim a(2,3)
ReDim语句是执行语句，只能出现在过程中，在程序运行时执行，可
控件数组-例
创建有4个复选框的控件数组，单击不同的复选框， 文本框中的文字分别显示宋体、楷体、隶书和黑体。
控件名 Check1 Check1 Check1 Check1 index 0 1 2 3 style caption 1 1 1 1 宋体 楷体 隶书 黑体
Private Sub Check1_Click(Index As Integer) Select Case Index Case 0 Text1.FontName = "宋体" Case 1 Text1.FontName = "楷体_GB2312" Case 2 Text1.FontName = "隶书" Case 3 Text1.FontName = "黑体" End Select End Sub
Dim b
a(1)=4
a(2)=6
a(3)=8
a(4)=10
' 声明Variant变量
b=array("A", "B", "C", "D")
相当于：b(0)= "A" b(1)= "B" b(2)= "C" b(3)= "D"
数组有关的函数
UBound() 、LBound()函数
UBound()函数和LBound()函数用来求数组某一维
数组有关的函数
Array()函数
对一维数组进行初始化
数组变量名= Array(数组元素值) Array()函数只能给Variant变量或动态数组赋值 “数组元素值”是要赋给数组各元素的值，之间用逗号隔开。 Dim a() ‘声明动态数组 a=array(2,4,6,8,10)
相当于：a(0)=2
Print a(i)
Next i
控件数组
控件数组由一组相同类型的控件组成，它们具有相
同的控件名、相同的属性、相同的事件过程。
在设计时创建控件数组一般步骤为： 在窗体上画出控件数组的第一个控件，并设置该控件的 Name等属性。 选中该控件，执行“复制”/“粘贴”操作 系统弹出对话框，询问是否创建控件数组，选择“是”，创 建了控件数组的一个元素，其索引值是1。 重复执行前两步，创建多个控件数组的元素。 双击任一控件数组元素，打开代码编辑窗口，编写事件过程 代码
运行时创建控件数组
在窗体上画出一个控件，并在属性面板上设置该 控件的Index属性值为0，代表控件数组，还可以设 置该控件的其它属性。 在程序中用Load方法添加该控件数组的其它元素， 用Unload方法删除添加的元素，一般格式为： Load 控件数组名(index) Unload 控件数组名(index) 设置每个添加的控件数组元素的Left和 Top属性， 以确定该元素在窗体中的位置，设置Visible属性为 True。
数组有关的操作
数组元素赋初值