Option Explicit

Dim RecPeriod$(300)
Dim IRP%

Dim RecInteger$(300)
Dim RI%

Public Function ReciprocalInteger$(ByVal inkI%)
Dim ik%
Dim m$
Dim w$
''Dim h$

If Val(RI%) = 0 Then
w$ = "1"
For ik% = 1# To 200# Step 1#
m$ = MathQuotient$("1", CStr(Int(ik%)))
''w$ = product(m$, w$)
''w$ = h$
RecInteger$(ik%) = m$
Next ik%
End If

If Val(RI%) = 0 Then RI% = 1
ReciprocalInteger$ = RecInteger$(inkI%)
End Function

Public Function ReciprocalPeriod$(ByVal ink%)
Dim ik%
Dim m$
Dim w$
''Dim h$

If Val(IRP%) = 0 Then
w$ = "1"
For ik% = 1# To 200# Step 1#
m$ = MathQuotient$("1", CStr(Int(ik%)))
w$ = product(m$, w$)
''w$ = h$
RecPeriod$(ik%) = w$
Next ik%
End If

If Val(IRP%) = 0 Then IRP% = 1
ReciprocalPeriod$ = RecPeriod$(ink%)
End Function

Public Function exponent$(ByVal ova$)
Dim ima$
Dim i%
Dim w$
Dim h$
Dim m$
Dim uguu$

ova$ = Trim(ova$)
uguu$ = "1"
w$ = "1"
h$ = "1"
ima$ = "0"
'1+C68/(1)+(C68^2)/(1*2)+(C68^3)/(1*2*3)+(C68^4)/(1*2*3*4)+(C68^5)/(1*2*3*4*5)+(C68^6)/(1*2*3*4*5*6)+(C68^7)/(1*2*3*4*5*6*7)

For i% = 1# To 200# Step 1#
  w$ = product$(ova$, w$)
  m$ = product$(w$, ReciprocalPeriod$(i%))
  uguu$ = TotalPluss$(uguu$, m$)
Next i%
exponent$ = uguu$

End Function


Public Function Lno$(ByVal smova$)

Dim hLno$
Dim kim$
Dim Gno$
Dim iLno%
Dim phLno$
Dim mLno$

smova$ = FormatNumbe(smova$)

mLno$ = "0"
hLno$ = "1"
kim$ = "0"
Gno$ = Totalminuss$(smova$, "1")
Gno$ = MathQuotient$(Gno$, smova$)

For iLno% = 1 To 200 Step 1
hLno$ = product$(hLno$, Gno$)
phLno$ = product$(hLno$, ReciprocalInteger$(iLno%))
mLno$ = TotalPluss$(mLno$, phLno$)
Next iLno%

Lno$ = mLno$
End Function

Public Function Powerd$(ByVal base$, ByVal degree$)
Dim awq$
Dim bwq$

awq$ = Lno$(base$)
bwq$ = product$(degree$, awq$)
Powerd$ = exponent$(bwq$)
End Function