VB.NET 動態(tài)二維數(shù)組如何循環(huán)賦值和取值

for i =0 to ...

10年積累的網(wǎng)站設計制作、成都網(wǎng)站制作經驗，可以快速應對客戶對網(wǎng)站的新想法和需求。提供各種問題對應的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡服務。我雖然不認識你，你也不認識我。但先網(wǎng)站策劃后付款的網(wǎng)站建設流程，更有薩迦免費網(wǎng)站建設讓你可以放心的選擇與我們合作。

for j =0 to ...

keyarray(i,j)=

next

next

雙重循環(huán)，賦值和讀取一樣

VB 中定義二維動態(tài)數(shù)組的方法

ReDim 語句支持這樣的語法，它與固定數(shù)組中使用的語法相同。對于每一維數(shù)，每個 ReDim 語句都能改變元素數(shù)目以及上下界。但是，數(shù)組的維數(shù)不能改變。

ReDim DynArray (4 to 12)

例如，用第一次聲明在模塊級所建立的動態(tài)數(shù)組 Matrix1：

Dim Matrix1 () As Integer

然后，在過程中給數(shù)組分配空間：

Sub CalcValuesNow ()

.

.

.

ReDim Matrix1 (19, 29)

End Sub

這里的 ReDim 語句給 Matrix 分配一個 20 × 30 的整數(shù)矩陣（元素總大小為 600）。

VB.NET 二維數(shù)組 引用其中的一維

OPCItemIDsData(j,其中一維）即可。

如果前面方法有規(guī)定，不能用二維數(shù)組的格式，那么你可以自己定義一個一維數(shù)組，將二維數(shù)組的某一維度的全部數(shù)值賦值給這個數(shù)組，在引用這個數(shù)組：

dim OPCItemIDsDataBuf(x) as ...

for i = 1 to x

OPCItemIDsDataBuf(j）=OPCItemIDsData(j,其中一維）

next i

其中x是數(shù)組的最大下標

VB.NET 用二維數(shù)組的方式動態(tài)加控制 例如在窗體上動態(tài)添加GroupBox，然后再在GroupBox里動態(tài)添加控件

下面這段代碼完成，在窗體上用語句添加2個 GroupBox控件，且在每個GroupBox控件中添加4個 RadioButton 控件。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i As Integer

'添加2個GroupBox

Dim MyGroupBox(2) As GroupBox

For i = 1 To 2

'將一個GroupBox控件加入到Form上

MyGroupBox(i) = New GroupBox

Me.Controls.Add(MyGroupBox(i))

'設置該GroupBox控件的屬性

MyGroupBox(i).Height = 240

MyGroupBox(i).Width = 600

MyGroupBox(i).Top = (i - 1) * (240 + 20) + 20

MyGroupBox(i).Left = 20

'修改新加入控件的Text值

MyGroupBox(i).Text = "GroupBox" CStr(i)

Next

'每個GroupBox中添加4個單選按鈕

Dim MyRadioButton1(4) As RadioButton

Dim MyRadioButton2(4) As RadioButton

For i = 1 To 4

MyRadioButton1(i) = New RadioButton

Me.Controls.Add(MyRadioButton1(i))

MyRadioButton1(i).Parent = MyGroupBox(1)

'設置該GroupBox控件的屬性

MyRadioButton1(i).Height = 20

MyRadioButton1(i).Width = 120

MyRadioButton1(i).Top = (i - 1) * (20 + 20) + 40

MyRadioButton1(i).Left = 20

'修改新加入控件的Text值

MyRadioButton1(i).Text = "RadioButton1_" CStr(i)

Next

For i = 1 To 4

MyRadioButton2(i) = New RadioButton

Me.Controls.Add(MyRadioButton2(i))

MyRadioButton2(i).Parent = MyGroupBox(2)

'設置該GroupBox控件的屬性

MyRadioButton2(i).Height = 20

MyRadioButton2(i).Width = 120

MyRadioButton2(i).Top = (i - 1) * (20 + 20) + 40

MyRadioButton2(i).Left = 20

'修改新加入控件的Text值

MyRadioButton2(i).Text = "RadioButton2_" CStr(i)

Next

End Sub

VB里面能不能定義公用的動態(tài)二維數(shù)組

可以,在標準模塊中定義:

要創(chuàng)建動態(tài)數(shù)組，請按照以下步驟執(zhí)行：

（如果希望數(shù)組為公用數(shù)組，則）用 Public 語句聲明數(shù)組，或者，（如果希望數(shù)組為模塊級，則）在模塊級用 Dim 語句聲明數(shù)組，或者（如果希望數(shù)組為局部數(shù)組，則）在過程中用 Static 或 Dim 語句聲明數(shù)組。給數(shù)組附以一個空維數(shù)表，這樣就將數(shù)組聲明為動態(tài)數(shù)組。

ReDim 語句用來定義或重定義原來已經用帶空圓括號（沒有維數(shù)下標）的 Private、Public 或 Dim 語句聲明過的動態(tài)數(shù)組的大小。

例:

標準模塊

Option Explicit

Public BL() As String

窗體部分

Option Explicit

Dim i As Integer

Dim j As Integer

Private Sub Command1_Click()

ReDim BL(5, 10) As String

For i = 0 To 2

For j = 0 To 5

BL(i, j) = i ^ 2 + j ^ 2

Next

Next

For i = 0 To 2

For j = 0 To 5

Print BL(i, j)

Next

Next

End Sub