vb.net - 帕斯卡三角 - VB.NET

Question

我已经创建了一个程序，它将显示 x 行并重复：

IE

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