ابني طالب صف ثالث
ومدرس الحاسب الله يهديه شرحه مو قد كده
وما شرح لهم الا البابين الاولى فقط والباقي اشر لهم هو
وطبعت له اسئله من منتداكم
فلو سمحتوا ممكن تساعدوني في حل بعض الاسئلة
شاكره لكم ومقدره
وجزاكم الله خير الجزاء
1 / عند تحويل العملية الجبرية التاليه Z=6*XY الى لغة فيجوال بيسك تتحول الى
Z=6*XY
Z=6*X+Y
Z=6*X*Y
2/ ما هو الامر المكرر وكم سيتكرر
FOR M = 1 TO 50
PRINT الصف الثالث
NEXT
3 / كم عدد عناصر المصفوفه التالية
DIM age (49 AS String
4/ في المصفوفه
Tech
رقم العنصر القيمة
0 7
1 8
2 13
3 4
4 14
5 10
6 9
كم عدد عناصر المصفوفه (tech)
اكتب صيغة الوصول الى قيمة العنصر (2)
اكتب امر تعريف المصفوفه (tech) بلغة فيجوال بيسك
5/ ما هي القيمة التي سيتم اسنادها للمتغير age في المثال التالي
DIM NAME AS String age as single
age = 26
6 / القاعدة ..................................يفضل استخدامها اذا كان لدينا عدة احتمالات للشرط
اما اذا كان لدينا احتمال واحد او احتمالان فيفضل استخدام القاعدة ....................................
7 / اكتب الصيغة اللازمه لتعريف ثابت اسمه pi وقيمته 3.14
8 / اذكر مخرجات البرنامج
M= 1
DO while M >= 10
PRINT M
M = M + 2
LOOP
صح او خطأ
/ لتجميع الادوات لتعمل مع بعضها مثل ازارير الاختيار نرسمها داخل اداة الاطار ( )
/ اطار محتويات المشروع يمكن من خلاله تحديد موقع اطار البرنامج عند التنفيد ( )
/ المتغير BB متغير عددي لاسناد الرقم 45 اليه نكتب BB= 45 ( )
/ كلمة START5 في الصيغة العامه for - next تعني ان قيمة الزيادة للعداد هي (5 ) ( )
/ PIE ثابث يخزن قيمة ثابثه "3.14 " نوع الثابث PIE ثابث عددي ( )
MR2 لايصلح لان يكون اسم متغير في لغة فجوال بيسك لنه يحتوي على فراغ ( )
11 / حدد نوع الثابث او المتغير وهل هو عددي او حرفي
الرمز
M
MS
ALI
''ALI"
998
"3+ 5 "
& ALI
12 l جميعها متساوية في الاولوية وهي اقل في الاولوية من العمليات الحسابية
< >
= <
=>
= شكل معين
13 / اسم صالح لتسمية المتغيرات
DIM 23 S & Name AR 23 DIM
14/ حدد اسم المتغير ومدى صلاحيته
DIM 6 STUDENT AS INTEGER
DIM NN AS VARIANT
التعديل الأخير تم بواسطة النور السعودي ; 02-07-2010 الساعة 04:16 PM
1 / عند تحويل العملية الجبرية التاليه Z=6*XY الى لغة فيجوال بيسك تتحول الى
Z=6*XY
Z=6*X+Y
Z=6*X*Y
2/ ما هو الامر المكرر وكم سيتكرر
FOR M = 1 TO 50
PRINT الصف الثالث
NEXT
الصف الثالث وتكرر 50 مره
3 / كم عدد عناصر المصفوفه التالية
DIM age (49 AS String
عدد عناصرها 50
4/ في المصفوفه
Tech
رقم العنصر القيمة
0 7
1 8
2 13
3 4
4 14
5 10
6 9
كم عدد عناصر المصفوفه (tech) 7
اكتب صيغة الوصول الى قيمة العنصر (2) m ( 1 )
اكتب امر تعريف المصفوفه (tech) بلغة فيجوال بيسك DIM tech(6) As Integer
5/ ما هي القيمة التي سيتم اسنادها للمتغير age في المثال التالي
DIM NAME AS String age as single
age = 26
26
6 / القاعدة ...Select Case...يفضل استخدامها اذا كان لدينا عدة احتمالات للشرط
اما اذا كان لدينا احتمال واحد او احتمالان فيفضل استخدام القاعدة IF
7 / اكتب الصيغة اللازمه لتعريف ثابت اسمه pi وقيمته 3.14
Const pi = 3.14
8 / اذكر مخرجات البرنامج
M= 1
DO while M <= 10
PRINT M
M = M + 2
LOOP
1 3 5 7 9 طباعة الاعداد الفرديه
صح او خطأ
/ لتجميع الادوات لتعمل مع بعضها مثل ازارير الاختيار نرسمها داخل اداة الاطار ( صح )
/ اطار محتويات المشروع يمكن من خلاله تحديد موقع اطار البرنامج عند التنفيد ( خطأ )
اطار التخطيط/ المتغير BB متغير عددي لاسناد الرقم 45 اليه نكتب BB= 45 ( صح )
/ كلمة START5 في الصيغة العامه for - next تعني ان قيمة الزيادة للعداد هي (5 ) ( خطأ )
STEP5
/ PIE ثابث يخزن قيمة ثابثه "3.14 " نوع الثابث PIE ثابث عددي ( صح )
MR2 لايصلح لان يكون اسم متغير في لغة فجوال بيسك لنه يحتوي على فراغ ( خطأ )
يصلح
11 / حدد نوع الثابث او المتغير وهل هو عددي او حرفي
الرمز
M متغير حرفي
MS متغير حرفي
ALI متغر حرفي
''ALI" ثابت حرفي
998 ثابت عددي
"3+ 5 " ثابت حرفي
& ALI ...للعلامه معنى اجهله ؟؟ ممكن احد يساعد
12 l جميعها متساوية في الاولوية وهي اقل في الاولوية من العمليات الحسابية
< >
= <
=>
= شكل معين (لم افهم)
13 / اسم صالح لتسمية المتغيرات
DIM 23 S & Name AR 23 DIM
Name
AR
S
14/ حدد اسم المتغير ومدى صلاحيته
DIM 6 STUDENT AS INTEGER
6 STUDENT
غير صالح لانه ابتدأ برقم
DIM NN AS VARIANT
NN
صالح
ان اخطأت فمن نفسي
او اصبت فمن نعمة الله
التعديل الأخير تم بواسطة متميزه ; 02-07-2010 الساعة 07:38 PM
البرنامج اعطيته قيم لتخزن في المتغيرات A,B,C
A=4
B=6
C=10
بعدين اعطي قيم آخرى لتخزن في المتغير .. اذن تمسح القيمه القديمه وتخزن القيمه الجديده
A=B
A=C
راح يبقى بالبرنامج أخر قيمة تخزنت في المتغيرات A,B,C
عند طباعة Print للقيم A,B,C
ستكون النتيجة
10 7 10
------------------
الخطأ بالبرنامج حين اسندت قيمة عدديه في K=100 والمتغير k معرف على انه متغير نصي String
في التوضيح بالون الازرق اخطا حين ذكر ان المتغيرK ثابت حرفي بل هو متغير حرفي بدليل انه استخدم لتعريف Dim
------------------------
الخطأ في الصيغه
Dim X As Single
As تستخدم لربط اسم المتغير بنوعه اثناء تعريف المتغير
والصيغهDim Var As Type
Const B = 50
لتخزين القيمة 50 في الثابت B
وصيغة تعريف ثابت Const Const1 = Value
---------------
حلقات التكرار
المتغيرM يأخذ القيمة الاوليه للعد 10
الى القيمة النهائية للعد 50
بمقدار زيادة لدورة التكرار 20
ويطلب طباعة لقيمة المتغير M
Next انتهاء حلقة التكرار ... حتى لايستمر التكرار لكل اسطر البرنامج
فايكون سير البرنامج
المتغير يأخذ القيمة الاوليه للعد M=10
طباعة المتغيرM
10
انتهاء الحلقة
ليبدأ من جديد
المتغير يأخذ القيمة التالية باضافة مقدار الزياده M=10+20
طباعة المتغيرM
30
انتهاء الحلقة
ليبدأ من جديد
المتغير يأخذ القيمة التاليه للعد M=30+20
طباعة المتغيرM
50
انتهاء الحلقة
50 القيمة النهائيه للعد فايتوقف التكرار
-------------------
كما ذكرنا في اول برنامج عند طلب طباعة متغير تتم الطباعة لأخر قيمة تخزنت فيه
المتغير A اخذ قيمة 10
بعد ذلك اخذ قيمة 8
عند طباعة قيمة المتغير A تكون النتيجة 8
----------------
عرف مصفوفه اسمها A وعدد عناصرها 3 ونوعها عدد صحيح
اعطى قيم المصفوفه الاول الثاني الثالث
10 8 4
طلب طباعة العنصر الاول والثالث
فكانت النتيجة 10 4
-----------------
اعطى قيم المصفوفة وعددها 5
وغالبا مانستخدم لادخال او طباعه قيم المصفوفة حلقات التكرار وهنا استخدم حلقة التكرار لطباعة قيم المصفوفه
لكن مع حلقة التكرار نحتاج لتعريف متغير عددي يأخذ رقم العنصر
تبدأ الحلقة بـ صفر وتنتهي بـ عدد العناصر -1
For M = 0 TO 4
B (X تاخذ القيم B(0 , B(0+2 , B(2+2
B(0 , B(2 , B(4
القيمة النهائية للعد القيمة الاوليه للعد
ويتم التعويض عن كل من B(0 , B(2 , B(4
بقيم المصفوفه المخزنه سابقا
-------------------------
التعديل
انظر لنتيجة الاولى لانها القيمة الاوليه للعد السعوديه =B(2 قيم العد الاوليه 2
الاخيره لانها القيمة النهائية للعد الاردنيه = B(4 قيمة العد النهائية 4
النتائج الباقية لانها تساعدك في معرفة قيمة الزيادة المغربية = B(3 قيمة الزيادة 1 لان 2+1 = 3 القيمة الاوليه+ قيمة الزيادة
اما المتكرر (المملكة) فهو ثابت =B(0
التعديل الأخير تم بواسطة متميزه ; 02-08-2010 الساعة 05:13 PM
الله يعطيكي الف عافية ويوفقك ربي يا اخت متميزه وفعلا متميزه في شرحك
وفهمت عليكي وانا مادرست المنهج
الله يرزقك الجنه بإذنه تعالى وييسر عليكي كل عسير يارب
وان شاء الله ربي يسهل عليكي زي ما سهلتي عليه
فقط ياريت تكملي لي لي باقي حل الاسئلة اللي في مشاركه رقم 6 و 7 من نفس الموضوع
زودتها كثير بس اتحمليني
اسفه جدا
وشكرا شكرا شكرا
جزاكي الله الف خير
single لايجوز ان يكون اسم لمتغير بسبب
( لانه يتجاوز 255 حرف ـ لانه لم يبدأ بحرف هجاء انجليزي ـ لانه اسم محجوز )
المتغير هو اسم يدل على موقع مخزن داخل ذاكرة الحاسب يتم فيه تخزين قيمة هذا المتغير ( صح / خطأ )
لتصميم واجهة عربية نغير خاصية ( RIGHT TO LEFT ) الى القيمة True ( صح ـ خطأ )
في اداة زر الخيار يمكن للمستخدم اختيار خيار واحد فقط ( صح ـ خطأ )
نستخدم اداة check box لعرض قائمة مكونه من عناصر يختار المستخدم احدهم ( صح ـ خطأ )
عرف ثابث اسم الدولة بقيمة KSa
Const State=KSa
لتحديد المدخلات الخاصة بحساب محيط المستطيل علما بان محيط المستطيل = الطول x العرض على 2
أ الطول والعرض ب / الطول x العرض
ج / محيط المستطيل د / الطول X العرض على 2
تكون نتيجة المقارنه TURE
3+ 6 = >2*5 3+6=>3*3
3+6=<3*2 3+6 = > 3*6
تعتبر اسم صالح لتسمية المتغيرات
AR 23DIM
S& NAME DIM23
اكتب الصيغة اللازمه اذا اردنا ان نخرج المعلومه التاليه ( هذا برنامج خاص بحساب الزكاة ) للمستخدم دون استخدام أدوات
البرنامج مستخدم بالكتاب
Dim m As Single,z As Single
m = Text1.Text
z = 0.025 * m
If m > 1000 Then
z & " الزكاة= " = Text2.Text
Else
"البرنامج يقوم بحساب الزكاة لأكثر من 1000 ريال " = Text2.Text
End If
End Sub
لكن بما انه طلب من دون استخدام ادوات
Dim m As Single,z As Single
("ادخل المبلغ لاحتساب الزكاة" )m = InputBox
z = 0.025 * m
If m > 1000 Then
(z & " الزكاة= " ) MsgBox
Else
("البرنامج يقوم بحساب الزكاة لأكثر من 1000 ريال ") MsgBox
End If
End Sub
جملة التكرار التي تصلح لطباعة الاعداد الزوجيه فقط هي
FOR M = 2 TO 10 STep 2
FOR M 1 TO 10 Step 2
FOR M 1 TO 10 Step3
التعديل الأخير تم بواسطة متميزه ; 02-08-2010 الساعة 06:05 PM