Usa VB para eliminar algunos números

Déjame darte una pista. En realidad es muy simple.

A (1 a 999) es un número entero y J es un número entero en la matriz.

j=1

Luego haz un bucle for para i=0 a 999.

Inicio

El primer número puede ser a=i div 100.

El segundo número puede ser b=(i-a*100) div 10.

El tercer número puede ser c=i-a*100-b*10.

Dos condiciones opuestas si a+b+c > 5 &c & lt& gt3 entonces

start

colocadas en la matriz. a(j)=i

j=j+1

Fin

Eso es todo, jaja

-

Le daré un código de la siguiente manera:

Cree un nuevo proyecto, dibuje un botón comando1 y un cuadro de texto texto1 en el cuadro de diálogo según sus propios deseos, haga doble clic en comando1.

Pegue este código. Lo escribí todo aquí. No tengo un compilador, pero hice lo mejor que pude.

-

Subcomando privado 1_Click()

Marcar I como un número entero

Atenuar a como un número entero

dim b es un número entero

dim c es un número entero

Dim x como una cadena

Dim y como una cadena

Marcar m como cadena

dim n como cadena

TextText = " "

X=InputBox("¿Quieres que la suma de las combinaciones sea menor? que? ", "Condición 1")

Y=InputBox("¿Qué quieres primero? (No es necesario dejarlo en blanco)", "Condición 2")

M=InputBox("¿Cuál quiere que sea el segundo lugar? (No tiene que dejarse en blanco)", "Condición 3")

N=InputBox("¿Qué quiere el tercer lugar? (No es necesario dejarlo en blanco)"," Condición 4")

Para i = 0 a 999, haga

a=i div 100

b =(i-a*100) div 10

c=i-a*100-b*10

Si y= " "entonces y=formato(a)

Si m= " "entonces m=formato(b )

Si n=" "entonces n = formato(c)

Si a+b+c & lt;x & ampa = cint(y)amp;b=cint( m) y ampc=cint(n) luego envía el texto 1. Texto=Texto1. Texto+chr(13)+chr(10)+formato(1)

Siguiente yo

Conector final