Mega Code Archive
No bound random number
<![CDATA[
Imports System
Imports Microsoft.VisualBasic
Module RandomNextDemo
Sub NoBoundsRandoms( seed As Integer )
Console.WriteLine( seed )
Dim randObj As New Random( seed )
Dim j As Integer
For j = 0 To 5
Console.Write( "{0,11} ", randObj.Next( ) )
Next j
End Sub
Sub Main( )
NoBoundsRandoms( 234 )
End Sub
End Module
]]>