Khai báo và sử dụng biến mảng

Khai báo hai biến mảng để lưu danh sách họ tên và điểm của 100 SV.

Viết lệnh: Hãy gõ đoạn code sau vào trong Form:

Option Explicit

Dim HT(100) As String '/// Mảng chứa được 101 phần tử từ 0 đến 100

Dim Diem(1 To 100) As Single '/// Mảng chứa được 100 phần tử từ 1 đến 100

Dim MaTran1(4, 4) As Single '/// Ma trận (mảng 2 chiều) có 5 hàng 5 cột

Dim MaTran2(1 To 4, 1 To 4) As Single '/// Mảng 2 chiều có 4 hàng, 4 cột

PrivateSubForm_Load()

HT(0) = "Bill"

HT(1) = "John"

HT(2) = "Gorge"

Diem(1) = 7

Diem(2) = 9

Diem(3) = 10

MaTran1(0, 0) = 5

MaTran1(0, 1) = 6

MaTran1(0, 4) = 8

MaTran2(1, 1) = 8

MaTran2(1, 2) = 9

MaTran2(4, 4) = 10

MsgBox "Giá trị của phần tử đầu tiên của mảng HT là : " & HT(0)

MsgBox "Diem(2) = " & Diem(2)

MsgBox "MaTran1(0,4)=" & MaTran1(0, 4)

MsgBox "MaTran2(4,4) = " & MaTran2(4, 4)

End sub

• Lưu ý:

• Nếu khi khai báo mảng mà không chỉ rõ cận dưới (không có từ khoá To) thì mặc định VB sẽ lấy cả phần tử có chỉ số là 0.
• Để truy cập đến một phần tử của mảng thì viết tên mảng kèm thêm chỉ số đặt trong cặp ngoặc đơn.
• Lbound(M) (LBound = Lower Bound = Cận dưới) cho biết chỉ số dưới của mảng M. Ví dụ LBound(Diem) cho ta 1. LBound(MaTran1) cho ta 0.
• Ubound(M) (UBound = Upper Bound = Cận trên) cho ta chỉ số trên của mảng M. UBound(Diem) → 100.
• Khi khai báo một biến mảng mà không chỉ rõ số phần tử, ví dụ: Dim D() AsInteger thì D được gọi là một mảng động (Dynamic array).
• Đối với mảng động, ta có thể thay đổi lại số phần tử của mảng bằng câu lệnh Redim. Ví dụ, xin 50 phần tử lưu trữ cho mảng D bằng cách viết : Redim D(50).