Chương 10: MẢNG – CHUỖI pps

10.1 Mảng 10.2 Chuỗi ký tự Chương 10: MẢNG – CHUỔI 1. Định nghĩa: 10.1 Mảng Mảng là tập hợp các phần tử cùng kiểu dữ liệu được đánh thứ tự. Số thứ tự của mỗi phần tử được gọi là chỉ số VD : điểm toán của n học sinh hs1 → t1 hs2 → t2 … hsn → tn Các đặc trưng : - Nhiều phần tử (hữu hạn) - Cùng kiểu dữ liệu - Các phần tử phân biệt với nhau bằng chỉ số 2. Khai báo: Dim/Public/Static <Tên>(<Chỉ số lớn nhất>) As <Kiểu> Trong bộ nhớ … … 0 0 0 0 0 0 … … 0 0 … … A(0) A(0) A(1) A(1) A(2) A(2) … … A(10) A(10) A VD : Dim A(10) As Integer Khai báo mảng A gồm 11 phần tử : A(0), A(1), A(2), …, A(10) kiểu nguyên Chú ý : Chỉ số phải có kiểu dữ liệu rời rạc, đếm được (nguyên, ký tự, …) Option Base 1 Dim/Public/Static <Tên>(< Chỉ số lớn nhất>) As <Kiểu> Trong bộ nhớ … … 0 0 0 0 0 0 … … 0 0 … … A(1) A(1) A(2) A(2) A(3) A(3) … … A(10) A(10) A VD : Option Base 1 Dim A(10) As Boolean Khai báo mảng A gồm 10 phần tử : A(1), A(2), …, A(10) kiểu Boolean Dim/Public/Static <Tên>(<Chỉ số đầu> TO <Chỉ số cuối>) As <Kiểu> Trong bộ nhớ … … 0 0 0 0 0 0 … … 0 0 … … A(1) A(1) A(2) A(2) A(3) A(3) … … A(10) A(10) A VD : Dim A(“A” To “Z”) As Integer Khai báo mảng A gồm 26 phần tử : A(“A”), A(“B”), …, A(“Z”) kiểu nguyên 3. Các thao tác trên mảng (phần tử mảng) • Truy xuất phần tử mảng : tên(<chỉ số>) VD : Dim A(1 To 5) As Integer … A(1)=3 A(2)=A(1)+1 … X=A(1)+A(2) … • Nhập, xuất giá trị mảng Gán trực tiếp … Dim A(1 To 5) As Integer … A(1)=1 A(2)=2 A(3)=3 A(4)=4 A(5)=5 ,Xuất giá trị ra TextBox … For i=1 To 5 Text1.text=Text1.text+" "+str(A(i)) Next I … (*) Sử dụng hàm InputBox() … n = InputBox("Cho biet so phan tu: ") For i = 1 To n a(i)= InputBox("A(" + Str(i) + ") :") Next I … Dim s as string For i = 1 To n do s = InputBox("A(" + Str(i) + ") :") loop until val(s)>0 a(i)=val(s) Next I (*) Sử dụng hàm Rnd() … For i = 1 To 5 A(i) = Int(100 * Rnd()) Next I … Lấy giá trị từ các TextBox … Dim A(0 To 5) As Integer … For i=0 to 5 A(i)=Text1(i) Next I … (*) [...]... báo chuỗi động có chiều dài tối đa 2 tỷ ký tự String* Chiều dài: Khai báo chuỗi có chiều dài cố định, chiều dài tối đa 65535 VD : … Dim ch As String Dim S1 as string*100 2 Các hàm xử lý chuỗi Len(s): Lấy chiều dài chuỗi Ucase(s): Đổi chuỗi chữ thường thành chuỗi chữ in Lcase(s): Đổi chuỗi chữ in thành chuỗi chữ thường Ltrim(s): Cắt khoảng trắng bên trái chuỗi Rtrim(s): Cắt khoảng trắng bên phải chuỗi. .. bên chuỗi Left(s,n): Trả về n ký tự đầu tiên bên trái chuỗi Right(s,n): Trả về n ký tự đầu tiên bên phải chuỗi Mid(s,i,[n]): Trả về [n] ký tự trong chuỗi bắt đầu từ vị trí i Space(n): Trả về chuỗi có n khoảng trắng String(n,c): Trả về chuỗi có n ký tự c (*) Instr([i,]s1,s2[,n]): Cho vị trí xuất hiện đầu tiên của chuỗi s2 trong s1 Trong đó: i: Vị trí bắt đầu dò tìm (tuỳ chọn) s1: Chuỗi cần dò tìm s2: Chuỗi. ..• • • • • Label Msgbox 1 Textbox Form For i= 1 to n Xuất mảng – S = s+ “ “ + str(a(i)) – Next I – Lblkq.caption=s – Msgbox s – Txtkq.text=s – Print s •Sắp thứ tự các phần tử mảng theo giá trị Temp=A(i) A(i)=A(j) A(j)=Temp … A(i) A(j) … A(j) → 6 2 1 3 7 2 6 1 3 7 1 6 2 3 7 A(i) A(j) → 6 2 3 7 2 6 3 7 A(i) A(j) → 6 3... In các phần tử khác nhau trong mảng Sắp thứ tự tăng (giảm) In phần tử đầu tiên: A(1) In phầ tử thứ I nếu A(i)>A(i-1) 7/ In các phần tử của mảng thành 2 nhóm chẳn và lẻ Ở mỗi nhóm tăng theo thứ tự Duyệt in mảng 2 lần Lần 1 in các số chẳn : A(i) mod 2 =0 (*) Lần 1 in các số lẻ : A(i) mod 2 0 8/ Chèn thêm 1 phần tử vào mảng có thứ tự sao cho mảng vẫn còn có thứ tự VD : Mảng có thứ tự tăng : 2 4 6 7 10... 7 15 (*) 5 Mảng đối tượng điều khiển Áp dụng cho đối tượng điều khiển cùng loại Sử dụng mảng để không phải đặt quá nhiều tên và nhiều thủ tục xử lý sự kiện Định nghĩa mảng đối tượng điều khiển •Tạo 1 đối tượng trong nhóm muốn định nghĩa mảng lên form, •Đặt tên (sẽ dùng làm tên mảng) •Thiết lập giá trị các thuộc tính cần thiết •Tạo các đối tượng tiếp theo bằng Copy - Paste Viết lệnh cho mảng đối tượng... Format(s,format): định dạng chuỗi s theo chuỗi định dạng format Ký tự thường sử dụng trong chuỗi định dạng: @: Thay thế cho một ký tự hoặc khoảng trắng &: Thay thế cho một ký tự hoặc không có ký tự nào #: thay thế cho 1 ký số •Mặc định Format() sẽ điền các ký tự của s theo chuỗi định dạng từ phải sang trái •Ký tự ‘!’ phía trước chuỗi định dạng sẽ điền các ký tự của s theo chuỗi định dạng từ trái sang... Kiểm tra các phần tử của mảng tạo thành cấp số cộng ? d=A(2)-A(1); A(i)=A(i-1)+d, ∀i=3,n 2/ Kiểm tra các phần tử của mảng tạo thành cấp số nhân ? s=A(2)/A(1); A(i)=A(i-1)*s, ∀i=3,n 3/ Kiểm tra mảng đối xứng ? (*) A(i)=A(n-i+1), ∀i=1,n 4/ Liệt kê số lượng và vị trí các phần tử là bội số của 3 trong mảng A(i) mod 3 = 0, ∀i=1,n\2 5/ In các số nguyên tố (chính phương) có trong mảng Kiểm tra nếu A(i) là... đối tượng định nghĩa là mảng, •Tham số Index được dùng để phân biệt phần tử nhận sự kiện đó Duyệt mảng đối tượng điều khiển •Đối với các đối tương có chỉ số liên tục For i = txtFields.LBound To txtFields.UBound txtFields(i).Text = "" Next •Đối với các đối tương có chỉ số liên tục Dim txt As TextBox … For Each txt In txtFields txt.Text = "" Next VD : Thiết kế giao diện •Định nghĩa mảng các OptionButton... " & y End Sub Hãy chạy từng bước 2 chương trình trên cho kết quả X=12 Y=6 Call p(4,2)->sub p(4,2): i=1->y=5 i=2->y=7 X=12 i=3->y=8 Y=33 i=4->y=8 x=12, y=8 Sub p(x=12,y=8)->call p(x=12,y=6) Call p(y=6,x=12) X=12 p(x=6,y=12): ->sub i=1->y=17 Y=33 i=2->y=21 i=3->y=24 i=4->y=26 X=12 i=5->y=27 Y=33 i=6->y=27 x=33, y=27 Sub p(x=33,y=27)->call p(y=33,x=12) X=12 Y=33 10.2 Chuỗi ký tự 1 Khai báo: Dim ... Dim txt As TextBox … For Each txt In txtFields txt.Text = "" Next VD : Thiết kế giao diện •Định nghĩa mảng các OptionButton cho nhóm Shape với tên opShape •Định nghĩa mảng các OptionButton cho nhóm FillStyle với tên opFillStyle •Định nghĩa mảng các OptionButton cho nhóm Color với tên opColor Private Sub opShape_Click(Index As Integer) Shape1.Shape = Index End Sub Private Sub opFillStyle_Click(Index As . 10.1 Mảng 10.2 Chuỗi ký tự Chương 10: MẢNG – CHUỔI 1. Định nghĩa: 10.1 Mảng Mảng là tập hợp các phần tử cùng kiểu dữ liệu được đánh thứ. I … (*) Xuất mảng • Label • Msgbox • 1 Textbox • Form • For i= 1 to n – S = s+ “ “ + str(a(i)) – Next I – Lblkq.caption=s – Msgbox s – Txtkq.text=s – Print s • Sắp thứ tự các phần tử mảng theo giá. A(“A” To “Z”) As Integer Khai báo mảng A gồm 26 phần tử : A(“A”), A(“B”), …, A(“Z”) kiểu nguyên 3. Các thao tác trên mảng (phần tử mảng) • Truy xuất phần tử mảng : tên(<chỉ số>) VD : Dim