以下能够正确计算n!的程序是( )。

A) Private Sub Cornmand1_Click()
n=5:x=1
Do
X=X*i
i=i+1
Loop While icn
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 pn
Print X
End Sub