[LEFT]

[SIZE=5]طالبتي العزيزة
راجعي الدوال في الفصل الثالث عشر أولا ثم اقرئي الأمثلة الموجودة في الكتاب ومن ثم ابدئي في حل التمارين الموجودة في هذا الملف
مع تمنياتي لكن بالتوفيق
طالبتي العزيزة أرجو تنفيذ هذه الجمل البرمجية (الشفرات)
على جهازك لمعرفة الناتج الصحيح لكل منها
إذا كتبت الجمل الآتية وتم تنفيذ البرنامج ما هي النتيجة دون شرح.

1- MID("what is your name?",7)
.................................................. ....................

2- "what is your name?".substring(7)
.................................................. .....

3- Ucase(mid("happy week end",2,8))
.................................................. ....................
4- Dim pass As String = "124_abc+r"
If pass.indexof("n") < 0 Then
MsgBox(pass.remove(6))
Else
Beep()
End If
................................................
5- "haow you".insert(5,"are ")
..............................................
6- MyText =StrComp("TafTaf","TafTaf", CompareMethod.Text)
...................................نتيجة الدالة
7- Dim test As String = "abc"
If Len(test) - 1 > 0 Then
MsgBox(Mid(test, Len(test) - 1))
End If
ما محتوى الرسالة ..............................................
8-Label1.Text = String.Concat("Are", "You", "Happy?")
…………………………………………………………
9- msgbox(ASC("Apple"))
...................................محتوى الرسالة
10- Dim reat As String = "s_logn"
For i = 1 To reat.Length - 2
MsgBox("السلام عليكم")
Next


كم مرة تنفذ الحلقة وتظهر الرساله .........................
ماهو الناتج لهذه الجملة 11

Len(Mid( "Open new file",10,4)) = label1.text
.................................................. ................
ماهو الناتج لهذه الجملة 12
Dim X As Integer
X = TextBox1.Text.IndexOf("/")
TextBox1.Text = TextBox1.Text.Remove(X, 1)
إذا كان مربع النص يحتوي على النص MR\ Mohamed Aly
.................................................. ..................
13 - الجملة ("welcome in vb.net",Mid(“I am Agirl”,8,1)) Instr تعيد :
‌أ. 9
‌ب. 8
‌ج. 1
‌د. -1

14- السطر البرمجي الذي يعيد أربع أحرف من السلسلة النصية "This is VB.NET Test" بداية من الحرف الثانى هو:
‌أ. "welcome in vb studio 2008".Insert(2,4)
‌ب. "welcome in vb studio 2008".Substring(2,4)
‌ج. Substring("welcome in vb studio 2008",2,4)
Insert("welcome in vb studio 2008",2,4)

15- الجملة ("welcome in vb.net",Mid(“I am Agirl”,8,1)) Instr تعيد :
‌ه. 9
‌و. 8
‌ز. 1
‌ح. -1

16 - السطر البرمجي الذي يعيد أربع أحرف من السلسلة النصية "This is VB.NET Test" بداية من الحرف الثانى هو:
‌د. "welcome in vb studio 2008".Insert(2,4)
‌ه. "welcome in vb studio 2008".Substring(2,4)
‌و. Substring("welcome in vb studio 2008",2,4)
Insert("welcome in vb studio 2008",2,4)

17- ما هى الدالة البرمجية المناسبة التى تكتب مكان الفراغ لاكمال الشفرة الاتية Label1.text=.....(65) ويكون الناتج هو حرف A
‌أ. Chr
‌ب. Asc
‌ج. Char
‌د. ANSI

أوجدي مخرج كل شفرة مما يلى دون شرح الشفرة:
18 Sub x()
Dim str As String = "This is VB.NET Test"
Dim insStr As String = "Insert "
Dim strRes As String = str.Insert(15, insStr)
MsgBox(strRes)
End Sub
إذا استدعي الروتين السابق بالجملة x() فما هو مخرج الروتين .
………………………………………………

19
Function Total(x as integer, ByVal y as integer, z as integer )
Dim Sum As Integer Sum = x + y + z
If Sum > 20 Then
Sum = Sum + 3
Else
Sum = Sum / 2
End If
Return(int(sum))
End Function
إذا تم استدعاء الدالة بالجملة الآتية فما نتيجة تنفيذ الإجراء :
MsgBox(Total(5,3,7))
………………………………………………………………………

20
label1.text= StrComp ("The Test”,”The TestS”, CompearMethod.Text)
………………………………………………………………………

طالبتي
راجعي الدوال أولا ثم اقرئي الأمثلة الموجودة في الكتاب ومن ثم ابدئي في حل التمارين الموجودة في هذا الملف