VB 计算阶乘

Private Sub Form_Click()

Dim 猛饥伏p As Long, n As 肢桥Integer, i As Integer

p = 1

n = Val(InputBox("input n", , 5))

For i = 枝携1 To n

 p = p * i

Next

Print p

End Sub

1、For语蔽缓句实现

Private Sub Command1_Click()

  Dim s As Long, n As Integer, i As Integer

  n = Val(Text1.Text)

  s = 1

  For i = 1 To n

      s = s * i

  Next i

  Label4.Caption = Str(s)

End Sub

2、Do While语句实现

Private Sub Command1_Click()

  Dim s As Long, n As Integer, i As Integer

  n = Val(Text1.Text)

  s = 1

  i = 1

  Do While i <= n

      s = s * i

      i = i + 1

  Loop

  Label4.Caption = Str(s)

End Sub

扩展资配散料：

1~10的培并氏阶乘的结果如下：

1!=1

2!=2*1=2

3!=3*2*1=6

4!=4*3*2*1=24

5!=5*4*3*2*1=120

6!=6*5*4*3*2*1=720

7!=7*6*5*4*3*2*1=5040

8!=8*7*6*5*4*3*2*1=40320

9!=9*8*7*6*5*4*3*2*1=362880

10!=10*9*8*7*6*5*4*3*2*1=3628800

---