以下能够正确计算n! 的程序是( )。

A．Private Sub Command1_Click( )
n=5:x=l
Do
x=x*i
i=i+1
Loop While i ＜ n
Print x
End Sub
B．Private Sub Command1_Click( )
n=5:x=1:i=1
Do
x=x*i
i=i+1
Loop While i ＜ n
Print x
End Sub
C．Private Sub Command1_Cliek( )
n:5:x=1:i=1
Do
x=x* i
i:i+1
Loop While i ＜ = n
Print x
End Sub
D．Private Sub Command1_Cliek( )
n=5:x:1:i=1
Do
x=x*i
i=j+1
Loop While i ＞ n
Print x
End Sub