Dette er ein test

[HolgerL]

Abcdefghiklmnopqrstuvwxyz Abcdefghiklmnopqrstuvwxyz Abcdefghiklmnopqrstuvwxyz

[HolgerL]

Abcdefghiklmnopqrstuvwxyz Abcdefghiklmnopqrstuvwxyz Abcdefghiklmnopqrstuvwxyz Abcdefghiklmnopqrstuvwxyz

[HolgerL]

Abcdefghiklmnopqrstuvwxyz Abcdefghiklmnopqrstuvwxyz Abcdefghiklmnopqrstuvwxyz

5020567[/snapback]

 

 

Abcdefghiklmnopqrstuvwxyz Abcdefghiklmnopqrstuvwxyz Abcdefghiklmnopqrstuvwxyz Abcdefghiklmnopqrstuvwxyz

5020570[/snapback]

Abcdefghiklmnopqrstuvwxyz

[endrebjo]

Endre

Endret 17. oktober 2005 av endrebjorsvik89

[endrebjo]

Endre

[endrebjo]

Hvor ble det av 14 tegn?

[endrebjo]

   

   

[endrebjo]

Hihi

[Jarmo]

Endre er en papir-kvakk kvakk

5021373[/snapback]

 

Fixed

[endrebjo]

Hihi

[endrebjo]

Jarmo driver systematisert mobbing. OMFG!!11!

[endrebjo]

Endre

5021373[/snapback]

 

 

Hvor ble det av 14 tegn?

5021377[/snapback]

 

 

Hihi

5021387[/snapback]

 

 

Hihi

5021394[/snapback]

 

 

Jarmo driver systematisert mobbing. OMFG!!11!

5021411[/snapback]

Hvorfor så j**** med linjeskift?

[endrebjo]

Endre

5021373[/snapback]

Hvor ble det av 14 tegn?

5021377[/snapback]

Hihi

5021387[/snapback]

Hihi

5021394[/snapback]

Jarmo driver systematisert mobbing. OMFG!!11!

5021411[/snapback]

Hvorfor ikke slik?

[endrebjo]

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

 

[HolgerL]

Link

[HolgerL]

Link

 

Tekst

5022751[/snapback]

Quote av link

 

Referanselink

Endret 18. oktober 2005 av HolgerLudvigsen

[Πεισιθάνατος]

Jeg kan ikke lage en egen tråd lengre, så derfor må jeg teste her inntil videre

 

 

 

 

[Πεισιθάνατος]

Jeg kan ikke lage en egen tråd lengre, så derfor må jeg teste her inntil videre

 

 

 

 

5023331[/snapback]

Åh, jeg fant en knapp!

[centre]...[/centre]

...

...

...

[centre][/centre]

[Πεισιθάνατος]

Åh, jeg fant en knapp!

...

...

...

5023345[/snapback]

 

1[/snapback] http://forum.diskusjon.no/[/snapback]

 

 

 

[Πεισιθάνατος]

Hvor ble det av knappen?