Option Explicit
 
Dim cT      As New CTiming
 
 
 
Private Sub Form_Load()
Dim i   As Long
Dim n(1)   As Long
Const lim& = 20000
Dim aaa As New Class1
 
 
        cT.Reset
        For i = 0 To lim&
            Call IsOblongoAlgebra(i, 0)
        Next i
        InputBox "", "", "Karcrack -> " & cT.sElapsed & vbCrLf
        MsgBox "Comprovando Coherencias!¡."
        For i = 0 To lim&
            If IsOblongoAlgebra(i, n(0)) And IsOblongoTokes03(i, n(1)) And True Then
                If n(0) <> n(1) Then MsgBox "Error n=" & n(1) & " el real era n=" & n(0) & " del numero " & i & vbCrLf
            End If
        Next i
 
    MsgBox "Fin"
    End
End Sub
 
Private Function IsOblongoAlgebra(ByVal nval As Long, ByRef n As Long) As Boolean
    If (nval And 1) Or (nval And &H80000000) Then Exit Function
 
    n = (Sqr(1 + nval * 4) - 1) / 2
 
    IsOblongoAlgebra = (n * n + n = nval)
End Function
 
'  Tokes 03
Private Function IsOblongoTokes03(ByVal nval As Long, ByRef n As Long) As Boolean
    If (nval And 1) Or (nval And &H80000000) Then Exit Function
    n = Sqr(nval)
    IsOblongoTokes03 = n * n + n = nval
End Function