如何给VB数组赋值？

Question

主要是值是变得，不是像一楼的那样有规律的啊
谢谢，我想知道的是2维数组啊？方法一样吗？

Answer 1

答案补充：这个方法只适用于一维数组，多维数组只能一个一个分别赋值，没有简便方法。
＝＝＝＝＝＝＝＝＝＝＝＝
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝
Dim a As Variant
Private Sub Form_Load()
a = Array(1, 5, 2, 43, 222)
End Sub

Answer 2

可是，你写的不是数组呀。。
看你描述的功能，用控件数组处理起来非常简单。
唉。。我家里的VB出毛病了打不开。
给这52个Label控件起同一个名字，记得控件属性里有个Index属性，把第一个改成0，后面的编号顺延。再做Click的事件的函数代码，应该有个参数是那个控件的索引。只需在一个Click事件里，用类似Label(Index).Visible
=
false一句话，就可以控制52张牌了！
明天到公司试试。要是说错了再来改。

Answer 3

和普通变量的赋值一样。比如：
dim a(5) as integer
for i=1 to 5
a(i)=i;
next i
通过使用循环来赋值是很常用的做法。

Answer 4

例子
Private Sub Label1_Click()
Label1.Visible = false
End Sub
单独一个是这样写
如果给每个label 都赋上*.visible=false(*为label名字)

Answer 5

Private
Sub
Command1_Click()
Dim
d
d
=
Array(Array(1,
2,
3),
Array(4,
5,
6),
Array(7,
8,
9))
Dim
i
As
Integer
Dim
j
As
Integer
For
i
=
0
To
2
For
j
=
0
To
2
Print
d(i)(j)
Next
j
Next
i
End
Sub