1、點擊VS工具。
創(chuàng)新互聯(lián)公司是一家從事企業(yè)網(wǎng)站建設(shè)、做網(wǎng)站、網(wǎng)站制作、行業(yè)門戶網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計制作的專業(yè)網(wǎng)站建設(shè)公司，擁有經(jīng)驗豐富的網(wǎng)站建設(shè)工程師和網(wǎng)頁設(shè)計人員，具備各種規(guī)模與類型網(wǎng)站建設(shè)的實力，在網(wǎng)站建設(shè)領(lǐng)域樹立了自己獨特的設(shè)計風(fēng)格。自公司成立以來曾獨立設(shè)計制作的站點上千家。
2、打開后，新建一個Windows窗體應(yīng)用程序。
3、新建完畢后，如圖所示。
4、拖動一個按鈕。
5、定義數(shù)組最常見的方法，如圖示。
6、運行后，點擊按鈕，彈出提示正常。
7、定義數(shù)組第二種方法，屬于動態(tài)的方法。
8、運行后，點擊按鈕，數(shù)組成功輸出。
Dim Counters (14) As Integer '15 個元素。
Dim Sums (20) As Double '21 個元素。
為建立公用數(shù)組，直接用 Public 取代 Dim。
Public Counters (14) As Integer
Public Sums (20) As Double
在過程之中同樣的聲明使用 Dim：
Dim Counters (14) As Integer
Dim Sums (20) As Double
第一個聲明建立了一個有 15 個元素的數(shù)組，其索引號從 0 到 14 。第二個聲明建立了一個有 21 個元素的數(shù)組，其索引號從 0 到 20 。缺省的下界為 0。
為了規(guī)定下界，用關(guān)鍵字 To 顯式提供下界（為 Long 數(shù)據(jù)類型）：
Dim Counters (1 To 15) As Integer
Dim Sums (100 To 120) As String
包含其它數(shù)組的數(shù)組
Private Sub Command1_Click ()
Dim intX As Integer '聲明計數(shù)器變量。
'聲明并放置整數(shù)數(shù)組。
Dim countersA (5) As Integer
For intX = 0 To 4
countersA (intX) = 5
Next intX
'聲明并放置字符串?dāng)?shù)組。
Dim countersB (5) As String
For intX = 0 To 4
countersB (intX) = "hello"
Next intX
Dim arrX (2) As Variant '聲明擁有兩個成員的新數(shù)組。
arrX (1) = countersA () '將其它數(shù)組移居到數(shù)組。
arrX (2) = countersB ()
MsgBox arrX (1) (2) '顯示每一個數(shù)組的成員。
MsgBox arrX (2) (3)
End Sub
多維數(shù)組
有時需要追蹤記錄數(shù)組中的相關(guān)信息。例如，為了追蹤記錄計算機屏幕上的每一個像素，需要引用它的 X、Y 坐標(biāo)。這時應(yīng)該用多維數(shù)組存儲值。
可用 Visual Basic 聲明多維數(shù)組。例如，下面的語句聲明了一個過程內(nèi)的 10 × 10 的二維數(shù)組。
Static MatrixA (9, 9) As Double
Static MatrixA (1 To 10, 1 To 10) As Double
Dim MultiD (3, 1 To 10, 1 To 15)
這個聲明建立了三維數(shù)組，大小為 4 × 10 × 15。元素總數(shù)為三個維數(shù)的乘積，為 600。
注意 在增加數(shù)組的維數(shù)時，數(shù)組所占的存儲空間會大幅度增加，所以要慎用多維數(shù)組。使用 Variant 數(shù)組時更要格外小心，因為他們需要更大的存儲空間。
用循環(huán)操作數(shù)組
Dim I As Integer, J As Integer
Static MatrixA(1 To 10, 1 To 10) As Double
For I = 1 To 10
For J = 1 To 10
MatrixA (I, J) = I * 10 + J
Next J
Next I
要創(chuàng)建動態(tài)數(shù)組，請按照以下步驟執(zhí)行：
（如果希望數(shù)組為公用數(shù)組，則）用 Public 語句聲明數(shù)組，或者，（如果希望數(shù)組為模塊級，則）在模塊級用 Dim 語句聲明數(shù)組，或者（如果希望數(shù)組為局部數(shù)組，則）在過程中用 Static 或 Dim 語句聲明數(shù)組。給數(shù)組附以一個空維數(shù)表，這樣就將數(shù)組聲明為動態(tài)數(shù)組。
Dim DynArray ()
用 ReDim 語句分配實際的元素個數(shù)。 ReDim DynArray (X + 1)
ReDim 語句只能出現(xiàn)在過程中。與 Dim 語句、Static 語句不同，ReDim 語句是一個可執(zhí)行語句，由于這一語句，應(yīng)用程序在運行時執(zhí)行一個操作。
ReDim 語句支持這樣的語法，它與固定數(shù)組中使用的語法相同。對于每一維數(shù)，每個 ReDim 語句都能改變元素數(shù)目以及上下界。但是，數(shù)組的維數(shù)不能改變。
ReDim DynArray (4 to 12)
例如，用第一次聲明在模塊級所建立的動態(tài)數(shù)組 Matrix1：
Dim Matrix1 () As Integer
Sub CalcValuesNow ()
ReDim Matrix1 (19, 29)
End Sub
ReDim 語句給 Matrix 分配一個 20 × 30 的整數(shù)矩陣（元素總大小為 600）。還有一個辦法，用變量設(shè)置動態(tài)數(shù)組的邊界：
ReDim Matrix1 (X, Y)
注意 您可以將字符串賦值給大小可變的字節(jié)數(shù)組。一個字節(jié)數(shù)組也可以被賦值給一個可變長的字符串。一定要注意字符串中的字節(jié)數(shù)會隨平臺而變化。同一個字符串在 Unicode 平臺上的字節(jié)數(shù)是它在非 Unicode 平臺上的兩倍。
保留動態(tài)數(shù)組的內(nèi)容
每次執(zhí)行 ReDim 語句時，當(dāng)前存儲在數(shù)組中的值都會全部丟失。Visual Basi 重新將數(shù)組元素的值置為 Empty（對 Variant 數(shù)組）、置為 0（對 Numeric 數(shù)組）、置為 零長度字符串（對 String 數(shù)組）或者置為 Nothing（對于對象的數(shù)組）。
，這樣做是非常有用的。有時希望改變數(shù)組大小又不丟失數(shù)組中的數(shù)據(jù)。使用具有 Preserve 關(guān)鍵字的 ReDim Preserve DynArray (UBound (DynArray) + 1)
ReDim Preserve Matrix (10, UBound (Matrix, 2) + 1)
而不可這樣編程：
ReDim Preserve Matrix (UBound (Matrix, 1) + 1, 10)
1。動態(tài)數(shù)組 dim myStr() as string
2。固定數(shù)組 dim myStr(10) as string
3。net字符串?dāng)?shù)組 dim myStr as string()
都差不多的。
Dim?a(20)?As?String
Dim?num?As?Integer
Dim?ppp?As?String?=?""
Dim?temp?As?String?=?""
For?i?=?1?To?20
temp?=?""
num?=?Int(Rnd()?*?10?+?1)
For?j?=?1?To?num
temp?=?temp??Chr(Int(Rnd()?*?26?+?97))
Next
a(i)?=?temp
Next
Dim?max?As?Integer?=?0
For?i?=?1?To?20
If?a(i).Length??max?Then
max?=?a(i).Length
End?If
Next
For?i?=?1?To?20
If?a(i).Length?=?max?Then
ppp?=?ppp??"字符最多的元素是第"??i??"個元素"??a(i)??vbCrLf
End?If
Next
For?i?=?1?To?20
TextBox1.Text?=?TextBox1.Text??a(i).PadRight(10)??"??????????"
If?i?Mod?4?=?0?Then
TextBox1.Text?=?TextBox1.Text??vbCrLf
End?If
Next
TextBox1.Text?=?TextBox1.Text??ppp
重慶分公司
重慶分公司
