La pregunta de VB genera y muestra en la pantalla todos los números naturales hasta 500 que se pueden dividir por 17

Simplemente coloque un botón en la interfaz y luego copie el siguiente código en la ventana de código.

Subcomando privado1_Click()

Me.Cls

i = 0

Para j = 1 a 500

Si j Mod 17 = 0 Entonces

Si i = 5 Entonces i = 0

Imprimir pestaña(i * 10);

i = i + 1

Fin si

Siguiente j

Fin Sub

Sub privado Form_Load()

Comando1 .Caption = "Inicio"

Fin Sub