OpenOffice.info

Verfasst: **Di, 28.04.2009 18:49**

Hallo Zusammen,
ich bräuchte eure Hilfe. Und zwar ich muss hintereinander 3 ganzzahlige Zufallszahlen zwischen 1 und 10 finden wobei die auftgetauchte Zahl dann nicht mehr kommen darf. Es ist vergleichbar mit ziehen aus einer Urne mit anschließendem weglegen der Kugel

Danke schonmal im vorraus
MFG

Verfasst: **Mi, 29.04.2009 01:37**

Eine Lösung ist beispielsweise mittels benutzerdefinierter Funktion möglich. Eine entsprechende Funktion könnte z.B. so aussehen:

Code: Alles auswählen

Function xzufall(Optional x, Optional y)
Dim alle(9)
For i = 0 To 9
alle(i) = i + 1
Next i

If Not(IsMissing(x)) Then
	For i = 0 To 9
		If alle(i) = x Then
			For j = i To 8
				alle(j) = alle(j+1)
			Next j
			Redim Preserve alle(8)
			Exit For
		End If
	Next i
End If

If Not(IsMissing(y)) Then
	For i = 0 To 8
		If alle(i) = y Then
			For j = i To 7
				alle(j) = alle(j+1)
			Next j
			Redim Preserve alle(7)
			Exit For
		End If
	Next i
End If

tmp = UBOUND(alle())
tmp2 = INT(Rnd*(tmp+1))

xzufall = alle(tmp2)

End Function

Beispieldatei siehe untenstehend.

Gruß
Stephan

Verfasst: **Mi, 29.04.2009 15:50**

Ah ok vielen Dank hat mir sehr geholfen
Gruß Daniel

OpenOffice.info

Zufallszahlen von 1-10

Zufallszahlen von 1-10

Re: Zufallszahlen von 1-10

Re: Zufallszahlen von 1-10