mmm veo que usas fflush(stdin); no creo que sea stdin por el contexto del codigo, mas bien es stdout fflush(stdout);
Dulces Lunas!¡.
Dulces Lunas!¡.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: ABDERRAMAH en 25 Agosto 2012, 06:53 AM
el número de asteriscos por línea = iteracion+(iteracion-1) o lo que es lo mismo
número de asteriscos por línea = 1-(2*iteracion)
option explicit
Private Sub Form_Load()
Dim n As Long
Dim i As Long
n = CLng(InputBox("Tamaño del triangulo:", "Triangulo", 15))
For i = n To 0 Step -2
Debug.Print String((n - i) / 2, " ") & String(i, "*")
Next i
End Sub