VB程序设计，死机，求问题所在。

Private Sub Command1_Click()
i = InputBox("输入数字")
j = 1
z = 0
If i Mod 2 = 1 Then
    Print "奇数重新运算"
ElseIf i Mod 2 = 0 Then
    For t = 2 To i Step 2
        For x = 1 To t Step 1
            j = j * x
            x = x - 1
        Next x
        z = j + z
        j = 1
    Next t
    Print z
End If
End Sub

题目要求：计算偶数序列n的阶乘之和（即：2！+4！+6！+8！……n!）
做了很久未果，多谢帮忙了！

答案：删除    x = x - 1

其他：Private Sub Command1_Click()
i = Val(InputBox("输入数字"))
j = 1
z = 0
If i Mod 2 = 1 Then
    Print "奇数重新运算"
ElseIf i Mod 2 = 0 Then
    For t = 2 To i Step 2
        j = j * t * (t - 1) '替代循环简单高效
        z = j + z
    Next t
    Print z
End If
End Sub For x = 1 To t Step 1
            j = j * x
            x = x - 1
        Next x
有误，永远也跳不出来 

上一个：求救！！！！！！！！vb，，，未找到方法或数据成员
下一个：VB编程：求1000以内素数之和