battle programmers alliance

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

Display results as :
 
Rechercher Advanced Search
Latest topics
» android mobile app dev APK
Sun Jul 15, 2018 6:20 pm by Moti Barski

» android studio execises
Mon Jul 09, 2018 1:43 pm by Moti Barski

» problem with firebase authentication
Thu Jun 28, 2018 9:52 am by Moti Barski

» text art canvas
Wed Jun 20, 2018 8:55 pm by Moti Barski

» links/suggestions to become a programmer
Mon May 07, 2018 11:01 pm by Moti Barski

» java eclipse oxygen grimoire
Thu May 03, 2018 8:24 pm by Moti Barski

» forum logo by tf monkey
Wed May 02, 2018 10:17 pm by Moti Barski

» java and MySQL
Mon Apr 30, 2018 3:02 pm by Admin

» mini A.I puzzles
Mon Apr 23, 2018 11:38 am by Moti Barski

July 2018
SunMonTueWedThuFriSat
1234567
891011121314
15161718192021
22232425262728
293031    
CalendarCalendar
Social bookmarking
Social bookmarking digg  Social bookmarking delicious  Social bookmarking reddit  Social bookmarking stumbleupon  Social bookmarking slashdot  Social bookmarking yahoo  Social bookmarking google  Social bookmarking blogmarks  Social bookmarking live      

Bookmark and share the address of battle programmers alliance on your social bookmarking website
Share | 
 

 vb.net pascal triangle

Go down 
AuthorMessage
Moti Barski

avatar

Posts : 154
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: