Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i, j, min, temp As Integer
        Dim v(0 To 6) As Integer

        Randomize()
        ListBox1.Items.Clear()

        'Gerar Numeros
        v(0) = Rand(50)
        v(1) = Rand(50)
        While (v(0) = v(1))
            v(1) = Rand(50)
        End While
        v(2) = Rand(50)
        While (v(0) = v(2) Or v(1) = v(2))
            v(2) = Rand(50)
        End While
        v(3) = Rand(50)
        While (v(0) = v(3) Or v(1) = v(3) Or v(2) = v(3))
            v(3) = Rand(50)
        End While
        v(4) = Rand(50)
        While (v(0) = v(4) Or v(1) = v(4) Or v(2) = v(4) Or v(3) = v(4))
            v(4) = Rand(50)
        End While

        'Ordenar Numeros
        For i = 0 To 3
            min = i
            For j = i + 1 To 4
                If v(j) < v(min) Then min = j
            Next
            temp = v(i)
            v(i) = v(min)
            v(min) = temp
        Next

        'Gerar Estrelas
        v(5) = Rand(10)
        v(6) = Rand(10)
        While (v(5) = v(6))
            v(6) = Rand(10)
        End While

        'Ordenar Estrelas
        If v(5) > v(6) Then
            temp = v(6)
            v(6) = v(5)
            v(5) = temp
        End If

        'Escrever Resultado
        For i = 0 To 6
            If i = 0 Then ListBox1.Items.Add("Numeros:")
            If i = 5 Then ListBox1.Items.Add("Estrelas:")
            ListBox1.Items.Add(v(i))
        Next



    End Sub

    Private Function Rand(ByRef max As Integer) As Integer
        Return Math.Round((max * Rnd()) + 1)
    End Function

End Class