tags:

views:

23

answers:

0
Function f(ByVal x As String, ByVal y As Integer, ByVal z As Integer, ByVal w As Integer, ByRef t As String) As String
        If Length(x) < w Then      // Definition for Length below
          Return t
        End If
        If y = z Then
            t = t + SubStr(x, w, 1)    // Definition for SubStr below
            z = 1
        Else
            z = z + 1
        End If
        w = w + 1
        Return f(x, y, z, w, t)

End Function
Function f1(ByVal x As String, ByVal y As Integer) As String
       Return (f(x, y, 1, 1, ""))
End Function