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