в 16:40, 26 мая 2010

2010-05-26T16:40:06Z

Admin: 1 версия

2010-05-26T12:45:08Z

1 версия

Новая страница

==Generate a Random Number==

<source lang="vbnet">
Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim random As New System.Random()
Console.WriteLine(random.Next(10))
End Sub

End Class

</source>

==Generating Random Numbers between the optional Low and High parameters==

<source lang="vbnet">
Module MainClass
Dim objRandom As New System.Random(System.DateTime.Now.Ticks Mod System.Int32.MaxValue)
Public Function GetRandomNumber(Optional ByVal Low As Integer = 1, Optional ByVal High As Integer = 100) As Integer
Return objRandom.Next(Low, High + 1)
End Function
End Module

</source>

==Random number==

<source lang="vbnet">
Imports System
Public Class MainClass
Shared Sub Main()
Dim objRandom As New Random()
Dim intRandomNumber As Integer = 0
"Process the loop until intRandomNumber = 10
Do Until intRandomNumber = 10
"Get a random number between 0 and 24
intRandomNumber = objRandom.Next(25)
"Add the number to the list
System.Console.WriteLine(intRandomNumber)
Loop
End Sub
End Class

</source>

==Returns a random number between the optional Low and High parameters==

<source lang="vbnet">
Public Class MainClass
Public Shared objRandom As New System.Random(CType(System.DateTime.Now.Ticks Mod System.Int32.MaxValue, Integer))
Public Shared Function GetRandomNumber(Optional ByVal Low As Integer = 1, Optional ByVal High As Integer = 100) As Integer
Return objRandom.Next(Low, High + 1)
End Function
Public Shared Sub Main()
Dim intDiceRoll As Integer
intDiceRoll = GetRandomNumber(1, 6)
System.Console.WriteLine(intDiceRoll.ToString)
End Sub
End Class

</source>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net/Development/Random - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия