- Đầu tiên ta sẽ vừa khai báo, vừa khởi tạo biến mảng kiểu Integer với 101 phần tử
Sub Main()
Dim Ghe_Int() as Integer = New As Integer(100) {}
' Sau đó ta sẽ gán phân tử cho mảng
Ghe_int(0) =1
Ghe_int(1)=2
' ..............................
End Sub
- Xét qua ví dụ trên bạn sẽ thấy nhược điểm của Mảng chính là dư thừa bộ nhớ, tức là chúng ta khai báo 101 phần tử nhưng chỉ sử dụng có 2 phần từ, trong khi thực tế thì ta không biết trước số phân tử thỏa mản là bao nhiêu, nên ta sẽ khai báo thừa như thế
== > Để khắc phục nhược điểm này chúng ta cùng nghiên cứu về List ở phần sau nhé
II- Biến Mảng 2 Chiều
Đầu tiên ta khai báo biến như sau:
Sub Main()
Dim M2C(9, 9) As Integer
M2C(1, 5) = 6
M2C(9, 1) = 10
End Sub
- Bạn cứ hình dung mảng 2 chiều như một ma trận 2 chiều, và mảng trên có 10 * 10 = 100 phần tử
- Sau Đây mình sẽ Demo tính tổng của ma trận 2 chiều 4 dòng và 4 cột
- Ta thấy mỗi cụm có tổng là 20 => Tổng ma trận là 80 nhé
Sub Main()
Dim M2C(3, 3) As Integer
Dim i As Byte, j As Byte, Tong As Long
M2C(0, 0) = 2
M2C(0, 1) = 4
M2C(0, 2) = 6
M2C(0, 3) = 8
M2C(1, 0) = 2
M2C(1, 1) = 4
M2C(1, 2) = 6
M2C(1, 3) = 8
M2C(2, 0) = 2
M2C(2, 1) = 4
M2C(2, 2) = 6
M2C(2, 3) = 8
M2C(3, 0) = 2
M2C(3, 1) = 4
M2C(3, 2) = 6
M2C(3, 3) = 8
For i = 0 To 3
For j = 0 To 3
Tong += M2C(i, j)
Next
Next
Console.WriteLine("Tong ma tran la: " & Tong)
Console.ReadLine()
End Sub
0 nhận xét: