01.
Dim
sum
As
Integer
02.
average
Single
03.
a, b
04.
05.
a = Val(txtA.Text)
06.
b = Val(txtB.Text)
07.
08.
sum = 0
09.
10.
While
a <= b
11.
sum = sum + a
12.
lstShow.Items.Add(a)
13.
a = a + 1
14.
average = sum / (a - 1)
15.
End
16.
lstShow.Items.Add(
"----------"
)
17.
"ผลรวมทั้งหมด = "
& sum)
18.
"ค่าเฉลี่ย = "
& average)
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง
