1
Abra el archivo de código fuente VB en un editor como Microsoft Visual Basic .
2
Declarar una matriz de cadenas y se inicializa con valores añadiendo el siguiente código en su función :
myArray Dim () As String = {" verde " , "azul " , "rojo "}
Como alternativa , puede crear una matriz de enteros con el código :
myArray Dim () As Integer = { 11 , 24 , 12 }
3
recorrer la matriz y la búsqueda de los elementos que coinciden con la cadena que está buscando por añadiendo el código:
searchItem Dim As String = "blue "
índice Dim como Long
Para index = LBound ( myArray ) Para UBound ( myArray )
< p> Si ( String.Compare ( myArray ( índice) , searchItem ) = 0 ) entonces
MsgBox ( "Se ha encontrado : " searchItem + + " en el índice: " + CStr (índice ))
Siguiente
funciones UBound " " " LBound " y determinar el comienzo y el final de la matriz por lo que no tiene que codificar en números que pueden cambiar más adelante. Dentro de la " para el próximo " bucle comprueba si cualquier elemento de la matriz es igual a la palabra clave , y si es así , muestra un cuadro de mensaje que muestra que el índice de matriz tiene el valor . La función " CStr " convierte un número en una cadena para mostrar . Siguiendo con el ejemplo , un cuadro de mensaje aparecerá mostrando "Found : azul en el índice: 1 . " Alternativamente , puede buscar un arreglo de enteros con el código :
searchItem Dim como Integer = 12
índice Dim como Long
Para index = LBound ( myArray ) Para UBound ( myArray )
Si ( myArray ( índice) = searchItem ) Entonces
MsgBox ( "Se ha encontrado :" + Cstr ( searchItem ) + " en el índice: " + CStr ( index) )
Siguiente
4
Guarde el archivo VB, compilar y ejecutar el programa para buscar la matriz de elementos que coincidan .