|
Next i 注意：（1）赋值号两边的数据类型必须一致； （2）如果赋值号左边的是一个动态数组，则赋值时系统自动将动态数组ReDim成右边相同大小的数组； （3）如果赋值号左边的是一个大小固定的数组，则数组赋值出错。 4．数组的输出 用For……Next循环语句输出。 5．求数组中最大元素和所在下标及各元素之和 求数组中最大元素及下标，一般假设第一个元素及下标为最大，然后将该数与数组中的其他元素逐一比较，若有比其大的就替换，同时替换下标。 6．交换数组中各元素 交换的要求是将数组第一个元素与最后一个交换，第二个与倒数第二个交换，依次类推。 5.5控件数组 1．控件数组的概念 控件数组是由一组相同类型的控件组成的，它们共用一个控件名，具有相同的数组。控件数组适用于若干个控件执行的操作相似的场合，控件组共享同样的事件过程。控件数组通过索引号（属性中的Index）来标识各控件，第一个下标是0 。如：Text1(0)、Text1(1)、Text1(2)、Text1(3)…… 2．控件数组的建立 （1）在设计时建立 步骤：1）在窗体上画出某控件，并进行属性设置。 2）选中该控件进行“复制”和“粘贴”操作，系统提示“是否建立控件数组”，选择是即可。多次粘贴就可以创建多个控件元素。 3）进行事件过程的编程。 （2）运行时添加控件数组 方法：1）在窗体上画出某控件，设置该控件的Index值为0，表示该控件为数组。 2）在编程时通过Load方法添加其余若干个元素，也可以通过Unload删除某个添加的元素。 3）每个添加的控件数组通过Left 和Top属性，确定其在窗体上的位置，并将Visible设置为True。 使用示例：建立一个类似国际象棋的棋盘，要求黑白交替，运行时单击某个棋格，会改变颜色并显示其序号。 5.6自定义数据类型 1. 自定义数据类型的定义 是指由若干标准数据类型组成的一种复合类型，也称为记录类型。 （1）定义方式： Type 自定义类型名 元素名[（下标）] As 类型名 …… 元素名[（下标）] As 类型名 End Type 元素名：表示自定义类型中的一个成员 下标（可选）：表示是数组 类型名：为标准类型 例：定义一个学生信息的自定义类型： Type studtype No As Integer ’ 定义学号 Name As String*10 ’ 定义姓名 Sex As String*2 ’ 定义性别 Mark(1 TO 4) As Single ’ 定义4门课程的成绩 Total As Single ’ 定义总分 End Type （2）注意事项 1）自定义类型一般在标准模块（.bas）中定义，默认是Public 2）自定义类型中的元素可以是字符串,但应是定长字符串 3) 不可把自定义类型名与该类型的变量名混淆 4) 注意自定义类型变量与数组的差别：它们都由若干元素组成，前者的元素代表不同性质、不同类型的数据，以元素名表示不同的元素；后者存放的是同种性质、同种类型的数据，以下标表示不同元素。 2. 自定义型变量的声明和使用 使用形式： Dim 变量名 As 自定义类型名 例如： Dim student As studtype, mystud As studtype 自定义类型中元素的表示方法是：变量名 . 元素名 如：student.name student.mark(4) 为了简单起见，可以用With …… End With 语句进行简化。 例： With student .no=99001 .name="" .sex="" .total=0 for I=1 to 4 .mark(I)=int(rnd*101) ’随机产生0 - 100之间的分数 .total=.total+.may(I) |
