第16课：VB 数组

16.1 数组介绍
根据定义，一个数组是由一个变量清单所组成，它们都具有相同的数据类型和名称。当我们处理一个单一的项目，我们只需要使用一个变量。但是，如果我们处理一个同类型项目组成的清单，我们需要声明的是一个变量数组而不是使用一个变量为每个项目。举例来说，如果我们需要输入100个姓名， 我们不是宣布100个不同的变量，我们只需要声明一个数组。我们在数组中用下标来区分每个项目，该指数的价值，每一个项目，例如
Name（ 1 ） ，Name（ 2 ） ，Name（ 3 ） .......等。

16.2 数组声明

我们可以利用Public 或 Dim 陈述式来声明数组，正如我们宣布一个单一的变量。Public陈述式声明的数组可用于整个程序，而Dim陈述式声明的数组，只可用于一个局部程序。
一般申报数组的格式如下：

Dim arrayName(subs) As dataType

范例 16.1

Dim CusName(10) As String

将宣布一个由10个元素组构成的数组。，如果声明区中加入Option Base 1陈述式，这十个元素从cusname （ 1 ）开始 至cusname （ 10 ）为止 。否则，这个数组将有11种元素，从cusname （ 0 ）起至到cusname （ 10 ）为止。

范例16.2

Dim Count(100 to 500) As Integer

声明的个数组由第一元素Count(100)开始  至Count(500)为止
16.3 范例程序
(i)

图16.1

Dim studentName(10) As String   
Dim num As Integer   
Private Sub addName()   
For num = 1 To 10   
studentName(num) = InputBox("输入学生姓名", "输入姓名", "", 1500, 4500)   
If studentName(num) <> "" Then   
Form1.Print studentName(num)   
Else   
End   
End If   
Next   
End Sub  

图16.2

Dim studentName(10) As String   
Dim num As Integer   
Private Sub addName( )   
For num = 1 To 10   
studentName(num) = InputBox("输入学生姓名")   
List1.AddItem studentName(num)   
Next   
End Sub   
    
Private Sub Start_Click()   
addName   
End Sub