[منى كمبيوتر]

الاستاذة الفاضله / ماجده
قيمة كلا من n,d في تطبيق حضرتك تساوي صفر
ناتج قسمة صفر على صفر يعطي رسالة نصية
وهذه الرساله لا تساوي الصفر فيعتبر الشرط صحيح
لتصحيح ذلك اكتبي الكود هكذا
Dim n, d As Double
n = TextBox1.Text
d = TextBox2.Text
If (n Mod d) = 0 Then
("MsgBox("n isdivisible by d
End If
لن تظهر الرسالة الامع الشرط المكتوب اعلاه
وجربي وضعي قيمة d,n بصفر في صندوق النص ولا تنسي طبعا اضافة TextBox2,TextBox1للفورم