以下能够正确计算n!的程序是______。
                                                            
                                                                A.Private Sub Commeadl_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 Whilei<=n
     Print x
    End Sub
D.Private Sub Commsndl_Click()
        n=5: x=1: i=1
           Do
          x=x*i
          i=i+1
        Loop While i>n
        Print x
          End Sub