/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
lille kode kæmpe problem...!
Fra : Per Juul Larsen


Dato : 13-10-11 21:33

For I = 1 To Val(Text1) * 6

Om:

Randomize
t = Int(48 * Rnd) + 1

For j = 1 To 48

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

Next

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

Next

 
 
Søg
Reklame
Statistik
Spørgsmål : 177577
Tips : 31968
Nyheder : 719565
Indlæg : 6409070
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste