¿Cómo mostrar triángulos y paralelogramos compuestos por * en vb? solicitud de código
'Triángulo
Privado?Sub?CommandButton1_Click()
Dim?i,?j,?max?como enteros
max?=?5
Dim?str?as cadena
For?i?=?0?To?max
For?j?=?0?To?i?*?
str?=?str?amp;?"*"
Siguiente?j
str?=?str?amp;?vbCrLf
Siguiente?i
MsgBox?str
Fin?Sub
'Paralelogramo
¿Privado?Sub?CommandButton2_Click()
¿Dim?i,?j,?max?As?Integer
max?=?5
Dim?str?As?String
Para?i?=?0?To?max
Para?j.=?0?2
str=stramp;?"??"
Siguiente?j
For?j?*"
Siguiente?j
str?=?str?amp;?vbCrLf
Next?i
MsgBox?str
End?Sub
Los anteriores son dos métodos para triángulos y paralelogramos
max es el número de filas, puedes cambiarlo
El resultado final es el número de filas
El resultado final se muestra en msgbox, también puedes mostrarlo en un cuadro de texto, tabla o cualquier otro en tu control favorito