(资料图片仅供参考)

1、答案补充：这个方法只适用于一维数组，多维数组只能一个一个分别赋值，没有简便方法。

2、＝＝＝＝＝＝＝＝＝＝＝＝代码如下。

3、 ＝＝＝＝＝＝＝＝＝＝＝＝ Dim a As Variant Private Sub Form_Load() a = Array(1, 5, 2, 43, 222) End Sub。

本文到此分享完毕，希望对大家有所帮助。