Imports System
Imports System.Collections.Generic
Class PascalTriangleRow
Public Shared Function GetPascalTriangleRow(ByVal rowIndex As Integer) As List(Of Integer)
Dim row As List(Of Integer) = New List(Of Integer)()
row.Add(1)
For i As Integer = 1 To rowIndex
Dim prev As Integer = row(i - 1)
Dim value As Integer = CInt((prev * (rowIndex - i + 1) / i))
row.Add(value)
Next
Return row
End Function
Public Shared Sub Main()
Dim rowIndex As Integer = 4
Dim row As List(Of Integer) = GetPascalTriangleRow(rowIndex)
For Each num As Integer In row
Console.Write(num & " ")
Next
End Sub
End Class
' run:
'
' 1 4 6 4 1
'