重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Dim abc(2) As Integer
创新互联长期为千余家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为东宝企业提供专业的成都做网站、网站建设,东宝网站改版等技术服务。拥有10年丰富建站经验和众多成功案例,为您定制开发。
abc = {0, 1, 2}
'或者
Dim abcd() As Integer
ReDim abcd(9)
For i As Integer = 0 To abcd.Length - 1
abcd(i) = i
Next
也可声明为字符串数组
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
数组赋值是指针传递,如果想复制数组就要用一个循环遍历所有元素并赋值.这样改变其中一个数组的值才不会影响到另外一个数组.
可以用redim,清空原数组内容后重新定义大小:
ReDim Examples(4)
Examples(0) = "a"
Examples(1) = "b"
Examples(2) = "c"
Examples(3) = "d"
Examples(4) = "e"