VisualBasic 程序设计教程 刘莲英 第7章 数组新.ppt

7.1 引言 1．为什么使用数组 【例7-1】设计一个程序，将n个人某门课程的成绩输入计算机，求平均成绩和高于平均成绩的人数。 如果不使用数组，以5个人的成绩为例，使用A1、A2、A3、A4、A5来存放5个成绩，程序代码如下： Private Sub Form_Click() Dim N%, S!, Ave!, A1!, A2!, A3!, A4!, A5! 1．为什么使用数组（续） A1 = Val(InputBox(Enter A1 )) ... 此处省略了部分语句 A5 = Val(InputBox(Enter A5 )) S = A1 + A2 + A3 + A4 + A5 Ave = S / 5 If A1 Ave Then N = N + 1 … 此处省略了部分语句 If A5 Ave Then N = N + 1 Print Ave, N End Sub 1．为什么使用数组（续） Print Ave = S / 10 For i = 1 To 10 If A(i) Ave Then N = N + 1 Next i Print 平均成绩为：; Ave Print 高于平均成绩的人数：; N End Sub 2．数组与数组元素的概念 数组：是用一个名字表示的一组（一般是相同类型的）数据的集合，这个名字就称为数组名。 例如：Dim A(1 To 10) As Single ‘A是数组名。 数组元素：数组中的数据分别存储在用下标区分的变量中，这些变量称为下标变量或数组元素。 例如：A(1)、A(2)…A(i) 通常一个数组中的所有元素具有相同的数据类型，只有当数组的数据类型为Variant类型时，各个元素的数据类型可以不同。 定义一维数组的一般形式 ① 数组名：数组名的命名规则与变量的命名规则相同。 ② 下界和上界：下界和上界是数组元素的最小和最大下标。若省略下界，下界为0；若希望默认下界为1，可在模块的通用部分使用Option Base语句来设置。Option Base语句格式： Option Base 0|1 后面的参数只能取0或1，例如： Option Base 1 默认下界为 1 说明： ③ 下界和上界必须是常量，可以是直接常量、符号常量，一般是整型常量。若是实数，系统自动四舍五入取整。 ④ As 数据类型：说明数组中每一个元素的类型。如果省略该项或数据类型符，则数组的类型为变体类型（variant类型），此时，数组中的元素可以为不同类型的数据。 ⑤ 数组必须先定义后使用。 利用Array函数输入 Array函数可方便地对数组整体赋值，但它只能给声明为Variant类型的变量或Variant类型的动态数组赋值，赋值后的数组大小由赋值的个数决定。 所谓动态数组就是在定义数组时不指定数组的上、下界，数组的长度不定。有关动态数组的概念和应用在7.4节介绍。 例如，要将1、3、5、7、9 赋值给数组a，将2、4、6、8、10赋值给数组b，然后输出a、b数组中的数据。程序的运行结果如图7-2所示。 Private Sub Form_Click() Dim a(), b, i% a = Array(1, 3, 5, 7, 9) Print a数组中的数据如下： For i = 0 To 4 Print a(i); Next i Print b = Array(2, 4, 6, 8, 10) Print b数组中的数据如下： For i = 0 To 4 Print b(i); Next i End Sub 利用Split函数输入 使用Split函数可从一个字符串中，以某个指定字符为分隔符，分离若干个子字符串，建立一个下标从零开始的一维字符数组。 Split函数使用格式： Split(字符串表达式 [,分隔符]) 说明： ① 字符串表达式：如果字符串表达式是一个长度为零的字符串()，则Split函数返回一个空数组，即没有元素和数据的数组。 　　 ② 分隔符：可选。用于分隔子字符串的字符。如果省略，则使用空格字符作为分隔符。如果分隔符是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的字符串表达式。 ③ 使用Split函数建立的动态数组的下标一定是从0开始，与Option Base语句无关。 利用Split函数输入（续） 例如，在文本框中输入6个成绩，用逗号分隔，然后将