---
title: "Vektorer"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/128570-vektorer"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "birkenstock"
published: "2005-05-20T16:36:02.000Z"
updated: "2005-05-20T21:11:56.000Z"
replies: 3
views: 265
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/128570-vektorer"
---

# Vektorer

## #1 — birkenstock, 2005-05-20T16:36Z

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

Permalänk: https://www.webforum.nu/p/128570

## #2 — Guffa, 2005-05-20T16:53Z

Så:

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

Permalänk: https://www.webforum.nu/p/1614949

## #3 — birkenstock, 2005-05-20T20:49Z

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?

Permalänk: https://www.webforum.nu/p/1615011

## #4 — Guffa, 2005-05-20T21:11Z

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.

Permalänk: https://www.webforum.nu/p/1615016

---

Tråden på webben: https://www.webforum.nu/amne/asp/128570-vektorer