Gå til innhold

Dette er ein test

HolgerL

Av HolgerL
i Testposter

Anbefalte innlegg

Videoannonse

Videoannonse
Annonse
endrebjo

endrebjo

Skrevet
Skrevet 

Private Sub cmdFakultet_Click()

Dim Mid As Double

   Tall = ValEx(txtInput.Text)
   Tall2 = ValEx(txtInput.Text)
   Mid = 1
   
   lblTall2.Caption = Tall2
   lblSymbol.Caption = "!"
   
   For i = 1 To Tall2 Step 1

       If i = 1 Then
           Sum = 1 * Mid
           
           Mid = Mid + 1
       
       ElseIf i > 1 Then
           Sum = Sum * Mid
           
           Mid = Mid + 1
       
       End If

   Next
   
   txtInput.Text = Sum
   
End Sub

 

[email protected]

 

endre på meil punktum eks eks eks

 

Appelsin

Endre er tøff

 

 

 

Private Sub cmdFakultet_Click()

Dim Mid As Double

   Tall = ValEx(txtInput.Text)
   Tall2 = ValEx(txtInput.Text)
   Mid = 1
   
   lblTall2.Caption = Tall2
   lblSymbol.Caption = "!"
   
   For i = 1 To Tall2 Step 1

       If i = 1 Then
           Sum = 1 * Mid
           
           Mid = Mid + 1
       
       ElseIf i > 1 Then
           Sum = Sum * Mid
           
           Mid = Mid + 1
       
       End If

   Next
   
   txtInput.Text = Sum
   
End Sub

 

[email protected]

 

endre på meil punktum eks eks eks

 

Appelsin

Endre er tøff

 

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å
Gå til emneliste

  • Hvem er aktive   0 medlemmer

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