Vektorer

3 svar · 256 visningar · startad av birkenstock 20 maj 2005

birkenstockMedlem sedan jan. 200515 inlägg

Frågan20 maj 2005 16:36#1

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

GuffaMedlem sedan juni 2004533 inlägg

20 maj 2005 16:53#2

Så:

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

birkenstockMedlem sedan jan. 200515 inlägg

20 maj 2005 20:49#3

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?

GuffaMedlem sedan juni 2004533 inlägg

20 maj 2005 21:11#4

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.