کمک در یک تابع

[jaber]

سلام من میخوام رو فورم اعداد به این صورت موشته شوند لطفا کمک کنید ممنون می شم

__________1
_________212
________32123
_______4321234
______543212345

ممنون می شم اگه با سورس برام بذارین خیلی لازم دارم
به من گفتن با کد زیر میشه من که نتونستم

for i=1 to 5
for m = 1 to i
;print m
next m
print
next i
for i = 5 to 2 step-1
for m=1 to i
;print m
next m
print
next i
راستش من چیزی نتونستم درست کنم اگه میشه با سورس بذارین ممنون می شم

[Iron_Fist]

مرد حسابی این چه وضع تاپیک زدنه

اولا که سه بار تاپیک زدی
دوما حالا که سه بار زدی بیا پاکش کن
سوما چرا تو قسمت گرافیک و راه اندازی زدی

جناب لطفا درست کار کن . آخه من باید بیام تاپیک های شما رو پاک کنم !
حالا هم من اومدم گذاشتم برات اینجا !

[arnh]

کد:

dim i as long : dim p as string
for i=1 to 5
p=p+trim(str(i)+p
me.print p
next i

[jaber]

سلام این کد اشتباه بود من میخوام مثل شکل بالا در بیاد

[arashrj]

سلام
یه کد برات نوشتم ببین به کارت میاد

کد:

'Arash RJ
'arashrj@gmail.com
'www.PersianFox.com

Private Sub Command1_Click()
For a = 1 To 5
l = ""
ll = ""
   For aa = a To 1 Step -1
    l = l & aa
   Next
   For aaa = 2 To a - 1
    ll = ll & Left(aaa, 1)
   Next
   If a = 1 Then
    ll = l & ll
   Else
    ll = l & ll & a
   End If
    ll = Space(9 - Len(ll)) & ll
   Print ll
Next
End Sub

[jaber]

ممنون آقا