All pastes #498623 Raw Edit

Miscellany

public text v1 · immutable
·published 2007-05-20 15:54 UTC
rendered paste body
Private Sub btn_euromilhoes_gerar1_Click()
Dim vec1(5) As Boolean
Dim vec2(2) As Byte

Dim i As Integer
Dim j As Integer

Cls 'limpa o form

For i = 0 to 5
  vec2(i) = false
Loop

For i = 0 to 2
    do While vec2(Numero - 1)
      vec(i) = Int(49 * Rnd) + 1
    vec2(Numero) = true;
Loop

End sub