battle programminga forum for elite programmerswith extreme will powerto sharpen theire skills
 
HomeCalendarFAQSearchMemberlistUsergroupsRegisterLog in
Share | 
 

 vb.net pascal triangle

Go down 
AuthorMessage
Moti Barski

avatar

Posts : 227
Join date : 2011-08-02

PostSubject: vb.net pascal triangle   Sat Dec 02, 2017 10:10 am

add button to the windows form

code :
Code:
Public Class Form1
    Function pascal(ByVal floor As Integer) As String
        Dim ar1 = New Integer() {1, 1}
        If floor < 2 Then
            Return "1 1"


        End If
        Return pascalPt2(floor, 2, ar1)
    End Function
    Function pascalPt2(ByVal floor As Integer, ByVal at As Integer, ByVal prevfloor As Object) As String
        Dim result = ""
        Dim ar2(at) As Integer
        ar2(0) = 1
        If at = floor + 1 Then
            For Each item As Integer In prevfloor
                result &= item.ToString() & " "

            Next
            Return result
        Else
            For index = 0 To at - 2
                ar2(index + 1) = prevfloor(index) + prevfloor(index + 1)
            Next
            ar2(at) = 1
        End If
        Return pascalPt2(floor, at + 1, ar2)
    End Function
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MsgBox(pascal(4))
    End Sub
End Class
king study farao

_________________
MB over and out _______________________     
Back to top Go down
View user profile
 
vb.net pascal triangle
Back to top 
Page 1 of 1
 Similar topics
-
» Interview: Gamestop Employee Tells Us That Wii Games Will Stop Being Sold On July 1st!

Permissions in this forum:You cannot reply to topics in this forum
battle programmers alliance :: battle programming alliance :: battle programming-
Jump to: