For I = 0 To 99 mark(I) = InputBox("请输入每位学生的成绩") '本循环结构输入成绩，求分数和 aver = aver + mark(I) Next I aver = aver / 100 '求100人的平均分数 overn = 0 For I = 0 To 99 '本循环结构统计高于平均分的人数 If mark(I) > aver Then overn = overn + 1 Next I MsgBox("平均分:" + Str(aver) + " " + "高于平均分的人数" + Str(overn)) End Sub 说明：语句 mark(i)=inputbox(“请输入每位学生的成绩”) 虽只有一句语句，但在循环体 内， 则执行 100 次， 运行时要输入 100 个成绩， 调试程序时很花时间。 对于大量的数据输入， 用户可根据题目要求，通过随机函数产生一定范围内的数据。本例产生 0～100 的分数，语 句如下： mark(i)=int(rnd（）*101) 2． 数组的概念 数组是用相同名字保存的一系列数据的集合。 数组在跟踪大量数据时非常有用。 在程序 中使用数组的最大好处是用一个数组名 逻辑上相关的一批数据， 数组总的第一个元素称 为下界，最后一个元素称为上界，其余元素连续地分布在上下界之间，用下标表示该数组中 的各个元素，与循环语句结合使用，使得程序书写简洁。 数组必须先定义（声明）后使用， 数组名、类型、维数、数组的大小；按声明时下 标的个数确定数组的维数，VB.NET 中的数组有一维数组、二维数组……最多 32 维。 例 4.1 语句：dim mark(99) as integer 声明了一个一维数组，该数组的名字为 mark，类型为整型；共有 100 个元素，下标范 围为 0～99；mark 数组的各元素是 mark(0),mark(1),mark(2) …mark(99)；mark(i)表示由下标 i 的值决定是哪一个元素。mark 数组内存分配如下： Mark(0) Mark(1) Mark(2) …… Mark(99) 声明数组，仅仅表示在内存分配了一个连续的区域。在以后的操作中，一般是针对数组 中的某一个元素进行的。数组元素的形式为： 数组名（下标[，下标 2…]） 下标表示顺序号，每个元素有一个唯一的顺序号，下标不能超出数组 时的上界、下 界范围。一个下标，表示一维数组；多个下标，表示多维数组。下标可以是整型的常数、变 量、表达式，甚至还可以是一个数组元素。 例 4.1 数组声明后，mark(10)、mark(3+4)、mark(i)都是数组元素，但若 I 的值超出 0～ 99 的范围，则程序运行时会显示“下标越界” 。 数组元素的使用规则与同类型的简单变量相同。 如果声明数组时指定了数据类型，则其中所有元素也必须为此类型，如果数组类型为 object，则其中每个元素能够包含不同种类的数据。可以 任何基本数据类型的数组，包 括用户自定义的类型。
4.2.2
数组的定义及其操作
1. 一维数组 （1）一维数组的定义 声明一维数组形式如下： dim 数组名（下标上界） [as 数据类型] 下标下界为 0，一维数组的大小为：上界+1 可以使用以下方法声明通用数组： ① 数组声明前加上 public 关键字，即可声明全局数组。 ② 若在模块层中，可用 dim 来 数组。 ③ 若在过程中，可用 static 语句来 数组。例如： public cars(8) as integer dim cars(8) as integer static cars(8) as integer 以上三个数组都包含了 9 个整数（从 0 到 8） 。 （2）一维数组的赋值 ① 定义了数组之后，再给它赋值。 通常可以通过一个 for 循环给该数组赋值。例如： dim a(4) as integer dim I as integer for I=0 to 4 a(i)=100 next I 上例中首先 了一个包含 5 个元素的数组 a，并通过一个循环语句将数组的元素全部 赋值为 100。 ② 数组定义时，可直接赋值。 上例也可以用下面的一句来实现： dim a() as integer={100,100,100,100,100} 这对大括号{}允许设置可以直接保存在数组中的值。 在这句中， a 数组输入了 5 个值， 给 以逗号隔开，并且没有指定数组的上界，而是使用（） 。VB.NET 是用基于所提供的值来计 算上界的。但下面的 是不允许的： dim a(4) as integer={100,100,100,100,100} 因为在 VB.NET 中，显式声明了长度的数组不能直接在初始化时赋值。 2． 多维数组 除了一维数组外，还可以使用二维数组和多维数组。当程序需要以矩阵的方式来保存 数据时，就需要二维数组和多维数组。 声明多维数组形式如下： dim 数组名（下标 1 上界[，下标 2 上界，…]） [as 数据类型] 其中： 下标个数：决定了数组的维数，在 VB.NET 中最多允许有 32 维数组。 每一维的大小：上界+1；数组的大小为每一维大小的乘积。 例如： larry(3,4) as integer 声明了一个整型的二维数组 larry， dim 第一维下标范围为 0～ 3；第二维下标范围为 0～4，占据 4×5 个整型变量的空间，如表 4-1 所示。

上一页下一页