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

Bài 6 Làm vic vi mng Slide 06 – 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 2 Mng mt chiu Khai báo mng Slide 06 – làm vic vi mng 4 Cú pháp: DIM <Tên bin mng > ( < 0 to S phn t >) AS <Kiu d liu> Ví d: Gi s có 1 ca hàng bán máy tính. Mi tháng ca hàng s bán đc mt s lng máy tính. Khai báo 1 mng tên là ArrSoLuong gm 12 phn t dùng đ lu tr s lng hàng bán ca 12 tháng ca ca hàng DIM ArrSoLuong (11) AS Integer ‘ Mng có 12 phn t Nh vy mng s có <s phn t> +1 phn t Gán giá tr cho phn t ca mng Slide 06 – làm vic vi mng 5 Gán giá tr cho phn t ca mng Ví d: Gi s s lng hàng bán đc theo tng tháng đc cho bng di đây Tên bin mng ( < ch s >) = <giá tr> on code gán giá tr s lng cho tng phn t ca mng ArrSoLuong (0) = 6 ArrSoLuong (1) = 12 ArrSoLuong (2) = 18 ArrSoLuong (3) = 24 ArrSoLuong (4) = 30 ArrSoLuong (5) = 36 ArrSoLuong (6) = 42 ArrSoLuong (7) = 48 ArrSoLuong (8) = 54 ArrSoLuong (9) = 60 ArrSoLuong (10) = 66 ArrSoLuong (11) = 72 Truy cp đn các phn t ca mng (tip) Slide 06 – Lp trình c bn 6 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 For i=0 to 11 ArrSoLuong(i)=(i+1)*6 Next Truy cp đn các phn t ca mng Slide 06 – Lp trình c bn 7  truy cp đn phn t th i ca mng Ví d: a ra s lng hàng bán đc trong tháng 3 và tháng 11 Tên bin mng ( < i >) on code truy cp các phn t ca mng ArrSoLuong (2) = 6 ‘ Tr v giá tr ca phn t th 3 ArrSoLuong (10) = 12 ‘ Tr v giá tr ca phn t th 11 0 1 2 3 4 5 6 7 8 9 10 11 6 12 18 24 30 36 42 48 54 60 66 72 Ch s ArrSoLuong S dng vòng lp đ truy cp các phn t ca mng Slide 06 – Lp trình c bn 8 Ví d:  truy cp đn các phn t ca mng ta có th dùng vòng lp sau For i=0 to 11 Msgbox( ArrSoLuong(i).ToString()) Next For <ch s> = 0 to <tng s phn t> -1 <Tên bin mng > (<ch s>) Next Demo Code gán giá tr và Duyt mng Slide 06 – Lp trình c bn 9 Ly s phn t ca mng Slide 06 – Lp trình c bn 10  ly tng s phn t ca mng Ví d: a ra tng s phn t ca mng ArrSoLuong <Tên bin mng>.Length on code ly tng s phn ca mng Msgbox (ArrSoLuong.Length) ‘ Tr v giá tr 12 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()) Next [...]... = 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 Arr (6) = 100 For i = 0 To Arr.Length - 1 MsgBox(Arr(i).ToString()) Next Slide 06 – 16 Slide 06 – 17 Slide 06 – 18 Slide 06 – Slide 06 – Cú pháp: DIM < DIM Slide 06 – >(< (0 to 9 0 to 2 AS < >(< (5 ) Slide 06 – …… =0 to =0 to Slide 06 – , Slide 06 – Slide 06 – Slide 06 – 1 1 1 1 và Slide 06 – ...0 1 2 3 4 5 6 7 8 9 10 11 6 12 18 24 30 36 42 48 54 60 66 72 To Slide 06 – 11 Cú pháp in In Slide 06 – Dim tong As Integer tong = 0 For i = 0 To ArrSoLuong.Length - 1 tong = tong + ArrSoLuong(i) Next MsgBox(" Tong 12 thang :" + tong.ToString()) Slide 06 – 13 Dim tong As Integer Dim phantu As Integer tong = 0 For Each phantu In ArrSoLuong... MsgBox(" tong 12 thang:" + tong.ToString()) Slide 06 – 14 Cú pháp 0 1 2 3 4 5 6 7 8 9 10 11 10 3 8 6 20 1 80 48 2 5 7 80 Arr 0 1 2 3 4 5 6 7 8 9 10 11 1 2 3 5 6 7 8 10 20 48 80 80 Dim Arr(11) As Integer Arr(0) = 10 Arr(1) = 3 Array.Sort(Arr) For i = 0 To Arr.Length - 1 MsgBox(Arr(i).ToString()) Next Slide 06 – 15 Cú pháp 0 1 2 3 4 10 1 2 8 3 0 1 2 3 4 5 6 10 1 2 8 3 99 100 Dim Arr(4) As Integer ‘ Khai . Bài 6 Làm vic vi mng Slide 06 – 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 2 Mng mt chiu Khai báo mng Slide 06 – làm vic vi mng 4 Cú. mng ArrSoLuong (2) = 6 ‘ Tr v giá tr ca phn t th 3 ArrSoLuong (10) = 12 ‘ Tr v giá tr ca phn t th 11 0 1 2 3 4 5 6 7 8 9 10 11 6 12 18 24 30 36 42 48 54 60 66 72 Ch s ArrSoLuong S. GetLowerBound(0) 0 1 2 3 4 5 6 7 8 9 10 11 6 12 18 24 30 36 42 48 54 60 66 72 GetLowerBound(0) GetUpperBound(0) Ch s ArrSoLuong Duyt mng bng for each Slide 06 – Lp trình c bn 12 Cú pháp For