以下能够正确计算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

针对变更地籍测量，宗地变更可分为界址未发生变化的宗地变更、界址发生变化的宗地变更及
( )的变更三种情况。

A．国家征用宗地
B．新增宗地
C．私企工业用地
D．个人受让用地