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.
|
|
|