[ماجدة عمرو]

بالنسبة للسؤال

If(condition)

Msgbox("n is divisible by d")

End if

انا سالت الكمبيوتر كما اقترح احد الزملاء
ولاحظت الآتى عند الاعلان عن المتغيرين كعددعشرى من النوعين
double , single فقط يعطى الرسالة مع هذا الشرط كما هو موضح اما عند الاعلان عن المتغيرين كعدد صحيح

من اى نوع مع اى شرط لاتظهر الرسالة

Dim n, d As Double
If (n Mod d) <> 0 Then
MsgBox("n is divisibleby d")
End If