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

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

北京網(wǎng)站建設(shè)公司成都創(chuàng)新互聯(lián),北京網(wǎng)站設(shè)計制作，有大型網(wǎng)站制作公司豐富經(jīng)驗。已為北京千余家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站建設(shè)公司要多少錢，請找那個售后服務(wù)好的北京做網(wǎng)站的公司定做！

第一種方式：

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ù)組，然后給這個數(shù)組添加值

使用動態(tài)定義

ReDim a() AS **********'定義一個動態(tài)數(shù)組

...........

計算出第一個Y

ReDim a(0)

a(0)=Y

.....................

計算出第二個Y

ReDim Preserve a(1) '再次分配元素并保留原有元素

a(1) =Y

.........................

.........................

ReDim Preserve a(N) '第N次分配元素并保留原有元素

a(N) =Y

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ù)組怎么添加新數(shù)據(jù)

list1.additem j 意思就是把j添加至list1列表中,這是在一個for 循環(huán)中，循環(huán)了10次，添加了10次 j，即 list1 中 有10列分別為：1,3,6,10,15,21,28,36,45,55

下面又來了一個循環(huán)， list1.removeitem 刪除列，刪除的是 list1.listcount - i ，list1.listcount 就是總列數(shù)為10，減去 i ，i 是1到4，即10-1，9-2，8-3，7-4 每減掉一次，list1.listcount 就少了一條記錄。

(注意，list1.listcount-1 是最后一條記錄)

減掉了第 9，7，5，3列

剩余為 1,3,6,15,28,45

結(jié)果為：3,15,28

'ListCount返回列表框中的項目總數(shù)

'ListCount-1是列表框中最后一個項目的索引號

'虧你提醒了，我寫錯了，上面修改了，第一個索引為0，最后一個為9.

'也就是，問題所問的第二列的索引為1，第四列的索引為3...

vb.net數(shù)組賦值

Dim x(8, 8)

Dim a As Integer

Dim b As Integer

b = 0

For i = 0 To 8

For j = 0 To 8

If b = 3 Then

b = 1

a = a + 1

Else

b = b + 1

End If

x(i, j) = aNext

Next