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

A．Privas 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