看都返回了些啥: Function test1(a) Select Case a Case 1 test1 = Array(1, 2, 3, 4, 5, 6) Case 2 Dim d As New Dictionary d(1) = "a" d(2) = "b" Set test1 = d Case Else test1 = "asdfg" & "|" & "123456" End Select End Function Sub ta() Dim arr1, x% x = 1 arr1 = test1(x) MsgBox Join(arr1, ",") x = 2 Set arr1 = test1(x) MsgBox Join(arr1.Keys, ",") x = 3 arr1 = test1(x) MsgBox Split(arr1, "|")(0) MsgBox Split(arr1, "|")(1) End Sub etc. |