Visual Basic
CHƯƠNG 4 CÁC KIỂU DỮ LIỆU CÓ
CẤU TRÚC

Mục tiêu:
Chương này giới thiệu về các cấu trúc dữ liệu trong VB. Việc nắm bắt
được các vấn đề này giúp cho việc tổ chức dữ liệu khi viết chương trình VB
được hợp lý hơn.
Học xong chương này, sinh viên phải nắm bắt được các vấn đề sau:
- Sử dụng kiểu dữ liệu chuỗi.
- Sử dụng kiểu ngày tháng.
- Kiểu động (Variant)
- Kiểu mảng
Ki
ến thức có liên quan:
- Các cấu trúc lập trình trong VB.
Tài liệu tham khảo:
http://www.vovisoft.com/VisualBasic/VB6Chapter5.htm
http://www.vovisoft.com/VisualBasic/VB6Chapter6.htm
Trang 35
Visual Basic
I. Kiểu chuỗi ký tự (String)

I.1. Khai báo
Có hai đặc tả chuỗi ký tự theo cú pháp như sau:
- String * <Chiều dài> Chỉ ra một chuỗi ký tự có độ dài cố định là bao nhiêu
ký tự. Trong trường hợp giá trị thực của chuỗi có độ dài ngắn hơn độ dài khai báo
thì độ dài của chuỗi thì một số khoảng trắng được thêm vào cho đủ độ dài thực.
Trong trường hợp giá trị thực của chuỗi có độ dài lớn hơn độ dài khai báo thì sẽ cắt
bớt các ký tự dư thừa bên phải. Một chuỗi không có ký tự nào (độ dài bằng 0) gọi là
chuỗi rỗng.


o Mid: Trích chuỗi con từ giữa chuỗi gốc
Mid(String, Start As Long, [length])

Ví dụ 1:
Dim Today As String, StrDay As String, StrMonth As String
Dim StrYear As String, StrMonthYear As String
Today = "24/05/2001"
' Lấy ra 2 ký tự từ bên trái của chuỗi Today
StrDay = Left(Today,2) ' StrDay bây giờ bằng "24"
' Lấy ra 4 ký tự từ bên phải của String Today
StrYear = Right(Today,4) ' StrYear bây giờ bằng "2001"
' Lấy ra 2 characters bắt đầu từ ký tự thứ tư của chuỗi
‘ Today, ký tự đầu tiên từ bên trái là thứ nhất
StrMonth = Mid(Today,4,2) ' StrMonth bây giờ bằng "05"
Trang 36
Visual Basic
' Lấy ra phần còn lại bắt đầu từ ký tự 4 của chuỗi Today
StrMonthYear = Mid(Today,4) ' StrMonthYear bằng “05/2001"

Ví dụ 2:
Today = "24/05/2001"
' Thay thế character thứ 3 của Today bằng "-"
Mid(Today,3,1) = "-"
' Thay thế 2 ký tự bắt đầu từ ký tự 4 của Today bằng "10"
Mid(Today,4,2) = "10"
' Thay thế character thứ 6 của Today bằng "-"
Mid(Today,6,1) = "-" ' Today bây giờ bằng "24-10-2001"

o InStr: Tìm chuỗi con trong chuỗi gốc. Nếu hàm InStr trả về 0, nghĩa là không

o Replace: tìm và thay thế chuỗi.
Cú pháp:
Replace(Expression, find, replace[, start[, count[, compare]]])

Trong đó:
- Expression: Biểu thức chuỗi chứa chuỗi cần thay thế.
- find:Chuỗi cần tìm.
- replace: Chuỗi thay thế chuỗi tìm được.
- start: Tương tự như hàm InStr.
- count: Xác định số lần thay thế. Mặc định là 1.
- compare: Tương tự như hàm InStr.
Trang 37
o LTrim (RTrim): cắt tất cả các khoảng trắng bên trái (bên phải của chuỗi)
Cú pháp:
LTrim(string)RTrim(string)

Visual Basic
o UCase: đổi chuỗi sang chuỗi gồm các ký tự là chữ hoa.
Cú pháp:
UCase(string)

o Asc: cho mã Ascii của một ký tự.
o Chr: trả về ký tự ứng với mã Ascii được chỉ định.
Dim ASCIINumberA As Integer, CharB As String * 1
Dim StrFive As String * 1
ASCIINumberA = Asc("A") ' ASCIINumberA bây giờ bằng 65
CharB = Chr(66)


- Hàm Now: trả về ngày giờ hiện tại.
Ví dụ: Dùng hàm Now & Format:

MsgBox "NOW IS " & Format (Now, "ddd dd-mmm-yyyy hh:nn:ss")
' sẽ hiển thị

NOW IS Tue 05-Oct-2004 16:15:53 Trang 38
Visual Basic
III. Các loại số
o Để chuyển đổi một chuỗi ra số ta có các hàm Val, CInt, CSng. Ngược lại để
chuyển đổi từ số sang chuỗi ta dùng CStr, Str.
Ví dụ:
Dollars = "500"
ExchangeRatePerDollar = "7000"
tempValue= Val(Dollars) * Val(ExchangeRatePerDollar)
VNDong = CStr(tempValue)
MsgBox "Amount in VN Dong is " & VNDong

Ví dụ:

Dollars = "500.0"
ExchangeRatePerDollar = "7000.0"
'Dùng hàm CSng để đổi chuỗi ra Single
tempValue = CSng(Dollars) * CSng(ExchangeRatePerDollar)
'Dùng hàm Format để có các dấu phẩy ở ngàn và triệu
‘ và phải có 2 chữ số sau dấu chấm thập phân.

Không chứa gì cả
vbNull 1 Dữ liệu không hợp lệ
vbInteger 2 Dữ liệu kiểu Integer chuẩn
Trang 39