如何停止消息框重複，因爲數組？

Question

我試圖做一個hang子手遊戲，並輸入「不正確的」，如果用戶選擇了錯誤的字母，但它會繼續重複，因爲randomWord它從數組中選擇單詞我該如何阻止？

Sub wordGeneration() 
    Dim wordUsed As Array = {"pizza", "noodle", "zombie", "object", "rowin", "running", "elephant", "lion"} 
    Dim random As New Random 

    randomWord = wordUsed(random.Next(0, 8)) 
    Label2.Text = randomWord 
End Sub 

Sub letterInput() 
    For i As Integer = 0 To randomWord.Length - 1 
     If userInput = randomWord(i) Then 
      MessageBox.Show("correct") 
     ElseIf userInput <> randomWord(i) Then 
      MessageBox.Show("incorrect") 
      Label4.Text = counter 
     End If 
    Next 
End Sub 

Answer 1

讓VB爲您搜索更簡單快捷。

Sub letterInput() 
    if InStr(randomWord.Length, userInput) > 0 
     MessageBox.Show("correct") 
    Else 
     MessageBox.Show("incorrect") 
     Label4.Text = counter 
    End If 
End Sub 

注意：我假設userInput是單個字符。