bài 6 làm việc với mảng

DIM ArrSoLuong 11 AS Integer Dim index AS Integer ArrSoLuong i =i+1*6 Next... Demo Code gán giá tr và Duy t m ng... Xây d ng ch ng trình qu n lý bán hàng.

Bài 6 Làm vi c v i m ng

M c tiêu

 Làm vi c m ng m t chi u

 Làm vi c v i m ng 2 chi u

M ng m t chi u

Truy c p đ n các ph n t c a m ng (ti p)

Ví d : Do đ c đi m s l ng hàng bán ra theo quy lu t nên ta có th dùng vòng

l p đ gán giá tr cho các ph n t nh sau

o n code gán giá tr s l ng cho t ng ph n t c a

m ng dùng vòng l p.

DIM ArrSoLuong ( 11 ) AS Integer

Dim index AS Integer

ArrSoLuong ( i )=(i+1)*6

Next

Demo Code gán giá tr và Duy t m ng

Ví d : Áp d ng duy t các ph n c a m ng b ng cách duy t t 0 đ n

ArrSoLuong.Length -1

For i = 0 To ArrSoLuong.Length - 1

MsgBox(ArrSoLuong(i).ToString())

L y ch s trên và ch s d i c a m ng

l y ch s trên

<Tên bi n m ng> GetUpperBound(0)

For i = ArrSoLuong.GetLowerBound(0) To ArrSoLuong.GetUpperBound(0)

Ví d : Áp d ng duy t các ph n c a m ng b ng cách duy t ch s d i và trên

Duy t m ng b ng for each

Cú pháp

For Each <bi n ph n t > in < Tên bi n m ng>

‘’ X lý <bi n ph n t >

Next

MsgBox(phantu.ToString()) Next

Ví d : Áp d ng duy t các ph n c a m ng b ng vòng l p For Each

Tính t ng các ph n t c a m ng

Ví d : Tính t ng s l ng máy tính bán đ c c a 12 tháng b ng vòng l p For Next

Tính t ng các ph n t c a m ng (ti p)

Ví d : Tính t ng s l ng máy tính bán đ c c a 12 tháng vòng l p For Each

tong = 0

tong = tong + phantu Next

S p x p M ng

Cú pháp <Array> Sort(<tên bi n m ng>)

Dim Arr(11) As Integer

Arr(0) = 10 Arr(1) = 3

Thay đ i kích th c m ng

Cú pháp ReDim Preserve <tên bi n m ng >(<kích th c m i>)

Dim Arr(4) As Integer ‘ Khai báo kích th c 5 ph n t

Arr(0) = 10 Arr(1) = 1

ReDim Preserve Arr(6) ‘ Khai báo kích th c 7 ph n t Arr(5) = 99 ‘ Thêm 2 ph n t m i

Xây d ng ch ng trình qu n lý bán hàngBài toán: Xây d ng ng d ng qu n lý bán hàng s d ng m ng m t chi u

• Nh p s l ng hàng bán theo tháng và đ a vào m ng và Listbox

• Ch nh p đúng 12 tháng

và thông báo n u v t

• Tính t ng s l ng bán hàng c a 12 tháng

Xem code trong m c TaiNguyen

Xây d ng ch ng trình qu n lý bán hàng

M NG HAI CHI U

Ví d v m ng 2 Chi u

• qu n lý b ng đi m c a các sinh viên, m i sinh viên g m có nhi u đ u

đi m

• Ta coi m i hàng là m t sinh viên, m i c t là m t đ u đi m c a sinh viên đó

• Sinh viên 4 có đi m môn 1 là 5 (Ch s hàng 3, ch s c t 0); Môn 2 là 6 (Ch

s hàng 3; ch s c t 1); Môn 3 là 7 (Ch s hàng 3, ch s c t 2)

Khai báo m ng 2 chi u

Cú pháp:

DIM < Tên bi n m ng > ( < 0 to ch s hàng , 0 to ch s c t >) AS <Ki u>

Ví d : Khai báo m t m ng 2 chi u đ l u thông tin v đi m c a các sinh viên g m

10 sinh viên và m i sinh viên có 3 đ u đi m Nh v y có 10x3=30 ph n t

DIM BangDiem ( 0 to 9 , 0 to 2 ) AS Integer

Truy c p ph n t m ng 2 chi u truy c p đ n hàng th I, c t th J c a m ng hai chi u ta dùng

< Tên bi n m ng > ( < ch s hàng i , ch s c t j >)

Ví d : truy c p đ n ph n t có ch

s hàng là 5; ch s c t là 1

BangDiem ( 5 , 1 ) ‘ Tr v k t qu là 8

Duy t m ng 2 chi u

• duy t t ng ph n t c a m ng 2 chi u ta duy t t ng hàng

• T i m i hàng ta duy t t ng c t

T i hàng 0: BangDiem(0,0), BangDiem(0,1), BangDiem (0,2)

T i hàng 1: BangDiem(1,0), BangDiem(1,1), BangDiem(1,2)

L y s hàng, s c t c a m ng 2 chi u

<Tên bi n m ng> GetUpperBound(0) tr v s hàng cu i cùng

<Tên bi n m ng>.GetUpperBound(1) Tr v ch s c t cu i cùng

Xây d ng bài toán qu n lý đi m trên m ng 2 chi u

 Sinh viên xem code trong m c TaiNguyen

 Khai báo m ng 2 chi u ch a t i đa 10 sinh viên, m i sinh viên có 3 môn h c

 Nh p các đ u đi m cho sinh viên và l u vào m ng Ch cho nh p t i đa 10 sv

Xây d ng bài toán qu n lý đi m trên m ng 2 chi u

 Cách khai báo m ng 2 chi u

 Cách truy c p và duy t m ng 2 chi u