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