---
title: "Loop med Rnd"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/27515-loop-med-rnd"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "HeHo"
published: "2000-09-15T10:44:00.000Z"
updated: "2000-09-18T06:11:00.000Z"
replies: 2
views: 387
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/dotnet/27515-loop-med-rnd"
---

# Loop med Rnd

## #1 — HeHo, 2000-09-15T10:44Z

Hjälp mej att förklara varför detta inte fungerar. Snabbt förklarat, så skall jag slumpa fram 7 st tal som inte får vara lika. Programmet skriver ut lika tal i alla fall. Jag tycker ju själv att det ska fungera ![](http://program.webforum.nu/wf/wink.gif)

\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>
Do
  slumptal = Int((35 \* Rnd) + 1) 
  For tal = 1 To 7
    If slumptal = slump(tal) Then
      Exit For
    End If
    varv = varv + 1
    slump(varv) = slumptal                  Exit For
  Next tal
Loop Until varv = 7

For tal2 = 1 To 7
  txtSlump.Text = txtSlump.Text & slump(tal2) & ", "
Next tal2

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

## #2 — emission, 2000-09-17T13:23Z

Du måste initiera slumptalsgeneratorn med **randomize** varje gång du ska ta ut ett slumptal.

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

## #3 — HeHo, 2000-09-18T06:11Z

Ja, så enkelt det är för dem som kan!
Jag bugar och tackar!!

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

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/27515-loop-med-rnd