Visual Basic - pascal

Module Module1
Sub Main()
Dim n, i, j As Integer
n = InputBox("ingrese el nivel")
Dim matriz(n, n) As Integer
pascal(n, matriz)
'Console.WriteLine(matriz)
For i = 1 To n
For j = 1 To n
If matriz(i, j) <> 0 Then
Console.Write("{0,4}", matriz(i, j))
End If
Next
Console.WriteLine()
Next
Console.ReadLine()
End Sub
Sub pascal(ByVal nivel As Integer, ByVal tabla(,) As Integer)
Dim i As Integer
Static j As Integer
If nivel = 1 Then
tabla(1, 1) = 1
Else
'Console.WriteLine("este es el nivel " & nivel)
pascal(nivel - 1, tabla)
'Console.WriteLine("este es el nivel " & nivel)
If nivel < 7 Then
tabla(nivel, 1) = 1
For i = 2 To nivel - 1
tabla(nivel, i) = tabla(nivel - 1, i - 1) + tabla(nivel - 1, i)
Next
If nivel < 6 Then
tabla(nivel, nivel) = 1
End If
End If
End If
End Sub

End Module

ncha!!:

Muy bien... muy bonito

Coño te quedo de agencia!!!!, para que sirve??, que hace?? y seria muy buena idea decirnos en que podemos ayudar!!!!!!!!. Somos buenos pero tampoco leemos la mente.

jajaja, puede que si, pero se lucio!!.

Solo pego codigo y mas nada., jajaja

De seguro su problema era, Que hace este codigo que programe!!!, jajajaja

ncha!!!:
jajaaja,