تمرين على المصفوفات

تمرين لانشاء مصفوفه فى فيجوال بيسك وطباعة عناصرها ثم البحث عن اكبر عنصر وترتيب عناصر المصفوفه تصاعدى وطباعتها.

اعلن عن المصفوفه والمتغير I فى الاعلان العام كالتالى

Public Class Form1
    Dim z(5) As Integer
    Dim i As Integer

اضف button1 لادخال عناصر المصفوفه وطباعتها فى Listbox1

ListBox1.Items.Clear()

        For i = 0 To 4
            z(i) = InputBox("enter x")

            ListBox1.Items.Add(z(i))
      

  Next

اضف button2 لايجاد اكبر عناصر المصفوفه وطباعتها فى   Listbox1

Dim max As Integer
       
        max = z(0)
        For i = 1 To 4
            If z(i) >= max Then
                max = z(i)
            End If
        Next
        ListBox1.Items.Add("max=" & max)

اضف button3 لترتيب عناصر المصفوفه تصاعدى وطباعتها فى   Listbox1

Dim temp, j As Integer

        For i = 0 To 3
            For j = i + 1 To 4
                If z(i) > z(j) Then
                    temp = z(i)
                    z(i) = z(j)
                    z(j) = temp
                End If
               
            Next

        Next
        For i = 0 To 4
            ListBox1.Items.Add(z(i))
        Next