Tablice w Visual Basic

Tablica to zbiór wartości logicznie powiązanych ze sobą, takich jak liczba studentów każdej grupy zaszeregowania w liceum.

Za pomocą tablicy można odnosić się do tych powiązanych wartości o tej samej nazwie i użyć numeru, który jest nazywany indeksem lub indeksem dolnym.Poszczególne wartości są nazywane elementami tablicy.Są one sąsiadujące od indeksu 0 po najwyższą wartość indeksu.

W przeciwieństwie do tablicy zmienna, która zawiera pojedynczą wartość, nosi nazwę zmiennej skalarnej.

W tym temacie

• Elementy tablicy w prostej tablicy

• Tworzenie tablicy

• Deklarowanie tablicy

• Przechowywanie wartości w tablicy

• Wypełnianie tablicy wartościami początkowymi

  • Zagnieżdżone literały tablicowe

• Iterowanie przez tablicę

• Tablice jako wartości zwracane i parametry

• Tablice nieregularne

• Tablice o zerowej długości

• Rozmiar tablicy

• Typy tablic i innych typów

• Kolekcje jako alternatywa dla tablic

Elementy tablicy w prostej tablicy

Poniższy przykład deklaruje zmienną tablicowy do przechowania liczby studentów każdej klasy szkoły średniej.

Dim students(6) As Integer

Tablica students w poprzednim przykładzie zawiera siedem elementów.Indeksy elementów mieszczą się w zakresie od 0 do 6.Posiadanie tej tablicy jest prostsze niż zadeklarowanie siedmiu zmiennych.

Na następującej ilustracji pokazano tablicę students.Dla każdego elementu tablicy:

• Indeks elementu reprezentuje grupę zaszeregowania (indeks 0 reprezentuje przedszkole).

• Wartość, która znajduje się w elemencie, reprezentuje liczbę studentów, którzy w tej klasie.

Elementy tablicy „studenci”

Poniższy przykład ukazuje, jak odwoływać się do pierwszego, drugiego, i ostatniego elementu tablicy students.

Dim kindergarten As Integer = students(0)
Dim firstGrade As Integer = students(1)
Dim sixthGrade As Integer = students(6)
MsgBox("Students in kindergarten = " & CStr(kindergarten))
MsgBox("Students in first grade = " & CStr(firstGrade))
MsgBox("Students in sixth grade = " & CStr(sixthGrade))

Możesz się odwoływać do tablicy jako całości, używając tylko nazwy zmiennej tablicy bez indeksów.

Tablica students w poprzednim przykładzie używa jednego indeksu i jest określana jako jednowymiarowa.Tablica, która używa więcej niż jednego indeksu lub indeksu dolnego, jest nazywana wielowymiarową.Aby uzyskać więcej informacji, zobacz pozostałą treść tego tematu oraz temat Wymiary tablic w Visual Basic.

Tworzenie tablicy

Można zdefiniować rozmiar tablicy na kilka sposobów.Możesz podać rozmiar, gdy tablica jest zadeklarowana, co ilustruje poniższy przykład.

Dim cargoWeights(10) As Double 
Dim atmospherePressures(2, 2, 4, 10) As Short 
Dim inquiriesByYearMonthDay(20)()() As Byte

Możesz również użyć klauzuli New, aby dostarczyć rozmiaru tablicy podczas jej tworzenia, co ilustruje poniższy przykład.

cargoWeights = New Double(10) {}
atmospherePressures = New Short(2, 2, 4, 10) {}
inquiriesByYearMonthDay = New Byte(20)()() {}

Jeśli masz istniejącą macierz, można ponownie zdefiniować jej rozmiar za pomocą instrukcji Redim.Możesz określić, że instrukcja Redim powinna przechowywać wartości, które są w tablicy, lub możesz określić, że utworzona zostanie pusta tablicę.Poniższy przykład ukazuje różne sposoby zastosowania instrukcji Redim, aby zmienić rozmiar istniejącej tablicy.

' Assign a new array size and retain the current element values. 
ReDim Preserve cargoWeights(20)
' Assign a new array size and retain only the first five element values. 
ReDim Preserve cargoWeights(4)
' Assign a new array size and discard all current element values. 
ReDim cargoWeights(15)

Aby uzyskać więcej informacji, zobacz ReDim — Instrukcja (Visual Basic).

Deklarowanie tablicy

Możesz deklarować zmienną tablicy w taki sam sposób jak inne zmienne, za pomocą instrukcji Dim.Możesz umieścić za typem lub nazwą zmiennej przynajmniej jedną parę nawiasów, aby wskazać, że będzie dotyczyć tablicy, a nie wartość skalarną, która jest zmienną, która zawiera pojedynczą wartość.

Po zadeklarowaniu tablicy jej wielkość można zdefiniować przy użyciu ReDim — Instrukcja (Visual Basic).

Poniższy przykład deklaruje zmienną tablicy jednowymiarowej poprzez dodanie pary nawiasów po typie.W przykładzie określono również wymiary tablicy za pomocą ReDim — Instrukcja (Visual Basic).

' Declare a one-dimensional array. 
Dim cargoWeights As Double()

' Dimension the array. 
ReDim cargoWeights(15)

Poniższy przykład deklaruje zmienną tablicy wielowymiarowej poprzez dodanie pary nawiasów po typie i umieszczenie przecinków wewnątrz nawiasów w celu rozdzielenia wymiarów.W przykładzie określono również wymiary tablicy za pomocą ReDim — Instrukcja (Visual Basic).

' Declare a multidimensional array. 
Dim atmospherePressures As Short(,,,)

' Dimension the array. 
ReDim atmospherePressures(1, 2, 3, 4)

Aby zadeklarować niepełną zmienną tablicy, dodaj parę nawiasów po nazwie zmiennej dla każdego z poziomów zagnieżdżonych tablic.

Dim inquiriesByYearMonthDay()()() As Byte

Poprzednie przykłady deklarują zmienne tablic, ale nie przypisują do nich tablic.Musisz jeszcze utworzyć tablicę, zainicjować ją i przypisać ją do zmiennej.

Przechowywanie wartości w tablicy

Możesz uzyskać dostęp do poszczególnych lokalizacji w tablicy przy użyciu indeksu typu Integer.Możesz przechowywać i pobierać wartości w tablicy odwołując się do każdej lokalizacji tablicy przy użyciu indeksu w nawiasach.Indeksy dla wielowymiarowych tablic są oddzielone przecinkami (,).Potrzebny jest jeden indeks na każdy wymiar tablicy.Poniższy przykład ukazuje niektóre instrukcje, które przechowują wartości w tablicach.

Dim i = 4
Dim j = 2

Dim numbers(10) As Integer 
Dim matrix(5, 5) As Double

numbers(i + 1) = 0
matrix(3, j * 2) = j

Poniższy przykład ukazuje niektóre instrukcje, które pobierają wartości z tablic.

Dim v = 2
Dim i = 1
Dim j = 1
Dim k = 1
Dim wTotal As Double = 0.0
Dim sortedValues(5), rawValues(5), estimates(2, 2, 2) As Double 
Dim lowestValue = sortedValues(0)
wTotal += (rawValues(v) ^ 2)
Dim firstGuess = estimates(i, j, k)

Wypełnianie tablicy wartościami początkowymi

Za pomocą literału tablicowego można utworzyć tablicę zawierającą początkowy zestaw wartości.Literał tablicowy składa się z listy wartości rozdzielanych przecinkami, które są ujęte w nawiasy klamrowe ({}).

Tworząc tablicę przy użyciu literału tablicowego, możesz podać typ tablicy lub użyć wnioskowania typu, aby określić typu tablicy.Poniższy kod przedstawia obie opcje.

Dim numbers = New Integer() {1, 2, 4, 8}
Dim doubles = {1.5, 2, 9.9, 18}

Kiedy używasz wnioskowania, typ tablicy zależy od typu dominującego na liście wartości dostarczanej dla literału tablicy.Typ dominujący to unikatowy typ, do którego można rozszerzyć wszystkie inne typy z literału tablicy.Jeżeli nie można ustalić tego typu unikatowego, typ dominujący jest typem unikatowym, do którego można zawęzić wszystkie inny typy w tablicy.Jeśli żadnego z tych typów unikatowych nie można ustalić, typem dominującym jest Object.Na przykład jeśli na liście wartości dostarczanych do literału tablicowego są wartości typu Integer, Long i Double, tablica wynikowa jest typu Double.Zarówno Integer, jak i Long rozszerzone tylko do Double.W związku z tym Double jest typem dominującym.Aby uzyskać więcej informacji, zobacz Rozszerzanie i zwężanie konwersji (Visual Basic).Te reguły wnioskowania stosuje się do typów, które są wnioskowane dla tablic, które są zmiennymi lokalnymi, które są definiowane w elemencie członkowskim klasy.Chociaż literałów tablicowych można używać podczas tworzenia zmiennych na poziomie klasy, nie można używać wnioskowania o typie na poziomie klasy.W rezultacie literały tablicowe, które są określone na poziomie klasy, wywnioskują wartości, które są dostarczane do literału jako typ Object.

Możesz jawnie określić typ elementów w tablicy, która jest tworzona przy użyciu literału tablicowego.W tym przypadku wartości w literale tablicowym muszą rozszerzać się na typ elementów tablicy.Poniższy kod tworzy tablicę typu Double z listy liczb całkowitych.

Dim values As Double() = {1, 2, 3, 4, 5, 6}

Zagnieżdżone literały tablicowe

Możesz utworzyć tablicę wielowymiarową przy użyciu zagnieżdżonych literałów tablicy.Zagnieżdżone literały tablicowe muszą mieć wymiar i liczbę wymiarów, lub rangę, która jest zgodna z tablicą wynikową.Poniższy przykład kodu tworzy tablicę dwuwymiarową liczb całkowitych za pomocą literału tablicowego.

Dim grid = {{1, 2}, {3, 4}}

W poprzednim przykładzie mógłby wystąpić błąd, jeśli liczba elementów członkowskich w zagnieżdżonych literałach tablicowych nie pasuje.Jeśli jawnie zadeklarowano zmienną tablicy inną niż dwuwymiarowa, również może wystąpić błąd.

[!UWAGA]

Możesz uniknąć błędu podczas dostarczania zagnieżdżonych literałów tablicowych o różnych wymiarach umieszczając wewnętrzne literały tablicowe w nawiasach.Nawiasy wymuszają wyrażanie opinii o wyrażeniu literalnym tablicy, a wynikające z tego wartości są używane z zewnętrznym literałem tablicy, jak pokazuje poniższy kod.

Dim values = {({1, 2}), ({3, 4, 5})}

Jeśli tworzysz tablicę wielowymiarową przy użyciu zagnieżdżonych literałów tablicy, możesz używać inferencji typu.Kiedy używasz wnioskowania, wnioskowany typ to typ dominujący dla wszystkich wartości we wszystkich literałach tablicowych poziomu zagnieżdżenia.Poniższy przykład kodu tworzy tablicę dwuwymiarową typu Double z wartości typu Integer i Double.

Dim a = {{1, 2.0}, {3, 4}, {5, 6}, {7, 8}}

Aby uzyskać więcej przykładów, zobacz Porady: inicjowanie zmiennej tablicy w języku Visual Basic.

Iterowanie przez tablicę

Podczas iteracji przez tablicę przechodzisz przez wszystkie elementy w tablicy, od najniższego indeksu do najwyższego indeksu.

Poniższy przykład wykonuje iterację przez tablicę jednowymiarową za pomocą instrukcji For...Next — Instrukcja (Visual Basic).Metoda GetUpperBound zwraca najwyższą wartość, jaką może mieć indeks.Najniższa wartość indeksu to zawsze 0.

Dim numbers = {10, 20, 30}

For index = 0 To numbers.GetUpperBound(0)
    Debug.WriteLine(numbers(index))
Next 
' Output: 
'  10 
'  20 
'  30

Poniższy przykład wykonuje iterację przez tablicę wielowymiarową za pomocą instrukcji For...Next.Metoda GetUpperBound ma parametr, który określa wymiar.Funkcja GetUpperBound(0) zwraca najwyższą wartość indeksu pierwszego wymiar, a funkcja GetUpperBound(1) zwraca najwyższą wartość indeksu dla drugiego wymiaru.

Dim numbers = {{1, 2}, {3, 4}, {5, 6}}

For index0 = 0 To numbers.GetUpperBound(0)
    For index1 = 0 To numbers.GetUpperBound(1)
        Debug.Write(numbers(index0, index1).ToString & " ")
    Next
    Debug.WriteLine("")
Next 
' Output  
'  1 2  
'  3 4  
'  5 6

Poniższy przykład wykonuje iterację przez tablicę jednowymiarową za pomocą instrukcji For Each...Next — Instrukcja (Visual Basic).

Dim numbers = {10, 20, 30}

For Each number In numbers
    Debug.WriteLine(number)
Next 
' Output: 
'  10 
'  20 
'  30

Poniższy przykład wykonuje iterację przez tablicę wielowymiarową za pomocą instrukcji For Each...Next.Jednak masz większą kontrolę nad elementami tablicy wielowymiarowej, korzystając z zagnieżdżonej instrukcji For…Next, tak jak w poprzednim przykładzie, a nie instrukcji For Each…Next.

Dim numbers = {{1, 2}, {3, 4}, {5, 6}}

For Each number In numbers
    Debug.WriteLine(number)
Next 
' Output: 
'  1 
'  2 
'  3 
'  4 
'  5 
'  6

Tablice jako wartości zwracane i parametry

Aby zwrócić tablicę z procedury Function, określ typ danych tablicy i liczbę wymiarów jako typ zwracany Function — Instrukcja (Visual Basic).Wewnątrz funkcji zadeklaruj zmienną lokalnej tablicy o tym samym typie danych i liczbie wymiarów.W obiekcie Return — Instrukcja (Visual Basic) umieść zmienną lokalnej tablicy bez nawiasów.

Aby określić tablicę jako parametr dla procedury Sub lub Function, zdefiniuj parametr jako tablicę z określonym typem danych i liczbą wymiarów.W wywołaniu do procedury wyślij zmienną tablicową o takim samym typie danych i liczbie wymiarów.

W poniższym przykładzie funkcja GetNumbers zwraca wartość Integer().Ten typ tablicy to jednowymiarowa tablica typu Integer.Procedura ShowNumbers akceptuje argument Integer().

Public Sub Process()
    Dim numbers As Integer() = GetNumbers()
    ShowNumbers(numbers)
End Sub 

Private Function GetNumbers() As Integer()
    Dim numbers As Integer() = {10, 20, 30}
    Return numbers
End Function 

Private Sub ShowNumbers(numbers As Integer())
    For index = 0 To numbers.GetUpperBound(0)
        Debug.WriteLine(numbers(index) & " ")
    Next 
End Sub 

' Output: 
'   10 
'   20 
'   30

W poniższym przykładzie funkcja GetNumbersMultiDim zwraca wartość Integer(,).Ten typ tablicy to dwuwymiarowa tablica typu Integer. Procedura ShowNumbersMultiDim akceptuje argument Integer(,).

Public Sub ProcessMultidim()
    Dim numbers As Integer(,) = GetNumbersMultidim()
    ShowNumbersMultidim(numbers)
End Sub 

Private Function GetNumbersMultidim() As Integer(,)
    Dim numbers As Integer(,) = {{1, 2}, {3, 4}, {5, 6}}
    Return numbers
End Function 

Private Sub ShowNumbersMultidim(numbers As Integer(,))
    For index0 = 0 To numbers.GetUpperBound(0)
        For index1 = 0 To numbers.GetUpperBound(1)
            Debug.Write(numbers(index0, index1).ToString & " ")
        Next
        Debug.WriteLine("")
    Next 
End Sub 

' Output   
'  1 2   
'  3 4   
'  5 6

Tablice nieregularne

Tablica, która posiada inne tablice jako elementy, nosi nazwę tablicy tablic lub tablicy nieregularnej.Tablica nieregularna i każdy element w tablicy nieregularnej może mieć jeden lub więcej wymiarów.Czasami struktury danych w aplikacji są dwuwymiarowe, ale nie prostokątny.

W poniższym przykładzie przedstawiono tablicę miesięcy, której każdy element jest tablicą dni.Ponieważ różne miesiące mają różną liczbę dni, elementy nie stanowią prostokątnej dwuwymiarowej tablicy.W związku używana jest tablica nieregularna, nie tablica wielowymiarowa.

' Declare the jagged array. 
' The New clause sets the array variable to a 12-element 
' array. Each element is an array of Double elements. 
Dim sales()() As Double = New Double(11)() {}

' Set each element of the sales array to a Double 
' array of the appropriate size. 
For month As Integer = 0 To 11
    Dim days As Integer =
        DateTime.DaysInMonth(Year(Now), month + 1)
    sales(month) = New Double(days - 1) {}
Next month

' Store values in each element. 
For month As Integer = 0 To 11
    Dim upper = sales(month).GetUpperBound(0)
    For day = 0 To upper
        sales(month)(day) = (month * 100) + day
    Next 
Next

Tablice o zerowej długości

Tablica, która nie zawiera żadnych elementów, jest również nazywana tablicą o zerowej długości.Zmienna, która zawiera tablicę o zerowej długości, nie ma wartości Nothing.Aby utworzyć tablicę, która nie ma żadnych elementów, zadeklaruj jeden z wymiarów tablicy na -1, co ilustruje poniższy przykład.

Dim twoDimensionalStrings(-1, 3) As String

Być może musisz utworzyć tablicę o zerowej długości w następujących okolicznościach:

• Bez ryzyka wystąpienia wyjątku NullReferenceException, Twój kod musi mieć dostęp do członków klasy Array, takich jak Length lub Rank, lub wywoływać funkcję Visual Basic, taką jak UBound.

• Chcesz uprościć wymagający kod i nie chcesz sprawdzać występowania Nothing jako przypadku szczególnego.

• Twój kod współdziała z interfejsem programowania aplikacji (API), który wymaga przekazania tablicę o zerowej długości do jednej lub kilku procedur albo zwraca tablicę o zerowej długości z jedną lub kilkoma procedurami.

Rozmiar tablicy

Rozmiar tablicy jest produktem długości wszystkich jej wymiarów.Reprezentuje całkowitą liczbę elementów aktualnie znajdujących się w tablicy.

Poniższy przykład deklaruje tablicę trójwymiarową.

Dim prices(3, 4, 5) As Long

Całkowity rozmiar tablicy w zmiennej prices to (3 + 1) x (4 + 1) x (5 + 1) = 120.

Możesz znaleźć rozmiar tablicy za pomocą właściwości Length.Możesz znaleźć długość każdego wymiaru tablicy wielowymiarowej za pomocą metody GetLength.

Możesz zmieniać rozmiar zmiennej tablicy, przypisując do niej nowy obiekt lub za pomocą instrukcji ReDim.

Podczas zajmowania się rozmiarem tablicy należy pamiętać i kilku sprawach.

Typy tablic i innych typów

Każda tablica ma typ danych, ale różni się od typu danych jej elementów.Nie istnieje jeden typ danych dla wszystkich tablic.Zamiast tego typ danych tablicy zależy od liczby wymiarów, lub rangi, tablicy, oraz typu danych elementów w tablicy.Dwie tablice zmiennych są uważane za posiadające taki sam typ danych tylko wówczas, gdy mają tę samą rangę, a ich elementy mają ten sam typ danych.Długości wymiarów w tablicy nie wpływają na typ danych tablicy.

Każda tablica dziedziczy z klasy Array, a użytkownik może zadeklarować zmienną typu Array, ale nie może utworzyć tablicy typu Array.Ponadto ReDim — Instrukcja (Visual Basic) nie może działać na zmiennej zadeklarowanej jako typ Array.Z tych powodów i dla zabezpieczeń typów zaleca się deklarować każdą tablicę jako określony typu, taki jak Integer w poprzednim przykładzie.

Możesz dowiedzieć się o typie danych z tablicy lub jej elementów na kilka sposobów.

• Możesz wywołać metodę Object.GetType w zmiennej, aby otrzymać obiekt Type dla typu działania zmiennej.Obiekt Type zawiera wyczerpujące informacje we właściwościach i metodach.

• Możesz przekazać zmienną do funkcji TypeName, aby otrzymać String zawierający nazwę typu w czasie wykonywania.

• Możesz przekazać zmienną do funkcji VarType, aby otrzymać wartość VariantType reprezentującą klasyfikację typu zmiennej.

Poniższy przykład wywołuje funkcję TypeName, aby określić typ tablicy i typ elementów w tablicy.Typ tablicy to Integer(,) i elementy w tablicy są typu Integer.

Dim thisTwoDimArray(,) As Integer = New Integer(9, 9) {}
MsgBox("Type of thisTwoDimArray is " & TypeName(thisTwoDimArray))
MsgBox("Type of thisTwoDimArray(0, 0) is " & TypeName(thisTwoDimArray(0, 0)))

Kolekcje jako alternatywa dla tablic

Tablice są najbardziej przydatne do tworzenia i pracy ze stałą liczbą jednoznacznie silnych obiektów.Kolekcje zapewniają bardziej elastyczny sposób pracy z grupami obiektów.W odróżnieniu od tablic, grupa obiektów, z którymi pracujesz, może rosnąć i maleć dynamicznie, wraz ze zmianami zapotrzebowań aplikacji.

Jeśli trzeba zmienić rozmiar tablicy, należy użyć obiektu ReDim — Instrukcja (Visual Basic).Gdy to zrobisz, Visual Basic tworzy nową tablicę i zwalnia poprzednią tablicę do likwidacji.Trwa to przez czas wykonania.W związku z tym, jeśli liczba elementów, z którymi użytkownik pracuje ulega częstym zmianom, lub nie można przewidzieć maksymalną liczby potrzebnych elementów, które są potrzebne, lepszą wydajność można uzyskać przy użyciu zbioru.

W niektórych kolekcjach można przypisać klawisz do dowolnych obiektów umieszczonych do kolekcji, co pozwala na szybkie pobranie obiektu przy użyciu klucza.

Jeśli kolekcja zawiera elementy tylko jednego typu danych, można użyć jednej z klas w obszarze nazw System.Collections.Generic.Ogólna kolekcja wymusza typ bezpieczeństwa tak, że można do niej dodać inny typ danych.Kiedy odzyskujesz element z kolekcji generycznej, nie musisz określać jego typu danych, ani go konwertować.

Aby uzyskać więcej informacji dotyczących kolekcji, zobacz Kolekcje (C# i Visual Basic).

Przykład

Poniższy przykład używa klasy ogólnej .NET Framework List, aby utworzyć kolekcję listy obiektów Customer.

' Define the class for a customer. 
Public Class Customer
    Public Property Name As String 
    ' Insert code for other members of customer structure. 
End Class 

' Create a module-level collection that can hold 200 elements. 
Public CustomerList As New List(Of Customer)(200)

' Add a specified customer to the collection. 
Private Sub AddNewCustomer(ByVal newCust As Customer)
    ' Insert code to perform validity check on newCust.
    CustomerList.Add(newCust)
End Sub 

' Display the list of customers in the Debug window. 
Private Sub PrintCustomers()
    For Each cust As Customer In CustomerList
        Debug.WriteLine(cust)
    Next cust
End Sub

Deklaracja kolekcji CustomerFile określa, że może zawierać tylko elementy typu Customer.Zapewnia również początkową pojemność 200 elementów.Procedura AddNewCustomer sprawdza ważność nowego elementu, a następnie dodaje go do kolekcji.Procedura PrintCustomers korzysta z pętli For Each w celu przenoszenia kolekcji i wyświetla jej elementy.

Tematy pokrewne

Zobacz też

Informacje

Dim — Instrukcja (Visual Basic)

ReDim — Instrukcja (Visual Basic)

Array