كمك خيلي فوري براي حل چند مسئله

[iribm]

سلام
دوستان من دو تا سوال دارم كه اگه ممكنه خيلي سريع جوابشو بدين
1- برنامه اي بنويسيد با دستور For Next كه اعداد زير را در روي فرم نمايان كنند
1
1 2 3
1 2 3 4 5
1 2 3 4 5 6 7
1 2 3 4 5
1 2 3
1
2- برنامه اي بنويسيد كه تمام اعداد صحيح سه رقمي از ورودي دريافت كرده كه رقم يكان با صدگان آن برابر باشد.
مثل 131 232 323 454

[Payman_62]

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

[shamsoft]

آره با نظر آقا پيمان موافقم.شما فقط بايد رفع اشكال كنيد و درخواست كد كامل نكنيد.
كد اول كه معلومه با چي نوشته ميشه و كد دوم هم با تابع Mid نوشته ميشه.
اينا پروژه هاي دانشجويي هست.درسته؟

[iribm]

سلام
باشه من براي نمايش اعداد زير اين برنامه رو نوشتم ولي نمي دونم چرا به صورت مثلثي در نمياد
1 2 3 4 5 6 7
1 2 3 4 5
1 2 3
1
For a = 1 To 7 Step 2
l = ""
For aa = 1 To 8 - a
l = l & aa & " "
Next
Print l
Next
لطفا كمك كنيد

[iribm]

با معرفتا يكيتون جوابمو بده.

[shamsoft]

ببين اين كد چطوره
خودت بيشتر سعي مي كردي مي تونستي بنويسيش

For b = 7 To 1 Step -2
k = ""
For bb = 1 To 6 - b
k = k & bb & " "
Next
Print k
Next
For a = 1 To 7 Step 2
l = ""
For aa = 1 To 8 - a
l = l & aa & " "
Next
Print l
Next