VB.Net by API/System/Random — различия между версиями

Материал из VB Эксперт
Перейти к: навигация, поиск
м (1 версия)
 
м (1 версия)
 
(нет различий)

Текущая версия на 12:51, 26 мая 2010

Random.Next

  
Imports System
Public Class MainClass
    Shared Sub Main(ByVal args As String())
        Dim friends() As String = {"1", "2", "3","4", "5"}

        Dim upperBound As Integer = friends.Length
        Dim random As New System.Random()
        Dim n As Integer
        For n = 1 To 10
            Dim index As Integer = random.Next(upperBound)
            Console.WriteLine(index & ": " & friends(index))
        Next
    End Sub
    
End Class