Programación VB Hoy en día hay cosas cuyo número no sé. El número de tres y tres es dos, el número de cinco y cinco es tres y el número de siete y siete es dos. cosas

Existen muchos números de este tipo y no hay límite para el rango. Tome dentro de 1000 como ejemplo:

Dim N As Integer

For N = 1 To 1000

Si N Mod 3 = 2 y N Mod 5 = 3 Y N Mod 7 = 2 Entonces

Imprimir N

Finalizar si

Siguiente

El primero que coincide es 23.

Si solo desea encontrar el primer número coincidente:

Dim N As Integer

For N = 1 To 1000

Si N Mod 3 = 2 Y N Mod 5 = 3 Y N Mod 7 = 2 Entonces

Imprimir N

Salir para

Finalizar si

Siguiente