V的B程序设计第二版第六章.ppt

* 3 ．删除运行期创建的控件数组元素 Unload 控件数组名(索引) 例如, 删除以上创建的Text1(1)控件： Unload Text1(1) Unload语句无法删除设计时创建的控件，无论它们是否是控件数组的一部分。 * 1.在模块级或过程级定义一个无下标的数组： Public|Private|Dim 数组名()[As 类型],… 2.在过程级定义数组的实际大小。 ReDim [Preserve] 数组名(维数定义) [As 类型],… 定义动态数组需要分两步完成： ReDim语句只能出现在过程中。 “维数定义”通常包含变量或表达式，但其中的变量或表达式应有明确的值。 例如，定义一个动态数组Eng，用来保存学生的英语成绩。 * Dim Eng( ) As Integer Private Sub Command1_Click( ) N = Val(InputBox(请指定学生人数)) ReDim Eng(1 To N) …… End Sub 可以用ReDim语句多次改变数组元素的数目及维数的数目。 在定义动态数组的两个步骤中，如果用步骤1定义了数组的类型，则不允许用步骤2改变类型。 每次执行ReDim语句时，如果不使用Preserve，则数组中的值全部被重新初始化；如果使用Preserve，则保留数组中原有的元素值。 使用Preserve关键字的Redim语句只能改变多维数组中最后一维的上界，且不能改变维数的数目。 * 说明： 【例】 Dim A() As Integer Private Sub Command1_Click() N = 4 ReDim A(N) For I = 0 To N A(I) = 1: Print A(I); Next I Print N = 8 ReDim A(N) For I = 0 To N Print A(I); Next I End Sub * 运行时输出结果为： 1 1 1 1 1 0 0 0 0 0 0 0 0 0 改为： Dim A() As Integer Private Sub Command1_Click() N = 4 ReDim A(N) For I = 0 To N A(I) = 1: Print A(I); Next I Print N = 8 ReDim Preserve A(N) For I = 0 To N Print A(I); Next I End Sub * 运行时输出结果为： 1 1 1 1 1 1 1 1 1 1 0 0 0 0 6.2.3 用户自定义类型的数组 用户自定义类型的数组：指数组中的每个元素的类型都是用户自定义类型。 学 号 姓 名 数 学 英 语 01 张三 89 90 02 李四 78 93 … … … … * 例如： 学生成绩表 （1）可以定义数据类型StudScore： Type StudScore StudNumber As String * 2 StudName As String * 10 Math As Integer English As Integer End Type * （2）定义一个具有StudScore类型的数组： Dim Score(1 To 40) As StudScore * （3）引用第i个学生的信息： Score(1).StudNumber = 01 Score(1).StudName = 张三 Score(1).Math = 89 Score(1).English = 90 With Score(1) .StudNumber = 01 .StudName = 张三 .Math = 89 .English = 90 E