RECURSIVE 4

B = cint(InputBox("Masukkan Bilangan"))
document.write "Factorial dari " & B & " adalah " & Fact(B)

FUNCTION Fact(byVal N)
IF N>0 THEN
Fact = N * Fact(N-1)
ELSE
Fact = 1
END IF
END FUNCTION