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

سلام به برو بچز برنامه نویس!
این برنامه خیلی فوریه تا یکشنبه صبح میخوامش صبح یکشنبه ساعت 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

---