Sobre el tema de los tiempos de eco en VB

Déjame ayudarte:

1. Primero crea un proyecto exe.

2. Añade dos cuadros de texto, un botón, un ListBox y una etiqueta en el formulario.

3. Escribe el siguiente código en el evento independiente del botón:

Private Sub Command1_Click()

Dim M, N As Long

M = Val(Trim(Texto1.

N = Val(Trim(Texto2.Text))

if (M = 0 And Len(Text1.Text) gt; 1) o (N = 0 And Len(Text2.Text) gt; 1) Luego

MsgBox "¡Ingrese un número entero!"

Salir de Sub

End If

If M gt; N Then

MsgBox "¡El número en el cuadro de texto de la izquierda debe ser menor que el número de la derecha!"

Salir Sub

End If

'Borrar primero

List1.Clear

'Calcular el número de palíndromos y agregarlos al base de datos

lblM.Caption = ""

Para j = M To N

Si j = Val( StrReverse(j))Entonces

List1.AddItem j

End If

DoEvents

lblM.Caption = j amp "; " Int((j / N) * 100 0.5) * 100 / 100 amp; ""

MsgBox "¡Terminado! El número total de ecos en el rango numérico seleccionado N=" List1.ListCount

End Sub

Se ejecuta como N=1098