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

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ố. 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.

Chương 10: MẢNG – CHUỔI 10.1 Mảng 10.2 Chuỗi ký tự 10.1 Mảng Định nghĩa: Mảng tập hợp phần tử kiểu liệu đánh thứ tự Số thứ tự phần tử gọi số VD : điểm toán 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 liệu -Các phần tử phân biệt với số Khai báo: Dim/Public/Static () As 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 A … Trong nhớ 0 … A(0) A(1) A(2) … A(10) … Chú ý : Chỉ số phải có kiểu liệu rời rạc, đếm (nguyên, ký tự, …) Option Base Dim/Public/Static (< Chỉ số lớn nhất>) As VD : Option Base 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 A … Trong nhớ 0 … A(1) A(2) A(3) … A(10) … Dim/Public/Static ( TO ) As 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 A … Trong nhớ 0 … A(1) A(2) A(3) … A(10) … Các thao tác mảng (phần tử mảng) •Truy xuất phần tử mảng : tên() 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ị TextBox … For i=1 To Text1.text=Text1.text+" "+str(A(i)) Next I … (*) Sử dụng hàm InputBox() … n = InputBox("Cho biet so phan tu: ") For i = To n a(i)= InputBox("A(" + Str(i) + ") :") Next I … Dim s as string For i = To n s = InputBox("A(" + Str(i) + ") :") loop until val(s)>0 a(i)=val(s) (*) Next I Sử dụng hàm Rnd() … For i = To A(i) = Int(100 * Rnd()) Next I … Lấy giá trị từ TextBox … Dim A(0 To 5) As Integer … For i=0 to A(i)=Text1(i) Next I … (*) Giảm … Dim A(1 To n) As Integer … For i=1 To n-1 For j=i+1 to n If A(i) < A(j) then Temp=A(i) A(i)=A(j) A(j)=Temp End If Next j Next I … (*) A(i) A(j)  7 A(i) A(j)  6 A(i) A(j)  3 A(i) A(j) 2 Ví dụ 1/ Kiểm tra phần tử 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 phần tử 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ị trí phần tử bội số mảng A(i) mod = 0, i=1,n\2 5/ In số ngun tố (chính phương) có mảng Kiểm tra A(i) số NT  in 6/ In phần tử khác mảng Sắp thứ tự tăng (giảm) In phần tử đầu tiên: A(1) In phầ tử thứ I A(i)>A(i-1) 7/ In phần tử mảng thành nhóm chẳn lẻ Ở nhóm tăng theo thứ tự Duyệt in mảng lần Lần in số chẳn : A(i) mod =0 (*) Lần in số lẻ : A(i) mod 0 8/ Chèn thêm phần tử vào mảng có thứ tự cho mảng cịn có thứ tự VD : Mảng có thứ tự tăng : 10 15 Chèn phần tử : 10 15 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 ->sub p(x=6,y=12): 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ự Khai báo: Dim As String Dim As String* Chiều dài : ~đặt tên VB Kiểu : String: Khai báo chuỗi động có chiều dài tối đa 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 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 Trim(s): Cắt khoảng trắng bên chuỗi Left(s,n): Trả n ký tự bên trái chuỗi Right(s,n): Trả n ký tự bên phải chuỗi Mid(s,i,[n]): Trả [n] ký tự chuỗi vị trí i Space(n): Trả chuỗi có n khoảng trắng String(n,c): Trả chuỗi có n ký tự c (*) Instr([i,]s1,s2[,n]): Cho vị trí xuất chuỗi s2 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 tìm n: Cách so sánh (Khơng sử dụng/0- Chính xác , 1-Khơng phân biệt chữ thường, chữ hoa) Ví dụ: St = “Visual Basic” Instr(St,”a”)=5 Instr(6,St,”a”)=9 Instr(10,St,”a”)=0 Instr(1,St,"ba",1)=8 (*) Replace(s,s1,s2[, i[, n]]): Tìm thay s1 s s2 Trong đó: i: vị trí bắt đầu thay thế; Không sử dụng thay từ đầu n: số lần thay thế; Không sử dụng thay tất Ví dụ: St = “tơi học với bạn tôi” Replace(St,”tôi”,”anh”) = ”anh học với bạn anh” (*) Format(s,format): định dạng chuỗi s theo chuỗi định dạng format Ký tự thường sử dụng chuỗi định dạng: @: Thay cho ký tự khoảng trắng &: Thay cho ký tự khơng có ký tự #: thay cho ký số •Mặc định Format() điền ký tự s theo chuỗi định dạng từ phải sang trái •Ký tự ‘!’ phía trước chuỗi định dạng điền ký tự s theo chuỗi định dạng từ trái sang phải •Ký tự > (