تقييم الموضوع :
  • 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
 اللهم اغفر لي و لوالديّ و للمؤمنين و المؤمنات 
و المسلمين و المسلمات الأحياء منهم و الأموات 
سبحان الله وبحمده Heart سبحان الله العظيم
الرد
تم الشكر بواسطة: eiocm
#4
على رغم من سهولة الاسئلة .. ولايوجد رد
الرد
تم الشكر بواسطة:
#5
ايام المدرسة انا كنت ارسب بالرياضيات
لو عندي فكرة بحل الاسئلة كنت راح ساعدك
بس ما فيني حل اي سؤال
راح نستنى و منشوف شي حدا فيه يساعدنا .
الله يبعت الخير
 اللهم اغفر لي و لوالديّ و للمؤمنين و المؤمنات 
و المسلمين و المسلمات الأحياء منهم و الأموات 
سبحان الله وبحمده Heart سبحان الله العظيم
الرد
تم الشكر بواسطة: 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



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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  موضوع خرائط غوغل على الفيجوال بيسك 6.0 hannileo 8 1,367 01-11-18, 09:56 AM
آخر رد: fahad fbs
  مشكلة فى تنصيب فيجوال بيسك 6 المبرمج العتيق 3 105 01-11-18, 12:52 AM
آخر رد: elgokr
  من لديه طريقة او مثال لتحويل الصوره من الفجوال بيسك 6 الى الورد scsi7000 0 74 13-10-18, 09:42 PM
آخر رد: scsi7000
  فيجوال بيسك 6 sl_dl1 2 151 06-10-18, 01:29 PM
آخر رد: عبد العزيز البسكري
  ربط الفيجوال بيسك بال Word dr.mostashar 2 107 04-10-18, 11:57 PM
آخر رد: السيد الغالي
  [سؤال] كيفية استخراج تقرير ملف PDF من برنامج مصمم بالفيجوال بيسك 6 mohamed arafa 4 248 11-09-18, 05:10 PM
آخر رد: mohamed arafa
Question [سؤال] لماذا تظهر هذه الرسالة في فيجوال بيسك؟؟؟ Omar 6.0 6 894 18-08-18, 07:05 PM
آخر رد: elgokr
  [سؤال] كيف افتح ملف وورد مخزون مسبقا من خلال الفيجوال بيسك nerjis ameer 16 5,886 16-07-18, 06:13 PM
آخر رد: abosara
  مشكله ادماج كريستال ريبورت 10 مع فيجوال بيسك 6 amro1965 5 271 01-07-18, 10:51 PM
آخر رد: elgokr
  تعبئة صفحة ويب عن طريق MSFlexGrid بالفيجوال بيسك 6 ربوح بوبكر 1 165 19-06-18, 02:47 AM
آخر رد: عبدالله الصافي

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


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