(02-12-17, 06:39 PM)eiocm كتب : مع عدم استخدام الحل عن طريق for

---

تمرين الاول :- اكتب برنامج بلغة فيجوال لايجاد مجموع القيم المتسلسلة التالية:- N .......5+3+1=s

Private Sub Command1_Click()

   Dim N As Integer, i As Integer, s As Integer
   N = 5
   
   s = 1
   i = 1
10:
   i = i + 2
   s = s + i
   If i < N Then GoTo 10
   
   MsgBox s
   
End Sub

---

تمرين الثاني :- اكتب برنامج بلغة فيجوال بيسك لايجاد قيمة Y من معادلة التالي !Y=N

Private Sub Command2_Click()
   
   Dim Y As Integer, N As Integer
   N = 5

   Y = 1
10:
   Y = Y * N
   N = N - 1
   If N > 1 Then GoTo 10
   
   MsgBox Y
   
End Sub

---

تمرين الثالث :- اكتب برنامج بلغة فيجوال بيسك لايجدا مجموع مساحات ( المستطيل . المربع . الدائرة ) اذا كانت اقل من 10

Private Sub Command3_Click()

   Dim a As Integer, b As Integer
   Dim d As Double
   
   a = 2
   b = 4
   d = a * b
   MsgBox "مساحة المستطيل " & a & "×" & b & "=" & d
   
   a = 3
   d = a * a
   MsgBox "مساحة المربع " & a & "×" & a & "=" & d
   
   Dim r As Integer
   r = 3
   d = 3.14 * ((r / 2) ^ 2)
   MsgBox "مساحة الدائرة " & a & "×" & a & "=" & d
   
End Sub

---

تمرين الرابع :- اكتب برنامج بلغة فيجوال بيسك لادخال (5) قيم حقيقة ثم اوجد حاصل ضرب الاعداد الاقل من (1.5)

تركته لك أرجو أن تقوم بحله ووضع الإجابة هنا (.....................)

---

تمرين الخامس :- اكتب برنامج بلغة فيجوال بيسك لايجاد قيمة المعادلة التالية y=N+8+4 .......2

Private Sub Command5_Click()

   Dim N As Integer, i As Integer, r As Integer
   N = 6
   
   r = 0
   i = 0
10:
   i = i + 2
   r = r + i
   If i < N Then GoTo 10
   
   MsgBox r
   
End Sub

---

تمرين السادس :- اكتب برنامج بلفة فيجوال بيسك لايجاد اكبر عدد من بين 3 اعداد

Private Sub Command6_Click()

   Dim a As Integer, b As Integer, c As Integer
   a = 21
   b = 35
   c = 45
   
   Dim m As Integer
   m = a
   If b > m Then m = b
   If c > m Then m = c
   
   MsgBox m

End Sub

---

تمرين السابع :- اكتب برنامج بلغة فيجوال بيسك لطباعة جدول الضرب للعد 6

Private Sub Command7_Click()
   Dim a As Integer
   a = 0
10:
   a = a + 1
   MsgBox a & "×" & 6 & " = " & (a * 6)
   If a < 10 Then GoTo 10
   
End Sub

(01-12-17, 10:10 PM)devafar23 كتب : سلام عليكم ممكن حل هذا التمارين لدي امتحان يوم الاحد ومن فضلكم باقصى وقت وبااسهل طريقة لحل 
للعلم نرجوا عدم استخدام الحل عن طريق for 

تمرين الاول :- اكتب برنامج بلغة فيجوال لايجاد مجموع القيم المتسلسلة التالية:-
N .......5+3+1=s
عكس طبعا اس = 1 زايد 3 زايد 5 الى الى الى N
--------------------------------
تمرين الثاني :- اكتب برنامج بلغة فيجوال بيسك لايجاد قيمة Y من معادلة التالي
!Y=N
----------------------
تمرين الثالث :- اكتب برنامج بلغة فيجوال بيسك لايجدا مجموع مساحات ( المستطيل . المربع . الدائرة ) اذا كانت اقل من 10
--------------------
تمرين الرابع :- اكتب برنامج بلغة فيجوال بيسك لادخال (5) قيم حقيقة ثم اوجد حاصل ضرب الاعداد الاقل من (1.5)
---------------
تمرين الخامس :- اكتب برنامج بلغة فيجوال بيسك لايجاد قيمة المعادلة التالية
y=N+8+4 .......2
------------------
تمرين السادس :- اكتب برنامج بلفة فيجوال بيسك لايجاد اكبر عدد من بين 3 اعداد
----------------------------
تمرين السابع :- اكتب برنامج بلغة فيجوال بيسك لطباعة جدول الضرب للعد 6