Usa vb para programar... (es muy sencillo, pero no sé cómo hacerlo)

atenuar i mientras, p mientras

para p=101 a val(text1.text)

si p mod 10=9 y _

p mod 9=8 y _

p mod 8=7 y _

p mod 7=6 y _

p mod 6 =5 y _

p mod 5=4 y _

p mod 4=3 y _

p mod 3=2 y _

p mod 2=1 entonces

i=i+1

finalizar si

siguiente

imprimir i

¿Quién dijo que era QB? Es correcto decir QB, porque el código VB y QB tienen mucho en común.

Usa VB: creas un nuevo documento EXE, colocas un control de cuadro de texto en la interfaz de diseño (usado para ingresar el número máximo que deseas), luego colocas un botón de comando y cuando se hace clic en el botón Agregar el código anterior al evento. Después de ejecutar, ingrese 15000 (si) en el cuadro de texto, presione el botón y el formulario mostrará cuántos números entre 100 y 15000 cumplen con sus requisitos.