Erro em um sistema do kuroi

[Boasfesta]

Olá,

Bom o kuroi me mando um sistema pra aleatoriar numeros, só que quando o valor maximo é alto ele não consegue chegar tão longe, por exemplo de 1 a 100 ele só consegue chegar no máximo até 13

O código ta aqui

Dim Min As Integer
Dim Max As Integer

Randomize

Min = 1
Max = 55
Resultado = Min + (Rnd * 10) Mod (Max - Min + 1)

[kuroi]

é verdade, pra resolver você deve mudar o numero q multiplica o Rnd de acordo com max.

se o max for um numero de 1 digito, ponha 10, se for um numero de 2 digitos, ponha 100, se for um numero de 3 digitos ponha 1000 e assim por diante.

no caso do 55, multiplique por 100 e veja se não resolve:

Dim Min As Integer
Dim Max As Integer

Randomize

Min = 1
Max = 55
Resultado = Min + (Rnd * 100) Mod (Max - Min + 1)[/code]