300 ตัวอย่าง

ตัวตรวจสอบหมายเลขเฉพาะ

Prime Number Checker

ด้านล่างเราจะดูโปรแกรมใน Excel VBA นั่น เช็ค ไม่ว่าจะเป็นตัวเลข a จำนวนเฉพาะ หรือไม่.





ก่อนที่คุณจะเริ่ม: ในวิชาคณิตศาสตร์ จำนวนเฉพาะคือจำนวนที่มีตัวหารจำนวนเฉพาะสองตัว: 1 และตัวมันเอง จำนวนเฉพาะที่เล็กที่สุด 25 จำนวน ได้แก่ 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73 , 79, 83, 89 และ 97 ตัวอย่างเช่น 8 มี 1, 2, 4 และ 8 เป็นตัวหารและไม่ใช่จำนวนเฉพาะ

สถานการณ์:





ข้อใดต่อไปนี้ไม่ถือว่าเป็นฟังก์ชันข้อความจากข้อความนี้

ตัวตรวจสอบหมายเลขเฉพาะใน Excel VBA

1. ขั้นแรก เราประกาศตัวแปรสามตัว ตัวแปรจำนวนเต็มหนึ่งตัวที่เราเรียกว่าตัวหาร ตัวแปรแบบยาวตัวหนึ่งที่เราเรียกว่าตัวเลข และตัวแปรแบบยาวหนึ่งตัวที่เราเรียกว่า i เราใช้ตัวแปรแบบยาวเนื่องจากตัวแปรแบบยาวมีความจุมากกว่าตัวแปรจำนวนเต็ม



ไม่มีตัวหารเนื่องจาก จำนวนเต็ม, ตัวเลขเนื่องจาก ยาว, ผมเนื่องจาก ยาว

2. เราเริ่มต้นสองตัวแปร เราเริ่มต้นตัวหารตัวแปรด้วยค่า 0 เราใช้ฟังก์ชัน InputBox เพื่อรับตัวเลขจากผู้ใช้

ตัวหาร = 0
ตัวเลข = InputBox('ป้อนตัวเลข')

ใส่หมายเลข

หลังจากที่ผู้ใช้ป้อนตัวเลขแล้ว เราต้องการตรวจสอบว่าตัวเลขนี้เป็นจำนวนเฉพาะหรือไม่ โปรดจำไว้ว่า จำนวนเฉพาะมีตัวหารจำนวนเฉพาะสองตัวเท่านั้น: 1 และตัวมันเอง

3. เราเริ่มลูป For Next

สูตร excel สำหรับมูลค่าการลงทุนในอนาคต
สำหรับผม = 1ถึงตัวเลข

4. ตอนนี้มาถึงส่วนที่สำคัญที่สุดของโปรแกรม ในการคำนวณจำนวนตัวหารของตัวเลข เราใช้ตัวดำเนินการ Mod ตัวดำเนินการ Mod ให้ส่วนที่เหลือของดิวิชั่น ตัวอย่างเช่น 7 mod 2 = 1 เพราะ 7 หารด้วย 2 เท่ากับ 3 โดยเหลือเศษ 1 เฉพาะในกรณีที่ 'number mod i' = 0, i เป็นตัวหารของจำนวน ในกรณีนี้ เราต้องการเพิ่มตัวหารตัวแปรขึ้น 1 ตัว มาโครด้านล่างทำหน้าที่แทน

ถ้าตัวเลขขัดต่อผม = 0แล้ว
ตัวหาร = ตัวหาร + 1
จบ ถ้า

Excel VBA ตรวจสอบสิ่งนี้สำหรับ i = 1, i = 2, i = 3, i = 4 จนกว่า i = number โปรดทราบว่า i = 1 และ i = number เป็นตัวหารของจำนวนเสมอ เฉพาะในกรณีที่ตัวเลขเหล่านี้เป็นตัวหารเดียวของจำนวน ตัวเลขนั้นเป็นจำนวนเฉพาะ

5. อย่าลืมปิดลูป

ต่อไปผม

6. หากตัวหารเท่ากับ 2 เราจะแสดงกล่องข้อความว่าตัวเลขที่ป้อนเป็นจำนวนเฉพาะ หากจำนวนตัวหารมากกว่า 2 เราจะแสดงกล่องข้อความว่าตัวเลขที่ป้อนไม่ใช่จำนวนเฉพาะ

ถ้าตัวหาร = 2แล้ว
หมายเลข MsgBox & ' เป็นจำนวนเฉพาะ'
อื่น
หมายเลข MsgBox & 'ไม่ใช่จำนวนเฉพาะ'
จบ ถ้า

7. ทดสอบโปรแกรม

ผลลัพธ์สำหรับ 104729:

ผลการตรวจสอบหมายเลขเฉพาะ

6/9 เสร็จแล้ว! เรียนรู้เพิ่มเติมเกี่ยวกับคำสั่ง if then >
ไปที่บทถัดไป: ห่วง



^