Übung Array!

[T.dot]

Tipp des Tages: Leg dir mal ein VB Buch zu.

Function irgendwas(byval bla as long)
dim ix as integer
dim iarray(bla) as integer

for ix=0 to bla-1
iarray(ix)=1
next
end function

Wäre leicht möglich, dass man den Wert gleich vorbelegen kann und keine Schleife braucht. Ich glaub das würd sogar in der Hilfe stehen.

mfg