Question

给定一个数组，我希望有一个函数来确定数组中是否存在字符串。在函数输入和数组内容中，字符串必须完全相同。

Function IsInArray(ThsStrng As String, arr() As String, bnd As Integer) As Boolean
  For Z = 1 To bnd
    If arr(Z) = ThsStrng Then
      IsInArray = True
    Else
      IsInArray = False
    End If
  Next Z
End Function

起初，似乎功能正常运行。使用此函数几次后，我注意到False值（意味着输入字符串不等于数组中的值），不正确（输入值与数组中的值完全相同）

请帮忙，

Answer 1

想象一下当在数组中间找到匹配时会发生什么。下一次迭代将是不匹配，并且返回值将设置回False。你需要在找到匹配时停止循环。

我相信VBA的语法是

Exit For

用于确定数组中是否存在特定字符串的函数

1 个答案: