El resultado de la programación vb es el siguiente

Const s1 As String = "★"

Const s2 As String = " "

Dim i tiene la misma longitud y j es la misma longitud

Para i = 0 a 4

Para j = 0 a 5 - i

Imprimir S2;

Siguiente j

Para j = 0 a 2 * i

Imprimir s 1;

Siguiente j

Para j = 0 a ( 4 - i ) * 2

Imprimir S2;

Siguiente j

Para j = 0 a 2 * i

Imprimir s 1 ;

Siguiente j

Imprimir

Siguiente I

Mozi espera adoptarlo, gracias.