如何從一組2中隨機選擇一個詞並顯示它？

Question

這是控制檯應用程序

如何隨機顯示文本但其中我已經投入計劃？

例子：我作出了正面或反面的遊戲。我想使它所以你輸入你的選擇（頭/尾），並隨機說「首長」或「尾巴」，並在下一行，它說：「你贏了」或「你輸」的基礎上匹配。

我只是不知道如何使它隨機選擇從程序文本和顯示。

Answer 1

像這樣的事情

Dim prng As New Random 
Dim done As Boolean = False 

Sub Main() 
    Do 
     Dim toss As Integer = prng.Next(2) '0=heads, 1=tails 
     Console.WriteLine(Environment.NewLine & "Enter (h)eads, (t)ails, or e(x)it") 
     Dim inp As String = Console.ReadLine.ToLower 
     Dim choice As Integer 
     Select Case inp 
      Case "h", "head", "heads" 
       choice = 0 
      Case "t", "tail", "tails" 
       choice = 1 
      Case "x", "exit" 
       choice = -1 
       done = True 
      Case Else 
       choice = 2 'input error 
     End Select 
     If choice = toss Then 
      Console.WriteLine("Winner, winner, chicken dinner!") 
     ElseIf choice = 2 Then 
      Console.WriteLine("Input error, try again") 
     ElseIf choice = -1 Then 
      'exit 
     Else 
      Console.WriteLine("You lose") 
     End If 
    Loop While Not done 
End Sub