تقييم الموضوع :
  • 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 ك ب / التحميلات : 52)
الرد }}}
تم الشكر بواسطة: nadera , nabil1982


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد التعديل على كود اذا كان القيمة المدخلة مكررة بDataGridView يتم فقط زيادة العدد moh61 6 822 26-07-23, 10:41 AM
آخر رد: تركي الحلواني
  [سؤال] كود معرفة العدد المطلوب للصفحات(هل هو صحيح؟ ام يحتاج تعديل؟) سعود 6 832 02-05-23, 09:21 PM
آخر رد: Taha Okla
Rainbow [كود] قراءه العدد بشكل صحيح من قاعده البيانات اكسس محمد مسافر 13 1,166 27-03-23, 10:48 PM
آخر رد: sanyor77
  دالة تقوم بفصل العدد الصحيح aymen_libya 8 1,159 09-09-22, 08:58 PM
آخر رد: Taha Okla
  مطلوب كود ايجاد موقع مؤشر الكتابة ابو انس 14 2,980 18-12-21, 09:29 PM
آخر رد: ابو انس
  كود تغير تنسيق العدد seif mohamed 2 1,117 17-12-21, 10:46 PM
آخر رد: seif mohamed
  ايجاد فرق الوقت بين اداتين DateTimePicker strongriseman 2 934 22-08-21, 11:26 AM
آخر رد: strongriseman
  [VB.NET] اريد ايجاد الفرق بين تاريخين بالايام منصور سودي 5 1,915 03-07-21, 09:08 PM
آخر رد: منصور سودي
  [سؤال] ازاي اعرف العدد الصحيح حسن الجلب 1 945 13-04-21, 06:08 AM
آخر رد: messry
  [سؤال] طريقة ايجاد الفرق بين التيكس بوكس1 والتيكس بوكس2 Ali 2020 3 1,874 05-12-20, 11:42 AM
آخر رد: baha

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


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