درخواست كمك در برنامه نويسي مثلث خیام!

سلام به برو بچز برنامه نویس!
این برنامه خیلی فوریه تا یکشنبه صبح میخوامش صبح یکشنبه ساعت 7 باید برم مدرسه این برنامه رو هم ببرم!
برنامه ای که میخوام مثلث خیامه که اینطوریه که عکسشو گذاشتم:

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

برنامه باید اینطوری باشه که یه TextBox داریم که یه عدد میگیره و به تعداد عدد گرفته شده مثلث خیام رو سطرهاشو نشون میده!
یعنی اگه زدیم 10 مثلث خیام رو تا 10 سطر پیش میبره و نشون میده!
لازم به ذکره که مثلث باید در خود فرم با دستور Print چاپ بشه!
خداییش اگه بلدین کمک کنید وقت زیادی نیست 8 نمره از امتحانمون همین مثلث خیامه!
ممنونم از همگی:);)

ضمنا هر چه دستورها ساده تر باشه بهتره مثل for و if

اينو من قبلا با ++ C نوشتم. ولي خوب ميتوني تبديلش كني به vb. بلدي كه تبديل كني. اگه پيدا كردم برات ميذارم.

پیمان جان من ++c هیچ چی بلد نیستم!
اگر بتونی مال Vb ش رو برام جور کنی ممنونت میشم:);)
ضمنا آقا دستورهاشم ساده ی ساده باشه ها!

اينجا يه سري سورس براي كار شما

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

اگه دنبال Pascal's triangle تو موتورهاي جستجو بگردي كلي مطلب پيدا مي كنيد
نمونش :
http://en.wikipedia.org/wiki/Khayyam-Pascal's_triangle

http://www.google.com/search?client=opera&rls=en&q=Pascal's+triangle&sou rceid=opera&ie=utf-8&oe=utf-8

Bad.Sector جان ممنون ولی هیچ کدوم اینا دستورهای ساده داخلشون نیست همشون function و این چیزا دارن من میخوام داخل یه command دستورات رو بنویسم;)

من يه تغييراتي توش دادم تا يكمي ساده تر بشه فقط function فاكتور رو بر نداشتم چون بدون اون خيلي قاطي پاطي مي شد

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

اين به زبون ++ c ميبيني كه خيلي خلاصه و كوتاه هست.
خيلي از دستوراتش هم مثل vb هست.
فقط بگم include ها رو حذف كن. cin دستور گرفتن تعداد سطرهاست. حكم همون تكس باكست رو داره. a[i][j] x رو هم كه ميدوني آرايه دو بعديه. cout هم برا چاپ و نمايش اعداد و ... به كار ميره. يعني شما بايد جاش رو caption ليبلت يا تكس باكس يا ... نمايش بدي. cout<<"\n" هم يعني برو سر خط.getch() رو هم پاك كن. بقيشم كه خودت بلدي ديگه for و if كه راحت ميتوني به vb تبديلشون كني.
با توجه به اين راهنمايي ها ميتوني راحت رديفش كني.

کد:

---

#include<conio.h>
#include<iostream.h>
void main()
{
        int i,j,n,a[100][199];
        cin>>n;
        for(i=0; i<n; i++)
                for(j=0; j<2*n+1; j++)
                        a[i][j]=0;
        a[0][n]=1;
        for(i=0; i<n-1; i++)
                for(j=1; j<2*n; j++)
                        a[i+1][j]=a[i][j-1]+a[i][j+1];
        for(i=0; i<n; i++)
        {
                for(j=1; j<2*n; j++)
                        if(a[i][j]==0) cout<<" ";
                        else cout<<a[i][j];
                cout<<"\n";
        }
        getch();
}

---

پیمان جان اگه تبدیلش کنی دستتو میبوسم;)

ولي سعي كن خودت بنويسي. چون نه اين سايتا جاي اين بحثان نه اين كار درسته. اين جوري هميشه وابسته ميموني.

کد:

---

Dim i As Long, j As Long, lngRow As Long, lngNumbers(100, 100) As Long

Private Sub txtGetRows_Change()
    On Error GoTo Handler
    lngRow = txtGetRows.Text
    lblShowNumbers.Caption = ""
    For i = 0 To lngRow - 1
        For j = 0 To 2 * lngRow
            lngNumbers(i, j) = 0
        Next j
    Next i
    lngNumbers(0, lngRow) = 1
    For i = 0 To lngRow
        For j = 1 To 2 * lngRow - 1
            lngNumbers(i + 1, j) = lngNumbers(i, j - 1) + lngNumbers(i, j + 1)
        Next j
    Next i
    For i = 0 To lngRow - 1
        For j = 1 To 2 * lngRow - 1
            If lngNumbers(i, j) = 0 Then
                lblShowNumbers.Caption = lblShowNumbers.Caption & "  "
            Else
                lblShowNumbers.Caption = lblShowNumbers.Caption & lngNumbers(i, j)
            End If
        Next j
        lblShowNumbers.Caption = lblShowNumbers.Caption & Chr(13) & Chr(10)
    Next i
    Exit Sub
Handler:
    lblShowNumbers.Caption ="Error"
End Sub

---

اينم بگم تا عدد 20 خوب جواب ميده بعدش يا به هم ميريزه يا سر ريز ميشه. ولي تا همون 20 هم خوبه.
اگه اسم ها برات نامفهومه از فايلش كمك بگير. تو برنامه نويس آپ كردم.

پیمان جان ممنون لطف کردی:)

خواهش عزيز قابلي نداشت.