Aprire il file di origine VB in un editor come Microsoft Visual Basic .
2
Dichiarare un array di stringhe e inizializzare con i valori aggiungendo il seguente codice nella funzione :
Dim myArray ( ) As String = { " verde " , "blu" , " giallo "}
in alternativa , è possibile creare un array di 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 si sta cercando di aggiungendo il codice :
Dim searchItem As String = "blue "
indice Dim come Long
index = LBound ( myArray ) a UBound ( myArray ) per
Se ( String.Compare ( myArray (indice ) , searchItem ) = 0) allora
MsgBox ( " Trovato : " + searchItem + " a indice : " + CStr ( index) ) per
Avanti
funzioni " UBound " " LBound " e determinare l'inizio e la fine della matrice in modo da non dover codice in numeri che potrebbero cambiare in seguito. All'interno del " per il prossimo " ciclo controlla se ogni elemento dell'array è uguale alla voce di ricerca , e in tal caso viene visualizzata una finestra di messaggio che indica quali indici di campo ha il valore . La funzione " CStr " converte un numero in una stringa per la visualizzazione . Utilizzando l'esempio , una finestra di messaggio si aprirà visualizzando " Trovato : blu Indice : 1." In alternativa , è possibile cercare una matrice di interi con il codice :
Dim searchItem as Integer = 12
indice Dim come Long
index = LBound ( myArray ) To UBound ( myArray ) per
( myArray (indice ) = searchItem ) Poi
MsgBox ( " Trovato : " + CStr ( searchItem ) + " a indice : " + CStr ( index ) )
Avanti
4
Salvare il file VB , compilare ed eseguire il programma per cercare la matrice di elementi corrispondenti .
Programmazione © www.354353.com