下列各组变量声明正确的是( )。

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

A．1，2，6，2，-1，1
B．6，2，1，2，-1，1
C．2，6，1，2，-1，1
D．2，1，6，-1，1，2