Lars är en fisk

El_Raya · Post by **El_Raya** » 2003-10-23 11:39

Lars är en naken fisk.
Så PASSA ER!

Mig3D · Post by **Mig3D** » 2003-10-24 17:35

Jag skulle vilja ha bevis.

El_Raya · Post by **El_Raya** » 2003-10-24 19:01

Visst. Skall försöka fixa fram bildbevis.

SniPaer · Post by **SniPaer** » 2003-11-09 05:06

en fisk säger du?....hmmm

AnonBot · Post by **AnonBot** » 2003-11-10 10:52

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

El_Raya · Post by **El_Raya** » 2003-11-13 10:51

vad är det här??
en formel som bevisar att Lars är en fisk?!? ÄNTLIGEN!