Public Class Form1
    'Dichiarazione
    Dim vet(10), I As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnCarica_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCarica.Click
        'Caricamento
        I = 1
        For I = 1 To 10
            vet(I) = InputBox("Inserisci Valore:")
        Next I
        I = 1
        For I = 1 To 10
            lstVettore.Items.Add(vet(I))
        Next I


    End Sub

    Private Sub lblOrdina_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblOrdina.Click
        'Ordinamento
        Dim K, J As Integer
        For I = 1 To 9
            For J = I + 1 To 10
                If vet(J) < vet(I) Then
                    K = vet(I)
                    vet(I) = vet(J)
                    vet(J) = K
                End If


            Next J
        Next I
        lstVettore.Items.Clear()
        For I = 1 To 10
            lstVettore.Items.Add(vet(I))
        Next I

    End Sub

    Private Sub Vettore_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstVettore.SelectedIndexChanged

    End Sub

    Private Sub btnEsci_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEsci.Click
        End
    End Sub

    Private Sub btnTrova_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTrova.Click
        'Ricerca
        Dim INI, FIN, HA, Va As Integer
        Dim F As Boolean
        Va = Val(txtValore.Text)
        INI = 1
        FIN = 4
        F = False
        Do
            HA = Int((INI + FIN) / 2)
            If vet(INI) = Va Or vet(HA) = Va Or vet(FIN) = Va Then
                MsgBox("Il valore è presente nel vettore!!", , "Vero")
                F = True
            Else
                If vet(HA) < Va Then
                    INI = HA + 1
                Else
                    FIN = HA - 1
                End If
            End If
            If INI >= FIN Then
                MsgBox("Il valore " & Va & " non è presente nel vettore:", , "Siamo Spiacenti")

            End If

        Loop Until F Or (INI >= FIN)


    End Sub
End Class