ايران ويج

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

__________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
راستش من چیزی نتونستم درست کنم اگه میشه با سورس بذارین ممنون می شم

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

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

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

کد: 
dim i as long : dim p as string

for i=1 to 5

p=p+trim(str(i)+p

me.print p

next i

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

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

کد: 
'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

Iron_Fist

arnh

jaber

arashrj

jaber