- NO T: Trả về True nếu toán hạng là False Trả về False nếu toán hạng là True
2.Một số hàm cơ bản của VisualBasic a Hàm xử lý chuỗ
a. Hàm xử lý chuỗi
• Hàm Val (String)
Hàm này trả về một số thực tương ứng với String. String là một chuỗi gồm các số hợp lệ.
Trong đó:
- Nếu String là một chuỗi có kí tự đầu là kí tự thì sẽ cho giá trị là 0. - Nếu String là một chuỗi gồm tồn số thì sẽ đổi chuỗi đó thành số.
- Nếu String là một chuỗi bắt đầu là những số và sau đó là chữ hoặc chữ và số, thì hàm Val sẽ lấy những ký số liên tục nằm trước ký tự đầu tiên.
- Nếu các số cách nhau với những khoảng trắng, hàm Val sẽ cắt bỏ những khoảng trắng đó và cho ra dãy số nằm gần nhau.
- Nếu String là một chuỗi có số thập phân, ta phải dùng dấu chấm và thì hàm Val sẽ cho kết quả có số thập phân. Nếu ta dùng dấu phẩy thì hàm Val chỉ lấy phần nguyên.
Ví dụ:
Dim x As Single Dim ch As String
Private Sub Cmmd_Click()
ch = InputBox (‘’Nhap vao mot chuoi ch’’) x = Val(ch)
Txt1 = x End Sub
• Hàm Str (Number)
Hàm này cho phép chuyển ngược một số sang chuỗi. Ví dụ:
Dim x As Single Dim ch As String
Private Sub Command1_Click()
x = InputBox (‘’Nhap vao mot so’’) ch = Str(x)
Txt1 = ch End Sub
• Hàm Ltrim (String)
Hàm này trả về một chuỗi sau khi cắt bỏ các khoảng trống bên trái của chuỗi. Ví dụ:
Dim ch1 As String Dim ch2 As String
Private Sub Command1_Click()
ch1 = InputBox (‘’Nhap vao mot chuoi’’) ch2 = LTrim(ch1)
Txt1 = ch2 End Sub
• Hàm Rtrim (String)
Hàm này trả về một chuỗi sau khi cắt bỏ các khoảng trống bên phải của chuỗi. Ví dụ:
Dim ch1 As String Dim ch2 As String
Private Sub Command1_Click()
ch1 = InputBox (‘’Nhap vao mot chuoi’’) ch2 = RTrim(ch1)
Txt1 = ch2 End Sub (adsbygoogle = window.adsbygoogle || []).push({});
• Hàm Trim (String).
Hàm này trả về một chuỗi sau khi cắt bỏ các khoảng trống ở 2 đầu của chuỗi. Ví dụ:
Dim ch1 As String Dim ch2 As String
Private Sub Command1_Click()
ch1 = InputBox (‘’Nhap vao mot chuoi’’) ch2 = Trim(ch1)
Txt1 = ch2 End Sub
• Hàm Left (String,n)
Ví dụ:
Dim str As String Dim ch2 As String Dim n As integer
Private Sub Command1_Click()
Str = InputBox (‘’Nhap vao mot chuoi’’) n = InputBox(‘’Nhap vao so ky tu can lay’’) ch2 = Left(Str,n)
Txt1 = ch2 End Sub
• Hàm Right (String,n)
Hàm này trả n ký tự phải của chuỗi ký tự String (kể cả khoảng trắng nếu có) Ví dụ:
Dim str As String Dim ch2 As String Dim n As integer
Private Sub Command1_Click()
Str = InputBox (‘’Nhap vao mot chuoi’’) n = InputBox (‘’Nhap vao so ky tu can lay’’) ch2= Right(Str,n)
Txt1 = ch2 End Sub