Red de conocimiento informático - Problemas con los teléfonos móviles - Programa VB para aumentar números automáticamente

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")

¿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