兄弟姐妹们，进来帮帮忙吧。共同学习，共同进步

Question

我定义了一个数组 ，对数组赋值
     Dim Num(10) As Integer
    
Private Sub Form_Load()
    num(0)=1 num(1)=3 num(2)=2 num(3)=5 num(4)=5
    Num(5) = 6 num(6)=7 num(7)=8 num(8)=9 num(9)=10
End Sub但是换行时会有编译错误：缺少语句结束。
我写出如下格式时无错：
    Dim Num(10) As Integer
    
Private Sub Form_Load()
    Num(0) = 1
    Num(1) = 3
    Num(2) = 2
    Num(3) = 5
    Num(4) = 5
    Num(5) = 6
    Num(6) = 7
    Num(7) = 8
    Num(8) = 9
    Num(9) = 10
End Sub
如果我要设定更大的数组，并且给数组赋的值无规律可寻，我只能写N行赋值语句吗？

Answer 1

Dim Num(10) As Integer
    
Private Sub Form_Load()
    Num(0) = 1: Num(1) = 3: Num(2) = 2: Num(3) = 5: Num(4) = 5
    Num(5) = 6: Num(6) = 7: Num(7) = 8: Num(8) = 9: Num(9) = 10
End Sub

Answer 2

Dim Num(10) As Integer
'如果在一行里附值,就要用":"号进行分隔    
Private Sub Form_Load()
    num(0)=1:num(1)=3:num(2)=2:num(3)=5:num(4)=5
    Num(5) = 6:num(6)=7:num(7)=8:num(8)=9:num(9)=10
End Sub

Answer 3

用动态数组：
Dim num1() As Integer
Private Sub Form_Load()
ReDim num1(1, 3, 2, 5, 5, 6, 7, 8, 9, 10)
End Sub

Answer 4

lyxhappy(RosyClouds)和tztz520(午夜逛街)的方法不错，问题解决了。谢谢了