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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة ايجاد قاعدة البيانات m.reyati 5 248 13-11-18, 02:06 AM
آخر رد: mero5000
  مشكلة عند اعداد الملف الى setup mostafa hasanein 6 381 14-08-18, 07:06 PM
آخر رد: elgokr
  اريد بعد ان اقوم بطباعة البيانات في PDF بعد ادخالها وحفظها وبتنسيق معين farah112233 16 951 10-06-18, 07:51 AM
آخر رد: عبدالله الدوسري
  [سؤال] كود المضاعف المشترك الاكبر للكسور المبرمج البسيط1 5 4,458 17-02-18, 04:57 AM
آخر رد: فهدعتيق
  ايجاد قيمة فى listview Mohamed20 3 255 12-02-18, 12:24 AM
آخر رد: سعود الشامان
  [سؤال] مساعده في ايجاد كود جريد فيو .. Marwan9990 7 739 15-04-17, 12:37 PM
آخر رد: Marwan9990
  الرجاء المساعده في ايجاد كود لتحقيق شرط معين معتز الجازوي 1 650 07-12-16, 05:19 AM
آخر رد: silverlight
  [سؤال] ايجاد الداتا من Sql و اضافته في Textbox Abdelaziz Omar 3 774 10-04-16, 10:17 PM
آخر رد: khodor1985
  ترتيب البيانات من الاصغر الى الاكبر aftfm 6 1,253 05-04-16, 07:46 PM
آخر رد: عدنان الشمري
Exclamation [سؤال] ارجو المساعده في ايجاد عدد ايام الاجازة في كل شهر moftah70 14 3,217 29-01-16, 03:17 AM
آخر رد: mohamed haroon

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


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