Nwlapcug.com


Come determinare se un elemento è presente nella matrice di VB

Quando si tratta di matrici in Visual Basic (VB) è importante capire come la ricerca nella matrice per trovare elementi specifici. Una matrice è un elenco di oggetti ordinati, quali stringhe o numeri interi. Una matrice può memorizzare valori quali i nomi dei dipendenti, un elenco di numeri o anche frasi da un libro. Trovare un elemento in una matrice comporta la creazione di un ciclo per scorrere gli elementi della matrice e un controllo di confronto per vedere se l'elemento corrisponde a quello che stai cercando.

Istruzioni

1

Aprire il file di origine Visual Basic in un editor, ad esempio Microsoft Visual Basic.

2

Dichiarare una matrice di stringhe e inizializzarla con valori aggiungendo il seguente codice nella funzione:

Dim myArray() As String = {"verde", "blu", "giallo"}

In alternativa, è possibile creare una matrice di numeri interi con il codice:

Dim myArray() As Integer = {11, 24, 12}

3

Scorrere la matrice e la ricerca di tutti gli elementi che corrispondono alla stringa che cerchi aggiungendo il codice:

Dim voce As String = "blue"

Dim index as Long

Index = LBound(myArray) per UBound(myArray)

If (String.Compare(myArray(index),searchItem)=0) Then

MsgBox("Found: " + searchItem + " at Index: " + CStr(index))

Successivo

Le funzioni "LBound" e "UBound" determinano l'inizio e la fine della matrice, così non devi codice in numeri che potrebbero cambiare in seguito. All'interno del ciclo "per la prossima" controlla se ogni elemento della matrice è uguale all'elemento di ricerca, e in questo caso viene visualizzata una finestra di messaggio che mostra quale matrice indice ha il valore. La funzione "CStr" converte un numero in una stringa per la visualizzazione. Utilizzando l'esempio, una finestra di messaggio pop-up visualizzati "Found: blu all'indice: 1." alternativamente, potete cercare una matrice di numeri interi con il codice:

Dim voce as Integer = 12

Dim index as Long

Index = LBound(myArray) per UBound(myArray)

If (myArray(index) = searchItem) Then

MsgBox("Found: " + Cstr(searchItem) + " at Index: " + CStr(index))

Successivo

4

Salvare il file VB, compilare ed eseguire il programma per la ricerca nella matrice di elementi corrispondenti.