10!

$sum = sum(10)
Msgbox(0,"Total","Total:"&$sum)
Func sum($x)
$loop = 1
$y = 10
While $loop
$y = $y - 1
$x = $x * $y
If $y == 1 Then $loop = 0
WEnd
Return $x
EndFunc

$sum = sum(10)
Msgbox(0,"Total","Total:"&$sum)
Func sum($x)
If $x = 1 Then
Return 1
Else
Return $x * sum($x - 1)
EndIf
EndFunc

$sum = sum(10)
Msgbox(0,"Total","Total:"&$sum)
Func sum($x)
$y = 10
Do
$y = $y - 1
$x = $x * $y
Until $y == 1
Return $x
EndFunc

$sum = sum(10)
Msgbox(0,"Total","Total:"&$sum)
Func sum($x)
$y = 10
For $i = 10 To 1 Step - 1
$y = $y - 1
$x = $x * $y
Next
Return $x
EndFunc