Tablice w Visual Basic
Tablica jest zestawem wartości, które są terminami elementów, które są logicznie powiązane ze sobą. Na przykład tablica może składać się z liczby uczniów w każdej klasie w gimnazjum; każdy element tablicy jest liczbą uczniów w jednej klasie. Podobnie tablica może składać się z ocen ucznia dla klasy; każdy element tablicy jest jedną klasą.
Można użyć poszczególnych zmiennych do przechowywania każdego z naszych elementów danych. Jeśli na przykład nasza aplikacja analizuje oceny uczniów, możemy użyć oddzielnej zmiennej dla klasy każdego ucznia, takiej jak englishGrade1, englishGrade2itp. Takie podejście ma trzy główne ograniczenia:
- Musimy wiedzieć w czasie projektowania dokładnie, ile ocen musimy sobie poradzić.
- Obsługa dużej liczby ocen szybko staje się nieporętna. To z kolei sprawia, że aplikacja jest znacznie bardziej skłonna do wystąpienia poważnych usterek.
- Trudno jest utrzymać. Każda nowa dodana klasa wymaga zmodyfikowania, ponownego skompilowania i ponownego wdrożenia aplikacji.
Za pomocą tablicy można odwoływać się do tych powiązanych wartości o tej samej nazwie i użyć liczby, która jest nazywana indeksem lub indeksem dolnym , aby zidentyfikować pojedynczy element na podstawie jego pozycji w tablicy. Indeksy tablicy wahają się od 0 do jednej mniejszej niż całkowita liczba elementów w tablicy. W przypadku używania składni Visual Basic do definiowania rozmiaru tablicy należy określić jej najwyższy indeks, a nie całkowitą liczbę elementów w tablicy. Możesz pracować z tablicą jako jednostką, a możliwość iterowania jej elementów pozwala znać dokładnie, ile elementów zawiera w czasie projektowania.
Kilka szybkich przykładów przed wyjaśnieniem:
' Declare a single-dimension array of 5 numbers.
Dim numbers(4) As Integer
' Declare a single-dimension array and set its 4 values.
Dim numbers = New Integer() {1, 2, 4, 8}
' Change the size of an existing array to 16 elements and retain the current values.
ReDim Preserve numbers(15)
' Redefine the size of an existing array and reset the values.
ReDim numbers(15)
' Declare a 6 x 6 multidimensional array.
Dim matrix(5, 5) As Double
' Declare a 4 x 3 multidimensional array and set array element values.
Dim matrix = New Integer(,) {{1, 2, 3}, {2, 3, 4}, {3, 4, 5}, {4, 5, 6}}
' Declare a jagged array
Dim sales()() As Double = New Double(11)() {}
Elementy tablicy w prostej tablicy
Utwórzmy tablicę o nazwie students , aby przechowywać liczbę uczniów w każdej klasie w gimnazjum. Indeksy elementów wahają się od 0 do 6. Użycie tej tablicy jest prostsze niż deklarowanie siedmiu zmiennych.
Poniższa ilustracja przedstawia tablicę students . Dla każdego elementu tablicy:
Indeks elementu reprezentuje ocenę (indeks 0 reprezentuje przedszkole).
Wartość zawarta w elemencie reprezentuje liczbę uczniów w tej klasie.
Poniższy przykład zawiera kod Visual Basic, który tworzy tablicę i używa jej:
Module SimpleArray
Public Sub Main()
' Declare an array with 7 elements.
Dim students(6) As Integer
' Assign values to each element.
students(0) = 23
students(1) = 19
students(2) = 21
students(3) = 17
students(4) = 19
students(5) = 20
students(6) = 22
' Display the value of each element.
For ctr As Integer = 0 To 6
Dim grade As String = If(ctr = 0, "kindergarten", $"grade {ctr}")
Console.WriteLine($"Students in {grade}: {students(ctr)}")
Next
End Sub
End Module
' The example displays the following output:
' Students in kindergarten: 23
' Students in grade 1: 19
' Students in grade 2: 21
' Students in grade 3: 17
' Students in grade 4: 19
' Students in grade 5: 20
' Students in grade 6: 22
Przykład wykonuje trzy czynności:
- Deklaruje tablicę
studentsz siedmioma elementami. Liczba6w deklaracji tablicy wskazuje ostatni indeks w tablicy. Jest to jedna mniejsza niż liczba elementów w tablicy. - Przypisuje wartości do każdego elementu w tablicy. Dostęp do elementów tablicy jest uzyskiwany przy użyciu nazwy tablicy i dołączania indeksu pojedynczego elementu w nawiasach.
- Wyświetla listę każdej wartości tablicy. W przykładzie użyto
Forinstrukcji w celu uzyskania dostępu do każdego elementu tablicy według jego numeru indeksu.
Tablica students w poprzednim przykładzie jest tablicą jednowymiarową, ponieważ używa jednego indeksu. Tablica używająca więcej niż jednego indeksu lub indeksu dolnego jest nazywana wielowymiarowymi. Aby uzyskać więcej informacji, zobacz pozostałe części tego artykułu i Wymiary tablicy w Visual Basic.
Tworzenie tablicy
Rozmiar tablicy można zdefiniować na kilka sposobów:
Rozmiar można określić, gdy tablica jest zadeklarowana:
' Declare an array with 10 elements. Dim cargoWeights(9) As Double ' Declare a 24 x 2 array. Dim hourlyTemperatures(23, 1) As Integer ' Declare a jagged array with 31 elements. Dim januaryInquiries(30)() As StringMożesz użyć
Newklauzuli , aby podać rozmiar tablicy podczas jej tworzenia:' Declare an array with 10 elements. Dim cargoWeights() As Double = New Double(9) {} ' Declare a 24 x 2 array. Dim hourlyTemperatures(,) As Integer = New Integer(23, 1) {} ' Declare a jagged array with 31 elements. Dim januaryInquiries()() As String = New String(30)() {}
Jeśli masz istniejącą tablicę, możesz ponownie zdefiniować jej rozmiar przy użyciu instrukcji ReDim . Można określić, że ReDim instrukcja zachowuje wartości, które znajdują się w tablicy, lub można określić, że tworzy pustą tablicę. W poniższym przykładzie pokazano różne zastosowania instrukcji ReDim w celu zmodyfikowania rozmiaru istniejącej tablicy.
' Assign a new array size and retain the current values.
ReDim Preserve cargoWeights(20)
' Assign a new array size and retain only the first five 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 instrukcję ReDim.
Przechowywanie wartości w tablicy
Dostęp do każdej lokalizacji w tablicy można uzyskać przy użyciu indeksu typu Integer. Wartości można przechowywać i pobierać w tablicy, odwołując się do każdej lokalizacji tablicy, używając jej indeksu ujętego w nawiasy. Indeksy dla tablic wielowymiarowych są oddzielone przecinkami (,). Potrzebujesz jednego indeksu dla każdego wymiaru tablicy.
W poniższym przykładzie pokazano niektóre instrukcje, które przechowują i pobierają wartości w tablicach.
Module Example
Public Sub Main()
' Create a 10-element integer array.
Dim numbers(9) As Integer
Dim value As Integer = 2
' Write values to it.
For ctr As Integer = 0 To 9
numbers(ctr) = value
value *= 2
Next
' Read and sum the array values.
Dim sum As Integer
For ctr As Integer = 0 To 9
sum += numbers(ctr)
Next
Console.WriteLine($"The sum of the values is {sum:N0}")
End Sub
End Module
' The example displays the following output:
' The sum of the values is 2,046
Wypełnianie tablicy literałami tablicy
Używając literału tablicy, można wypełnić tablicę początkowym zestawem wartości w tym samym czasie, który został utworzony. Literał tablicy składa się z listy wartości rozdzielanych przecinkami, które są ujęte w nawiasy klamrowe ({}).
Podczas tworzenia tablicy przy użyciu literału tablicy można podać typ tablicy lub użyć wnioskowania typu w celu określenia typu tablicy. W poniższym przykładzie przedstawiono obie opcje.
' Array literals with explicit type definition.
Dim numbers = New Integer() {1, 2, 4, 8}
' Array literals with type inference.
Dim doubles = {1.5, 2, 9.9, 18}
' Array literals with explicit type definition.
Dim articles() As String = { "the", "a", "an" }
' Array literals with explicit widening type definition.
Dim values() As Double = { 1, 2, 3, 4, 5 }
W przypadku korzystania z wnioskowania typu typ tablicy jest określany przez dominujący typ na liście wartości literałów. Dominujący typ jest typem, do którego można rozszerzyć wszystkie inne typy w tablicy. Jeśli nie można określić tego unikatowego typu, typ dominujący jest unikatowym typem, do którego wszystkie inne typy w tablicy mogą zawęzić. Jeśli żaden z tych unikatowych typów nie można określić, typ dominujący to Object. Jeśli na przykład lista wartości dostarczonych do literału tablicy zawiera wartości typu Integer, Longi Double, wynikowa tablica jest typu Double. Ponieważ Integer i Long poszerzyć tylko do Double, Double jest dominującym typem. Aby uzyskać więcej informacji, zobacz Rozszerzanie i zawężanie konwersji.
Uwaga
Wnioskowanie typu można używać tylko w przypadku tablic zdefiniowanych jako zmienne lokalne w składowej typu. Jeśli jawna definicja typu jest nieobecna, tablice zdefiniowane z literałami tablicy na poziomie klasy są typu Object[]. Aby uzyskać więcej informacji, zobacz Wnioskowanie typu lokalnego.
Należy pamiętać, że w poprzednim przykładzie zdefiniowano values jako tablicę typu Double , mimo że wszystkie literały tablicy mają typ Integer. Tę tablicę można utworzyć, ponieważ wartości w literale tablicy mogą być rozszerzane na Double wartości.
Można również utworzyć i wypełnić tablicę wielowymiarową przy użyciu zagnieżdżonych literałów tablicy. Zagnieżdżone literały tablicy muszą mieć wiele wymiarów zgodnych z wynikową tablicą. Poniższy przykład tworzy dwuwymiarową tablicę liczb całkowitych przy użyciu zagnieżdżonych literałów tablicy.
' Create and populate a 2 x 2 array.
Dim grid1 = {{1, 2}, {3, 4}}
' Create and populate a 2 x 2 array with 3 elements.
Dim grid2(,) = {{1, 2}, {3, 4}, {5, 6}}
W przypadku używania zagnieżdżonych literałów tablicy do tworzenia i wypełniania tablicy występuje błąd, jeśli liczba elementów w zagnieżdżonych literałach tablicy nie jest zgodna. Błąd występuje również, jeśli jawnie zadeklarowasz zmienną tablicową, aby mieć inną liczbę wymiarów niż literały tablicy.
Tak jak w przypadku tablic jednowymiarowych, można polegać na wnioskowaniu typu podczas tworzenia tablicy wielowymiarowej z zagnieżdżonych literałów tablicy. Wnioskowany typ jest dominującym typem dla wszystkich wartości we wszystkich literałach tablicy dla wszystkich poziomów zagnieżdżania. W poniższym przykładzie jest tworzona dwuwymiarowa tablica typu Double[,] na podstawie wartości typu Integer i Double.
Dim arr = {{1, 2.0}, {3, 4}, {5, 6}, {7, 8}}
Aby uzyskać dodatkowe przykłady, zobacz How to: Initialize an Array Variable in Visual Basic (Instrukcje: inicjowanie zmiennej tablicowej w Visual Basic).
Iterowanie za pomocą tablicy
Podczas iterowania tablicy uzyskujesz dostęp do każdego elementu w tablicy od najniższego indeksu do najwyższego lub od najwyższego do najniższego. Zazwyczaj należy użyć dowolnego z opcji For... Następna instrukcja lub instrukcja dla każdego... Następna instrukcja do iterowania elementów tablicy. Jeśli nie znasz górnych granic tablicy, możesz wywołać metodę Array.GetUpperBound , aby uzyskać najwyższą wartość indeksu. Chociaż najniższa wartość indeksu wynosi prawie zawsze 0, można wywołać metodę Array.GetLowerBound , aby uzyskać najniższą wartość indeksu.
Poniższy przykład iteruje tablicę jednowymiarową przy użyciu instrukcji For...Next .
Module IterateArray
Public Sub Main()
Dim numbers = {10, 20, 30}
For index = 0 To numbers.GetUpperBound(0)
Console.WriteLine(numbers(index))
Next
End Sub
End Module
' The example displays the following output:
' 10
' 20
' 30
Poniższy przykład iteruje tablicę wielowymiarową przy użyciu instrukcji For...Next . Metoda GetUpperBound ma parametr określający wymiar. GetUpperBound(0) Zwraca najwyższy indeks pierwszego wymiaru i GetUpperBound(1) zwraca najwyższy indeks drugiego wymiaru.
Module IterateArray
Public Sub Main()
Dim numbers = {{1, 2}, {3, 4}, {5, 6}}
For index0 = 0 To numbers.GetUpperBound(0)
For index1 = 0 To numbers.GetUpperBound(1)
Console.Write($"{numbers(index0, index1)} ")
Next
Console.WriteLine()
Next
End Sub
End Module
' The example displays the following output:
' Output
' 1 2
' 3 4
' 5 6
W poniższym przykładzie użyto obiektu Dla każdego... Następna instrukcja do iterowania po jednowymiarowej tablicy i dwuwymiarowej tablicy.
Module IterateWithForEach
Public Sub Main()
' Declare and iterate through a one-dimensional array.
Dim numbers1 = {10, 20, 30}
For Each number In numbers1
Console.WriteLine(number)
Next
Console.WriteLine()
Dim numbers = {{1, 2}, {3, 4}, {5, 6}}
For Each number In numbers
Console.WriteLine(number)
Next
End Sub
End Module
' The example displays the following output:
' 10
' 20
' 30
'
' 1
' 2
' 3
' 4
' 5
' 6
Rozmiar tablicy
Rozmiar tablicy jest iloczynem długości wszystkich jego wymiarów. Reprezentuje całkowitą liczbę elementów znajdujących się obecnie w tablicy. Na przykład poniższy przykład deklaruje tablicę dwuwymiarową z czterema elementami w każdym wymiarze. Jak pokazuje dane wyjściowe z przykładu, rozmiar tablicy wynosi 16 (lub (3 + 1) * (3 + 1).
Module Example
Public Sub Main()
Dim arr(3, 3) As Integer
Console.WriteLine(arr.Length)
End Sub
End Module
' The example displays the following output:
' 16
Uwaga
Ta dyskusja na temat rozmiaru tablicy nie ma zastosowania do tablic poszarpanych. Aby uzyskać informacje na temat poszarpanych tablic i określania rozmiaru tablicy jagged, zobacz sekcję Jagged arrays (Tablice jagged).
Rozmiar tablicy można znaleźć przy użyciu Array.Length właściwości . Długość każdego wymiaru tablicy wielowymiarowej można znaleźć przy użyciu Array.GetLength metody .
Można zmienić rozmiar zmiennej tablicy, przypisując do niej nowy obiekt tablicy lub za pomocą instrukcji ReDim Statement . W poniższym przykładzie użyto instrukcji ReDim , aby zmienić tablicę 100 elementów na tablicę 51-elementową.
Module Example
Public Sub Main()
Dim arr(99) As Integer
Console.WriteLine(arr.Length)
Redim arr(50)
Console.WriteLine(arr.Length)
End Sub
End Module
' The example displays the following output:
' 100
' 51
Podczas pracy z rozmiarem tablicy należy pamiętać o kilku kwestiach.
| Uwagi | |
|---|---|
| Długość wymiaru | Indeks każdego wymiaru jest oparty na 0, co oznacza, że waha się od 0 do górnej granicy. W związku z tym długość danego wymiaru jest większa niż zadeklarowana górna granica tego wymiaru. |
| Limity długości | Długość każdego wymiaru tablicy jest ograniczona do maksymalnej wartości Integer typu danych lub Int32.MaxValue (2 ^ 31) – 1. Jednak całkowity rozmiar tablicy jest również ograniczony przez pamięć dostępną w systemie. Jeśli próbujesz zainicjować tablicę, która przekracza ilość dostępnej pamięci, środowisko uruchomieniowe zgłasza błąd OutOfMemoryException. |
| Rozmiar i rozmiar elementu | Rozmiar tablicy jest niezależny od typu danych jego elementów. Rozmiar zawsze reprezentuje całkowitą liczbę elementów, a nie liczbę bajtów, które zużywają w pamięci. |
| Zużycie pamięci | Nie można bezpiecznie założyć żadnych założeń dotyczących sposobu przechowywania tablicy w pamięci. Storage różni się na platformach o różnych szerokościach danych, więc ta sama tablica może zużywać więcej pamięci w systemie 64-bitowym niż w systemie 32-bitowym. W zależności od konfiguracji systemu podczas inicjowania tablicy środowisko uruchomieniowe języka wspólnego (CLR) może przypisać magazyn do elementów pakietu tak blisko siebie, jak to możliwe, lub wyrównać je wszystkie na granicach sprzętu naturalnego. Ponadto tablica wymaga nakładu pracy magazynu na potrzeby informacji kontrolnych, a to obciążenie zwiększa się wraz z każdym dodanym wymiarem. |
Typ tablicy
Każda tablica ma typ danych, który różni się od typu danych jego elementów. Brak pojedynczego typu danych dla wszystkich tablic. Zamiast tego typ danych tablicy jest określany przez liczbę wymiarów lub rangę tablicy oraz typ danych elementów w tablicy. Dwie zmienne tablicowe są tego samego typu danych tylko wtedy, gdy mają tę samą rangę, a ich elementy mają ten sam typ danych. Długość wymiarów tablicy nie wpływa na typ danych tablicy.
Każda tablica dziedziczy z System.Array klasy i można zadeklarować zmienną Arraytypu , ale nie można utworzyć tablicy typu Array. Na przykład, chociaż poniższy kod deklaruje zmienną arr typu Array i wywołuje Array.CreateInstance metodę w celu utworzenia wystąpienia tablicy, typ tablicy okazuje się być Obiekt[].
Module Example
Public Sub Main()
Dim arr As Array = Array.CreateInstance(GetType(Object), 19)
Console.WriteLine(arr.Length)
Console.WriteLine(arr.GetType().Name)
End Sub
End Module
' The example displays the following output:
' 19
' Object[]
Ponadto instrukcja ReDim nie może działać na zmiennej zadeklarowanej jako typ Array. Z tych powodów i bezpieczeństwa typu zaleca się zadeklarowanie każdej tablicy jako określonego typu.
Typ danych tablicy lub jej elementów można znaleźć na kilka sposobów.
- Możesz wywołać metodę GetType w zmiennej, aby uzyskać Type obiekt reprezentujący typ czasu wykonywania zmiennej. Obiekt Type zawiera obszerne informacje we właściwościach i metodach.
- Zmienną można przekazać do TypeName funkcji, aby uzyskać
Stringnazwę typu czasu wykonywania.
Poniższy przykład wywołuje zarówno metodę GetType , jak i TypeName funkcję w celu określenia typu tablicy. Typ tablicy to Byte(,). Należy pamiętać, że Type.BaseType właściwość wskazuje również, że podstawowym typem Array tablicy bajtów jest klasa.
Module Example
Public Sub Main()
Dim bytes(9,9) As Byte
Console.WriteLine($"Type of {nameof(bytes)} array: {bytes.GetType().Name}")
Console.WriteLine($"Base class of {nameof(bytes)}: {bytes.GetType().BaseType.Name}")
Console.WriteLine()
Console.WriteLine($"Type of {nameof(bytes)} array: {TypeName(bytes)}")
End Sub
End Module
' The example displays the following output:
' Type of bytes array: Byte[,]
' Base class of bytes: Array
'
' Type of bytes array: Byte(,)
Tablice jako wartości zwracane i parametry
Aby zwrócić tablicę Function z procedury, określ typ danych tablicy i liczbę wymiarów jako zwracany typ instrukcji funkcji. W ramach funkcji zadeklaruj zmienną tablicy lokalnej o tym samym typie danych i liczbie wymiarów. W instrukcji Return dołącz zmienną tablicy lokalnej bez nawiasów.
Aby określić tablicę jako parametr Sub do procedury lub Function , zdefiniuj parametr jako tablicę z określonym typem danych i liczbą wymiarów. W wywołaniu procedury przekaż zmienną tablicową o tym samym typie danych i liczbie wymiarów.
W poniższym przykładzie GetNumbers funkcja zwraca tablicę Integer()jednowymiarową typu Integer. Procedura ShowNumbers akceptuje Integer() argument.
Module ReturnValuesAndParams
Public Sub Main()
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)
Console.WriteLine($"{numbers(index)} ")
Next
End Sub
End Module
' The example displays the following output:
' 10
' 20
' 30
W poniższym przykładzie GetNumbersMultiDim funkcja zwraca tablicę Integer(,)dwuwymiarową typu Integer. Procedura ShowNumbersMultiDim akceptuje Integer(,) argument.
Module Example
Public Sub Main()
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)
Console.Write($"{numbers(index0, index1)} ")
Next
Console.WriteLine()
Next
End Sub
End Module
' The example displays the following output:
' 1 2
' 3 4
' 5 6
Tablice poszarpane
Czasami struktura danych w aplikacji jest dwuwymiarowa, ale nie prostokątna. Na przykład można użyć tablicy do przechowywania danych o wysokiej temperaturze każdego dnia miesiąca. Pierwszy wymiar tablicy reprezentuje miesiąc, ale drugi wymiar reprezentuje liczbę dni, a liczba dni w miesiącu nie jest jednolita. Tablica poszarpana, nazywana również tablicą tablic, jest przeznaczona dla takich scenariuszy. Poszarpana tablica to tablica, której elementy są również tablicami. Poszarpana tablica i każdy element w poszarpanej tablicy może mieć co najmniej jeden wymiar.
W poniższym przykładzie użyto tablicy miesięcy, z których każdy element jest tablicą dni. W przykładzie użyto tablicy poszarpanej, ponieważ różne miesiące mają różne liczby dni. W przykładzie pokazano, jak utworzyć poszarpaną tablicę, przypisać do niej wartości i pobrać i wyświetlić jej wartości.
Imports System.Globalization
Module JaggedArray
Public Sub Main()
' Declare the jagged array of 12 elements. Each element is an array of Double.
Dim sales(11)() As Double
' Set each element of the sales array to a Double array of the appropriate size.
For month As Integer = 0 To 11
' The number of days in the month determines the appropriate size.
Dim daysInMonth As Integer =
DateTime.DaysInMonth(Year(Now), month + 1)
sales(month) = New Double(daysInMonth - 1) {}
Next
' Store values in each element.
For month As Integer = 0 To 11
For dayOfMonth = 0 To sales(month).GetUpperBound(0)
sales(month)(dayOfMonth) = (month * 100) + dayOfMonth
Next
Next
' Retrieve and display the array values.
Dim monthNames = DateTimeFormatInfo.CurrentInfo.AbbreviatedMonthNames
' Display the month names.
Console.Write(" ")
For ctr = 0 To sales.GetUpperBound(0)
Console.Write($" {monthNames(ctr)} ")
Next
Console.WriteLine()
' Display data for each day in each month.
For dayInMonth = 0 To 30
Console.Write($"{dayInMonth + 1,2}. ")
For monthNumber = 0 To sales.GetUpperBound(0)
If dayInMonth > sales(monthNumber).GetUpperBound(0) Then
Console.Write(" ")
Else
Console.Write($"{sales(monthNumber)(dayInMonth),-5} ")
End If
Next
Console.WriteLine()
Next
End Sub
End Module
' The example displays the following output:
' Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
' 1. 0 100 200 300 400 500 600 700 800 900 1000 1100
' 2. 1 101 201 301 401 501 601 701 801 901 1001 1101
' 3. 2 102 202 302 402 502 602 702 802 902 1002 1102
' 4. 3 103 203 303 403 503 603 703 803 903 1003 1103
' 5. 4 104 204 304 404 504 604 704 804 904 1004 1104
' 6. 5 105 205 305 405 505 605 705 805 905 1005 1105
' 7. 6 106 206 306 406 506 606 706 806 906 1006 1106
' 8. 7 107 207 307 407 507 607 707 807 907 1007 1107
' 9. 8 108 208 308 408 508 608 708 808 908 1008 1108
' 10. 9 109 209 309 409 509 609 709 809 909 1009 1109
' 11. 10 110 210 310 410 510 610 710 810 910 1010 1110
' 12. 11 111 211 311 411 511 611 711 811 911 1011 1111
' 13. 12 112 212 312 412 512 612 712 812 912 1012 1112
' 14. 13 113 213 313 413 513 613 713 813 913 1013 1113
' 15. 14 114 214 314 414 514 614 714 814 914 1014 1114
' 16. 15 115 215 315 415 515 615 715 815 915 1015 1115
' 17. 16 116 216 316 416 516 616 716 816 916 1016 1116
' 18. 17 117 217 317 417 517 617 717 817 917 1017 1117
' 19. 18 118 218 318 418 518 618 718 818 918 1018 1118
' 20. 19 119 219 319 419 519 619 719 819 919 1019 1119
' 21. 20 120 220 320 420 520 620 720 820 920 1020 1120
' 22. 21 121 221 321 421 521 621 721 821 921 1021 1121
' 23. 22 122 222 322 422 522 622 722 822 922 1022 1122
' 24. 23 123 223 323 423 523 623 723 823 923 1023 1123
' 25. 24 124 224 324 424 524 624 724 824 924 1024 1124
' 26. 25 125 225 325 425 525 625 725 825 925 1025 1125
' 27. 26 126 226 326 426 526 626 726 826 926 1026 1126
' 28. 27 127 227 327 427 527 627 727 827 927 1027 1127
' 29. 28 228 328 428 528 628 728 828 928 1028 1128
' 30. 29 229 329 429 529 629 729 829 929 1029 1129
' 31. 30 230 430 630 730 930 1130
W poprzednim przykładzie wartości są przypisywane do tablicy poszarpanej na podstawie elementu według elementu przy użyciu For...Next pętli. Wartości można również przypisać do elementów tablicy poszarpanej przy użyciu zagnieżdżonych literałów tablicy. Jednak próba użycia zagnieżdżonych literałów tablicy (na przykład Dim valuesjagged = {{1, 2}, {2, 3, 4}}) generuje błąd kompilatora BC30568. Aby poprawić błąd, należy ująć literały tablicy wewnętrznej w nawiasy. Nawiasy wymuszają obliczanie wyrażenia literału tablicy, a wynikowe wartości są używane z zewnętrznym literałem tablicy, jak pokazano w poniższym przykładzie.
Module Example
Public Sub Main()
Dim values1d = { 1, 2, 3 }
Dim values2d = {{1, 2}, {2, 3}, {3, 4}}
Dim valuesjagged = {({1, 2}), ({2, 3, 4})}
End Sub
End Module
Poszarpana tablica to tablica jednowymiarowa, której elementy zawierają tablice. W związku z Array.Length tym właściwość i Array.GetLength(0) metoda zwracają liczbę elementów w tablicy jednowymiarowej i Array.GetLength(1) zgłasza wartość IndexOutOfRangeException , ponieważ tablica poszarpana nie jest wielowymiarowa. Liczbę elementów w każdym podarraie można określić, pobierając wartość właściwości podarray Array.Length . W poniższym przykładzie pokazano, jak określić liczbę elementów w tablicy poszarpanej.
Module Example
Public Sub Main()
Dim jagged = { ({1, 2}), ({2, 3, 4}), ({5, 6}), ({7, 8, 9, 10}) }
Console.WriteLine($"The value of jagged.Length: {jagged.Length}.")
Dim total = jagged.Length
For ctr As Integer = 0 To jagged.GetUpperBound(0)
Console.WriteLine($"Element {ctr + 1} has {jagged(ctr).Length} elements.")
total += jagged(ctr).Length
Next
Console.WriteLine($"The total number of elements in the jagged array: {total}")
End Sub
End Module
' The example displays the following output:
' The value of jagged.Length: 4.
' Element 1 has 2 elements.
' Element 2 has 3 elements.
' Element 3 has 2 elements.
' Element 4 has 4 elements.
' The total number of elements in the jagged array: 15
Tablice o zerowej długości
Visual Basic rozróżnia tablicę niezainicjowaną (tablicę, której wartość to Nothing) oraz tablicę o zerowej długości lub pustą tablicę (tablicę, która nie ma elementów). Niezainicjowana tablica to tablica, która nie została wymiarowana ani nie miała przypisanych do niej żadnych wartości. Na przykład:
Dim arr() As String
Tablica o zerowej długości jest zadeklarowana z wymiarem -1. Na przykład:
Dim arrZ(-1) As String
W następujących okolicznościach może być konieczne utworzenie tablicy o zerowej długości:
Bez ryzyka NullReferenceException wyjątku kod musi uzyskiwać dostęp do składowych Array klasy, takich jak lub Rank, lub wywołać funkcję Visual Basic, taką jak LengthUBound.
Chcesz, aby kod był prosty, nie musisz sprawdzać
Nothingich jako specjalnego przypadku.Kod współdziała z interfejsem programowania aplikacji (API), który wymaga przekazania tablicy o zerowej długości do co najmniej jednej procedury lub zwraca tablicę o zerowej długości z co najmniej jednej procedury.
Dzielenie tablicy
W niektórych przypadkach może być konieczne podzielenie jednej tablicy na wiele tablic. Obejmuje to identyfikację punktu lub punktów, w których tablica ma zostać podzielona, a następnie plucie tablicy na co najmniej dwie oddzielne tablice.
Uwaga
W tej sekcji nie omówiono dzielenia pojedynczego ciągu na tablicę ciągów na podstawie ogranicznika. Aby uzyskać informacje na temat dzielenia ciągu, zobacz metodę String.Split .
Najczęstsze kryteria dzielenia tablicy to:
Liczba elementów w tablicy. Na przykład możesz podzielić tablicę więcej niż określoną liczbę elementów na liczbę w przybliżeniu równych części. W tym celu można użyć wartości zwracanej przez metodę Array.Length lub Array.GetLength .
Wartość elementu, który służy jako ogranicznik, który wskazuje, gdzie tablica powinna być podzielona. Możesz wyszukać określoną wartość, wywołując Array.FindIndex metody i Array.FindLastIndex .
Po określeniu indeksu lub indeksów, w których tablica ma zostać podzielona, możesz utworzyć poszczególne tablice, wywołując metodę Array.Copy .
W poniższym przykładzie tablica jest podzielona na dwie tablice o równym rozmiarze. (Jeśli całkowita liczba elementów tablicy jest dziwna, pierwsza tablica ma więcej elementów niż drugi).
Module Example
Public Sub Main()
' Create an array of 100 elements.
Dim arr(99) As Integer
' Populate the array.
Dim rnd As new Random()
For ctr = 0 To arr.GetUpperBound(0)
arr(ctr) = rnd.Next()
Next
' Determine how many elements should be in each array.
Dim divisor = 2
Dim remainder As Integer
Dim boundary = Math.DivRem(arr.GetLength(0), divisor, remainder)
' Copy the array.
Dim arr1(boundary - 1 + remainder), arr2(boundary - 1) as Integer
Array.Copy(arr, 0, arr1, 0, boundary + remainder)
Array.Copy(arr, boundary + remainder, arr2, 0, arr.Length - boundary)
End Sub
End Module
Poniższy przykład dzieli tablicę ciągów na dwie tablice na podstawie obecności elementu, którego wartość to "zzz", który służy jako ogranicznik tablicy. Nowe tablice nie zawierają elementu zawierającego ogranicznik.
Module Example
Public Sub Main()
Dim rnd As New Random()
' Create an array of 100 elements.
Dim arr(99) As String
' Populate each element with an arbitrary ASCII character.
For ctr = 0 To arr.GetUpperBound(0)
arr(ctr) = ChrW(Rnd.Next(&h21, &h7F))
Next
' Get a random number that will represent the point to insert the delimiter.
arr(rnd.Next(0, arr.GetUpperBound(0))) = "zzz"
' Find the delimiter.
Dim location = Array.FindIndex(arr, Function(x) x = "zzz")
' Create the arrays.
Dim arr1(location - 1) As String
Dim arr2(arr.GetUpperBound(0) - location - 1) As String
' Populate the two arrays.
Array.Copy(arr, 0, arr1, 0, location)
Array.Copy(arr, location + 1, arr2, 0, arr.GetUpperBound(0) - location)
End Sub
End Module
Łączenie tablic
Można również połączyć wiele tablic w jedną większą tablicę. W tym celu należy również użyć Array.Copy metody .
Uwaga
W tej sekcji nie omówiono łączenia tablicy ciągów w jeden ciąg. Aby uzyskać informacje na temat dołączania tablicy ciągów, zobacz metodę String.Join .
Przed skopiowaniem elementów każdej tablicy do nowej tablicy należy najpierw upewnić się, że tablica została zainicjowana tak, aby była wystarczająco duża, aby pomieścić nową tablicę. Można to zrobić na jeden z dwóch sposobów:
- Użyj instrukcji
ReDim Preserve, aby dynamicznie rozwinąć tablicę przed dodaniem do niej nowych elementów. Jest to najłatwiejsza technika, ale może to spowodować obniżenie wydajności i nadmierne zużycie pamięci podczas kopiowania dużych tablic. - Oblicz całkowitą liczbę elementów potrzebnych dla nowej dużej tablicy, a następnie dodaj do niej elementy każdej tablicy źródłowej.
W poniższym przykładzie użyto drugiego podejścia do dodania czterech tablic z dziesięcioma elementami do pojedynczej tablicy.
Imports System.Collections.Generic
Imports System.Threading.Tasks
Module Example
Public Sub Main()
Dim tasks As New List(Of Task(Of Integer()))
' Generate four arrays.
For ctr = 0 To 3
Dim value = ctr
tasks.Add(Task.Run(Function()
Dim arr(9) As Integer
For ndx = 0 To arr.GetUpperBound(0)
arr(ndx) = value
Next
Return arr
End Function))
Next
Task.WaitAll(tasks.ToArray())
' Compute the number of elements in all arrays.
Dim elements = 0
For Each task In tasks
elements += task.Result.Length
Next
Dim newArray(elements - 1) As Integer
Dim index = 0
For Each task In tasks
Dim n = task.Result.Length
Array.Copy(task.Result, 0, newArray, index, n)
index += n
Next
Console.WriteLine($"The new array has {newArray.Length} elements.")
End Sub
End Module
' The example displays the following output:
' The new array has 40 elements.
Ponieważ w tym przypadku tablice źródłowe są małe, możemy również dynamicznie rozwijać tablicę, dodając do niej elementy każdej nowej tablicy. Poniższy przykład to robi.
Imports System.Collections.Generic
Imports System.Threading.Tasks
Module Example
Public Sub Main()
Dim tasks As New List(Of Task(Of Integer()))
' Generate four arrays.
For ctr = 0 To 3
Dim value = ctr
tasks.Add(Task.Run(Function()
Dim arr(9) As Integer
For ndx = 0 To arr.GetUpperBound(0)
arr(ndx) = value
Next
Return arr
End Function))
Next
Task.WaitAll(tasks.ToArray())
' Dimension the target array and copy each element of each source array to it.
Dim newArray() As Integer = {}
' Define the next position to copy to in newArray.
Dim index = 0
For Each task In tasks
Dim n = Task.Result.Length
ReDim Preserve newArray(newArray.GetUpperBound(0) + n)
Array.Copy(task.Result, 0, newArray, index, n)
index += n
Next
Console.WriteLine($"The new array has {newArray.Length} elements.")
End Sub
End Module
' The example displays the following output:
' The new array has 40 elements.
Kolekcje jako alternatywa dla tablic
Tablice są najbardziej przydatne do tworzenia i pracy z stałą liczbą silnie typiowanych obiektów. Kolekcje zapewniają bardziej elastyczny sposób pracy z grupami obiektów. W przeciwieństwie do tablic, które wymagają jawnej zmiany rozmiaru tablicy za pomocą ReDim instrukcji, kolekcje rosną i kurczą się dynamicznie w miarę zmiany potrzeb aplikacji.
Gdy używasz ReDim polecenia do ponownego utworzenia tablicy, Visual Basic tworzy nową tablicę i zwalnia poprzednią. Trwa to czas wykonywania. W związku z tym, jeśli liczba elementów, z których często pracujesz, lub nie można przewidzieć maksymalnej liczby potrzebnych elementów, zwykle uzyskasz lepszą wydajność przy użyciu kolekcji.
W przypadku niektórych kolekcji można przypisać klucz do dowolnego obiektu umieszczonego w kolekcji, aby można było szybko pobrać obiekt przy użyciu klucza .
Jeśli kolekcja zawiera elementy tylko jednego typu danych, możesz użyć jednej z klas w System.Collections.Generic przestrzeni nazw. Kolekcja ogólna wymusza bezpieczeństwo typów, aby nie można było do niego dodać żadnego innego typu danych.
Aby uzyskać więcej informacji na temat kolekcji, zobacz Kolekcje.
Powiązane tematy
| Okres | Definicja |
|---|---|
| Wymiary tablic w Visual Basic | Wyjaśnia rangę i wymiary w tablicach. |
| Porady: inicjowanie zmiennej tablicy w języku Visual Basic | Opisuje sposób wypełniania tablic wartościami początkowymi. |
| Porady: sortowanie tablicy w Visual Basic | Pokazuje sposób sortowania elementów tablicy alfabetycznie. |
| Instrukcje: przypisywanie tablicy do innej tablicy | Opisuje reguły i kroki przypisywania tablicy do innej zmiennej tablicy. |
| Rozwiązywanie problemów związanych z tablicami | W tym artykule omówiono niektóre typowe problemy występujące podczas pracy z tablicami. |