---
title: "arrRandom(i) = error"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/192558-arrrandom-i-error"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "angelica"
published: "2014-12-26T21:02:31.000Z"
updated: "2015-01-06T15:03:05.000Z"
replies: 4
views: 2181
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/192558-arrrandom-i-error"
---

# arrRandom(i) = error

## #1 — angelica, 2014-12-26T21:02Z

```
' ## RANDOM
DIM rndArray
FOR i = 1 TO 20
  randomize
  rndArray(i) = Int((6 * Rnd) + 1)
NEXT
```

Jag har prövat lite olika varianter av detta, men det fungerar inte.
Vad är felet?

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

## #2 — voigtann1, 2014-12-27T19:08Z

nu var det inte igår jag satt med ASP men om du skall ha en array så måste du ju säga att din "rndArray" är en array.

antingen:

dim rndArray(20) 

eller rndArray() om du inte vet hur stor din array skall vara

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

## #3 — angelica, 2015-01-02T11:10Z

Hej!
Det var ett dumt skrivet inlägg, dum fråga, inser jag nu.
Det du skriver har jag prövat... men det kan ju inte du veta! Ursäkta mig! :-)

Hur som helst, detta fungerar:

```
' ## RANDOM
DIM rndArray()
FOR i = 1 TO 20
REDIM rndArray(i)
randomize
'myTmpVal =  Int((899 * Rnd) + 101)
'response.write myTmpVal & "<BR>"
'rndArray(i) = Array("aaa")
rndArray(i) = Int((6 * Rnd) + 1)
response.write i & ". " & rndArray(i) & "<BR>"
NEXT
```

Första DIM raden behövs inte, däremot REDIM inne i loopen.
Det var ju vasst av mig att jag kunde komma på det helt själv!!
Gratulerar! :-)

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

## #4 — metalboy, 2015-01-02T11:42Z

Jag tror tyvärr inte att din kod fungerar riktigt i alla fall. Jag är absolut ingen VB-expert, men jag tror att din array innehåller 19 tomma index och bara det sista indexet innehåller ett värde eftersom att du deklarerar om rndArray för varje varv i loopen. Testa att loopa igenom arrayen igen efter din for-loop och skriv ut värdena, så tror jag att index 1-19 är tomma. Det känns dessutom onödigt att köra Randomize för varje varv i loopen.

voigtann1:s förslag om att skriva dim rndArray(20) borde fungera.
Testa följande:

```
Dim rndArray(20)
Randomize
For i = 1 To 20
    rndArray(i) = Int((6 * Rnd) + 1)
    Response.Write i & ". " & rndArray(i) & "<br>"
Next
```

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

## #5 — Obbelix, 2015-01-06T15:03Z

Lägg till "preserve" efter redim så borde de gamla värdena finnas kvar.

```
reDim preserve rndArray(i)
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/192558-arrrandom-i-error