VB.net 數(shù)組的使用

Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click

創(chuàng)新互聯(lián)公司專業(yè)為企業(yè)提供鳳翔網(wǎng)站建設(shè)、鳳翔做網(wǎng)站、鳳翔網(wǎng)站設(shè)計(jì)、鳳翔網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)與制作、鳳翔企業(yè)網(wǎng)站模板建站服務(wù)，十余年鳳翔做網(wǎng)站經(jīng)驗(yàn)，不只是建網(wǎng)站，更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。

Dim a(15) As Integer

Dim i As Integer

Dim tmpStr As String

Randomize()

For i = 0 To a.Length - 1

a(i) = Int(100 * Rnd() + 1)

Next

TextBox1.Text = ""

tmpStr = ""

For i = 0 To a.Length - 1

tmpStr = tmpStr a(i) " "

'在Textbox中每行顯示5個(gè)

If (i + 1) Mod 5 = 0 Then

TextBox1.AppendText(tmpStr vbCrLf)

tmpStr = ""

End If

Next

End Sub

vb.net數(shù)組

Dim?str?As?String?=?"",?temp,?n?As?Integer

Dim?str1?As?String?=?"12,45,2,9,41,31,66,83,2,1,-9,-91,-21"

Dim?a()?As?String?=?Split(str1,?",")

For?i?=?1?To?UBound(a)?Step?1

a(i)?=?Val(a(i))

Next

temp?=?0

n?=?0

For?i?=?1?To?UBound(a)

If?a(i)??temp?Then

temp?=?a(i)

End?If

If?a(i)??0?Then

n?=?n?+?1

End?If

Next

str?=?str??"正數(shù)的個(gè)數(shù)為?"??n

str?=?str??"最大元素的下標(biāo)為?"

For?i?=?1?To?UBound(a)

If?a(i)?=?temp?Then

str?=?str??i??"?"

End?If

Next

TextBox6.Text?=?str

VB中數(shù)組怎么定義

是這么定義的：

數(shù)組中的第一個(gè)元素的下標(biāo)稱為下界，最后一個(gè)元素的下標(biāo)稱為上界，其余的元素連續(xù)地分布在上下界之間，且數(shù)組在內(nèi)存中也是用連續(xù)的區(qū)域來存儲(chǔ)的，所以數(shù)組每維的長(zhǎng)度不能超過Long數(shù)據(jù)類型的最大值，即264—1=263。

把VB．NET數(shù)組當(dāng)作一個(gè)對(duì)象來處理，就意味著數(shù)組類型是單個(gè)引用類型，數(shù)組變量包括指向構(gòu)成數(shù)組元素、數(shù)組維和數(shù)組長(zhǎng)度等數(shù)據(jù)的指針，數(shù)組之間互相賦值但僅僅是在相互復(fù)制指針，數(shù)組繼承了System名字空間的Array類。

VB．NET中的數(shù)組有兩種類型：定長(zhǎng)數(shù)組和動(dòng)態(tài)數(shù)組。

擴(kuò)展資料：

1、數(shù)組的使用

在’VB 6．0中，能夠用For Each來循環(huán)遍歷一個(gè)數(shù)組。

比如：

Dim?x?As?Integer

F0r?Each?x?In?arrayl

Console．WriteLine(x)

Next?

2、在VB．NET中能夠使用For循環(huán)和數(shù)組長(zhǎng)度來遍歷一個(gè)數(shù)組。

比如：

Dim?i?As工nteger? ?

F0r?i=0?T0??(arrayl．Length-1)

（此處空一行）

Console．WriteLine(arrayl(1)J

Next?i

vb.net 數(shù)組的定義方法

1、vb.net的

數(shù)組定義與變量定義差不多?？梢杂?/p>

dim

來定義

比如:

dim

a（100）

as

integer。

也可以不定義下標(biāo)

在程序中

用

redim

來定義。

如：

dim

a()

as

integer

'

'

redim

a(100)

2、vb.net中定義數(shù)組可以直接賦值。

如：

dim

a()

as

integer

={1,

2,

3,4}