تعمل لوب يقوم بقسمة الرقم على الاعداد حتى العدد فاذا كان عدد النواتج 2 فهو اولي و إلا ليس اولي
v هو الرقم الذي تريد معرفة انه اولي او لا
و يمكنك وضع سطر لتعريفه مثلا
qwasm هو عدد الارقام التي قسمت على العدد v
كود:
qwasm =0
For x = 1 To v
If v Mod x = 0 Then qwasm = qwasm + 1
Next x
الان تكتب شرط يضهرلك مثلا مسج انه عدد اولي في حال ان القواسم هي رقمين فقط
كود:
if qwasm =2 then
msgbox("هذا العدد أولي")
endif
جرب الكود و قلي ما الذي حصل معك