Page 64 - أساسيات الحاسب الالي2

‫جمل التحكم‬ ‫الفصل الرابع‬

‫ﻻح ظ اس تخدام الدال ة ‪ Ucase‬للتغل ب عل ى مراع اة حال ة اﻷح رف ال صغيرة أو الكبي رة‬
‫بحيث نقارن فى الجملة الشرطية باﻷحرف الكبيرة للكلمة المدخلة‪.‬‬
‫ملحوظة‬

‫يمكن ك اس تخدام أكث ر م ن ش رط ف ى جمل ة ‪ If‬حي ث ي تم ال ربط بي نهم بأح د المع امﻼت‬
‫المنطقي ة ‪ And , Or‬كم ا يوض ح المث ال الت الى الم ستخدم لمقارن ة ث ﻼث أرق ام وطب ع‬

‫أكبرهم‪.‬‬
‫)(‪Sub Main‬‬

‫‪Dim n1, n2, n3 As Integer‬‬
‫)"‪n1 = InputBox("Enter first number‬‬
‫)"‪n2 = InputBox("Enter second number‬‬
‫)"‪n3 = InputBox("Enter third number‬‬
‫‪If n1 > n2 And n1 > n3 Then MsgBox("The biggest number‬‬
‫‪is " & n1): GoTo finish‬‬
‫‪If n2 > n1 And n2 > n3 Then MsgBox("The biggest number‬‬
‫‪is " & n2): GoTo finish‬‬
‫‪If n3 > n1 And n3 > n2 Then MsgBox("The biggest number‬‬
‫)‪is " & n3‬‬
‫‪Finish :‬‬
‫‪End Sub‬‬
‫ﻻحظ أننا استخدمنا جملة التفرع فى نهاية كل شرط حتى ﻻ يكرر فح ص ب اقى ال شروط‬

‫إذ أن تسلسل البرنامج يستمر بعد اختبار الجملة الشرطية‪.‬‬
‫تمرين‬

‫استخدم الجملة الشرطية لتحديد تقدير طالب بناءا على مجموع درجاته‬

‫‪٦٤‬‬