以下能够正确计算n!的程序是( )。
A) Pfivate Sub Commgld1_LClick()
n=5:x=1
Do
x=x*1
i=i+1
Loop Whilei<n
Prmt x
End Sub
C) Pfivate Sub Command1_ C1ick()
n=5:x=1:i=1
Do
X=X*1
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*1
i=i+1
Loop Whilei<n
Print x
End Sub
D) Private Sub Command1_C1ick()
n=5:x=1:i=1
Do
X=X*1
i=i+1
Loop While i>n
Print x
End Sub