VB.NET Zufallszahlen erzeugen

Zufallszahl in VB.NET ermitteln



Zufallsahl in .NET-Basic ermitteln
Mit folgendem Code können Zufallszahlen im Bereich zwischen 1-49 erstellt werden.


 Variante 1
 

Private Sub Zufallszahl1()
  Dim nummer as Byte
 
  nummer = Int(Rnd()*49)+1 ' Zufallszahl erzeugen und an nummer übergeben
 
  MsgBox(nummer)
End Sub
Variante 2
 
Private Sub Zufallszahl2()
  Dim nummer as Byte
 
  Dim rnd As New Random(Environment.TickCount)
  nummer = rnd.Next(1, 49) ' Zufallszahl erzeugen und an nummer übergeben
 
  MsgBox(nummer)
End Sub