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

سلام
دوستان من دو تا سوال دارم كه اگه ممكنه خيلي سريع جوابشو بدين
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

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

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

سلام
باشه من براي نمايش اعداد زير اين برنامه رو نوشتم ولي نمي دونم چرا به صورت مثلثي در نمياد
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
لطفا كمك كنيد

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

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

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