ChrisIsGay

Const FLAG As Integer = 0
    Const LOW As Integer = 1
    Dim HIGH As Integer

    Private Function Random_Num(ByVal low As Integer, ByVal high As Integer) As Integer
        Dim i As Integer
        'Generate random number
        i = Int((high - low + 1) * Rnd() + low)
        Return i
    End Function

    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub

    Private Sub btnGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerate.Click
        'Variables
        Dim exit_code As Integer = 0
        Dim iterations As Integer = 0

        Dim one As Integer
        Dim two As Integer
        Dim three As Integer

        'Randomize function
        Randomize()

        Do
            'Prompt the user for a number greater than 3
            HIGH = Val(InputBox("Please enter a value greater than 3:", "Max. Number", "4"))

            If HIGH > 3 Then
                exit_code = 1
            End If
        Loop While exit_code = FLAG

        Do
            'Increase number of iterations
            iterations = iterations + 1

            'Assign Numbers
            one = Random_Num(LOW, HIGH)
            two = Random_Num(LOW, HIGH)
            three = Random_Num(LOW, HIGH)
        Loop While (one = two Or one = three Or two = three)

        'Assign random numbers
        Me.lblOne.Text = one
        Me.lblTwo.Text = two
        Me.lblThree.Text = three

        'Output information
        Me.lblInfo.Text = iterations & " loop iterations were needed to generate three unique numbers"
    End Sub
End Class