配列のためにメッセージボックスを繰り返すのを止めるには？

Question

私はハングマンゲームを作ろうとしていて、ユーザーが間違った文字を選んだ場合には「間違った」と入力しようとしていますが、配列から単語を選択する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が1文字であると仮定しています。