Gå til innhold

Anbefalte innlegg

Videoannonse
Annonse

slik ser coden ut

Private Sub cmd8_Click()

Dim iTall(8), iTeller, iSum As Integer

Dim strTallene As String

 

For iTeller = 0 To 7

iTall(iTeller) = Int(10 * Rnd)

strTallene = strTallene + "" + Str(iTall(iTeller))

Next iTeller

 

lblCode.Caption = strTallene

End Sub

Endret av Scix
Lenke til kommentar

Opprett en konto eller logg inn for å kommentere

Du må være et medlem for å kunne skrive en kommentar

Opprett konto

Det er enkelt å melde seg inn for å starte en ny konto!

Start en konto

Logg inn

Har du allerede en konto? Logg inn her.

Logg inn nå
  • Hvem er aktive   0 medlemmer

    • Ingen innloggede medlemmer aktive
×
×
  • Opprett ny...