排列组合计算器，结果不对但找不出问题

源码如下：

<?php
$n=2;
$c[1]=0;
$i[1]=2;
$i[2]=4;
$c[2]=0;
$i[3]=2;
$i[4]=4;

$result=1;
for ($xun1=0 ; $xun1<=$n ; $xun1++) {
 $up[$xun1]=1;
 $down[$xun1]=1;
};
for ($xun1=1 ; $xun1<=$n ; $xun1++) {
 for ($xun2=1 ; $xun2<=$i[2*$xun1] ; $xun2++) {
  $up[$xun1]=$up[$xun1]*$xun2;
 };
 for ($xun2=1 ; $xun2<=($i[2*$xun1]-$i[2*$xun1-1]) ; $xun2++) {
   $down[$xun1]=$down[$xun1]*$xun2;
 };
 if ($c[$xun1]=1) {
  for ($xun2=1 ; $xun2<=$i[2*$xun1-1] ; $xun2++) {
   $down[$xun1]=$down[$xun1]*$xun2;
  };
 };
 $result=$result*$up[$xun1]/$down[$xun1];
};
print $result;
?>

按照给定的值，输出是 36。但是排列 A （ 2，4 ）的正确值是 12，两个相乘应该是 144。找了半天貌似找不出什么问题（汗）代码是从自己写的 VB 移植过来的，VB 运行一切正常，不知道是不是哪里错了？

简单注释下，$c 的值为 0 表示进行排列 A 运算，为 1 表示进行组合 C 运算。排列 A （ n，m ）的计算方法为 n 的阶乘除以（ n-m ）的阶乘，组合 C 的计算方法就是在排列 A 的基础上再除以 m 的阶乘。（ a 的阶乘就是从 a 乘到 1 ）输入的$i，凡是数据号码为奇数的都是上标（即上述的 n ），偶数都是下标（即上述的 m ）。输入的$n 表示排列 A 和组合 C 的总个数。如仍有疑问，请搜索排列组合公式+自行理解谢谢

另附上 VB 正确的源码供参考（这里多了个功能，如果 Selected 的值为 1 表示该组数据启用，如果为 0 则表示该组数据不参加运算）：

Private Sub Command1_Click()
n=5: result = 1
ReDim up(n) As Single, down(n) As Single
For xun1 = 1 To n
 up(xun1) = 1: down(xun1) = 1
Next xun1
For xun1 = 1 To n
 If Selected(xun1).Value = 1 Then
  For xun2 = 1 To Val(Text(2 * xun1).Text)
   up(xun1) = up(xun1) * xun2
  Next xun2
  For xun2 = 1 To (Val(Text(2 * xun1).Text) - Val(Text(2 * xun1 - 1).Text))
   down(xun1) = down(xun1) * xun2
  Next xun2
  If Check(xun1).Value = 1 Then
   For xun2 = 1 To Val(Text(2 * xun1 - 1).Text)
    down(xun1) = down(xun1) * xun2
   Next xun2
  End If
  result = result * up(xun1) / down(xun1)
 End If
Next xun1
Text1.Text = result
End Sub