Mensajes

Hola BlackZeroX




                        Soy nuevo y sé poco.

                        Perdona, solo he modificado un poco tu codigo.......


Public Function FactorizadorBlackZeroX(ByVal vNumber As Long) As String
Dim i As Long
Dim TmpArray() As Long

If vNumber < 0 Then Exit Function

If vNumber Mod 2= 0 Then
    FactorizadorBlackZeroX = FactorizadorBlackZeroX(vNumber / 2) & "," & 2
    Exit Function
End If



For i = 3 To Sqr(vNumber) step 2


      If vNumber Mod i = 0 Then
          FactorizadorBlackZeroX = FactorizadorBlackZeroX(vNumber / i) & "," & i
          Exit Function
      End If

Next i


FactorizadorBlackZeroX = vNumber

End Function



                Espero que sirva...................

                              Un saludo a los dos

Hola BFHector





                        Te faltaria dos command(boton), y yo le añadiria un listbox.

                        Primero los añades al listbox.......list1.adtem text1 & "," & etc...

                        Luego en el segundo command(boton)......para grabar en un txt.

                        Poco a poco le añades las funciones que quieras........en el evento click y dblclick del listbox.

                        En el evento load del form puedes poner una rutina para que te cargues en el listbox los datos del txt.

                        En el listbox, en sus propiedades pones sorted a true.....y puedes buscar directamente en el listbox.........


                         Soy muy malo explicando, lo siento...........si tienes dudas concretras no dudes en preguntar.


                                             Un saludo