VB有没有给数组整体赋值的语句

Private Sub Command1_Click()
  Dim a(), b(), c(0 To 5), d()
  a = Array(1, 2, 3, 4, 5, 6)
  Print "      a:";
  For i = 0 To 5
    Print a(i);
  Next i
  Print
  b = a
  Print "b=a"
  Print "      b:";
  For i = 0 To 5
    Print b(i);
  Next i
  Print
  Print
  Print "      c:";
  For i = 0 To 5
    c(i) = i
    Print c(i);
  Next i
  Print
  b = c
  Print "b=c"
  Print "      b:";
  For i = 0 To 5
    Print b(i);
  Next i
  Print
  d = c
  Print "d=c"
  Print "      d:";
  For i = 0 To 5
    Print d(i);
  Next i
  Print
End Sub