---
title: "Slumpa fram tal"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/90717-slumpa-fram-tal"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Fredde Mannen"
published: "2003-11-18T17:28:27.000Z"
updated: "2003-11-18T18:45:41.000Z"
replies: 2
views: 355
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/90717-slumpa-fram-tal"
---

# Slumpa fram tal

## #1 — Fredde Mannen, 2003-11-18T17:28Z

Jag vill slumpa fram 7 tal mellan 1 och 35. Men dessa tal får bara finnas i ett exemplar. 

Att göra själva randomiseringen är inga problem, men hur undviker jag att samma tal slumpas fram mer än en gång?

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

## #2 — tydal, 2003-11-18T17:31Z

Du får kolla det, och slumpa igen vid behov.

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

## #3 — Palle, 2003-11-18T18:45Z

En variant.. : 

```
[red]<%

Function rndDgts(intLoop)

	Dim rndNum, maxValue, i, x, c
	Redim rndNum(intLoop)

	maxValue = 35

	Randomize
	For i = 1 To intLoop
		rndNum(i) = Int(Rnd * maxValue)+1
		For x = 1 To i-1
			If rndNum(x) = rndNum(i) Then
				i=i-1
			End If
		Next
	Next

	For c = 1 To intLoop
		rndDgts = rndDgts & rndNum(c) &"<br>"
	Next

End Function

'// Skriv ut..
Response.Write rndDgts(7) 

%>[/red]
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/90717-slumpa-fram-tal