کمک درمورد دو سوال فنی آسان

[Hebloby]

سلام:

من چند تا سوال vb داشتم درمورد حلقه ها و توابع رشته ای می خواستم اگه کسی میتونه کمکم کنه ممنون میشم.


سوال 1 : دستوراتی بنویسید که شکل زیر را چاپ کند؟

7654321

654321

54321

4321

321

21

1

سوال 2 : دستوراتی بنویسید که هر آنچه را که در txt1 تایپ کردیم ، با استفاده از حلقه ها و توابع رشته ای آن را به صورت عمودی چاپ کند یعنی اگر Ali را در Txt1 وارد کنیم آن را به صورت چاپ کند؟ A

L

i

و در آخر اگه میشه برای هر کدام از قطعه کد های زیر یه توضیح مختصری بدهید !!!

واقعا ممنون میشم و دعا تون میکنم اگه این لطف بزرگ رو در حق من انجام بدین؟

[sadeghbarout]

این برای سوال اول
For j = 7 To 1 Step -1
For i = 1 To j
Print i;
Next
Print
Next
این یه حلقه ساده تو در تو هستش

اینم برای سوال دوم
a = InputBox("")
For i = 1 To Len(a)
Print Mid(a, i, 1)
Next
فکر کنم نیاز به توضیح نباشه البته تابع mid از یک عبارت چند کاراکتر جدا می کند
امیدوارم جوابت رو گرفته باشی