Public Class Form1
    Dim CITTA, ARRAY() As String
    Dim TEMPERATURA As Single
    Dim CONT, I As Integer


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        I = I + 1
        ReDim Preserve ARRAY(I)
        CITTA = InputBox("INSERIRE NOME CITTA'", "INPUT DATI")
        TEMPERATURA = InputBox("INSERIRE TEMPERATURA CITTA'", "INPUT DATI")
        ListBox1.Items.Add(CITTA + " ; " + CStr(TEMPERATURA) + "°")
        CONT = CONT + 1




    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        For I = 1 To CONT
            If TextBox1.Text = CITTA(I) Then
                MsgBox("A " + CITTA + " CI SONO" + CStr(TEMPERATURA) + "°", MsgBoxStyle.OkOnly, "RICERCA")
            End If
        Next I
        MsgBox("IMPOSSIBILE TROVARE LA CITTA' INSERITA", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "ERRORE")

    End Sub
End Class