以下能够正确计算n!的程序是
A.Privas 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