比较两个单词中的字母，看看它们是否有共同的字母

Question

函数WordPass应该将两个单词/字符串作为参数，并寻找它们共同的字母。如果他们有共同的字母，则该功能将返回为true，如果不是，则返回false。

这是我尝试的：

Function wordPass(wordleAnswer As String, guess As String) As Boolean

    For i = 1 To Len(wordleAnswer)
        For j = 1 To Len(guess)
            same = False
            If Mid(guess, j, 1) = Mid(wordleAnswer, i, 1) Then
                same = True
            End If
        Next j
    Next i

    wordPass = same

End Function

Answer 1

我们可以使用instr消除一个循环：

Function wordPass(wordleAnswer As String, guess As String) As Boolean
    Dim i As Long
    For i = 1 To Len(guess)
        If InStr(wordleAnswer, Mid$(guess, i, 1)) > 0 Then
            wordPass = True
            Exit Function
        End If
    Next
End Function