Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

lille kode stort problem

4 views
Skip to first unread message

Per Juul Larsen

unread,
Oct 13, 2011, 4:42:21 PM10/13/11
to

hej
jeg fors�ger at oprette textstrenge med 6 tal (ingen dubletter)

dim tal(48)

For I = 1 To Val(Text1) * 6

Om:

Randomize
t = Int(48 * Rnd) + 1

For j = 1 To 48 ''ingen dubletter

If t = Tal(j) Then
GoTo Om
End If

Next

nr = nr + 1
streng = streng + Format$(Trim$(Str$(t)), "00") + " "
If nr = 6 Then
Print #1, streng
streng = Empty
nr = 0
End If

Next

koden genererer allige dubletter.. hvor g�r det galt ?
mvh

0 new messages