fork download

copy

Imports System
 
Module UniqueRandomIntArray
 
    Dim Generator As System.Random = New System.Random()
    Return Generator.Next(Min, Max)
 
Dim randoms(1000) As Integer
For i As Integer = 0 to randoms.Length - 1
    randoms(i) = GetRandom(1, 100)
Next
 
Public Function GetRandom(ByVal Min As Integer, ByVal Max As Integer) As Integer
    ' by making Generator static, we preserve the same instance '
    ' (i.e., do not create new instances with the same seed over and over) '
    ' between calls '
    Static Generator As System.Random = New System.Random()
    Return Generator.Next(Min, Max)
End Function
 

Visual Basic.Net Compiler version 0.0.0.5943 (Mono 3.8 - tarball)
Copyright (C) 2004-2010 Rolf Bjarne Kvinge. All rights reserved.

/home/4ozKsv/prog.vb (6,11) : error VBNC90019: Expected 'End'.
/home/4ozKsv/prog.vb (8,4) : error VBNC30203: Identifier expected.
/home/4ozKsv/prog.vb (9,4) : error VBNC30203: Identifier expected.
/home/4ozKsv/prog.vb (10,12) : error VBNC30203: Identifier expected.
/home/4ozKsv/prog.vb (11,5) : error VBNC30203: Identifier expected.
/home/4ozKsv/prog.vb (13,16) : error VBNC30203: Identifier expected.
/home/4ozKsv/prog.vb (17,11) : error VBNC30203: Identifier expected.
/home/4ozKsv/prog.vb (18,11) : error VBNC30203: Identifier expected.
/home/4ozKsv/prog.vb (19,13) : error VBNC30203: Identifier expected.
There were 9 errors and 0 warnings.
Compilation took 00:00:00.6216530

Standard output is empty