Tja.

Det är så att jag sitter och försöker få till en bingobricka som slumpar fram 5 * 5 siffror och det är siffrornaq 1-100 som ska slumpas fram, men jag vill slippa få nån nollan med, och jag vet att man ska kunna använda "Int" på nåt sätt men det funkar inte. Hur gör jag ? Koden ser ut så här än så länge :

Option Explicit

Private Sub cmdBingo_Click()

Dim takennumbers(100) As Boolean
Dim n As Integer
Dim i As Integer
Dim j As Integer

txtBricka = ""
For i = 1 To 5
For j = 1 To 5
n = Rnd * 100
While takennumbers(n)
n = Rnd * 100
Wend
txtBricka.Text = txtBricka.Text & " " & n
takennumbers(n) = True
Next j
txtBricka.Text = txtBricka.Text & vbCrLf
Next i
End Sub

Private Sub Form_Load()
Randomize
End Sub

En undrande virre.

Ändra

Rnd * 100

till

Rnd * 100 + 1

Annars får du siffror i intervallet 0-99.

/Johan

Tja

Tack för hjälpen !

Mvh virre.