مثلث خيام پاسکال درvb

[pa_darya]

میشه برنامه مثلث خيام پاسکال درvb برايم ارسال کنيد.
بدين صورت است
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
به همين ترتيب الی آخر
ممنون از لطف شما

 

[pa_darya]

میشه برنامه مثلث خيام پاسکال درvb برايم ارسال کنيد.
بدين صورت است
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
به همين ترتيب الی آخر
ممنون از لطف شما

 

[pa_darya]

البته ايت مثلث متساوی اضلاع می باشد نه قائم الزاويه

 

[Milo]

من با پاسکالش رو دارم ، اگر می تونید خودتون تغییرش بدید به vb براتون بفرستمش .

 

[the_king]

Private Sub Form_Load()
    AutoRedraw = True
    ScaleMode = vbPixels
    [B]KhayyamTriangle[/B] 10
End Sub

Private Function [B]KhayyamTriangle[/B](ByVal n As Long)
    Dim A() As Long
    Dim B() As Long
    Dim I As Long
    Dim J As Long
    ReDim A(1 To n)
    For I = 1 To n
        A(1) = 1
        A(I) = 1
        For J = 2 To I - 1
            A(J) = B(J - 1) + B(J)
        Next
        For J = 1 To I
            CurrentY = I * 16
            CurrentX = ScaleWidth \ 2 + 20 * (J * 2 - I - 1)
            Print CStr(A(J));
        Next
        B = A
    Next
End Function

 

[pa_darya]

مرسی از لطف شما عالی بود