Visual Basic

Dim Array(4) As Integer
Dim Counter As Integer
Dim CheckCounter As Integer
Dim Current As Integer
Dim IsOkay As Boolean

For Counter = 0 To 4
    IsOkay = True
    Do
        Current = CInt(Int((49 * Rnd()) + 1))
        For CheckCounter = 0 to Counter-1
        If Current = Array(CheckCounter)
            IsOkay = False
        End If
    Next
    Loop While IsOkay = False
    Array(Counter) = Current
Next
Array.Sort(Array)
lbl1.Text = Array(0)
lbl2.Text = Array(1)
lbl3.Text = Array(2)
lbl4.Text = Array(3)
lbl5.Text = Array(4)

"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar

Coming soon: The Second EuroCPian Event

Dim Array(4) As Integer<br />
Dim Counter As Integer<br />
Dim CheckCounter As Integer<br />
Dim Current As Integer<br />
Dim isOkay As Boolean<br />
For Counter = 0 To 4<br />
    isOkay = True<br />
    Do<br />
        Current = CInt(Int(49 * Rnd()) + 1)<br />
        For CheckCounter = 0 To Counter - 1<br />
            If Current = Array(CheckCounter) Then<br />
                isOkay = False<br />
                Exit For<br />
            Else<br />
                isOkay = True<br />
            End If<br />
        Next<br />
    Loop While isOkay = False<br />
    Array(Counter) = Current<br />
Next<br />
Array.Sort(Array)<br />
lbl1.Text = Array(0)<br />
lbl2.Text = Array(1)<br />
lbl3.Text = Array(2)<br />
lbl4.Text = Array(3)<br />
lbl5.Text = Array(4)

"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar

Coming soon: The Second EuroCPian Event

Module Module1

     Sub Main()
        ' Randomize the random number generator so it 
        ' produces different results each time
        Randomize()

        ' Declare variables
        Dim Array(4) As Integer
        Dim Counter As Integer
        Dim PossibleValues As ArrayList
        Dim Current As Integer
        Dim Index As Integer

        ' Build a list of possible values
        PossibleValues = New ArrayList(50)
        For Counter = 0 To 49
            PossibleValues.Add(Counter)
        Next

        ' Populate the Array of random values, removing
        ' each from the list of PossibleValues as they
        ' get used
        For Counter = 0 To 4
            Index = Int(PossibleValues.Count * Rnd())
            Current = CInt(PossibleValues(Index))
            Array(Counter) = Current
            PossibleValues.RemoveAt(Counter)
        Next

        'Print out the Array
        Array.Sort(Array)
        Console.WriteLine(Array(0))
        Console.WriteLine(Array(1))
        Console.WriteLine(Array(2))
        Console.WriteLine(Array(3))
        Console.WriteLine(Array(4))
        Console.ReadLine()
    End Sub

End Module

"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar

Coming soon: The Second EuroCPian Event

Dim arr as New ArrayList
Dim Counter As Integer
Dim iCur as Integer

For Counter = 0 To 4
   icur = CInt(Int((49 * Rnd()) + 1))
   while arr.contains(icur)
      icur = CInt(Int((49 * Rnd()) + 1))
   end while
   arr.add(icur)
Next

arr.sort()
lbl1.Text = arr(0)
lbl2.Text = arr(1)
lbl3.Text = arr(2)
lbl4.Text = arr(3)
lbl5.Text = arr(4)

thedll.SetReceiveCallback(New ApplicationClass.receiveCallback(MessageReceived))
.
.
.
Public Overridable Sub MessageReceived(TheXmlMessage As XmlDocument)
    ' Information from the .dll
End Sub