以下能够正确计算n!的程序是( )。
A．Private 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
