llgd.net
当前位置:首页 >> vBA 定义数组 >>

vBA 定义数组

aaa=array(1,6,8,18,19,20,25,62,63,64) for i=0 to ubound(aaa) msgbox(aaa(i)) next

Sub test() Dim a(0 To 5) '//定义一个一维数组,下标从0到5共6个元素 Dim b() '//定义一个动态数组,数组维度与元素不确定,一般需要通过redim重新定义数组大小才能给其赋值 Dim c(1 To 5, 2 To 3) '//定义一个二维数组End Sub

Dim dict(1) As Object Set dict(0) = CreateObject("Scripting.Dictionary") Set dict(1) = CreateObject("Scripting.Dictionary") dict(0).Add "test", "www.baidu.com" dict(1).Add "test2", "vb" MsgBox dict(0)("test") & vbCrLf & dict(1)...

是的 定义的是一个一维数组 但是不能用 变量来定义上界

先用 dim union() 定义一个空数组 确定里面内容多少后再用 redim union(**,**)指定

在标准模块中:public a() as integer 然后到用的地方:redim a(100,50)

在模块中动态数组可以定义声明为公共数组,并且在一个过程中给重新定义维数赋值后,在另一个过程中,能有效!

例如某数组名称是a 计算它的长度就是 Ubound(a) + 1,Ubound()函数是用来获取数组中最大上限。例如某数组有5个元素,那么,通过个取得的最大上限就是4,因为vb中的数组是从0开始的,所以在取得这个最大上限之后还需要加上一个1.

Sub test() Dim a a = Array("中国", "日本", "美国") MsgBox a(1)End Sub比如以上代码当中,数组a就是字符串类型的

Dim k As Integer, n As Integer, t As Integer, arr() redim arr(1 to 10) .... ReDim Preserve arr(1 To n)

网站首页 | 网站地图
All rights reserved Powered by www.llgd.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com