求助“array"函数怎么用

Question

  高手帮忙看一下：
  dim m as variant
  dim i as string
     m=array(1,2,3,3,4,5,6,7,8,9,10,11,12,13)  
     i=m         '这里可否直接将m的值赋给i，然后再打印出来，如果不行的话怎么修改
   print i
                谢谢！  

Answer 1

    Dim myArray() As Variant
    Dim i As Integer
    Dim s As String
    myArray = Array(1, 2, 3, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13)
    For i = 0 To UBound(myArray)
        s = myArray(i)
        Debug.Print s
    Next

Answer 2

Dim m As Variant
Dim i As String
Dim j As Integer
m = Array(1, 2, 3, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13)
i = ""
For j = 0 To UBound(m)
    i = i & CStr(m(j))
Next
Debug.Print i

Answer 3

Dim myArray() As Variant
    Dim i As Integer
    Dim s As String
    myArray = Array(1, 2, 3, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13)
  
    s = Join(myArray, ",")
    Debug.Print s

Answer 4

Dim m As Variant
Dim i As String
Dim j As Integer
m = Array(1, 2, 3, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13)
i = ""
For j = 0 To UBound(m)
    i = i & CStr(m(j))
Next
Debug.Print i
不能写成I=M，那你还不如直接写成i=Array(1, 2, 3, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13)