Chương IV: Kiểu liệt kê, mảng & tập hợp Kiểu liệt kê (enum) Khai báo sử dụng mảng (array) Tập hợp VB.NET (collection) KIỂU LIỆT KÊ Cho phép định nghĩa tập giá trị để gợi nhớ Nếu không giá trị Enum, giá trị Public Enum Numbers zero ' = one ' = two ‘ = End Enum Dim a As Numbers WriteLine((a.two*2)) Enum Week Monday = Tuesday = Wednesday = Thursday = Friday = Saturday = Sunday = End Enum TD2: Không giá trị Enum TD1: Khai báo kiểu liệt kê cho ngày tuần MẢNG Mảng: tập hợp phần tử có kiểu Khai báo mảng chiều: Dim () As TD: Khai báo mảng có 31 số nguyên từ đến 30 Dim a(30) As Integer Ta không kích thước mảng, sau ta phải khởi tạo mảng TD: Dim a() As Integer a = New Integer() {1,2,3,4} Dim f As Integer For Each f In a Write(f) Next MẢNG NHIỀU CHIỀU Khai báo tương tự mảng chiều có thêm kích thước chiều lại TD: ‘ Khai báo ma trận dòng cột Dim m(2, 4) As Single ‘ Khai báo khởi tạo ma trận Dim intArrays(,) As Integer = {{1, 2, 3}, {4, 5, 6}} ‘ Hiển thị theo dạng ma trận Dim f As Integer, c As Integer = For Each f In intArrays If c Mod = Then WriteLine() Write(" ") Write(f) c=c+1 Next TẬP HỢP (COLLECTION) Là lớp đặc biệt chứa nhóm đối tượng Không gian tên: System.Collection định nghĩa nhiều lớp thành viên: ArrayList, Stack, HashTable,BitArray, Queue… Lớp ArrayList: cung cấp chức tập hợp, sử dụng cho nhiều mục đích khác Khai báo & khởi tạo đối tượng ArrayList Dim myList As New System.Collections.ArrayList() ‘ Khởi tạo đối tượng myList có phần tử Dim myList As New System.Collections.ArrayList(5) Phương thức - Add: Thêm phần tử vào tập hợp - Remove: Xóa phần tử khỏi tập hợp - RemoveAt: Xóa vị trí xác định tập hợp TD: Dim f As Integer, r As New System.Collections.ArrayList For f = To r.Add(f) Next r.Remove(3) ‘ Xóa For Each f In r WriteLine(f) Next ARRAY LIST ArrayList chứa phần tử thuộc kiểu khác TD: Dim f As Integer, r As New System.Collections.ArrayList For f = To r.Add(f) Next r.Add(“Khoa Công Nghệ Thông Tin") r.Add(“Khoa Kinh Tế & QTKD") Dim f1 As Object For Each f1 In r If TypeOf f1 Is String Then WriteLine(f1) ‘ Hiển thị giá trị chuỗi End If Next ... trị Enum TD1: Khai báo kiểu liệt kê cho ngày tuần MẢNG Mảng: tập hợp phần tử có kiểu Khai báo mảng chiều: Dim () As TD: Khai báo mảng có 31 số nguyên từ... System.Collections.ArrayList(5) Phương thức - Add: Thêm phần tử vào tập hợp - Remove: Xóa phần tử khỏi tập hợp - RemoveAt: Xóa vị trí xác định tập hợp TD: Dim f As Integer, r As New System.Collections.ArrayList... không kích thước mảng, sau ta phải khởi tạo mảng TD: Dim a() As Integer a = New Integer() {1,2,3 ,4} Dim f As Integer For Each f In a Write(f) Next MẢNG NHIỀU CHIỀU Khai báo tương tự mảng chiều có