Programa VB para aumentar números automáticamente
Es fácil, agregue el control de comando, el control TEXTO y establezca el MultiLine del control TEXTO en Verdadero. Private?Sub?Command1_Click() Min?=?InputBox("Ingrese el número mínimo",?"") Max?=?InputBox("Ingrese el número máximo",?"")
¿Para? i?=?Val(Min)?To?Val(Max)-1
If?Text1?=?""?Then
Text1?=?Format(i) ? 1,?"0")
Else
Texto1?=?Text1?amp;?vbCrLf?amp;?Format(i? ?1,?"0") p>
¿Fin?Si
Siguiente?i
Fin?Sub
¿Privado?Sub?Form_Load()
Text1 ?=?""
Comando1.Caption?=?"Enter"
Fin?Sub
Después de presionar Comando1, ingrese el valor mínimo y el valor máximo, TEXT1 generará automáticamente 101, 102, hasta 190