Lars är en naken fisk.
Så PASSA ER!
Lars är en fisk
Dim valor(53) As Integer
Dim farg(53) As Integer
Dim koll As Integer
Private Sub Command1_Click()
Randomize
For n = 1 To 52
koll = 0
Do
valor(n) = 13 * Rnd(0) + 0.5
farg(n) = 4 * Rnd(0) + 0.5
For i = 1 To n - 1
If valor(n) = valor(i) And farg(n) = farg(i) Then
koll = 1
End If
Loop While (koll = 1)
Next
For n = 1 To 52
List1.AddItem valor(n)
List2.AddItem farg(n)
Next
End Sub
Dim farg(53) As Integer
Dim koll As Integer
Private Sub Command1_Click()
Randomize
For n = 1 To 52
koll = 0
Do
valor(n) = 13 * Rnd(0) + 0.5
farg(n) = 4 * Rnd(0) + 0.5
For i = 1 To n - 1
If valor(n) = valor(i) And farg(n) = farg(i) Then
koll = 1
End If
Loop While (koll = 1)
Next
For n = 1 To 52
List1.AddItem valor(n)
List2.AddItem farg(n)
Next
End Sub