返回一个空数组，如何抓住它，求各位大佬。

18996863220

1. <blockquote>Option Explicit

复制代码

运行为什么出错，提示“类型不匹配”。求解各位大佬。a_到底是什么。

18996863220

1. Option Explicit
   
2. Option Base 1
   
3. Function a()
   
4.     Dim arr() As Integer
   
5.     a = arr
   
6. End Function
   
7. Function b(a_() As Integer)
   
8.     MsgBox a_
   
9.     'If a_ = Nothing Then
   
10.     '    MsgBox "数组为空。"
    
11.     'End If
    
12. End Function
    
13. Sub Demo()
    
14.     Dim arr() As Integer
    
15.     arr = a()
    
16.     Call b(arr)
    
17. End Sub

复制代码

shiruiqiang

Integer是整数，不是数组

18996863220

谢谢大佬回复，我用On Error Resume Next和Err.Number来解决出错的问题。

1. Option Explicit
   
2. Option Base 1
   
3. Function a()
   
4.     Dim arr() As Integer
   
5.     a = arr
   
6. End Function
   
7. Function b(a_() As Integer)
   
8.     Dim i As Byte
   
9.     On Error Resume Next
   
10.     i = UBound(a_)
    
11.     If Err.Number = 9 Then
    
12.         MsgBox "数组为空。"
    
13.     End If
    
14.     MsgBox "出现错误后，还在执行。"
    
15. End Function
    
16. Sub Demo()
    
17.     Dim arr() As Integer
    
18.     arr = a()
    
19.     Call b(arr)
    
20. End Sub

复制代码

18996863220

谢谢大佬回复，我用On Error Resume Next来解决，配合Err.Number使用。
Option Explicit
Option Base 1
Function a()
    Dim arr() As Integer
    a = arr
End Function
Function b(a_() As Integer)
    Dim i As Byte
    On Error Resume Next
    i = UBound(a_)
    If Err.Number = 9 Then
        MsgBox "数组为空。"
    End If
    MsgBox "出现错误后，还在执行。"
End Function
Sub Demo()
    Dim arr() As Integer
    arr = a()
    Call b(arr)
End Sub