اهلا وسهلا بك فى بوابة الثانوية العامة ... سجل الان

العودة   بوابة الثانوية العامة المصرية > القسم الإداري > أرشيف المنتدى

أرشيف المنتدى هنا نقل الموضوعات المكررة والروابط التى لا تعمل

مشاهدة نتائج الإستطلاع: هل تريد البرنامج المقرر Visual Basic 2008 express
نعم أريدة وأحتاجة 74 86.05%
لا شكراً غير مهم 12 13.95%
المصوتون: 86. أنت لم تصوت في هذا الإستطلاع

 
 
أدوات الموضوع ابحث في الموضوع انواع عرض الموضوع
  #661  
قديم 07-05-2013, 10:55 PM
ابو كريم عمرو ابو كريم عمرو غير متواجد حالياً
عضو جديد
 
تاريخ التسجيل: Jan 2013
المشاركات: 21
معدل تقييم المستوى: 0
ابو كريم عمرو is on a distinguished road
افتراضي أرجو حل هذا السؤال ؟؟؟؟؟؟؟

Dim A , B ,N As Integer
A=5
FOR N = 1 TO 8 STEP 2
B= A+N
NEXT
IF N >A
A= A+1
END If
المطلوب قيمة المتغير A , B , N , ناتج الشرط ؟؟
  #662  
قديم 07-05-2013, 11:12 PM
samaty samaty غير متواجد حالياً
عضو جديد
 
تاريخ التسجيل: Jul 2008
المشاركات: 47
معدل تقييم المستوى: 0
samaty is on a distinguished road
افتراضي

قيمة a= 6 b= 17 n n=7 و قيمة الشرط True
  #663  
قديم 08-05-2013, 02:18 AM
التدريس مهنتى التدريس مهنتى غير متواجد حالياً
عضو جديد
 
تاريخ التسجيل: Dec 2012
العمر: 39
المشاركات: 12
معدل تقييم المستوى: 0
التدريس مهنتى is on a distinguished road
Impp متى يتوقف التكرار فى جملتى التكرار For ... Next ** Do while ... Loop

Dim x , sum As Integer
sum = 2
For x = 3 To 10 Step 3
sum = sum + 2
Next
Msgbox ( sum
وما هى اول قيمة للمتغير sum هل هى 2 أما 4 فى التكرار ؟؟ ومتى يتوقف التكرار ؟؟ ولماذا ؟؟
Dim M , Total As Integer
M = 3
Total = 5
Do while M < 20
M = M + 3
Total = Total + 2
Loop
Msg box ( Total )
ما هى قيمة كل من المتغيرين M .. Total بعد نهاية الحلقة التكرارية ؟؟ ولماذا ؟؟
أرجو الرد من السادة الأفاضل على وجه السرعة مع الشرح المفصل رجاء لوجه الله
وشاكر لحضراتكم مجهوداكم وجزاكم الله كل الخير
  #664  
قديم 08-05-2013, 06:00 AM
olobnet olobnet غير متواجد حالياً
عضو مشارك
 
تاريخ التسجيل: May 2008
المشاركات: 118
معدل تقييم المستوى: 18
olobnet is on a distinguished road
افتراضي

portal.moe.gov.eg/AboutMinistry/Departments/ecd/quesbank/prep3/Documents/Answers_ChaptersQ.pdf
  #665  
قديم 08-05-2013, 12:43 PM
asdzazax asdzazax غير متواجد حالياً
عضو مجتهد
 
تاريخ التسجيل: Nov 2012
المشاركات: 90
معدل تقييم المستوى: 13
asdzazax is on a distinguished road
افتراضي ممكن لو سمحت اجابه

أكتب المصطلح العلمى الدال على العبارات التالية
المسئولة عن معرفة القيمة الراجعة فى الإجراء Function
- دالة معرفة تستخدم فى الخروج من الحلقات فى جملة Do….. While
- خاصية تستخدم لتحديد ترتيب العنصر المحدد داخل أداة ListBox
- الخاصية Interval نوع البيان لها ( string – Boolean – integer )
[IMG]file:///C:\DOCUME~1\NewLook\LOCALS~1\Temp\msohtml1\01\clip _image001.gif[/IMG] أكتب برنامج لطباعة الاعداد الفردية من صفر الى 25 وعرض كل قيمة فى سطر

- القيمة العائدة للخاصية SelectedIndex قيمتها ( عددية – حرفية – منطقية)
  #666  
قديم 08-05-2013, 12:44 PM
asdzazax asdzazax غير متواجد حالياً
عضو مجتهد
 
تاريخ التسجيل: Nov 2012
المشاركات: 90
معدل تقييم المستوى: 13
asdzazax is on a distinguished road
افتراضي

تتبع الاوامر التالية ثم أجب :
Dim x, M, K As Integer
Dim y As Integer = 4
For x = 1 To 5
If x <= y Then
M = M + x
Label1.Text = Label1.Text & M & vbCrLf
End If
Next
K = M / x
1- قيمة المتغير M = ................
2- قيمة المتغير K = .................
3- قم بإعادة كتابة الكود السابق باستخدام جملة Do While
  #667  
قديم 08-05-2013, 12:45 PM
asdzazax asdzazax غير متواجد حالياً
عضو مجتهد
 
تاريخ التسجيل: Nov 2012
المشاركات: 90
معدل تقييم المستوى: 13
asdzazax is on a distinguished road
افتراضي

: تتبع البرنامج التالى ثم أجب :
Function Total(ByVal c As Integer) As Long
Dim A As Integer = 12
Dim b As Integer = 5.8
Dim sum As Long
If A > b And A < c Then
sum = A + b + c
- اسم الاجراء ...............
- وسيط الاجراء ..................
- نوع بيان الدالة .................
- القيمة الراجعة .................
- قيمة الدالة عند تنفيذ الكود التالى MsgBox(Total(5))


MsgBox(sum)
Else
A = 5
b = 15
c = 22
sum = A + b + c
MsgBox(sum)
End If
Return Sum
End Function
  #668  
قديم 08-05-2013, 01:33 PM
a_awady a_awady غير متواجد حالياً
عضو مجتهد
 
تاريخ التسجيل: Dec 2010
العمر: 39
المشاركات: 95
معدل تقييم المستوى: 15
a_awady is on a distinguished road
افتراضي

اقتباس:
أكتب المصطلح العلمى الدال على العبارات التالية
المسئولة عن معرفة القيمة الراجعة فى الإجراء Function
- دالة معرفة تستخدم فى الخروج من الحلقات فى جملة Do….. While
- خاصية تستخدم لتحديد ترتيب العنصر المحدد داخل أداة ListBox
- الخاصية Interval نوع البيان لها ( string – Boolean – integer )
[IMG]file:///C:\DOCUME~1\NewLook\LOCALS~1\Temp\msohtml1\01\clip _image001.gif[/IMG] أكتب برنامج لطباعة الاعداد الفردية من صفر الى 25 وعرض كل قيمة فى سطر

- القيمة العائدة للخاصية SelectedIndex قيمتها ( عددية – حرفية – منطقية)
اجابات المجموعة الأولى

1 - Return
2 - Exit Do ولو ان صيغة السؤال خاطئة
3 - Selected Index
4 - Integer

البرنامج
Dim x as integer
for x = 1 to 25 step 2
label1.text = label1.text & VBCRLF & X
Next

القيمة العائدة من الخاصية Selected Index قيمة عددية
  #669  
قديم 08-05-2013, 09:17 PM
الصورة الرمزية hassanalhawy
hassanalhawy hassanalhawy غير متواجد حالياً
مــٌــعلــم
 
تاريخ التسجيل: Sep 2010
المشاركات: 1,514
معدل تقييم المستوى: 16
hassanalhawy is on a distinguished road
افتراضي

اقتباس:
المشاركة الأصلية كتبت بواسطة asdzazax مشاهدة المشاركة
تتبع الاوامر التالية ثم أجب :
Dim x, M, K As Integer
Dim y As Integer = 4
For x = 1 To 5
If x <= y Then
M = M + x
Label1.Text = Label1.Text & M & vbCrLf
End If
Next
K = M / x
1- قيمة المتغير M = 10
2- قيمة المتغير K =2
3- قم بإعادة كتابة الكود السابق باستخدام جملة Do While
Dim x, M, K As Integer
Dim y As Integer = 4
x = 1

Do While x <= 5
If x <= y Then
M = M + x
Label1.Text = Label1.Text & M & vbCrLf
End If
x = x + 1
Loop
K = M / x
__________________
يخطئ من يظن أن للذئاب ديناً
  #670  
قديم 08-05-2013, 09:27 PM
الصورة الرمزية hassanalhawy
hassanalhawy hassanalhawy غير متواجد حالياً
مــٌــعلــم
 
تاريخ التسجيل: Sep 2010
المشاركات: 1,514
معدل تقييم المستوى: 16
hassanalhawy is on a distinguished road
افتراضي

اقتباس:
المشاركة الأصلية كتبت بواسطة asdzazax مشاهدة المشاركة
: تتبع البرنامج التالى ثم أجب :
Function Total(ByVal c As Integer) As Long
Dim A As Integer = 12
Dim b As Integer = 5.8
Dim sum As Long
If A > b And A < c Then
sum = A + b + c
Else
A = 5
b = 15
c = 22
sum = A + b + c
End If
Return Sum
End Function
- اسم الاجراء هو الدالة Total
- وسيط الاجراء هو c
- نوع بيان الدالة عددى صحيح Long
- القيمة الراجعة Sum
- قيمة الدالة عند تنفيذ الكود التالى MsgBox(Total(5))



قيمة الدالة عند تنفيذ الكود التالى
MsgBox(Total(5))
هى 42

__________________
يخطئ من يظن أن للذئاب ديناً
  #671  
قديم 08-05-2013, 10:21 PM
التدريس مهنتى التدريس مهنتى غير متواجد حالياً
عضو جديد
 
تاريخ التسجيل: Dec 2012
العمر: 39
المشاركات: 12
معدل تقييم المستوى: 0
التدريس مهنتى is on a distinguished road
Impp

[QUOTE=التدريس مهنتى;5261187]Dim x , sum As Integer
sum = 2
For x = 3 To 10 Step 3
sum = sum + 2
Next
Msgbox ( sum
وما هى اول قيمة للمتغير sum هل هى 2 أما 4 فى التكرار ؟؟ ومتى يتوقف التكرار ؟؟ ولماذا ؟؟
Dim M , Total As Integer
M = 3
Total = 5
Do while M < 20
M = M + 3
Total = Total + 2
Loop
Msg box ( Total )
ما هى قيمة كل من المتغيرين M .. Total بعد نهاية الحلقة التكرارية ؟؟ ولماذا ؟؟
أرجو الرد من السادة الأفاضل على وجه السرعة مع الشرح المفصل رجاء لوجه الله
وشاكر لحضراتكم وجزاكم الله كل الخير
  #672  
قديم 08-05-2013, 10:29 PM
التدريس مهنتى التدريس مهنتى غير متواجد حالياً
عضو جديد
 
تاريخ التسجيل: Dec 2012
العمر: 39
المشاركات: 12
معدل تقييم المستوى: 0
التدريس مهنتى is on a distinguished road
Impp ســـــــــــــــؤال فـــــى الــتــــــكــــرار الـــــرجــــــاء الأجـــــابـــة

متى يتوقف التكرار فى جملتى التكرار For ... Next ** Do while ... Loop Dim x , sum As Integer
sum = 2
For x = 3 To 10 Step 3
sum = sum + 2
Next
Msgbox ( sum
وما هى اول قيمة للمتغير sum هل هى 2 أما 4 فى التكرار ؟؟ ومتى يتوقف التكرار ؟؟ ولماذا ؟؟
Dim M , Total As Integer
M = 3
Total = 5
Do while M < 20
M = M + 3
Total = Total + 2
Loop
Msg box ( Total )
ما هى قيمة كل من المتغيرين M .. Total بعد نهاية الحلقة التكرارية ؟؟ ولماذا ؟؟
أرجو الرد من السادة الأفاضل على وجه السرعة مع الشرح المفصل رجاء لوجه الله
وشاكر لحضراتكم مجهوداكم وجزاكم الله كل الخير
  #673  
قديم 08-05-2013, 11:20 PM
mr tata mr tata غير متواجد حالياً
عضو جديد
 
تاريخ التسجيل: Sep 2012
المشاركات: 3
معدل تقييم المستوى: 0
mr tata is on a distinguished road
افتراضي

قبل التكرار تساوى 2
اول قيمه للمتغير sum بعد بداية التكرار هى 4 وبعد نهاية التكرار 8
يتوقف التكرار عندما تكون x بـ 12
لانه اكبر من قيمة النهايه
قيمة M بعد نهاية التكرار هى 21
قيمة TOTAL بعد نهاية التكرار هى 17
  #674  
قديم 10-05-2013, 09:28 AM
الصورة الرمزية hassanalhawy
hassanalhawy hassanalhawy غير متواجد حالياً
مــٌــعلــم
 
تاريخ التسجيل: Sep 2010
المشاركات: 1,514
معدل تقييم المستوى: 16
hassanalhawy is on a distinguished road
افتراضي

[QUOTE=التدريس مهنتى;5262423]متى يتوقف التكرار فى جملتى التكرار For ... Next ** Do while ... Loop Dim x , sum As Integer
sum = 2
For x = 3 To 10 Step 3
sum = sum + 2
Next
Msgbox ( sum
وما هى اول قيمة للمتغير sum هل هى 2 أما 4 فى التكرار ؟؟ ومتى يتوقف التكرار ؟؟ ولماذا ؟؟
Dim M , Total As Integer
M = 3
Total = 5
Do while M < 20
M = M + 3
Total = Total + 2
Loop
Msg box ( Total )
ما هى قيمة كل من المتغيرين M .. Total بعد نهاية الحلقة التكرارية ؟؟ ولماذا ؟؟
أرجو الرد من السادة الأفاضل على وجه السرعة مع الشرح المفصل رجاء لوجه الله
وشاكر لحضراتكم مجهوداكم وجزاكم الله كل الخير[/QUOTE]

اقتباس:
المشاركة الأصلية كتبت بواسطة mr tata مشاهدة المشاركة
قبل التكرار تساوى 2
اول قيمه للمتغير sum بعد بداية التكرار هى 4 وبعد نهاية التكرار 8
يتوقف التكرار عندما تكون x بـ 12
لانه اكبر من قيمة النهايه
=======
قيمة M بعد نهاية التكرار هى 21
قيمة TOTAL بعد نهاية التكرار هى 17

بارك الله لكم
__________________
يخطئ من يظن أن للذئاب ديناً
  #675  
قديم 10-05-2013, 09:40 AM
الصورة الرمزية hassanalhawy
hassanalhawy hassanalhawy غير متواجد حالياً
مــٌــعلــم
 
تاريخ التسجيل: Sep 2010
المشاركات: 1,514
معدل تقييم المستوى: 16
hassanalhawy is on a distinguished road
افتراضي

اقتباس:
المشاركة الأصلية كتبت بواسطة ابو كريم عمرو مشاهدة المشاركة
Dim A , B ,N As Integer
A=5
FOR N = 1 TO 8 STEP 2
B= A+N
NEXT
IF N >A
A= A+1
END If
المطلوب قيمة المتغير A , B , N , ناتج الشرط ؟؟

N = 9 و B = 12 و A = 6 و ناتج الشرط True
__________________
يخطئ من يظن أن للذئاب ديناً
 

العلامات المرجعية

الكلمات الدلالية (Tags)
أبوزياد, اتفة الفصل الرابع وورد, شرح الترم الثاني فيديو


ضوابط المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا يمكنك اضافة مرفقات
لا يمكنك تعديل مشاركاتك

BB code متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع


جميع الأوقات بتوقيت GMT +2. الساعة الآن 02:25 PM.