从数组VB随机生成一个元素

Dim myArray() As String = {"Apple", "Banana", "Cherry", "Date", "Elderberry"}

Dim rand As New Random()

Dim randomIndex As Integer = rand.Next(0, myArray.Length)
Dim randomElement As String = myArray(randomIndex)

Module Module1
    Sub Main()
        ' 创建一个包含元素的数组
        Dim myArray() As String = {"Apple", "Banana", "Cherry", "Date", "Elderberry"}

        ' 创建一个随机数生成器实例
        Dim rand As New Random()

        ' 生成一个在数组索引范围内的随机数
        Dim randomIndex As Integer = rand.Next(0, myArray.Length)

        ' 使用随机数作为索引来获取数组中的元素
        Dim randomElement As String = myArray(randomIndex)

        ' 输出随机选择的元素
        Console.WriteLine("Randomly selected element: " & randomElement)

        ' 等待用户按下任意键
        Console.ReadKey()
    End Sub
End Module