هنا

[spyman]

السؤال الرابع :
ضيفي كوماند واحد وخلي الكود بداخله :

Dim n, x As Integer
Dim y As Single
y = 0

n = InputBox("Enter n : ")
x = InputBox("Enter x :")
For i = 1 To n
    y = y + (i / x ^ i)
Next i
Print y + 1 

[spyman]

السؤال الخامس :
ضيفي كوماند وبداخله الكود

For i = 1 To 100
If (i Mod 2 = 1) Then
Print i
End If
Next i 

واكو حل ثاني وهو :

For i = 1 To 100 Step 2
Print i
Next i 

[تشيللو]

عشت يابطل

[spyman]

اخوي الغالي انت العايش :)

[spyman]

السؤال السادس وهو الاصعب بالمقارنة مع الاسئلة الاخرى :

ضيفي كوماند واحد وبداخله الكود

For i = 5 To 1 Step -1
For j = 2 To i
Print i,
Next j
Print vbCrLf
Next i 

ناتج التنفيذ

[spyman]

السؤال الاخير : السابع
المطلوب هنا مو المضاعفات وانما عدد المضاعفات يعني لازم نسوي كاونت ونزيده اذا لكينا عدد باقي القسمة مالته وي 3 تساوي 0

Dim c As Integer
For i = 1 To 100
If i Mod 3 = 0 Then
c = c + 1
End If
Next i
Print c 

اختي اي سؤال انا موجود وتحياتي لاستاذ المادة على هاي الاسئلة الجميلة

[رحيـــل]

تحياتنا لك على الاجابة الرائعة

[zeto]

عاشو سباي :123:

[spyman]

تحياتنا لك على الاجابة الرائعة

وصلت تحياتج رحيل ^_^

[spyman]

عاشو سباي :123:

انت العايش حبيبي :)