Question

VB不能该数组赋值的问题

Private Sub Form_click()
Dim a(4) As Integer
a = Array(12, 3, 6, 33, 7)
Print
m = a(0)
For j = 1 To 4
If a(j) > m Then
m = a(j)
End If
Next
Print "max="; m
End Sub
这个编码运行说是不能给数组赋值 要是把Dim a(4) As Integer改成dim a 或是直接把这个去掉就对了，但是书上还有个例题是
Dim a(20) As Long
a(0) = 0
a(1) = 1这不是也赋值了嘛 为什么上面的就不能赋值呢

Answer 1

Array函数只用于一维动态数组，并且其类型只能是Variant.
所以要把Dim a(4) As Integer改成Dim a().

Answer 2

Dim a(5) As Integer
试试，
暂无运行环境测试

Answer 3

dim a() 即可。

Answer 4

用Variant类型
dim a() as Variant
a= Array(12, 3, 6, 33, 7)