在VBA或VB 6.0 中,如果要快速生成已知元素的一维或多维数组,可以使用Array函数直接赋值。
如下代码所示:
1 2 3 4 5 6 7 8 |
Sub QQ1722187970() Dim arr1 '添加一维数组 arr1 = Array(1, 2, 3, 4, "a", "b", "c") Dim arr2 '添加二维数组 arr2 = Array(Array(1, 2, 3), Array("a", "b", "c")) End Sub |
但是在VB.N[……]
阅读全文>>>