第十三课：VB 阵列

　

13.1 阵列介绍

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

13.2 阵列宣告

　
我们可以利用Public 或 Dim 陈述式来宣告阵列，正如我们宣布一个单一的变数。Public陈述式宣告的阵列可用于整个程式，而Dim陈述式宣告的阵列，只可用于一个局部程序。

一般申报阵列的格式如下：

Dim arrayName(subs) As dataType

范例 13.1

Dim CusName(10) As String

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

　

范例13.2

Dim Count(100 to 500) As Integer

宣告的个阵列由第一元素Count(100)开始  至Count(500)为止

　

13.3 范例程式

(i)

程式

Dim studentName(10) As String
Dim num As Integer

Private Sub addName()
For num = 1 To 10
studentName(num) = InputBox("Enter the student name", "Enter Name", "", 1500, 4500)
If studentName(num) <> "" Then
Form1.Print studentName(num)
Else
End
End If

Next
End Sub
 

Private Sub Exit_Click()
End
End Sub

Private Sub Start_Click()
Form1.Cls
addName

End Sub

上述程序接受数据输入，通过输入框，并把资料显示出来。你可以看到，这一程式将允许用户每次按一下启动按钮输入10个名字，。

(ii)

程式

Dim studentName(10) As String
Dim num As Integer

Private Sub addName( )
For num = 1 To 10
studentName(num) = InputBox("Enter the student name")
List1.AddItem studentName(num)
Next
End Sub
 

Private Sub Start_Click()
addName

End Sub

上述程序通过一个“ InputBox接受输入数据和在一个列表框显示所有的项目。

 
 

[返回主页]