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

A．Private Sub Commandl_C1ick()
B．hiVate Sub Commandl_C1ick()
n＝5:x＝1 n＝5:x=1:i＝1
DO DO
X＝x*1 X＝X*1
i＝i＋1 i＝i＋1
Loop while i＜n Loop While＜n
Print x Ptinte x
End Sub End Sub
C．Private Sub Commandl_Click ()
D．Pdvate Sub Commandl C1ick()
n＝5:X＝1:i＝1 n＝5＝:x＝1:i＝1
DO DO
X＝X*1 X＝X*1
i＝i＋1 i＝i＋1
Loop While i＞n
Print x Print x
End Sub End Sub