PRIVATE SUB COMAND1_CLICK()
DIM C AS INTEGER
DIM VALOR AS INTEGER
VALOR=VAL(TEXT1.TEXT)
FOR C=1 TO VALOR
LIST.ADDITEM(C)
NEXT
END SUB
PRIVATE SUB COMAND1_CLICK()
DIM C AS INTEGER
DIM VALOR AS INTEGER
DIM STEP AS INTEGER
VALOR=VAL(TEXT1.TEXT)
FOR C=2 TO VALOR STEP 2
LIST1.ADDITEM(C)
NEXT
END SUB
NO RECUERDO COMO ES LO VISUAL Y LOS ELEMENTOS QUE LLEVA.
AGRADEZCO QUE ME AYUDEN LO PRONTO POSIBLE.
GRACIAS, SALUDOS.
A simple vista, son eventos de un mismo botón, supongo que son dos ejercicios diferentes. Luego tienes un textbox llamado text1 donde introduces las veces que vas a iterar en el bucle que hay interior y realizará tantas vueltas como se defina en este text1.
Finalmente necesitarás un objeto list, llamado list1 donde se añadirá el valor de C que contiene el resultado de las iteraciones hasta text1 y que se añade a list1.
Y dirás… a buena hora 🙂