VB Script

Option Explicit
Dim Input,i,s,n
s=1
Input=InputBox("please input the number!")
MsgBox("input: " & Input)
Execute Factor(input)
Function Factor(n)
For i=1 To n
s=s*i
Next
MsgBox("s的阶乘是：" & s)
End Function

C

long factor(int n)
{if(n==0||n==1)
 return 1;
  else
    return n*factor(n-1);
}
main()
{
int i;
scanf("%d",&i);
printf("%d!=%ld\n",i,factor(i));
}

Java

public class Test{
 static int multiply(int n){
  if (n==1||n==0)
  return n;
  else
  return n*multiply(n-1);
 }
 public static viod main(string[] args){
  system.out.printIn(multiply(10));
 }
}