Câu lạc bộ Tin học ứng dụng
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

Mảng và Sắp xếp mảng

Go down

Mảng và Sắp xếp mảng Empty Mảng và Sắp xếp mảng

Bài gửi by thuanfun Tue May 11, 2010 3:24 pm

Mảng là một tập hợp các giá trị cùng kiểu. VD: mảng các số nguyên, mảng các xâu ký tự, .....

Khai báo mảng:

+ Khai báo mảng có số phần tử cố định:
Dim TenMang(SốPhầnTử - 1) As KiểuDữLiệu
Ví dụ:
Dim A(3) As Double ' Khai báo mảng số thực Double có 4 phần từ A(0), A(1), A(2), A(3)
Dim S(1) As String ' Khai báo mảng String có 2 phần từ A(0), A(1)

Khai báo mảng nhiều chiều:
Dim A(3,3) As Double ' Khai báo mảng Double 2 chiều, 16 phần tử A(0,0), A(0,1), A(0,2), A(0,3), A(1,0), A(1,1), A(1,2), ........., A(3,3).
Dim A(3,3,2) As Double ' Khai báo mảng 3 chiều , .............

+ Khai báo mảng chưa xác định số phần tử
Dim A() As Double ' Mảng 1 chiều Double có số phần tử chưa xác định
Dim A(,) As Double ' Mảng 2 chiều Double có số phần tử chưa xác định
Dim A(,,) As Double ' Mảng 3 chiều Double có số phần tử chưa xác định
..............

Thao tác với các phần tử của mảng:
Các phần tử của mảng là các biến thông thường có kiểu biến của mảng. Ta hoàn toàn có thể đọc giá trị hoặc gán giá trị cho biến đó.
VD: Dim A(100) As Double ' Khai báo mảng số thực Double, các phần tử sẽ có giá trị mặc định là 0
A(2)=3.14 ' Gán số 3.14 cho phần tử A(2) của mảng.
Dim x as Double = A(5) ' Lấy phần tử A(5) gán cho biến thực x nào đó.

Thay đổi số phần tử của mảng:
ReDim TenMang(SốPhầnTửMới -1 )
VD: ReDim A(99)

Với ReDim, các phần tử của mảng đều bằng 0 (mảng String thì bằng "", ......)

Để các phần tử của mảng không bị mất giá trị khi ReDim mảng thì ta dùng
ReDim Preserve TenMang (SốPhầnTửMới -1 )

Sắp xếp mảng:
Array.Sort(TenMang)
Với lệnh trên các phần tử của mảng sẽ được sắp xếp tăng dần.
Với mảng String thì nó sắp xếp theo thứ tự ABC

thuanfun
Admin
Admin

Tổng số bài gửi : 31
Join date : 20/04/2010
Age : 38

Về Đầu Trang Go down

Về Đầu Trang

- Similar topics

 
Permissions in this forum:
Bạn không có quyền trả lời bài viết