函式 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
uj5u.com熱心網友回復：
我們可以使用以下方法消除一個回圈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
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/453317.html
上一篇：遍歷子目錄并執行