[code] Tính giai thừa

Với While ... WEnd

$n=-1
While $n<0
 $n=InputBox("Nhập số cần tính giai thừa","n=")
 If $n>20 Then
  MsgBox(64,"Lỗi","Bạn nhập số lớn hơn 20 thì sẽ ra kết quả sai hoặc không ra"&'!')
 EndIf
WEnd
$i=1
$j=1
While $i<>$n+1
 $j=$i*$j
 $i+=1
WEnd
MsgBox(0,"Kết quả",$n&'!='&$j)

Với Do ... Until

$n=0
Do
 $n=InputBox("Nhập số cần tính giai thừa","n=")
 If $n>20 Then
  MsgBox(64,"Lỗi","Bạn nhập số lớn hơn 20 thì sẽ ra kết quả sai hoặc không ra"&'!')
 EndIf
Until $n>=0
If $n=0 Then
 MsgBox(0,"Kết quả",$n&'!='&"1")
 Exit
EndIf
$i=0
$j=1
Do
 $i+=1
 $j=$i*$j
Until $i=$n
MsgBox(0,"Kết quả",$n&'!='&$j)

Với For ... To ... Next

$n=InputBox("Nhập số cần tính giai thừa","n=")
If $n>20 Or $n<0 Then
 MsgBox(64,"Lỗi","Bạn nhập số âm hoặc lớn hơn 20 thì sẽ ra kết quả sai hoặc không ra"&'!')
EndIf
If $n=0 Then
 MsgBox(0,"Kết quả",$n&'!='&"1")
 Exit
EndIf
$i=0
$j=1
For $i==1 To $n
 $i+=1
 $j=$i*$j
Next
MsgBox(0,"Kết quả",$n&'!='&$j)