Vektorer

Jag har tappat bort en kodbit från en omröstning, och det var inte jag som kodade den :P
Kan någon hjälpa mig?

-- Jag har några kodrader jag vill "komprimera" till vektorer:

antal1 = Rs("antal1")
antal2 = Rs("antal2")
antal3 = Rs("antal3")
antal4 = Rs("antal4")
antal5 = Rs("antal5")

-- Borde det inte bli ungefär såhär?

Dim antal(5)
For a = 1 To antal
antal(a) = Rs("antal"&a)
Next

-- Det är det här jag inte kommer ihåg, hur For-loopen såg ut. Observera att det alltid ska vara 5 efter antal å de andra!

sum = antal1 + antal2 + antal3 + antal4 + antal5

proc1 = (antal1 / sum) * 100
proc2 = (antal2 / sum) * 100
proc3 = (antal3 / sum) * 100
proc4 = (antal4 / sum) * 100
proc5 = (antal5 / sum) * 100

visa1 = proc1 / 4
visa2 = proc2 / 4
visa3 = proc3 / 4
visa4 = proc4 / 4
visa5 = proc5 / 4

Samma sak gäller med de andra (proc och visa).
Någon som vet hur man gör?

/Birk

Så:

Dim antal(4)
For a = 0 To UBound(antal)
antal(a) = Rs("antal" & (a+1))
Next

nej, det där stämmer inte riktigt...

jag känner inte igen koden riktigt heller. det var inte så min kompis skrev förut... kan man skriva på nåt annat sätt?

Jo, det stämmer. Så där gör du för att skapa en array med fem poster och lägga in värdena i den.

Det går naturligtvis att skriva på många andra sätt, men det där är det mest självklara.