BÀI TẬP CÔNG NGHỆ THÔNG TIN TRƯỜNG ITC potx

2.2 Mảng ñộng Written by: Dương Thành Phết Mảng ñộng là mảng không xác ñịnh rõ số phần tử khi khai báo.. http://www.thayphet.net Cú pháp khai báo: [Dim | Private | Public | Static] Tên_

Trang 1

2.2 Mảng ñộng

Written by: Dương Thành Phết

Mảng ñộng là mảng không xác ñịnh rõ số phần tử khi

khai báo.

http://www.thayphet.net

Cú pháp khai báo:

[Dim | Private | Public | Static] Tên_m,ng() As Kiu

Cấp phát bộ nhớ:

ReDim Tên_m,ng(s0 ph7n t8) As Kiu

ReDim St(9)

This is trial version www.adultpdf.com

Trang 2

Khi ñã khai báo và cấp phát vùng nhớ cho mảng

ñộng, khi cần ta vẫn có thể thay ñổi lại kích thước của mảng bằng lệnh ReDim

Ví du :

Dim MyArray() As Integer ' Khai báo mảng ñộng.

Redim MyArray(5) ' cấp phát 5 phần tử.

For i = 1 To 5 ' Lặp 5 lần.

MyArray(i) = i Next i

Redim MyArray(10) For i = 1 To 10

MyArray(i) =i Next i

Trang 3

Mặc ñịnh, khi dùng lệnh Redim ñể cấp phát lại số

phần tử trong mảng thì các giá trị cũ sẽ bị mất ñi.

ðể giữ lại các giá trị cho các phần tử cũ trong mảng ta

phải dùng thêm từ khoá Preserve

Ví du :

Dim MyArray() As Integer ' Khai báo mảng ñộng.

Redim MyArray(5) ' cấp phát 5 phần tử.

For i = 1 To 5 ' Lặp 5 lần.

MyArray(i) = i khởi tạo giá trị cho mảng.

Next i

… Redim Preserve MyArray(15)

'cấp phát lại 15 pt cho mảng nhưng vẫn giữ lại

‘các giá trị cũ của 5 phần tử ñầu.

Trang 4

2.3 Mảng ña chiều

Visual Basic cho phép khai báo và sử dụng mảng ña

chiều

Ví dụ khai báo mảng 2 chiều, mỗi chiều 10 phần tử.

Dim MatrixA(9, 9) As Double

Ta cũng có thể xác ñịnh rõ ràng các chỉ số trên, chỉ số dưới của mảng ña chiều như ví dụ sau ñây:

Dim MatrixA(1 To 10, 1 To 10) As Double

Trang 5

Lưu ý :

Mỗi một phần tử của mảng chiếm một vùng nhớ nhất

ñịnh, do ñó, ñể tiết kiệm bộ nhớ, ta chỉ nên khai báo

mảng với số phần tử vừa ñủ.

Không thể tạo mảng có quá 2.147.483.647 phần tử Vì

có thể dẫn ñến lỗi “Out Of Memory” khi chạy chương trình.

Trang 6

2.4 Các xử lý trên mảng

Hàm v@ m,ng

Split(Chuỗi [, Dấu phân cách [, số phần tử ]]): Cắt 1 chuỗi thành một mảng các chuổi con

Join(Mảng [, Dấu phân cách]):

Trả về chuổi kết hợp các phần tử trong 1 mảng

VD:

Dim A() = Split(txtNhap.Text, "-") txtKetqua.Text = Join(A, "/")

Trang 7

Tìm kim các ph7n t8 thBa ñi@u ki"n cho trCDc

For i = 0 To n-1

IF A(i) = n Then

ThIc hi"n các x8 lý End If

Next

Trang 8

Written by: Dương Thành Phết http://www.thayphet.net

Tìm giá trị nhỏ nhất/ lớn nhất và vị trí

Dim gtnn as Integer, vtgtnn as Integer gtnn=A(0)

vttnn=0 For i = 0 To n-1

If( A(i) < gtnn then

gtnn=A(i) vtgtnn=i End If

d Tính tổng của các phần tử trong mảng.

Dim Tong as Integer =0 For i = 0 to n-1

Tong=Tong + A(i) Next

Ghi chú: Tương tự ta có yêu cầu tính toán khác

Trang 10

Ví dụ: Tạo project xử lý mảng số nguyên

Yêu cầu:

Tạo 5 Text Box chứa 5 số nguyên ngẫu nhiên (từ

1 ñến 100) khi click vào nút nhập

Tìm giá trị số lớn nhất và vị trí

Tính tổng giá trị các phần tử

Các Textbox luôn ReadOnly

Trang 11

e Sắp xếp tăng dần/ giảm các phần tử trong mảng

Sub Sapxep(ByVal a() As Integer, ByVal n As Integer)

Dim tam As Integer Dim i As Integer, j As Integer For i = 0 To n - 2

For j = i + 1 To n - 1

If a(i) > a(j) Then tam = a(i)

a(i) = a(j) a(j) = tam End If

Next Next

i=1 j=2 i=2 j=3 i=3 j=4 i=4 j=5 i=5 j=6 i=6 j=7 i=7

Định dạng
Số trang	11
Dung lượng	676,8 KB