Página 1 de 1

[Solucionado] Triangulo y cuadrado 10 x 10 [VB6]

Publicado: 16 Jun 2009, 05:53
por inyosipi
Hola amigos de indetectables.net :
Mi consulta es la siguiente, es q no entiendo bien del tema ya que no puide asistir a clase por problemas ...
tengo que hacer un triangulo con asteriscos en visual basic empezando por 10 mas o menos asi tiene que imprimir
**********
********
******
**** etc
y un cuadrado 10 x 10 de igual forma osea 10 filas 10 columnas mas o menos asi:
**********
**********
**********
**********
**********
etc

gracias y espero sus amables respuestas gracias.

Re: Triangulo y cuadrado 10 x 10 en visual basic 6.0

Publicado: 17 Jun 2009, 20:41
por GhoStHa
Amigo te deberias de leer
la seccion de 'dudas y preguntas'

te la escribo:

Plantee sus dudas sobre malware a los compañeros del foro y recuerde que nadie esta obligado a contestarle, sea paciente.

Re: Triangulo y cuadrado 10 x 10 en visual basic 6.0

Publicado: 19 Jun 2009, 03:22
por ice_mumi
Imagen


[INICIO vb code]
Private Sub CmdCuad_Click()
Dim Cuad As Integer
Dim Str As String
Dim Str2 As String
Cuad = Val(TxtNumCuad)
Str = ""
For cuadrado = 1 To Cuad
Str = "*" & Str
Next cuadrado
Str2 = ""
For cuadrado = 1 To Cuad
Str2 = Str2 & Str & vbCrLf
Next cuadrado
TxtVer.Text = Str2
End Sub
Private Sub CmdTri_Click()
Dim Tri As Integer
Dim Str As String
Dim Str2 As String
Dim Resto As Integer
TxtVer.Text = ""
Tri = Val(TxtNumTri)
Str = ""
For triangulo = 1 To Tri
Str = "*" & Str
Next triangulo
Str = Str
Resto = Tri - 1
Do While Not Tri = 0
Str2 = Mid(Str, 1, Resto)
Tri = Tri - 1
Str = Str & vbCrLf & Str2
TxtVer.Text = Str
Resto = Resto - 1
Loop
End Sub

[FIN vb Code]

Espero que te sirva

PD: no es tan dicifil tal vez buscando en google y leyendo un poco tambien lo hubieses podido hacer tu.

Lease con mayusculas: " no seassss aragannnn"

Re: Triangulo y cuadrado 10 x 10 en visual basic 6.0

Publicado: 21 Jun 2009, 04:35
por inyosipi
Gracias men solucionado xd.

Re: Triangulo y cuadrado 10 x 10 en visual basic 6.0

Publicado: 21 Jun 2009, 10:50
por GhoStHa
Pon en el titulo (Solucionado)