VB.NETで乱数を発生させる

日付: 

Dim rnd As New Random(1000)
' 1から3までの乱数（4は含まれないことに注意する）
Dim iRnd As Integer = rnd.Next(1, 4)