Usa VB para eliminar algunos números
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