fuc.bas

避圈算法演示程序

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