RAF
|
RIO DE JANEIRO
RJ - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 29/09/2004 12:41 hs
Gostaria de ajuda para gerar numeros aleatórios, mas que eu possa remover um numero desta faixa. Ex:gerar um numero de 1 a 9 ,mas que que o 5 não entre nas possibilidades de exibir. Obrigado. |
|
|
|
|
|
JoãoCarlosjr
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 29/09/2004 13:00 hs
cara vc pode tentar assim: Dim Num As Integer
Text1 = ""
voltar:
Num = Int((9 * rnd) + 1)
If Num = 5 Then
GoTo voltar
End If
Text1.Text = Num T+ |
|
|
|
RAF
|
RIO DE JANEIRO
RJ - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 01/10/2004 08:29 hs
João Carlos, muito obrigado problema resolvido. |
|
|
|
Tekki
|
UBERLÂNDIA
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 01/10/2004 08:53 hs
Adicione o comando randomize antes do rdn voltar:
Randomize
Num = Int((9 * Rnd) + 1)
If Num = 5 Then
GoTo voltar
End If
MsgBox Num Faça o teste com e sem o randomize. |
|
|
|
