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

A．Private Sub Commeadl_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 Whilei＜=n
Print x
End Sub
D．Private Sub Commsndl_Click()
n=5: x=1: i=1
Do
x=x*i
i=i+1
Loop While i＞n
Print x
End Sub