سيتم شرحها بعون الله
عملك ممتاز
بس تقدر تعدل الكود استاذ حافظ كالتالي :
كود:
If Val(TextBox1.Text) = 60 Then
'MsgBox ("اجابة صحيحة")
s = MsgBox("اجابة صحيحة", vbOKOnly, "الرياضيات ")
Else
MsgBox ("اجابة خاطئه ")
End If
حيث قمنا بحذف اقواس التنصيص مثل هذا
كود:
Val(TextBox1.Text) = "60"
او بامكانك تغييره الى التالي :
كود:
TextBox1.Text = "60"
و كلهم تعطي نفس النتيجة لكن ستظهر مشكلة ساخبركم بها لاحقا