- เข้าสู่ระบบล่าสุด
- 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
|
ตัวอย่างโปรแกรมคำนวณค่าผลรวมของ 1^2+2^2+3^2+4^2+...แต่ผลลัพธ์ ไม่เกิน 1000
และให้แสดงเลขยกกำลังค่าแรกที่ทำให้ผลรวมเกิน 1000
- Module LoopWhile
- Dim i, sum As Integer
- Sub Main()
- i = 0
- sum = 0
- While sum <= 1000
- i += 1
- sum += i ^ 2
- End While
- Console.WriteLine("Sum First goes over 1000 when add " & i & " squared")
- Console.WriteLine("Sum is " & sum)
- End Sub
- End Module
ผลรัน
|
|
