- เข้าสู่ระบบล่าสุด
- 2012-5-14
- เวลาออนไลน์
- 81 ชั่วโมง
- จิตพิศัย
- 39
- Money
- 144
- สมัครสมาชิกเมื่อ
- 2009-12-20
- สิทธิ์ในการอ่าน
- 200
- โพสต์
- 42
- กระทู้
- 42
- สำคัญ
- 0
- เครดิต
- 39
- UID
- 1
 
- Money
- 144
- จิตพิศัย
- 39
- สมัครสมาชิกเมื่อ
- 2009-12-20
- เครดิต
- 39
- โพสต์
- 42
|
- Module Name
- Dim name(256), str As String
- Dim i, x As Integer
- Sub Main()
- Console.Write("What is your name : ")
- str = Console.ReadLine()
- For i = 0 To Len(str)
- name(i) = Mid(str, 1 + i, 1)
- Next
- For x = Len(str) To 0 Step -1
- Console.Write(name(x))
- Next
- Console.WriteLine("")
- End Sub
- End Module
 |
|
