Attribute VB_Name = "fuc"
'Jiecheng函數就一個整數n的階乘
Public Function JieCheng(n As Integer) As Double
  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
Public Function CiFang(Di As Double, Zhi As Integer) As Double
   Dim i As Integer
   Dim result As Double
   result = 1
 
   If Di = 0 Then
     MsgBox "輸入的底數不可為0", vbOKOnly, "錯誤提示"
        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