[nadera]

شكرا لكل من قدم المساعدة

[sami2015]

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]

جربت ماصار البرنامج وانا بعرف انو لازم البرمجة تناسب الواجهة
اخي لو سمحت شو هي الواجهة المطلوبة

---

لو سمحتو حدا يساعدني

[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

[nadera]

(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
كيف بدي اكتب هدول الاوامر

[ربيع]

نحمده ونصلي على رسوله الكريم