第16课:数组

[上一课][返回主页][下一课]

16.1 数组介绍

根据定义,一个数组是由一个变数清单所组成,它们都具有相同的数据类型和名称。当我们处理一个单一的项目,我们只需要使用一个变数。 但是,如果我们要处理一个同类型项目组成的清单,我们需要宣告的是一个变数数组而不是为每个项目使用一个变数。举例来说,如果我们需要输入100个姓名, 我们不是宣布100个不同的变数,我们只需要宣告一个数组。我们在数组中用下标(每一个项目的指数)来区分每个项目,例如

Name( 1 ) ,Name( 2 ) ,Name( 3 ) .......等。

16.2 数组的维度

数组可以是一维或多维的。 一维数组类似于项目列表或由一行项目或一列项目所组成的表。 二维数组是由多行和多列组成的项目表。 一维数组的格式为ArrayName(x),二维数组的格式为ArrayName(x,y),三维数组为ArrayName(x,y,z)。 通常我们只需要使用一维和二维数组就足够了。但是, 如果你需要处理更复杂的问题,你会需要使用更高维度的数组。 让我用以下的表来说明数组。

表16.1. 一维度数组

Student Name Name(1) Name(2) Name(3) Name(4)

表16.2 二维度数组

Name(1,1) Name(1,2) Name(1,3) Name(1,4)
Name(2,1) Name(2,2) Name(2,3) Name(2,4)
Name(3,1) Name(3,2) Name(3,3) Name(3,4)

16.3 数组宣告

我们可以利用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.4 程序范例

(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
 

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

(ii)

<

图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

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

[上一课][返回主页][下一课]

版权所有©2008 Dr.Liew Voon Kiong。保留所有权利|联系我们: admin@vbtutor.net

[Privacy Policy]