Usar sentencias de bucle en VB. . next¿Cómo implementar la pirámide digital?
Agregue un espacio delante y cámbielo a:
Subcomando privado 1_Click()
Dim I es Long, nStr es String, S es Long
"S = 4" indica el número máximo y puede modificarse.
Yo. Cls: yo. AutoRedraw = True
Para I = 1 a S
nStr = String(S - I, " " amp String((I - 1) * 2 1, I amp "" )
I.Print nStr
Luego
Para I = S - 1 a 1 paso - 1
nStr = String(S - I, " " amp String ((I - 1) * 2 1, I amp "")
i.print nStr
luego
finalizar conector