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

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

‫‪Else‬‬
‫" ‪Console.WriteLine("The product of " & a & " and 10 is equal to‬‬
‫)‪& a * 10‬‬

‫‪End If‬‬
‫)(‪Console.Read‬‬
‫‪End Sub‬‬
‫ﻻ ت ستخدم مع امﻼت المقارن ة فق ط لمقارن ة اﻷرق ام وإنم ا الحرفي ات أي ضا ت تم مقارنته ا‬
‫بن اءا عل ى مكوناته ا فت تم مقارن ة الح رف اﻷول ب الحرف اﻷول ف إذا ت ساوى الحرف ان‬
‫اﻷوليان تتم مقارنة الحرفيين الت اليين وهك ذا )م ا ت تم مقارنت ه ه و ق يم ه ذه الح روف ف ى‬
‫ج دول ‪ ( ASCII‬والمث ال الت الى يوض ح مقارن ة اس م يدخل ه الم ستخدم باس م ‪Nada‬‬

‫وإظهار صندوق رسائل يتغير محتوياته على حسب المقارنة‪.‬‬
‫)(‪Sub Main‬‬

‫‪Dim YourName As String‬‬
‫"‪Const MyName = "Nada‬‬
‫)"‪YourName = InputBox("Enter Your Name", "Hello‬‬
‫‪If Yourname > MyName Then‬‬

‫)"‪MsgBox("Your Name is next to my name‬‬
‫‪Else‬‬

‫)"‪MsgBox("My name is next to your name‬‬
‫‪End If‬‬
‫‪End Sub‬‬

‫‪٦٢‬‬