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

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 Te

Trang 1

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

Trang 2

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

Trang 3

Hàm InStr ()

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

Trang 4

Hàm Replace()

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ẽ”

Trang 5

Hàm Mid()

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

Trang 6

Hàm UCase()

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”

Trang 7

Hàm lCase()

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”

Trang 8

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ả

Định dạng
Số trang	8
Dung lượng	1,13 MB