[الاستاذ خليل]

تعمل لوب يقوم بقسمة الرقم على الاعداد حتى العدد فاذا كان عدد النواتج 2 فهو اولي و إلا ليس اولي
v هو الرقم الذي تريد معرفة انه اولي او لا
و يمكنك وضع سطر لتعريفه مثلا

 
 
v=val(text1.text)

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

جرب الكود و قلي ما الذي حصل معك