elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [Ayuda] Necesito saber como resolver este problema
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 2 [3] Ir Abajo Respuesta Imprimir
Autor Tema: [Ayuda] Necesito saber como resolver este problema  (Leído 9,374 veces)
Karcrack


Desconectado Desconectado

Mensajes: 2.416


Se siente observado ¬¬'


Ver Perfil
Re: [Ayuda] Necesito saber como resolver este problema
« Respuesta #20 en: 10 Agosto 2010, 19:56 pm »

Segun estas condiciones:
  • 4 cifras (Quitando los ceros a la izquierda)
  • Sus cifras suman 2
  • Formado con 2,1,0
  • Multiple de 11
El resultado seria este:
Código:
1001 
1100

Algoritmo:
Código
  1. Private Sub Form_Load()
  2.    Dim i       As Long
  3.  
  4.    For i = 0 To 111
  5.        If SumDigits(1001 + i * 11) = 2 Then Debug.Print 1001 + i * 11
  6.    Next i
  7. End Sub
  8.  
  9. Public Function SumDigits(ByVal lNumb As Long) As Long
  10.    Dim bvTmp() As Byte
  11.    Dim i       As Long
  12.  
  13.    bvTmp = StrConv(Trim$(Str$(lNumb)), vbFromUnicode)
  14.  
  15.    For i = LBound(bvTmp) To UBound(bvTmp)
  16.        SumDigits = SumDigits + (bvTmp(i) - vbKey0)
  17.    Next i
  18. End Function


« Última modificación: 10 Agosto 2010, 19:58 pm por Karcrack » En línea

Páginas: 1 2 [3] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines