طلبات الأعضاء للعام الدراسي 2012-2013

[ابو كريم عمرو]

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 , ناتج الشرط ؟؟

[samaty]

قيمة a= 6 b= 17 n n=7 و قيمة الشرط True

[التدريس مهنتى]

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 بعد نهاية الحلقة التكرارية ؟؟ ولماذا ؟؟
أرجو الرد من السادة الأفاضل على وجه السرعة مع الشرح المفصل رجاء لوجه الله
وشاكر لحضراتكم مجهوداكم وجزاكم الله كل الخير

[olobnet]

portal.moe.gov.eg/AboutMinistry/Departments/ecd/quesbank/prep3/Documents/Answers_ChaptersQ.pdf

[asdzazax]

أكتب المصطلح العلمى الدال على العبارات التالية
المسئولة عن معرفة القيمة الراجعة فى الإجراء 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 قيمتها ( عددية – حرفية – منطقية)

[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 = ................
2- قيمة المتغير K = .................
3- قم بإعادة كتابة الكود السابق باستخدام جملة Do While

[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

- اسم الاجراء ...............
- وسيط الاجراء ..................
- نوع بيان الدالة .................
- القيمة الراجعة .................
- قيمة الدالة عند تنفيذ الكود التالى MsgBox(Total(5))


MsgBox(sum)

Else

A = 5

b = 15

c = 22

sum = A + b + c

MsgBox(sum)

End If

Return Sum

End Function

[a_awady]

أكتب المصطلح العلمى الدال على العبارات التالية
المسئولة عن معرفة القيمة الراجعة فى الإجراء 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 قيمة عددية

[hassanalhawy]

المشاركة الأصلية كتبت بواسطة 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

[hassanalhawy]

المشاركة الأصلية كتبت بواسطة 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

[التدريس مهنتى]

[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 بعد نهاية الحلقة التكرارية ؟؟ ولماذا ؟؟
أرجو الرد من السادة الأفاضل على وجه السرعة مع الشرح المفصل رجاء لوجه الله
وشاكر لحضراتكم وجزاكم الله كل الخير

[التدريس مهنتى]

متى يتوقف التكرار فى جملتى التكرار 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 بعد نهاية الحلقة التكرارية ؟؟ ولماذا ؟؟
أرجو الرد من السادة الأفاضل على وجه السرعة مع الشرح المفصل رجاء لوجه الله
وشاكر لحضراتكم مجهوداكم وجزاكم الله كل الخير

[mr tata]

قبل التكرار تساوى 2
اول قيمه للمتغير sum بعد بداية التكرار هى 4 وبعد نهاية التكرار 8
يتوقف التكرار عندما تكون x بـ 12
لانه اكبر من قيمة النهايه
قيمة M بعد نهاية التكرار هى 21
قيمة TOTAL بعد نهاية التكرار هى 17

[hassanalhawy]

[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

بارك الله لكم

[hassanalhawy]

المشاركة الأصلية كتبت بواسطة ابو كريم عمرو

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