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

A．Private Sub Command1 Click()
　　　n=5：x=1
　　　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_Click()
　　　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_Click()
　　　n=5：X=1：I=1
　　　Do
　　　　x=x * I
　　　　I=I + 1
　　　Loop While I＞n
　　　Print X
　End Sub