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

3434 Written by: Dương Thành Phết http://www.thayphet.net VÍ DỤ: Tạo project sắp xếp mảng số nguyên Yêu cầu:  Số phần tử của mảng và giá trị các phần tử lần lượt ñược nhập từ hàm InputBox  Textbox bên trái hiển thị kết quả mảng ñã nhập  Khi chick nút sắp xếp kết quả mảng sắp xếp tăng ñược hiển thị vào Textbox bên phải. This is trial version www.adultpdf.com 3535 3. Các hàm xử lý chuỗi ký tự Written by: Dương Thành Phết  Hàm Length() http://www.thayphet.net Cú pháp: <Biến chuỗi>.Length() Công dụng: Trả về chiều dài của chuỗi ký tự Ví dụ: Dim s As String, n As Integer s = "Chào các bạn " n = s.Length()  n=12 This is trial version www.adultpdf.com 3636 Written by: Dương Thành Phết  Hàm InStr () http://www.thayphet.net Cú pháp: InStr([vitri=1,] s, s1 [,Tùy chọn]) Trong ñó: Vitri: Vị trí bắt ñầu thực hiện tìm Tùy chọn CompareMethod.Text:Không phân biệt hoa/thường CompareMethod.Binary: Có phân biệt Hoa/thường Công dụng: Trả về vị trí tìm thấy chuỗi s1 trong chuỗi s Ví dụ: Dim s1 As String, s2 As String Dim vt As Integer s1 = "Chào các bạn" s2 = "các" vt = InStr(s1, s2, CompareMethod.Binary)  vt=6 This is trial version www.adultpdf.com 3737 Written by: Dương Thành Phết  Hàm Replace() http://www.thayphet.net Cú pháp: s.Replace(s1,s2) Công dụng: Tìm và thay thế tất cả chuỗi s1 thay thế thành chuỗi s2 trong chuỗi s Ví dụ: Dim s As String, s1 As String, s2 As String s = "Chào các bạn, chúc các bạn vui vẽ" s1 = "các bạn“ s2 = "Anh chị“ s = s.Replace(s1, s2)  s = “Chào Anh chị, chúc Anh chị vui vẽ” This is trial version www.adultpdf.com 3838 Written by: Dương Thành Phết  Hàm Mid() http://www.thayphet.net Cú pháp: Mid(s,Vị trí, Chiều dài) Công dụng: Trả về chuỗi ký tự ñược cắt từ chuỗi s tại vị trí và chiều dài chỉ ñịnh. Ví dụ: Dim s As String s = "Chào các bạn" s = Mid(s, 6, 3)  s = các This is trial version www.adultpdf.com 3939 Written by: Dương Thành Phết  Hàm UCase() http://www.thayphet.net Cú pháp: UCase(s) Công dụng: Trả về chuỗi ký tự IN HOA. Ví dụ: Dim s As String s = "Chào các bạn" s = UCase(s)  s=“CHÀO CÁC BẠN” This is trial version www.adultpdf.com 4040 Written by: Dương Thành Phết  Hàm lCase() http://www.thayphet.net Cú pháp: lCase(s) Công dụng: Trả về chuỗi ký tự thường. Ví dụ: Dim s As String s = "Chào Các Bạn" s = LCase(s)  s=“chào các bạn” This is trial version www.adultpdf.com 4141 Written by: Dương Thành Phết http://www.thayphet.net Yêu cầu:  Khi Form chỉ có nút Thoát sử dụng ñược, textbox nhập nhận focus  Khi textbox nhập vừa ñược nhập thì các nút sáng lên, nếu xóa hết dữ liệu trong textbox nhập thì các nút cũng mờ ñi ngoại trừ nút Thoát  Khi các nút chức năng ñược nhấn thì kết quả sẽ hiển thị bên textbox Kết quả This is trial version www.adultpdf.com . by: Dương Thành Phết  Hàm Length() http://www.thayphet.net Cú pháp: <Biến chuỗi>.Length() Công dụng: Trả về chiều dài của chuỗi ký tự Ví dụ: Dim s As String, n As Integer s = "Chào. chọn CompareMethod.Text:Không phân biệt hoa/thường CompareMethod.Binary: Có phân biệt Hoa/thường Công dụng: Trả về vị trí tìm thấy chuỗi s1 trong chuỗi s Ví dụ: Dim s1 As String, s2 As String Dim. version www.adultpdf.com 3737 Written by: Dương Thành Phết  Hàm Replace() http://www.thayphet.net Cú pháp: s.Replace(s1,s2) Công dụng: Tìm và thay thế tất cả chuỗi s1 thay thế thành chuỗi s2 trong chuỗi s Ví dụ: Dim s As