بنات الفرقة الاولى مراجعة البرمجة الشيئية 1 (جاهزة)

[Miss Ice]

بسم الله الرحمن الرحم
السلام عليكم ورحمة الله وبركاته



كيفكم صبايا ؟؟؟؟ اليوم نزلت لكم مراجعة البرمجة وصلتني وحبيت اساعد اللي ما عرفت تنزلها





صححي الخطأ في الشفرة :

1. Dim Age integer
2. Dim 4Students As String
3. Dim **************** As String
4. Dim As Date
5. Dim Red Car As String
6. Dim && As Byte
7. Dm Birthday As Date
8. Dim As Price Byte
9. ا****************Box1.****************=ختبار نهائي
10. Label1.Visible = "True"
11. Label1.Visib= False
12. MsgBox=("اهلا و سهلا")
13. If checkbox.CheckState=1 Then
14. If Label1.****************="7" , Label2.****************="7" , Label3.****************="7" Then
15. Label1.****************=Cstr(Int(Rand()*10))
16. System.Diagnostics.Process.Drawing
17. Beeping
18. Randmiz
19. Msgbox("اسم الطالبة " + ****************Box1.****************)
20. MsgBox("اليوم من السنه " & DateTimePicker1.Value & DayOfYear.ToString)
ما هي نتيجة تنفيذ الشفرة التالية :
1. Label1.****************= 5 + -3 * (4 ^ 2 )
2. Msgbox ( 7\ 2 )
3. If CheckBox1.CheckState= 1 Then
MsgBox("تم تنشيط حسابك")
Else
Button1.Enabled=False
End If
4. Label1.**************** = int ( rnd () * 100)
5. System.Diagnostics.Process.Start ("www.msn.com")
6. If ****************box1.****************="reem" Then
PictureBox1.Visible = True
End If
7. Msgbox(****************Box1.****************)
8. Label1.Font = FontDialog1.Font
9. ColorDoialog1.ShowDialog
10. Label1.**************** = Rnd () * 10
11. ****************Box1.Clear
12. Beep
13. Select Case Listbox1.SelectedIndex
Case 0
Label1.****************="First"
Case 1
Label1.****************="Second"
End Select
14. OpenfileDialog1.Filter = "Excel Files(*.xls)|*.xls"
15. Msgbox( "Day Of Year" & DateTimeString.Value.DayOfYear.Tostring)

اكتبي شفرة مناسبة للمهام التالية :
1. فتح موقع انترنت www.Google.com.sa
2. فتح صورة موجود في المسار التالي
C:\********************************s and Settings\User\My ********************************s\Pic.jpg
3. فلتره مربع حوار Open لعرض ملفات ورد فقط بامتداد docx
4. توليد رقم عشوائي من 0 إلى 18 في أداة مربع نص
5. عرض مربع رسالة يحتوي على الجملة (اسم الطالبة) مع محتويات أداة مربع النص الأول
6. إذا كان المتغير stname يساوي عبدالله و المتغير stnumber يساوي 443 إذن اعرض رسالة ( مرحبا عبدالله )
7. إضافة العناصر (الشمس – القمر – النجوم ) إلى أداة Combobox1
8. تغيير لون الخلفية لأداة التسمية Label1 إلى اللون المحدد في مربع حوار Colors
9. طباعة التاريخ و الوقت الحالي في أداة التسمية Label1
10. إذا اختار المستخدم العنصر الأول من لائحة Listbox1 سيعرض البرنامج الرسالة (Welcome) وإذا اختار العنصر الثاني سيعرض البرنامج الرسالة (Hello Friend)
11. كتابة الجملة (اختبار نهائي) على أداة مربع النص الأول
12. تعريف متغير Price من نوع أرقام كسريه
13. تعريف متغيرين FirstNam و LastNam من نوع سلاسل نصية
14. تعريف ثابت Pi وإعطائه القيمة 3.1415
15. إخفاء صورة من مربع الصورة الأول
16. إذا تم اختيار أداة Ceckbox1 سيتم عرض التسمية الأولى و إذا تم إلغاء الاختيار تختفي التسمية
17. مسح محتويات مربع النص الأول
18. جمع قيمة مربع النص الأول و قيمة مربع النص الثاني و طباعتها في مربع النص الثالث
19. طباعة القيمة المطلقة للرقم (60) في أداة التسمية الأولى
20. إذا كان المتغير Age اكبر من 5 إذن أغلق البرنامج
21. عرض مربع ادخال فيه الرسالة (Enter Password)

اختاري الاجابة الصحيحة :
1. ما هو ناتج الشفرة التالية : Label1.****************= now
a. التاريخ الحالي
b. التاريخ والوقت الحالي
c. الوقت الحالي
d. النظام الحالي

2. ما هي قيمة المتغير Student بعد تنفيذ الشفرة التالية :
Dim Student As String
Student = "Marym"
Label1.****************=Student
Student = "Amal"
Label1.****************=Student
a. Marym
b. Amal
c. Marym Amal
d. None

3. في الأداة MenuStrip يمكن إجراء التعديلات التالية :
a. إعادة ترتيب الأوامر في القائمة
b. إضافة أوامر جديدة إلى القائمة
c. حذف أوامر من القائمة
d. جميع ما سبق

4. الشفرة التالية Label1.ForeColor تقوم بتغيير
a. لون الخط
b. نمط الخط
c. لون الخلفية
d. لون الحدود

5. لتخزين قيمة في متغير Cours من مربع نص نكتب
a. Cours = ****************Box1.****************
b. "مربع نص "Cours =
c. ****************Box1.**************** =Cours
d. Add ****************Box1 To Cours
6. حجم متغير من نوع Double هو
a. 16 بت
b. 32 بت
c. 64 بت
d. 128 بت

7. الخطأ في الشفرة التالية
OpenFileDialog1.Filter=Bitmaps (*.bmp)|*.bmp
a) علامة النجمة
b) اسم الخاصية
c) علامات الاقتباس
d) الأقواس

8. الخطأ في الشفرة التالية
Dim FullName As Sting
a. كلمة التصريح Dim
b. اسم المتغير FullName
c. كلمة As
d. نوع البيانات Sting
9. ما هو ناتج الشفرة التالية
Dim a , b , c As integer
a=2
b=2 & a
c = b / 2
Label1.****************= b + c
a. 2
b. 22
c. 33
d. 3

10. ما هو ناتج الشفرة التالية
Imports System.Math
a. إدراج صورة اسمها System.Math
b. فتح ملف System.Math
c. إدراج مكتبة System.Math
d. تعريف متغير System.Math

11. الطريقة الرياضية التي تعيد جيب التمام للزاوية n هي
a. Cos(n)
b. Abs(n)
c. Sqrt(n)
d. Sin(n)
12. ناتج العملية الرياضية Number = ( ( 8 – 5 ) * 3 ) ^ 2 بناء على أسبقية العوامل هي
a. 49
b. 81
c. 28
d. 9
13. ناتج العملية الرياضية Number = 1 ^ 2 * 3 / 4 بناء على أسبقية العوامل هي
a. 2
b. 1
c. 4
d. 0
14. التركيب النحوي المختصر للشفرة X = X ^ 6 هو
a. X ^ = 6
b. X ^ 6 =
c. 6 ^ = X
d. X = ^ 6


15. نصرح الثوابت بالكلمة ..............
a. Dim
b. Public
c. Const
d. Privet

16. نتيجة تنفيذ الجملة 7 Mod 5 :
a. 2
b. 0
c. 1.4
d. 1

17. الجملة البرمجية x = x + 2تكافئ الجملة البرمجية التالية :
a. X + 2 = x
b. X + = 2
c. X = + 2
d. X + X = 2

18. لضبط مفتاح اختصار لبند من القائمة نضبط الخاصية :
a. ShortcutKeys
b. Show ShortcutKeys
c. Shortcut
d. ShortcutKeysDisplayString

19. لتصريح متغيرين Name1 و Name2 من نوع String نكتب
a. Dim Name1 As String , Name2 As String
b. Dim Name1 , Dim Name2 As String
c. Dim Name1 , Name2 As String
d. Dim Name1 As String , Dim Name2 As String

20. عندما يقيم البرنامج تعبير معقد فانه سيتم تقييم :
a. العوامل الرياضية
b. عوامل المقارنة
c. العوامل المنطقية
d. أ و ب في نفس الوقت

21. الجملة Sqrt (n) تعيد
a. مربع القيمة n
b. تعيد جيب الزاوية n
c. الجذر التربيعي لـ n
d. القيمة المطلقة لـ n


22. الجملة التي تطبع التاريخ و الوقت الحاليين في أداة التسمية هي :
a. Label1.****************=DateString
b. Label1.****************=now
c. Label1.****************=TimeString
d. Label1.****************=Hour(now)

23. الجملة الصحيحة الخاصة بتعريف لائحة بالملفات الصالحة في مربع حوار فتح بحيث تعرض ملفات لها الملحق .doc
a. OpenfileDialog1.Filter = "******************************** Files|(*.doc)*.doc"
b. OpenfileDialog1.Filter = ******************************** Files(*.doc) |*.doc
c. OpenfileDialog1.Filter = "******************************** Files (*.doc) |*.doc"
d. OpenfileDialog1.Filter = "******************************** Files (*.doc) &*.doc"


24. ناتج تنفيذ الجملة البرمجية التالية :
Dim Age As Single = 13
If Age < 7 Xor Age > 24 Then
Msgbox(" you are not in school")
Else
Msgbox("you are still in school")
End if
a. عرض مربع الرسالة you are not in school
b. عرض مربع الرسالة you are still in school
c. a و b
d. لا شي مما سبق

25. FullName = InputBox (Prompt)
a. FullName متغير يحتفظ بالقيمة التي ادخلها المستخدم
b. FullName متغير يحتفظ بالنص الذي يظهر على عنوان مربع الإدخال
c. FullName متغير يحتفظ بالرسالة التي تظهر على مربع الإدخال
d. لا شي مما سبق

26. الجملة Sqrt (n) تعيد :
a. مربع قيمة n
b. جيب الزاوية n
c. الجذر التربيعي لـ n
d. القيمة المطلقة لـ n

27. ناتج تنفيذ الجملة البرمجية التالية :
Dim x As Integer = 8
If x < 9 Then
Msgbox("you win")
Else
MsgBox("Thank you")
End if
a. you win
b. Thank you
c. رسالتين الأولى you win و الثانية Thank you
d. لا شي مما سبق

28. ما هو الناتج الذي يظهر على التسمية :
Dim a,b,c As Integer
a=2
b=a^2
c=a+b
Label1.****************=a+b+c

a. 12
b. 6
c. 8
d. 10


29. إذا كان البند الخامس في لائحة Listbox منتقى فان قيمة SelectedIndex تكون
a. 5
b. 6
c. 3
d. 4


30. لفتح إطار الخصائص باستعمال لوحة المفاتيح
a. F4
b. F5
c. F2
d. F8



اجيبي بصح او خطأ
1. نوع البيانات Byte لا يحتوي أرقام سالبة
2. كمية المساحة المطلوبة من الذاكرة لتخزين حرف واحد هي 4 بت
3. لا يمكن ضبط خصائص الأدوات المدرجة في درج المكونات
4. يظهر مفتاح الوصول بخط اسود عريض في القائمة
5. لتطبيق مفاتيح الوصول نستخدم المفتاح Alt
6. الأمر Insert Standard Item يضيف أزرار شريط الأدوات القياسي
7. لم يعد نوع البيانات Variant مدعوم في VB 2005
8. العامل الرياضي Mod يعطي خارج القسمة الصحيح
9. لعرض مربع رسالة نستخدم الدالة MsgBox
10. قبل استخدام المتغير يجب حجز مساحه له في الذاكرة Ram
11. اختصار الصيغة X = X * 8 هو X =* 8
12. نوع البيانات في الجملة (Sara 45) هي String
13. العامل & هو عامل جمع
14. الجملة ColorDialog1.ShowDialog تستعمل لفتح مربع حوار Color


ترجمي الجمل التالية إلى شفرات
1. تعريف متغير نصي باسم FirstName
2. تعريف ثابت درجة غليان الماء
3. عرض مربع نص فيه الرسالة (اختبار أعمال السنة)
4. عرض داله الإدخال InputBox فيه الرسالة (ادخل اسم المادة) والعنوان (تسجيل مواد)
5. طباعة الشهر الحالي في أداة التسمية
6. فلتره مربع حوار فتح الملفات بحيث يعرض صور بامتداد jpg فقط
7. عرض مربع حوار الألوان
اكملي الجمل التالية بما يناسبها على ضوء دراستك للمادة

1. تستخدم ......... لإضافة قوائم إلى البرنامج
2. لعرض الساعة في أداة التسمية نستخدم ...........
3. الدالة ............... تعرض القيمة المطلقة للرقم
4. الدالة .............. تستخدم لاختبار متغير واحد فقط
5. الكلمة................تستخدم عادة لتعريف الثوابت
6. المكتبة الرياضية تسمى ....................
7. يمكن عرض أزرار شريط الأدوات .......... أو ............ أو ......................

ضعي إشارة (صح) على الشفرة الصحيحة و إشارة ( خطا) على الشفرة الخاطئة :

1. Dim 4Student As String
2. Dim **************** As String
3. Const BoiledWater As Integer = 100
4. If x > 3 and Y <= 10 Then
5. Label1.****************="Welcome " & STName
6. Select Case ListBox1.Items
7. Msgbox(Date String)
8. ColorDialog1.ShowDlog
9. Inputbox("Enter Cours Name","Group 1")

رمز الستار يكو اما lable # تيكست

[єηкєšαя]

مشكورة ويعطيك العافية
هذا نفسها ياللي نزلتها استاذة عبير ؟

[سوكرهـ]

يعطيك العافيه

إيه نفسها

[طفششش]

يعطيك العآفيه ... بس وين ألآجوبه .. ؟؟؟:011:

[**بنت الغلا**]

يعطيك العافية بس وين الأجوبة اختك فالله سودانية ماني فاضية أفتح الكتاب بس يعطيك مليون عافية

[Miss Ice]

مشكووووووووووورين على المرور واتمنى افيدكم ............ بس الي يبغون الاجوبة تراني مثلكم ما حليت الا كم سؤال .......... وتعبت ياليت تتعبون مثلي ..... اختكم في الله سعودية ....

[يعجبني غروري]

مشكوره يعطيك العافيه رايحه احلها:150:
ادعولنا :praying:

[Miss Ice]

الله يسلمك خيتو ... ويوفقش في حلها

[عربجية المشاعر]

لآهـ عزآت آللهـ نجحنآآ
آنآمآفهمت ولآ شي