تقييم الموضوع :
  • 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



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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  من لديه طريقة او مثال لتحويل الصوره من الفجوال بيسك 6 الى الورد scsi7000 0 32 13-10-18, 09:42 PM
آخر رد: scsi7000
  فيجوال بيسك 6 sl_dl1 2 98 06-10-18, 01:29 PM
آخر رد: عبد العزيز البسكري
  ربط الفيجوال بيسك بال Word dr.mostashar 2 64 04-10-18, 11:57 PM
آخر رد: السيد الغالي
  [سؤال] كيفية استخراج تقرير ملف PDF من برنامج مصمم بالفيجوال بيسك 6 mohamed arafa 4 138 11-09-18, 05:10 PM
آخر رد: mohamed arafa
Question [سؤال] لماذا تظهر هذه الرسالة في فيجوال بيسك؟؟؟ Omar 6.0 6 834 18-08-18, 07:05 PM
آخر رد: elgokr
  [سؤال] كيف افتح ملف وورد مخزون مسبقا من خلال الفيجوال بيسك nerjis ameer 16 5,757 16-07-18, 06:13 PM
آخر رد: abosara
  مشكله ادماج كريستال ريبورت 10 مع فيجوال بيسك 6 amro1965 5 221 01-07-18, 10:51 PM
آخر رد: elgokr
  تعبئة صفحة ويب عن طريق MSFlexGrid بالفيجوال بيسك 6 ربوح بوبكر 1 146 19-06-18, 02:47 AM
آخر رد: عبدالله الصافي
  [vb6.0] كيفية عمل قاموس ناطق بالفرنسية فى الفجوال بيسك 6.0 ahmedngah36 0 181 03-03-18, 08:02 PM
آخر رد: ahmedngah36
  كود حذف الصفوف المكررة فى فيجوال 6 رجل الكهرباء 19 455 18-02-18, 04:31 PM
آخر رد: رجل الكهرباء

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


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