Gửi Tin Nhắn Cho Admin

Thứ Ba, 26 tháng 9, 2017

Khai Báo Biến Mảng trong Vb.Net

Phạm Minh Tùng  /  at  9/26/2017 09:59:00 CH  /  No comments


I - Biến Mảng 1 Chiều
- Đầ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

Share
Posted in: Posted on: Thứ Ba, 26 tháng 9, 2017

0 nhận xét:

Recent Comments

Copyright © 2013 Excel Toàn Tập. WP Theme-junkie converted by Bloggertheme9
Blogger templates. Proudly Powered by Blogger.