ユーザ入力にランダム化された変数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に含まれているかどうかを確認します。私は私の人生のためにこれを実装する方法を考えることはできません。

Answer 1

これは奇妙な要求です。 Windowsフォーム上のボタンがあれば、あなたが望むことをするためのコードは以下の通りです。 "a"を実際の入力に置き換えてください。

ランダムな単語の生成とその文字の実際のテストを2つの別々の部分に分割することを検討してください。

幸運

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