[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)
………………………………………………………………………
طالبتي
راجعي الدوال أولا ثم اقرئي الأمثلة الموجودة في الكتاب ومن ثم ابدئي في حل التمارين الموجودة في هذا الملف