تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ايجاد العدد الاكبر من 10 اعداد يتم ادخالها
#1
شكرا لكل من قدم المساعدة
الرد }}}}
تم الشكر بواسطة:
#2
Dim a(10) As Double

For i = 1 To 10
a(i) = InputBox(i)
Next

Dim max As Double

For i = 1 To 10
If a(i) > max Then
max = a(i)
End If
Next

MsgBox(max)
الرد }}}}
تم الشكر بواسطة: nadera , ربيع , nabil1982
#3
جربت ماصار البرنامج وانا بعرف انو لازم البرمجة تناسب الواجهة
اخي لو سمحت شو هي الواجهة المطلوبة

لو سمحتو حدا يساعدني
الرد }}}}
تم الشكر بواسطة:
#4
افتح مشروع من النوع WindowsApplication
ثم ف القورم اضف اربعة كونترول من النوع Label
و في الحدث Load  الخاص بالفورم اكتب الاكواد التالية
من المفترض ان يكون الكود لديك كالتالي


كود :
Public Class Form1

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       Dim list(9) As Integer
       For i = 0 To list.GetUpperBound(0)
           list(i) = InputBox("Please enter a value number to the array, value " & " " & i.ToString, "Add Array Values")
       Next

       Dim max As Integer = Integer.MinValue
       Dim min As Integer = Integer.MaxValue

       For Each item As Integer In list
           max = Math.Max(max, item)
           min = Math.Min(min, item)
       Next
     
       Label1.Text = " max value in array = "
       Label2.Text = " min value in array = "

       Label3.Text = max
       Label4.Text = min

   End Sub


End Class
الرد }}}}
تم الشكر بواسطة: nadera , ربيع , nabil1982
#5
(18-04-15, 03:17 PM)silverlight كتب : افتح مشروع من النوع WindowsApplication
ثم ف القورم اضف اربعة كونترول من النوع Label
و في الحدث Load  الخاص بالفورم اكتب الاكواد التالية
من المفترض ان يكون الكود لديك كالتالي



كود :
Public Class Form1

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       Dim list(9) As Integer
       For i = 0 To list.GetUpperBound(0)
           list(i) = InputBox("Please enter a value number to the array, value " & " " & i.ToString, "Add Array Values")
       Next

       Dim max As Integer = Integer.MinValue
       Dim min As Integer = Integer.MaxValue

       For Each item As Integer In list
           max = Math.Max(max, item)
           min = Math.Min(min, item)
       Next
     
       Label1.Text = " max value in array = "
       Label2.Text = " min value in array = "

       Label3.Text = max
       Label4.Text = min

   End Sub


End Class

هلئ انا اضفت اربعة من Label
كيف بدي اكتب هدول الاوامر
الرد }}}}
تم الشكر بواسطة:
#6
نحمده ونصلي على رسوله الكريم


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 11.7 ك ب / التحميلات : 7)
الرد }}}}
تم الشكر بواسطة: nadera , nabil1982


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] ايجاد الداتا من Sql و اضافته في Textbox Abdelaziz Omar 3 233 10-04-16, 10:17 PM
آخر رد: khodor1985
  ترتيب البيانات من الاصغر الى الاكبر aftfm 6 335 05-04-16, 07:46 PM
آخر رد: عدنان الشمري
Exclamation [سؤال] ارجو المساعده في ايجاد عدد ايام الاجازة في كل شهر moftah70 14 821 29-01-16, 03:17 AM
آخر رد: mohamed haroon
  [سؤال] كيف يمكن ايجاد عدد الايام بين تاريخين ؟؟؟؟ moftah70 3 364 07-01-16, 12:57 AM
آخر رد: HASAN6.0
  [سؤال] ايجاد قيمة y المقابلة لقيمة x ali777 7 374 14-12-15, 10:44 PM
آخر رد: ali777
  [كود] ايجاد process id أسامة 2 233 12-11-15, 01:57 PM
آخر رد: أسامة
  [سؤال] مشكلة حفظ البيانات الى قاعدة Access ( تغيير العدد العشري الى عدد صحيح) Eng.Obada Jubran 2 1,455 28-02-15, 01:02 AM
آخر رد: undetected71
  [سؤال] مساعدة في اعداد برنامج هواري 1 410 23-02-15, 02:33 AM
آخر رد: Mostafa Saad
  ايجاد مجموعة عناصر كل مجموعة علي حدة atefkhalf2004 4 516 07-01-15, 04:37 PM
آخر رد: atefkhalf2004
  [سؤال] مطلوب كود للتنبيه من أن العدد الموجود أقل من العدد المطلوب php3 2 564 29-11-14, 10:08 AM
آخر رد: php3

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


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