طلب حل تمارين في فيجوال بيسك

تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب حل تمارين في فيجوال بيسك
#1
سلام عليكم ممكن حل هذا التمارين لدي امتحان يوم الاحد ومن فضلكم باقصى وقت وبااسهل طريقة لحل 
للعلم نرجوا عدم استخدام الحل عن طريق for 

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

هههههه
ما شاء الله كتبت الرد قبل دقيقة
اصبح الان عدد المشاهدات
730
فهموني ايش اللي صاير يا جماعة
ايه ده هو فيه ايه بالضبط Smile
لا اله الا الله الحنان المنان
الرد
تم الشكر بواسطة: eiocm
#4
على رغم من سهولة الاسئلة .. ولايوجد رد
الرد
تم الشكر بواسطة:
#5
ايام المدرسة انا كنت ارسب بالرياضيات
لو عندي فكرة بحل الاسئلة كنت راح ساعدك
بس ما فيني حل اي سؤال
راح نستنى و منشوف شي حدا فيه يساعدنا .
الله يبعت الخير
لا اله الا الله الحنان المنان
الرد
تم الشكر بواسطة: eiocm , eiocm
#6
ان شاء الله نامل ذلك
الرد
تم الشكر بواسطة:
#7
السلام عليكم و رحمة الله و بركاته
منذ الأمس فقط تقريبا .. 2000 مشاهدة
ولا في الأحلام أخي الكريم
بحكم تواجدي تقريبا الدائم بالمنتدى ..أؤكّد لك أنّ هذا مستحيل .. فيه خطأ في عداد المنتدى
الرد
تم الشكر بواسطة: eiocm , Amir_Alzubidy , devafar23
#8
مع عدم استخدام الحل عن طريق 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
الرد
تم الشكر بواسطة: Amir_Alzubidy , devafar23
#9
(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



شكرا ربي يحفظك
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف افتح ملف وورد مخزون مسبقا من خلال الفيجوال بيسك nerjis ameer 16 5,333 16-07-18, 06:13 PM
آخر رد: abosara
  مشكله ادماج كريستال ريبورت 10 مع فيجوال بيسك 6 amro1965 5 118 01-07-18, 10:51 PM
آخر رد: elgokr
  تعبئة صفحة ويب عن طريق MSFlexGrid بالفيجوال بيسك 6 ربوح بوبكر 1 90 19-06-18, 02:47 AM
آخر رد: عبدالله الصافي
  [vb6.0] كيفية عمل قاموس ناطق بالفرنسية فى الفجوال بيسك 6.0 ahmedngah36 0 132 03-03-18, 08:02 PM
آخر رد: ahmedngah36
  كود حذف الصفوف المكررة فى فيجوال 6 رجل الكهرباء 19 223 18-02-18, 04:31 PM
آخر رد: رجل الكهرباء
  كيف يمكن عمل هذا بالفيجوال بيسك واى اداه تدعم ذلك فى جدول رواتب العمال الحزين اوى 2 193 19-01-18, 04:06 PM
آخر رد: Amir_Alzubidy
  [vb6.0] سؤال تغيير ادوات فيجوال بيسك 6 محمد حمد محمد 2 271 18-01-18, 01:48 AM
آخر رد: محمد حمد محمد
  تشغيل فيجوال بيزيك على اندر يد kafrnabl 1 101 11-01-18, 10:26 PM
آخر رد: ahmed.m
  السلام عليكم عندي مشكلة عند ربط قاعدة بيانات اكسس بالفيجول بيسك 6 عزف الرياح 2 225 25-12-17, 12:38 AM
آخر رد: عزف الرياح
  من لديه طريقه لتسريع برنامجي المعمول بالفجوال بيسك 6 مع اس كيوال 2008 scsi7000 1 164 06-12-17, 02:53 PM
آخر رد: Amir_Alzubidy

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم