fuc.bas

来自「实现了排队理论在数学中的使用方法」· BAS 代码 · 共 38 行

Attribute VB_Name = "fuc"
'Jiecheng函数就一个整数n的阶乘
Public Function JieCheng(n As Integer) As Double
 On Error Resume Next
  Dim i As Integer
  Dim result As Double
  result = 1
  
  If n = 0 Then
    result = 1
    Else
      For i = 1 To n Step 1
       result = result * i
      Next i
    End If
    JieCheng = result
End Function

'CiFang函数求一个数n的任意次幂
Public Function CiFang(Di As Double, Zhi As Integer) As Double
 On Error Resume Next
   Dim i As Integer
   Dim result As Double
   result = 1
 
   If Di = 0 Then
        Exit Function
    ElseIf Zhi = 0 Then
       result = 1
    Else
      For i = 1 To Zhi
       result = result * Di
       Next i
       End If
   CiFang = result
  
End Function