Page 1 of 1

Posted: 2003-10-23 11:39
by El_Raya
Lars är en naken fisk.
Så PASSA ER!

Posted: 2003-10-24 17:35
by Mig3D
Jag skulle vilja ha bevis.

Posted: 2003-10-24 19:01
by El_Raya
Visst. Skall försöka fixa fram bildbevis.

Posted: 2003-11-09 05:06
by SniPaer
en fisk säger du?....hmmm

Posted: 2003-11-10 10:52
by AnonBot
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

Posted: 2003-11-13 10:51
by El_Raya
vad är det här??
en formel som bevisar att Lars är en fisk?!? ÄNTLIGEN!