vb.net给数组添加值 VB中如何定义数组

vb中怎么赋值给数组？

vb赋值给数组，有以下几种方式：

北京网站建设公司成都创新互联,北京网站设计制作，有大型网站制作公司丰富经验。已为北京千余家提供企业网站建设服务。企业网站搭建\成都外贸网站建设公司要多少钱，请找那个售后服务好的北京做网站的公司定做！

第一种方式：

Private Sub Command1_Click()

Dim a(10) As Integer '定义数组a,下标最大值为10

For i = 0 To 10

a(i) = i'这里可以直接给数组赋值了

Print "a(" i ")的值" a(i) '打印数组

Next

End Sub

第二种方式：

Private Sub Command1_Click()

Dim a() As Integer '定义数组a，这里未设置下标

For i = 0 To 10

ReDim Preserve a(i)'ReDim 语句改变数组的元素以及维数的数目

a(i) = i'这里可以直接给数组赋值了

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中，定义了一个不知大小的一维数组，然后给这个数组添加值

使用动态定义

ReDim a() AS **********'定义一个动态数组

...........

计算出第一个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数组如何赋值

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

也可声明为字符串数组

vb.net 一个数组怎么添加新数据

list1.additem j 意思就是把j添加至list1列表中,这是在一个for 循环中，循环了10次，添加了10次 j，即 list1 中 有10列分别为：1,3,6,10,15,21,28,36,45,55

下面又来了一个循环， list1.removeitem 删除列，删除的是 list1.listcount - i ，list1.listcount 就是总列数为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

结果为：3,15,28

'ListCount返回列表框中的项目总数

'ListCount-1是列表框中最后一个项目的索引号

'亏你提醒了，我写错了，上面修改了，第一个索引为0，最后一个为9.

'也就是，问题所问的第二列的索引为1，第四列的索引为3...

vb.net数组赋值

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