افتح مشروع من النوع 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 = "
(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
كيف بدي اكتب هدول الاوامر