شبكة المنهل التعليمية - لغات البرمجة وقواعد البيانات

خاص بسرعة الأداء

كود:



Private Sub Command1_Click()


If f1 And f2 Then


Debug.Print "True"


End If


End Sub

ولكن الكود التالي (أسرع)

كود:



If f1 Then


If f2 Then


Debug.Print "True"


End If


End If

ولكن لماذا ؟؟
في الكود الثاني قيمة f2 لن تختبر اذا كانت قيمة f1 تساوي false

http://www.arabteam2000-forum.com/