Если пользователь вводит символ в рандомизированной переменной listWords

Question

Sub WordGeneration() 
    Dim listWords(4) As String 
    listWords(0) = "juicy" 
    listWords(1) = "aaron" 
    listWords(2) = "power" 
    listWords(3) = "weigh" 
    listWords(4) = "public" 
    'randomizes and picks a string from array to use 
    Dim Rand As New Random() 
    Dim Index As Integer = Rand.Next(0, listWords.Length - 1) 

    Dim SelectedValue = listWords(Index) 

Пользователь вводит письмо, и он будет проверять, содержится ли эта буква в списке переменных ListWords, я думаю, что это переосмыслило это, а theres - простое решение, но я не могу для жизни меня думать, как реализовать это.

Answer 1

Это странный запрос. Учитывая кнопку на форме окна, код, чтобы сделать то, что вы хотите, находится ниже. Просто замените «a» на ваш фактический вход.

Рассмотрите возможность разбить случайное генерирование слова и фактическое испытание персонажа на две отдельные части.

Успехов

Public Class Form1 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     Dim randomWord As String = GetRandomWord() 
     Dim userInput As Char = "a" 
     If randomWord.Contains(userInput) Then 
      MessageBox.Show("Yes, the word '" + randomWord + "' DOES contain the letter '" + userInput + "'") 
     Else 
      MessageBox.Show("No, the word '" + randomWord + "' DOES NOT contain the letter '" + userInput + "'") 
     End If 
    End Sub 

    Private Function GetRandomWord() As String 
     Dim listWords(4) As String 
     listWords(0) = "juicy" 
     listWords(1) = "aaron" 
     listWords(2) = "power" 
     listWords(3) = "weigh" 
     listWords(4) = "public" 
     Dim Index As Integer = GetRandomNumber(listWords.Length - 1) 
     Return listWords(Index) 
    End Function 

    Private Function GetRandomNumber(maxValue As Integer) As Integer 
     'Math.Ceiling rounds up to the nearest whole number 
     Return Math.Ceiling(Rnd() * maxValue) 
    End Function 
End Class