FX(N)是原函數，FX(FX（）)是叠代循環
Function Fz(m As Variant) As Variant
Fz = Len(m)
End Function
Function Fw(m As Variant, n As Variant) As Variant
Dim a As Variant
Dim b As Variant
Dim c As Variant
If n <= Fz(m) And n > 0 Then
b = Int(m / 10 ^ (n - 1)) * 10 ^ (n - 1)
c = Int(m / 10 ^ n) * 10 ^ n
Fw = (b - c) / 10 ^ (n - 1)
End If
End Function
Function Fo(m As Variant) As Integer
Dim i As Variant
Dim n As Variant
n = 0
For i = 1 To Fz(m)
If Fw(m, i) / 2 = Int(Fw(m, i) / 2) Then
n = n + 1
Else
n = n
End If
Next
Fo = n
End Function
Function Fx(m As Variant) As Variant
Dim a As Variant
Dim b As Variant
Dim c As Variant
a = Fz(Fz(m))
b = Fz(Fo(m))
c = Fz(Fz(m) - Fo(m))
Fx = Fo(m) & Len(m) - Fo(m) & Len(m)
End Function
“123數學黑洞（西西弗斯串）”現象的參考資料
1．新浪網《“西西弗斯串（數學黑洞）”現象與其證明》，2010，5，18
2．美國《新科學家》，1992，12，19
3．中國《參考消息》，1993，3，14-17