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

for i =0 to ...

創(chuàng)新互聯(lián)專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作、南康網(wǎng)絡(luò)推廣、小程序開發(fā)、南康網(wǎng)絡(luò)營銷、南康企業(yè)策劃、南康品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營等，從售前售中售后，我們都將竭誠為您服務(wù)，您的肯定，是我們最大的嘉獎(jiǎng)；創(chuàng)新互聯(lián)為所有大學(xué)生創(chuàng)業(yè)者提供南康建站搭建服務(wù)，24小時(shí)服務(wù)熱線：18980820575，官方網(wǎng)址：www.cdcxhl.com

for j =0 to ...

keyarray(i,j)=

next

next

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

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

ReDim 語句支持這樣的語法，它與固定數(shù)組中使用的語法相同。對(duì)于每一維數(shù)，每個(gè) ReDim 語句都能改變?cè)財(cái)?shù)目以及上下界。但是，數(shù)組的維數(shù)不能改變。

ReDim DynArray (4 to 12)

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

Dim Matrix1 () As Integer

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

Sub CalcValuesNow ()

.

.

.

ReDim Matrix1 (19, 29)

End Sub

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

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

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

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

Dim i As Integer

'添加2個(gè)GroupBox

Dim MyGroupBox(2) As GroupBox

For i = 1 To 2

'將一個(gè)GroupBox控件加入到Form上

MyGroupBox(i) = New GroupBox

Me.Controls.Add(MyGroupBox(i))

'設(shè)置該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

'每個(gè)GroupBox中添加4個(gè)單選按鈕

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)

'設(shè)置該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)

'設(shè)置該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里面能不能定義公用的動(dòng)態(tài)二維數(shù)組

分類: 電腦/網(wǎng)絡(luò) 程序設(shè)計(jì) 其他編程語言

問題描述:

我知道能定義一維的，可是可以是二維的嗎？

解析:

可以,在標(biāo)準(zhǔn)模塊中定義:

要?jiǎng)?chuàng)建動(dòng)態(tài)數(shù)組，請(qǐng)按照以下步驟執(zhí)行：

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

ReDim 語句用來定義或重定義原來已經(jīng)用帶空?qǐng)A括號(hào)（沒有維數(shù)下標(biāo)）的 Private、Public 或 Dim 語句聲明過的動(dòng)態(tài)數(shù)組的大小。

例:

標(biāo)準(zhǔn)模塊

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