vb.net兩個數(shù)組賦值,vb中數(shù)組賦值

vb中怎么賦值給數(shù)組？

vb賦值給數(shù)組，有以下幾種方式：

目前成都創(chuàng)新互聯(lián)已為近1000家的企業(yè)提供了網(wǎng)站建設(shè)、域名、網(wǎng)頁空間、網(wǎng)站托管、服務(wù)器租用、企業(yè)網(wǎng)站設(shè)計、寬城網(wǎng)站維護等服務(wù)，公司將堅持客戶導向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長，共同發(fā)展。

第一種方式：

Private Sub Command1_Click()

Dim a(10) As Integer '定義數(shù)組a,下標最大值為10

For i = 0 To 10

a(i) = i'這里可以直接給數(shù)組賦值了

Print "a(" i ")的值" a(i) '打印數(shù)組

Next

End Sub

第二種方式：

Private Sub Command1_Click()

Dim a() As Integer '定義數(shù)組a，這里未設(shè)置下標

For i = 0 To 10

ReDim Preserve a(i)'ReDim 語句改變數(shù)組的元素以及維數(shù)的數(shù)目

a(i) = i'這里可以直接給數(shù)組賦值了

Print "a(" i ")的值" a(i)

Next

End Sub

第三種方式：

Private Sub Command1_Click()

a = Array(1, 5, 2, 43, 222)

MsgBox "a(0)原來的值是：" a(0)

a(0) = 100

MsgBox "a(0)賦值后的值是：" a(0)

End Sub

vb.net 數(shù)組賦值問題

vb.net已經(jīng)去掉了控件數(shù)組這個類，不過有個代替該方式的一個屬性：tag，你可以把這些關(guān)聯(lián)的tag屬性設(shè)置為同一標記，如：a。然后遍歷所有的checkbox并且tag為a的則選定：

protected

sub

chkall_click()

for

each

ctl

as

control

in

me.controls

''如果checkbox在一個容器里，比如groupbox，那可以用groupbox.controls

if

ctl.gettype().name.tolower()

=

"checkbox"

then

ctype(ctl,

checkbox).checked

=

checkbox3.checked

end

if

next

end

sub

Vb.net 中數(shù)組賦值的問題

數(shù)組賦值是指針傳遞,如果想復制數(shù)組就要用一個循環(huán)遍歷所有元素并賦值.這樣改變其中一個數(shù)組的值才不會影響到另外一個數(shù)組.

vb.net數(shù)組如何賦值

Dim abc(2) As Integer

abc = {0, 1, 2}

'或者

Dim abcd() As Integer

ReDim abcd(9)

For i As Integer = 0 To abcd.Length - 1

abcd(i) = i

Next

也可聲明為字符串數(shù)組

當前名稱：vb.net兩個數(shù)組賦值,vb中數(shù)組賦值
文章來源：http://muchs.cn/article10/hcgodo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供云服務(wù)器、做網(wǎng)站、App設(shè)計、網(wǎng)站策劃、小程序開發(fā)、定制網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)