数组：表示多个值的变量

项目
08/18/2008

更新：2007 年 11 月

在本课中，您将学习如何使用“数组”来存储一组值。

如上一课中所述，变量用于存储不同类型的数据以供程序使用。还有另一种称为“数组”的变量，它提供了一种便利的方法来存储同一类型的多个值。

例如，假设您要为一支棒球队编写程序，并想存储场上所有队员的姓名。您可以创建九个单独的字符串变量（每个队员一个），或者声明一个类似于此处显示的代码的数组变量。

Dim players() As String

您可以通过在变量名称之后加括号来声明一个数组变量。如果您知道需要存储多少个值，也可以按如下所示在声明中指定数组的大小。

Dim players(8) As String

数组大小是 9，因为棒球队有 9 个队员。数组由许多值或“元素”组成，并且从元素 0 开始，而以比声明中指定的数字少 1 的数字结束。在本例中，数组包含元素 0 到 8，总共 9 个元素。当您希望引用球队中的某一个队员时，只需减去 1。例如，若要引用第一名队员，引用元素 0；若要引用第九名队员，引用元素 8。

为数组赋值

与其他类型的值一样，您必须为数组赋值。为此，需引用元素编号作为赋值的一部分，如此处所示。

players(0) = "John"
players(3) = "Bart"

在前面的代码中，值 John 赋给数组的第一个元素（元素 0），值 John 赋给第四个元素（元素 3）。数组元素无需按序赋值，任何未赋值的元素都将有一个默认值，在本例中为空字符串。

与其他类型的值一样，您可以在单独的一行上声明一个数组并为它赋值，如下所示。

Dim players() As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9}

在本例中，大括号表示值列表。按照所列顺序给元素赋值。注意，未指定数组的大小—它取决于所列项的数目。

从数组中检索值

正如在数组中用数字指定某一项的位置一样，可用元素编号来指定所要检索的值。

Dim AtBat As String
AtBat = players(3)

以上代码检索数组中的第四个元素并将它赋给字符串变量 AtBat。

试一试！

在数组中存储值

在“文件”菜单上单击“新建项目”。
在“新建项目”对话框的“模板”窗格中，单击“Windows 应用程序”。
在“名称”框中，键入 MyFirstArray，然后单击“确定”。

一个新的 Windows 窗体项目随即打开。
将一个“Textbox”控件从“工具箱”中拖动到窗体上。
将一个“Button”控件从“工具箱”中拖动到窗体上。
双击“Button”以打开代码编辑器。
在 Button1_Click 事件过程中，添加以下代码：
```
Dim players() As String = {"Dan", "Fred", "Bart", "Carlos", _
  "Ty", "Juan", "Jay", "Sam", "Pedro"}
Dim i As Integer = CInt(Textbox1.Text)
MsgBox(players(i) & " is on first base.")
```
注意，上面的代码使用 CInt 函数将 String 值 (TextBox1.Text) 转换为 Integer (i)。可以在详细了解：转换变量类型中了解有关转换的更多信息。
按 F5 运行程序。

在文本框中键入 0 到 8 之间的一个数字，然后单击此按钮。消息框中将显示与该元素对应的名称。

提示：
应编写附加代码以检查输入的数据是否有效。例如，可以检查输入的值是否是介于 0 和 8 之间的数值。有关更多信息，请参见出错时怎么办：处理错误。