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

A．Pfivate Sub Commgld1_LClick() n=5:x=1 Do x=x*1 i=i+1 Loop Whilei＜n Prmt x End Sub

B．Pfivate Sub Command1_ C1ick() n=5:x=1:i=1 DoX=X*1 i=i+1Loop While i＜=n Print x End Sub

C．Private Sub Command1_Click() n=5:x=1:i=1 Do x=x*1 i=i+1 Loop Whilei＜n Print x End Sub

D．Private Sub Command1_C1ick() n=5:x=1:i=1 Do X=X*1 i=i+1 Loop While i＞n Print x End Sub

潜水含水层获得补给后，潜水水面就会（）。

A.抬升

B.不变

C.抬升或不变

D.不一定抬升