随机字符串数组

Question

我正在创建一个充当问题球的程序。用户会问一个问题，然后程序会给出随机的回答。我正在为如何让程序从我创建的数组中随机生成响应而苦苦挣扎。我不知道如何处理字符串数组并使其随机化。我已经尝试了很多方法，但都没有成功，所以下面是我的基本代码。

Sub Main()

Dim userquestion As String   
Dim questions(0 To 9) As String
Console.WriteLine("Simply enter a question and it will be answered.")
userquestion = Console.ReadLine()

questions(0) = "Most Likely."
questions(1) = "Outlook Good"
questions(2) = "Yes"
questions(3) = "Sorry, I'm confused ask again later "
questions(4) = "I can't predict now"
questions(5) = "Try to concentrate more so I can use to answer the question."
questions(6) = "Don't COunt on it"
questions(7) = "Yes Do it it will work !"
questions(8) = "My reply is no"
questions(9) = "Sorry, I was sleeping I forgot the question"

Console.WriteLine("The answer is ")

Console.WriteLine("Did you like the answer ? ")
Console.ReadLine()

Answer 1

您需要使用Random对象。生成随机数，然后在显示时将该随机数用作数组的索引。类似于：

Dim randNumGenerator As New Random()
Dim randNum As Integer

randNum = randNumGenerator.Next(0, 10) 'Generates a random number from 0 to 9 (the array indexes)

Console.WriteLine(questions(randNum))