Visual basic ayuda por fa
hola valeroasm oye pues la verdad no es para que me hagas la interfaz tan solo el algoritmo muchas gracias tengo vb en excel
Realice una interfaz que permita ingresar un número entre 1 y 9. A la hora de
oprimir un botón se deberá mostrar por cuadro de texto el triángulo de números hasta el
número ingresado. Para este ejercicio implemente la iteración indefinida do while.
1 Respuesta
Como te decía no tengo Excel todavía y no puedo probar las macros.
Supondré que lees el número en un textbox1 y quieres escribir el triángulo en un label1 suficientemente grande.
Dim i, j, n, Longimax as Integer
Dim Texto as string
n=val(textbox1)
Longimax = 2*n-1
Label1.Text = ""
Label1.Font = New Font("Courier New", 12)
For i=1 to n
If i=1 then Texto ="1" else Texto=Texto & " " & str(i)
Label1.Text = Label1.Text & Space((LongiMax - Len(Texto)) / 2) & Texto & vbCrLf
Next i
La fuente Courier New es fija, eso hará que el triángulo quede bien centrado.
Espero que funcione, la duda que tengo es si str(i) entregará el número con un espacio delante, entonces no haría falta el espacio blanco que he metido en
Texto=Texto & " " & str(i)
y sería
Texto=Texto & str(i)
Ya me contarás.
