vb：求n！总过程，并利用它求10！+8！-5！

显示全部楼层 · 2012-6-30 13:56:52

Private Sub Command1_Click()Dim n As Integer, sum As Longsum = Fact(10) - Fact(8) + Fact(5)Print sumEnd Sub Function Fact(m As Integer) As Long Fact = 1 For i = 1 To m Fact = Fact * i NextEnd Function...

千问 · 2012-6-30 13:56:52

Private Sub Command1_Click()Print jiecheng(10) + jiecheng(8) - jiecheng(5)End SubFunction jiecheng(ByVal n As Integer)jiecheng = 1For i = 1 To njiecheng = jiecheng * i...

千问 · 2012-6-30 13:56:52

Private Sub Command1_Click()Print f(10) + f(8) - f(5)End Sub'计算一个数的阶乘Function f(ByRef n As Integer)nn = 1For i = 1 To n nn = nn * iNextEnd Function...