Tjena!

Jag måste få fram ett slumptal som innehåller fyra siffror, varken mer eller mindre. Nu har jag löst det på ett sätt som känns onödigt och det borde finnas nått bättre sätt tycker jag, vad kommer jag dock inte på. Min lösning:

<code>
Dim i as String

Do While Len(i) < 4
i = i & Int(Rnd * 100)
Loop

i = Left(i, 4)
</code>

Detta funkar men finns det nån enklare (snyggare?) lösning?

Nått sådan här borde funka

Dim i As Integer
i = Int(Rnd * 9000) + 1000



Ger slumptal mellan 1000 - 9999

Så enkelt :) Tack!!!

Men ska du kunna ha 0:or på alla positioner?
Då kör du med nånting i stil med:

talet = Format$(Int(Rnd*10000), "0000")

en metod som är lite mer generell skulle typ vara

const positioner as long=4
talet = Format$(Int(Rnd*(10^(positioner+1)), String$("0", positioner))

Fast det kan bli långsamt om du använder det för mycket (pga ^-operatorn, då får du lösa det på annat sätt).