杨辉三角 - VB.NET

Question

我已经创建了一个程序，将显示X条记录并重复：

即

1 
2 2 
3 3 3 
4 4 4 4 
5 5 5 5 5 
6 6 6 6 6 6 

现在，我想使杨辉三角

Answer 1

也许像这样：

Dim arr As Integer(,) = New Integer(7, 7) {} 
For i As Integer = 0 To 7 
    For k As Integer = 7 To i + 1 Step -1 
     'print spaces 
     Console.Write(" ") 
    Next 

    For j As Integer = 0 To i - 1 
     If j = 0 OrElse i = j Then 
      arr(i, j) = 1 
     Else 
      arr(i, j) = arr(i - 1, j) + arr(i - 1, j - 1) 
     End If 
     Console.Write(arr(i, j) & " ") 
    Next 
    Console.WriteLine() 
Next 

控制台输出：

Answer 2

另一种方法，只保留以往和当前迭代内存：

Dim oldList As New List(Of Integer)({0, 1}) 
For line = 1 To 7 
    Dim newList As New List(Of Integer) 
    For i = 1 To oldList.Count - 1 
    newList.Add(oldList(i - 1) + oldList(i)) 
    Next 
    Debug.Print(String.Join(" ", newList)) 
    oldList.Clear() 
    oldList.Add(0) 
    oldList.AddRange(newList) 
    oldList.Add(0) 
Next 

Answer 3

做，使用Windows窗体，你需要一个文本框，多行文本框和一个按钮上设计界面

这里是你需要最初生成它

Imports System.Numerics 'this allows you to use big integer 

Public Class pascal_triangle 


    Private Function factorial(ByVal k As Integer) As BigInteger 

'big integer allows your proram compute for inputs of more than 22 

     If k = 0 Or k = 1 Then 

      Return 1 

     Else 

      Return k * factorial(k - 1) 


     End If 

    End Function 



    Private Sub BtnGen_Click(sender As Object, e As EventArgs) Handles BtnGen.Click 
     Dim nCr As Double 

     Dim i, j, k As Integer 


     Dim output As String 

     output = "" 

     j = Val(TxtColumn.Text) 

     For k = 0 To j 

      For i = 0 To k 

       Dim fact, fact1, fact2 As BigInteger 



       fact = factorial(k) 

       fact1 = factorial(k - i) 

       fact2 = factorial(i) 

       nCr = fact/(fact1 * fact2) 

       TxtOutput.Text += Str(nCr) & output 





      Next 

      TxtOutput.Text += vbCrLf 

     Next 



    End Sub 


    Private Sub pascal_triangle_Load(sender As Object, e As EventArgs) Handles MyBase.Load 

    End Sub 
End Class