Private Sub btn_euromilhoes_gerar1_Click()
Dim vec1(5) As Byte
Dim vec2(2) As Byte
Dim Numero As Byte
Dim bJaSaiu As Boolean

Dim i As Integer
Dim j As Integer

Cls 'limpa o form
i = 0

Do While i < 5
    bJaSaiu = False
    Numero = Int(49 * Rnd) + 1
    For j = 0 To 4
        If Numero = vec1(j) And bJaSaiu = False Then bJaSaiu = True
    Next
    If bJaSaiu = False Then
       vec1(i) = Numero
       i = i + 1
       
    End If
Loop

i = 0
Do While i < 2
    bJaSaiu = False
    Numero = Int(9 * Rnd) + 1
    For j = 0 To 1
        If Numero = vec2(j) And bJaSaiu = False Then bJaSaiu = True
    Next
    If bJaSaiu = False Then
       vec2(i) = Numero
       i = i + 1
       
    End If
Loop
For i = 0 To 4
     Print vec1(i) & " ";
Next
Print
Print vec2(0) & " " & vec2(1)

End Sub