چاپ کلمه به شکل...

سلام دوستان
کسی هست که بتونه برنامه ای بنویسه که کلمه را گرفته و آن را به صورت زیر چاپ کند؟

مثلاً: IRANICDL
I
R
A
N
I
C
D
L

نقل قول:

---

نوشته شده توسط MHGF [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام دوستان
کسی هست که بتونه برنامه ای بنویسه که کلمه را گرفته و آن را به صورت زیر چاپ کند؟

مثلاً: IRANICDL
I
R
A
N
I
C
D
L

---

سلام دوست عزیز.
من با VB6 نوشتم. ببین به دردت میخوره :
(اول یه Textbox و یک Command Button بساز.)

کد:

---

Private Sub Command1_Click()
a = Text1.Text
For i = 1 To Len(a)
Print Mid(a, i, 1) & vbCrLf;
Next
End Sub

---