- เข้าสู่ระบบล่าสุด
- 2011-10-20
- เวลาออนไลน์
- 37 ชั่วโมง
- จิตพิศัย
- 64
- Money
- 51
- สมัครสมาชิกเมื่อ
- 2009-12-20
- สิทธิ์ในการอ่าน
- 200
- โพสต์
- 136
- กระทู้
- 45
- สำคัญ
- 0
- เครดิต
- 64
- UID
- 2
 
- Money
- 51
- จิตพิศัย
- 64
- สมัครสมาชิกเมื่อ
- 2009-12-20
- เครดิต
- 64
- โพสต์
- 136
|
- Module Triangle
- Dim Trianglearea As Decimal = 0
- Dim Base, High As Integer
- Sub Main()
- Console.Write("Enter Base : ")
- Base = Console.ReadLine
- Console.Write("Enter High : ")
- High = Console.ReadLine
- Trianglearea = 1 / 2 * Base * High
- Console.WriteLine("Triangle Area Is " & Trianglearea)
- End Sub
- End Module
ผลรัน
|
|
