السؤال الأول :
معروف أن الدالة Randomize() تولد أعداد عشوائية أكبر من صفر أو تساويه
واقل من الواحد الصحيح اليكم البرنامج
اقرأ الكود التالى :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Decimal
Randomize()
x = Rnd()
TextBox1.Text = x
End Sub
بعد أن قرأت الكود فإن النتيجة ستكون :
1- تولد أعداد عشوائية أكبر من صفر وأصغر من الواحد الصحيح
2- تولد أعداد عشوائية أصغر من الصفر واكبر من الواحد الصحيح
3- توليد عدد وحيد (صفر)
4- لا شئ مما ذكر
السؤال الثانى :
إذا تم كتابة الكود التالى بعد وضع الأدوات المذكورة على Form
ماذا تتوقع أن يظهر على النافذة
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
Dim x As String
Timer1.Enabled = True
Timer1.Interval = 1000
Me.TextBox1.Text = Date.Now
End Sub
5- نتيجة البرنامج المتوقعة هى:
6- إظهار قيمة interval المربع النصى
7- إظهار التاريخ الحالى فى المربع النصى
8- إظهار التاريخ والوقت الحالى فى المربع النصى
9- لا شئ مما ذكر
السؤال الثالث :
اقرأ الكود التالى ثم أجب :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As String
Dim degree, arabic, eng, math As Decimal
Dim i As Integer
For i = 1 To 4
x = InputBox("inter your name")
arabic = InputBox("arbic")
eng = InputBox("english")
math = InputBox("math")
degree = arabic + eng + math
TextBox1.Text = degree
TextBox2.Text = x
Next
End Sub
End Class
فى البرنامج السابق إذا تم إعطاء القيم التالية فى الصندوق فما هى النتيجة
x math eng arabic النتيجة
TextBox1 TextBox2
المرة الأولى Ahmed 22 20 12.5
المرة الثانية Ali 24 34 13.5 ……
المرة الثالثة Tody 25 35 16.5
المرة الرابعة Merna 30 43 54.5
جرب أن تغير نوع المتغير decimal الى integer أو double أو single هل ستحصل على نتائج دقيقة أم لا ؟
السؤال الرابع :
حول التعبير الجبرى التالى الى تعبير بلغة Visual basic.Net
صور التعبير بلغة Visual Basic.net صور التعبير الجبرى العادى
ABC
(a+b)c
A(b2+3c)
3X2+5y
Z
A+B
-C
السؤال الخامس : التمرين التالى يتضمن العمليات المختلفة التى درستها هذا العام
رتب تسلسل حدوث العمليات فى الجدول التالى
E-D+C*A^B/(E-C)
مع التعويض حيث أن :
B=3 A=2 C=4 D=6 E=12
جزء المعادلة ( يكتب جزء المعادلة ) حسب أولوية التنفيذ
العملية الأولى
العملية الثانية
العملية الثالثة
العملية الرابعة
العملية الخامسة
العملية السادسة
الإجابة :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As String
Dim degree, arabic, eng, math As Decimal
Dim i As Integer
i = 1
Do While i <= 5
x = InputBox("inter your name")
arabic = InputBox("arbic")
eng = InputBox("english")
math = InputBox("math")
degree = arabic + eng + math
TextBox1.Text = degree
TextBox2.Text = x
i = i + 1
Loop
End Sub
End Class
بطريقة
For ….. Next
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As String
Dim degree, arabic, eng, math As Decimal
Dim i As Integer
For i = 1 To 5
x = InputBox("inter your name")
arabic = InputBox("arbic")
eng = InputBox("english")
math = InputBox("math")
degree = arabic + eng + math
TextBox1.Text = degree
TextBox2.Text = x
Next
End Sub
End Class
بطريقة
if
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As String
Dim degree, arabic, eng, math As Decimal
Dim i As Integer
i = 1
bb:
If i = 5 Then GoTo cc
x = InputBox("inter your name")
arabic = InputBox("arbic")
eng = InputBox("english")
math = InputBox("math")
degree = arabic + eng + math
TextBox1.Text = degree
TextBox2.Text = x
i = i + 1
GoTo bb
cc:
End Sub
السؤال السادس : أمامك مجموعة من الأدوات على Form
المطلوب اكمال الجدول الآتى
رقم الأداة اســــــــــــــم الأداة الوظيفــة
السؤال السابع : اختر الاجابة الصحيحة من بين الأقواس
1- 29 Mod 4= (2 ,1, 3)
2- Dim deg as sting = ( 2 , "2" , 4)
3- It's one of the properties the Radio button ( true , checked ,visible , all before is right)
4- It's one of the properties the Checkbox ( enabled , checked ,visible , all before is right)
السؤال الثامن : ضع علامة صح (√) أو علامة (X) يما يلى :
( ) Sum + run =50 ص 1
( ) Print = 47 2
( ) Dim price as decimal = 110 3
( ) 58 mod 7 =2 4
السؤال التاسع : رتب أولويات العمليات الحسابية التالية عند تنفيذها على الكمبيوتر :
147/(7)2 2*(3+7)
1- 1-
2- 2-
السؤال العاشر : أكتب اسم كل أداه من الأدوات الأربع الموجودة أمامك :
السؤال الحادى عشر :
(أ) على فرضية أن المتغيرات قد تم الإعلان عنها يوجد خطأ فى هذا البرنامج صوب هذا الخطأ (ب) قم بتتبع مجموعة الأوامر التالية موضحا
قيمة X فى كل مرة
Sum= 0
Count = 0
Do while (X <10)
Sum = sum +x
Count = count +1
Loop
Average =sum/count Dim x As Integer
Dim I As Integer
x = 6
For I = 0 To 12 Step 4
x = I + 2 ListBox1.Items.Add(x)
Next
السؤال الثانى عشر :
موظف يتقاضى مرتب شهرى (salary) ويعمل ساعات إضافية (overtime) فإذا كان المرتب وقيمة الساعات الإضافية ( Total)) أكبر من أو يساوى 2000 جنيها تكون الضرائب (Tax) بنسبة 15% ، وإلا تصبح الضرائب 10% .. المطلوب : أكتب كود البرنامج الذى يحقق أجمالى المرتب ونسبة الضرائب وصافى الدخل الشهرى (Netsalary).
السؤال الثالث عشر : صحح الخطأ فى البرامج التالية :
(أ) صحح الخطأ فى الكود التالى (ب) مانتيجة تنفيذ البرنامج التالى
Sum= 3
Count = 4
Do while (count <10)
Sum = sum +count
Count = count +1
Dim total , rate , year As Integer
total = 100
rate=2
year =5
total= total *(1+rate)^year ListBox1.Items.Add(total)
السؤال الرابع عشر : (أ) إذا كانت القيم فى المعادلة التالية هى A =3 , B =4 , C =2
أحسب ناتج المعادلة مع كتابة خطوات الحل .
A*(B^2+3^C)
(ب) : باستخدام For …………..Next
قم بكتابة برنامج يعد الأرقام الفردية من 9 الى 1 ( بحيث يكون العد المكتوب تنازلى )
السؤال الخامس عشر : ضع علامة صح (√) أو علامة (X) فيما يلى :
( ) Dim dream as decimal = 3.44 1
( ) Dim integer as dogs = 2.5 2
( ) يجوز استخدام كلمة من الكلمات المحجوزه كمتغير حرفى 3
( ) 31 mod 6 =1 4
السؤال السادس عشر :أكمل مكان النقط بالإجابة الصحيحة
إذا كانت C=2 , B=3 , M= 5
ما هو ناتج المعادلة التالية
M*(3^b – 2^c)
……………… أكتب ناتج الكود التالى
Dim N as integer
For N = 3 to 1 step -2
MsgBox(N)
Next
……………,………….. جملة الأمر
If ….. then …. Else
تنتهى بـ
………………..
السؤال السابع عشر: اختار من المجموعة (ب) ما يناسب المجموعة (أ) (تكتب الجملة الصحيحة كاملة ولا تكتب أرقام)
(أ) (ب)
أ أمر التخصيص String يستخدم مع 1 أمر تحكم لتكرار مجموعة من الأوامر حتى يتحقق شرط معين.
ب يمكن عمل ساعة رقمية باستخدام الكائن 2 MsgBox
جـ الدالة Rnd() تستخدم لتوليد 3 المتغيرات الحرفية
د عند استخدام Do while …. Loop 4 Timer
5 أرقام عشوائية أكبر من أو تساوىصفر وأصغر من الواحد الصحيح
6 Data and time
7 المتغيرات الرقمية
8 أمر تحكم لتكرار مجموعة من الأوامر خارج الـ Loop
السؤال العشرون : رتب الجمل الآتبة ليصبح البرنامج صحيحا :
MsgBox("The value is: " & Adel)
Bob = 2
Adel = 5
Dim Bob, Adel As Integer
Adel = Adel+Bob
السؤال حادىوعشرون : تقوم بعض الدول بعمل ضريبة تصاعدية على الدخل على النحو التالى :
1- إذا كان الدخل أقل من 5000 جنيها لا يوجد خصم ضرائب ( صفر)
2- إذا كان الدخل أكبر من أويساوى 5000 جنيها وأقل من 10000 جنيها تكون الضريبة على الدخل 5%
3- إذا كان الدخل أكبر من أويساوى 10000 جنيها وأقل من 20000 جنيها تكون الضريبة على الدخل 10%
4- إذا كان الدخل أكبر من أويساوى 30000 جنيها وأقل من 50000 جنيها تكون الضريبة على الدخل 15%
5- إذا كان الدخل أكبر من أويساوى 40000 جنيها وأقل من 50000 جنيها تكون الضريبة على الدخل 20%
6- إذا كان الدخل أكبر من أويساوى 50000 جنيها تكون الضريبة على الدخل 25%
وقام زميلك بكتابة كود البرنامج وترك لك بعض النقاط لتكملتها .. أكمل الناقص فى التمرين ليصبح البرنامج صحيحا وقابل للعمل . علما بأن
Income = الدخل , tax =الضريبة , netincome =الدخل بعد خصم الضريبة
1- 2- 3-
4- Dim income, ………(1)………………, netincome As Decimal
income = TextBox1.Text
If income < 5000 Then
tax = income * ……(2)…………..
ElseIf income >= 5000 Then
tax = income * 0.05
ElseIf income >= 10000 then
tax = income * 0.1
ElseIf income >= 20000 Then
tax = income * 0.15
ElseIf income >= …………………(3)…………… Then
tax = income * 0.2
ElseIf income >= 40000 Then
tax = income * 0.2
ElseIf income >= 50000 Then
tax = income * 0.25
…………(4)…………………
TextBox2.Text = tax
netincome = income - tax
TextBox3.Text = netincome
السؤال ثانى وعشرون : ضع علامة صح (√) أو علامة (X) يما يلى :
( ) Me.timer .Enabled = true 1
( ) Dim Lastname as string = ali 2
( ) Dim decimal as price 3
( ) If … then تنتهى بى End if 4
السؤال الثانى : رتب أولويات العمليات الحسابية التالية عند تنفيذها على الكمبيوتر :
147/(7)2 2*(3+7)
1- 1-
2- 2-
السؤال ثالث وعشرون :
(أ) إذا أردنا تحديد نوع المتغير المناسب فى حل تمرين فهناك قواعد يجب اتباعها وهى :
1-.......................................................
2- ............................................
(ب) – الأهمية الأساسية للخاصية interval الموجودة فى الأداة timer هى .....................................
السؤال رابع وعشرون :
قم بتتبع مجموعة الأوامر التالية موضحا قيمة X فى كل مرة
Dim x As Integer
Dim I As Integer
x = 6
For I = 0 To 3
x = I + x
Next
السؤال خامس وعشرون : اختار الناتج الصحيح من بين الأقواس
1- Dim x as integer = 5.2
x =………. ( 5 - 5.50 - 5.2 )
2- X= 2
y= 3
Z= X^ 2 * Y ……… ( 14 - 12 - 22 )
3- 58 mode 8 = ………….. ( 6 - 4 - 2 )
4- Dim I as Integer
For I = 20 to 18 step -2
Next
I =……… (16 - 18 - 20 )
السؤال سادس وعشرون : :اختار الكلمة الصحيحة من بين القواس :
1 يمكـن اسـتخـدام الكلمـة ( Dim – Const – End ) للإعـلان عن أسـماء المتغـيرات في البرنامـج.
2 لتخزين قـيم عدديـة تحتوي على كسـور نستخدم متغيرات من النوع (integer – Short – Single).
3 من قـواعـد تسـميـة المتغـيرات أو الثـوابـت في البرنامـج، يجـب أن
تبـدأ بـ ( رقـم - حـرف – أي رمـز ).
4 بعـد تنفـيذ الصـيغـة الحسـابيـة 2 + 3 * 4 يكـون النـاتـج هو ( 14 – 20 – 9 ).
5 الكلمات الآتيـة يمكن استخدامها كأسـماء لمتغـيرات عـدا الكلمـة ( Total – As – Age ).
6 29 Mod 4= (2 ,1, 3)
7 Dim deg as sting = ( 2 , "2" , 4)
8 For M = 1 to 10 … تنتهى بـــ…(End Sub - End if - Next )
9 For x = 10 to 6 step - 2 عدد مرات التكرار هى ( 6 – 4 – 3 )
10 A = 15 :B = 10 :if B<A print b^2 ( 10 , 15 , 200)
السؤال سابع وعشرون : من شروط كتابة اسم المتغير هى يكتفى بخمسة فقط ولكل واحدة نصف درجة:
1-............................................
2- ............................................
3-........................................... 4-..................................................
السؤال ثامن وعشرون : أطبع قيمة (I) فى كل دورة
Dim I as Integer
For I = 10 to 2 step -2
I =………
Next
موضوع: أسئلة على الحاسب الآلى ترم ثانى 3إعدادى لا تفوتك 
