เช่น ถ้าเราป้อน 10 มันจะแสดงข้อความว่า ...
Enter x: 10
10 is divisible by 5.
ตัวโปรแกรม คิดไว้ว่าจะเขียนแบบนี้
ให้รับข้อมูลตัวเลขจากคีย์บอร์ด
TextWindow.Write("Enter Number : ")
x = TextWindow.ReadNumber()
If ( x mod 5) = 0 Then แล้วตรวจสอบว่า
ถ้า x หาร(mod) 5 ได้เท่ากับ 0 แสดงว่ามันหาร 5 ลงตัว
ถ้า x หาร(mod) 5 ได้เท่ากับ 0 แสดงว่ามันหาร 5 ลงตัว
TextWindow.writeLine(x +" is divisible by 5")
Else
TextWindow.writeLine(x +" is not divisible by 5")
แต่ถ้า ไม่ใช่ ก็แสดงว่ามันหาร 5 ไม่ลงตัว
แต่ถ้า ไม่ใช่ ก็แสดงว่ามันหาร 5 ไม่ลงตัว
EndIf
แต่ปรากฏว่า พยายามอยู่นาน แก้ก็แล้ว ก็รันไม่ผ่าน มันไม่รู้จัก mod! (แปลกดีแท้ ถ้าเป็นโปรแกรมอื่น คงจะได้ไปแล้ว) จนในที่สุด ต้องเปลี่ยนเป็นแบบนี้...
TextWindow.Write("Enter Number : ")
x = TextWindow.ReadNumber()
If ( Math.Remainder(x,5) = 0 ) Then ' divisible by 5 ใช้ Math.Remainder แทน
TextWindow.writeLine(x +" is divisible by 5")
Else
TextWindow.writeLine(x +" is not divisible by 5") ' Not divisible by 5
EndIf
...
