Zufallszahlen

Zufallszahlen:

Dim r As New Random()
Console.Write("Integer: {0}; ", r.Next)
Console.WriteLine("Double: {0}", r.NextDouble)
Dim b(10) As Byte
r.NextBytes(b)
Dim x As Byte
For Each x In b
Console.Write("byte {0}", x)
Next