VB utiliza la programación de bucle For para obtener los siguientes resultados.
Etiquete I como un número entero
Atenúe j como un número entero
Para i = 1 a 6
Para j = 6 a 1
Si matemáticas. Entonces Abs(i - j) = 3
Imprimir (uno)
Otro
Imprimir (" ")
Si.. , luego finalizará
Entonces
Imprimir (Chr(13) + Chr(10))
Entonces
.