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