[VB] For loop die niet werkt

[Saven]

Hallo,
Ik ben bezig met een soort serial systeempje voor iets anders dat ik maak (no comments aub), en daarvoor wilde ik dit gebruiken:

Visual Basic:

Private Function Rand(Number As Integer) As Integer

    Rand = Int(Number * Rnd)

End Function

Private Function getRand(Number As Integer) As Integer

    Dim i As Integer
    Dim result As Integer
    
    For i = 0 To i = Number
        result = result & Rand(9)
    Next i
    
    getRand = result

End Function

Private Function Generate_Key()

    txtSerial.Text = getRand(5)

End Function

Private Sub cmdGenerate_Click()
    
    Generate_Key
    
End Sub

Private Sub Form_Load()

    Randomize

End Sub

Maar nu heb ik een probleem met de getRand() functie.
Ik wil dus dat deze bijvoorbeeld een getal maakt die dit bevat:
Rand(9) & Rand(9) &Rand(9) .... dit wordt aangegeven door de parameter Number.

Nou werkt dit dus niet. Ik krijg maar 1 getal als output, ook al stel ik er 5 in

En ik kan niks ontdekken wat ik fout doe. Weet iemand misschien hoe ik dit probleem op kan lossen?
Alvast bedankt

[Michali]

Moet het niet

For i = 0 To Number

zijn?

[BasieP]

result is een integer, volgens mij wil jij een string terug of niet?

[Dido]

for i = 1 to Number

edit: met hierboven dus

[ Voor 44% gewijzigd door Dido op 07-05-2007 13:26 ]

[Saven]

Dido schreef op maandag 07 mei 2007 @ 13:26:
for i = 1 to Number

edit: met hierboven dus

Oh natuurlijk
Bedankt

[ Voor 20% gewijzigd door Saven op 07-05-2007 14:20 ]

[Voutloos]

Saven schreef op maandag 07 mei 2007 @ 14:15:
Maar nu krijg ik soms problemen omdat hij een overflow geeft. Is dat op te lossen of niet?

Je wil niet met de uitkomst rekenen en wel elke lengte ondersteunen -> bouw dan een string ipv int.

[Saven]

Voutloos schreef op maandag 07 mei 2007 @ 14:18:
[...]
Je wil niet met de uitkomst rekenen en wel elke lengte ondersteunen -> bouw dan een string ipv int.

Idd had al bedacht thnx