以下能够正确计算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