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