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