为什么出错

Question

你出的问题就有问题，Check和IsEmpty是不是同一个函数，如果是，你在定义时用的参数是一个控件组(Controls)，而在调用时为什么却传一个控件的显示值(txt(k).text)进去呢？

Answer 1

Public Function isempty(ByVal cons As Controls) As Boolean
    Dim con As Control
    For Each con In cons
  
    If TypeOf con Is TextBox Then
        If Trim(con.Text) = "" Then
          isempty = True
            'Exit Sub//错
            Exit Function
        End If
  End If
  Next
        
End Function

Answer 2

isempty和check不会是一个函数吧？

Answer 3

IsEmpty是系统的一个函数,不能自定义。如果将程序中的IsEmpty改名为emptystring
If Check(txt(k).Text) = True Then
应该是：
If emptystring(txt(k)) = True Then

Answer 4

第一行就错了isempty是vb保留的,他有固定的含义,不能拿他作函数名
这是错误原因,上边几个人已给出几种方法,看看吧