porque no usar una matriz?
Despues mostralo con una fuente monospace
Edito.
Mas facil hacerlo con un for en negativo, no?
hace algo asi:
RUSICMODEOOOOOON!
este codigo no tiene variables declaradas, comprobacion de errores ni nada. es una mera muestra nomas de como usar un step negativo
Código [Seleccionar]
Valores de X()
[3,0] [3,1] [3,2] [3,3]
[2,0] [2,1] [2,2] [2,3]
[1,0] [1,1] [1,2] [1,3]
[0,0] [0,1] [0,2] [0,3]
0,0 = *
0,1 = *
1,1 = *
2,2 = *
3,3 = *
2,3 = *
1,3 = *
0,3 = *
0,2 = *
Resultado:
[ ] [ ] [ ] [*]
[ ] [ ] [*] [*]
[ ] [*] [ ] [*]
[*] [*] [*] [*]
Despues mostralo con una fuente monospace
Edito.
Mas facil hacerlo con un for en negativo, no?
hace algo asi:
RUSICMODEOOOOOON!
Código (vb) [Seleccionar]
x = InputBox("asteriscos iniciales")
For i = x To 1 Step -1
asteriscos = asteriscos & String(i, "*") & vbCrLf
Next
MsgBox asteriscos
este codigo no tiene variables declaradas, comprobacion de errores ni nada. es una mera muestra nomas de como usar un step negativo