|
Lorsque vous traitez avec des tableaux dans Visual Basic (VB ), il est important de comprendre comment chercher le tableau pour trouver des objets spécifiques. Un tableau est une liste d'objets commandés , tels que des chaînes ou des nombres entiers . Un tableau peut stocker des valeurs telles que les noms des employés , une liste de numéros ou même des peines d'un livre. Trouver un élément dans un tableau consiste à créer une boucle pour parcourir les éléments du tableau et vérifier une comparaison pour voir si le produit correspond à ce que vous recherchez . Instructions
1 Ouvrez votre fichier source VB dans un éditeur tel que Microsoft Visual Basic.
2 déclarer un tableau de chaînes et d' initialiser des valeurs en ajoutant le code suivant dans votre fonction :
myArray Dim () As String = {" vert ", " bleu", " jaune "} Sinon, vous pouvez créer un tableau d'entiers avec le code
:
myArray Dim ( ) As Integer = { 11, 24, 12}
3 parcourir le tableau et la recherche de tous les éléments qui correspondent à la chaîne que vous cherchez en en ajoutant le code suivant:
searchItem As String =
index "bleu" As long
index = LBound ( myArray ) à LimiteSup ( myArray )
< p> Si ( String.Compare ( myArray (index) , searchItem ) = 0) alors
MsgBox (" trouvé:" + searchItem + " à l'indice :" + CStr (index) )
Suivant
les fonctions " ubound " " LBound " et déterminer le début et la fin du tableau de sorte que vous n'avez pas besoin de code de numéros qui pourraient changer plus tard. A l'intérieur du " prochain pour « boucle , il vérifie si tout élément du tableau est égale au produit de la recherche , et si oui, il affiche une boîte de message pour lesquels index du tableau a la valeur . La fonction " CStr " convertit un nombre en une chaîne pour l'affichage . En utilisant l'exemple , une boîte de message apparaîtra montrant "Résultats: bleu à l'index : 1. " Alternativement, vous pouvez rechercher un tableau d'entiers avec le code:
searchItem As Integer = 12
index As Long
index = LBound ( myArray ) à LimiteSup ( myArray )
( myArray (index) = searchItem ) Puis
MsgBox (" trouvé:" + CStr ( searchItem ) + " à l'indice :" + CStr (index) ) < br > Suivant
4 Enregistrez le fichier VB, compiler et exécuter votre programme pour consulter la gamme des articles correspondants.
|
