Xem mẫu
- 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.
34
34
This is trial version
Written by: Dương Thành Ph t http://www.thayphet.net
www.adultpdf.com
- 3. Các hàm x lý chu i ký t
Hàm Length()
Cú pháp:
.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
35
35
This is trial version
Written by: Dương Thành Ph t http://www.thayphet.net
www.adultpdf.com
- 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
36
36
This is trial version
Written by: Dương Thành Ph t http://www.thayphet.net
www.adultpdf.com
- 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 ”
37
37
This is trial version
Written by: Dương Thành Ph t http://www.thayphet.net
www.adultpdf.com
- 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
38
38
This is trial version
Written by: Dương Thành Ph t http://www.thayphet.net
www.adultpdf.com
- 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”
39
39
This is trial version
Written by: Dương Thành Ph t http://www.thayphet.net
www.adultpdf.com
- 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”
40
40
This is trial version
Written by: Dương Thành Ph t http://www.thayphet.net
www.adultpdf.com
- 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
41
41
This is trial version
Written by: Dương Thành Ph t http://www.thayphet.net
www.adultpdf.com
nguon tai.lieu . vn
