ด้านล่างเราจะดูโปรแกรมใน 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 เป็นตัวหารและไม่ใช่จำนวนเฉพาะ
สถานการณ์:
ข้อใดต่อไปนี้ไม่ถือว่าเป็นฟังก์ชันข้อความจากข้อความนี้
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:
ไปที่บทถัดไป: ห่วง