英文VB教程 簡體Visual Basic教程 繁體Visual Basic教程

第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
 

上述程序接受數據輸入,通過輸入框,並把資料顯示出來。你可以看到,這一程式將允許用戶每次按一下啟動按鈕輸入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。保留所有权利 。联系我们: VB面子书

[Privacy Policy]