如何因为数组而停止重复消息框？

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是一个单个字符。