การคำนวณหาพื้นที่สี่เหลี่ยมผืนผ้า [คัดลอกลิงก์]

ผู้ดูแลระบบ

Rank: 9 Rank: 9 Rank: 9

Money: 51
จิตพิศัย: 64
สมัครสมาชิกเมื่อ: 2009-12-20
เครดิต: 64
โพสต์: 136

noom โพสต์เมื่อ 2009-12-22 22:03:14 |แสดงโพสต์ทั้งหมด

การคำนวณหาพื้นที่สี่เหลี่ยมผืนผ้า แต่มีข้อจำกัดว่าผู้ใช้โปรแกรมต้องป้อนความกว้างไม่เกิน 20 และความยาวไม่น้อยกว่า 30 รวมไปถึงความกว้างและความยาวห้ามเท่ากัน อีกอย่างคือ ความยาวต้องมากกว่าความกว้าง

Module area
Dim inwide, inlong, area As Integer
Sub Main()
Console.Write("Input Wide : ")
inwide = Console.ReadLine()
Console.Write("Input Long : ")
inlong = Console.ReadLine()
If inwide <= 20 AndAlso inlong >= 30 AndAlso inwide <> inlong AndAlso inwide < inlong Then
area = inwide * inlong
Console.WriteLine("Area = " & area)
Else
Console.WriteLine("Long or Wide incorrect")
End If
End Sub
End Module