تقييم الموضوع :
  • 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 ahmed250 5 524 10-06-20, 07:36 PM
آخر رد: ahmed250
Question [vb6.0] هل يعمل برنامج Visual Studio Code مع فجوال بيسك 6 وكيف ذلك إن امكن ؟؟ Microformt 2 357 13-05-20, 11:40 PM
آخر رد: Microformt
  [vb6.0] ما هي طريقة تسجيل أدوات ocx في الفيجوال بيسك - iisys 6 3,578 20-03-20, 11:33 AM
آخر رد: ahmed20
  كيفيه البحث عن نص في اكثر من ملف في فجول بيسك 6 حسين فتحي 7 702 12-03-20, 05:44 AM
آخر رد: سعود
  [vb6.0] فيجوال بيسك 6 eman_f_a 0 380 08-01-20, 10:26 PM
آخر رد: eman_f_a
  مشكله فى لعبه مبرمجه على الفيجوال بيسك خالد كامل1 0 397 19-12-19, 09:53 PM
آخر رد: خالد كامل1
  [سؤال] كيفية تعديل النصوص الموجودة في تطبيق يستخدم res بالفيجوال بيسك 6 بوعيسى 0 444 24-10-19, 10:16 PM
آخر رد: بوعيسى
  طريقة ربط فيجوال بيسك باالنت أبو عقيل 6 739 07-10-19, 09:18 PM
آخر رد: أبو عقيل
  من لديه طريقه لتشغيل (ملف الفجوال بيسك) ينفد امر ثم يغلق من تلقاء نفسه scsi7000 2 979 12-08-19, 10:41 PM
آخر رد: المبرمج العتيق
  خطاء في كود فيجوال بيسك 6 محمد حمد محمد سليمان 7 963 06-07-19, 01:19 AM
آخر رد: Amir_Alzubidy

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


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