القسمة على العدد صفر

السلام عليكم

لك الكود التالي:

a=5
b=0
if b=0 then
c=0
else
c=a/b
end if

أنت هنا سوف تقوم تختبر العنصر الذي سوف يتم القسمة عليه، إذا كانت قيمته صفر اجعل المتغير الي سوف يتم وضع به حاصل القسمة يساوي صفر، أما غير ذلك نفذة عملية القسمة.

مع تحياتي

Function ZZ(N as varaint, optional R as variant = 1) as variant
   ZZ = iif(N = 0 , R , N)
exit function

واستخدم هذا الفانكشن كمايلي

i = M / zz(o)
I = m / zz(o,m)