<< Chapter < Page Chapter >> Page >
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:

(External Link)

(External Link)

Kiểu chuỗi ký tự (String)

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.

- String: Khi không chỉ ra chiều dài tối đa của chuỗi thì mặc nhiên chuỗi có chiều dài tối đa là 65.500 ký tự.

Ví dụ:

Dim Name As String * 30, Class As String * 10

Dim A As String

Các hàm xử lý chuỗi

  • Ghép chuỗi: cho phép ghép 2 hay nhiều chuỗi lại với nhau nhờ phép toán&.

Ví dụ:

Dim FirstWord As String, SecondWord As String

Dim Greeting As String

FirstWord = "Hello"

SecondWord = "World"

Greeting = FirstWord&SecondWord

' Greeting bây giờ là "HelloWorld"

  • Len: trả về chiều dài một chuỗi được chỉ định.

Ví dụ:

Greeting = "Hi John!"

Dim iLen As Integer

iLen = Len(Greeting) ' iLen bây giờ bằng 8

  • Left: Trích chuỗi con từ phần đầu chuỗi gốc Left (String, [length]).
  • Right: Trích chuỗi con từ phần đuôi chuỗi gốc Right (String, [length])
  • 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 TodayStrDay = Left(Today,2) ' StrDay bây giờ bằng "24"' Lấy ra 4 ký tự từ bên phải của String TodayStrYear = 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ấtStrMonth = Mid(Today,4,2) ' StrMonth bây giờ bằng "05"' Lấy ra phần còn lại bắt đầu từ ký tự 4 của chuỗi TodayStrMonthYear = 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"

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

Cú pháp: InStr([start,] string1, string2 [, compare])

Trong đó:

- Start: Xác định vị trí trong chuỗi bắt đầu việc tìm kiếm. Nếu giá trị là Null thì sẽ bắt đầu từ đầu chuỗi. Nếu như tham số Compare có đặc tả thì bắt buộc phải khai báo tham số Start.

- String1: Biểu thức chuỗi để so sánh.

- String2: Chuỗi cần tìm.

- Compare: Xác định kiểu so sánh chuỗi.

Giá trị: vbTextCompare, vbBinaryCompare.

Questions & Answers

find the 15th term of the geometric sequince whose first is 18 and last term of 387
Jerwin Reply
I know this work
The given of f(x=x-2. then what is the value of this f(3) 5f(x+1)
virgelyn Reply
hmm well what is the answer
how do they get the third part x = (32)5/4
kinnecy Reply
can someone help me with some logarithmic and exponential equations.
Jeffrey Reply
sure. what is your question?
okay, so you have 6 raised to the power of 2. what is that part of your answer
I don't understand what the A with approx sign and the boxed x mean
it think it's written 20/(X-6)^2 so it's 20 divided by X-6 squared
I'm not sure why it wrote it the other way
I got X =-6
ok. so take the square root of both sides, now you have plus or minus the square root of 20= x-6
oops. ignore that.
so you not have an equal sign anywhere in the original equation?
is it a question of log
I rally confuse this number And equations too I need exactly help
But this is not salma it's Faiza live in lousvile Ky I garbage this so I am going collage with JCTC that the of the collage thank you my friends
Commplementary angles
Idrissa Reply
im all ears I need to learn
right! what he said ⤴⤴⤴
what is a good calculator for all algebra; would a Casio fx 260 work with all algebra equations? please name the cheapest, thanks.
Kevin Reply
a perfect square v²+2v+_
Dearan Reply
kkk nice
Abdirahman Reply
algebra 2 Inequalities:If equation 2 = 0 it is an open set?
Kim Reply
or infinite solutions?
The answer is neither. The function, 2 = 0 cannot exist. Hence, the function is undefined.
Embra Reply
if |A| not equal to 0 and order of A is n prove that adj (adj A = |A|
Nancy Reply
rolling four fair dice and getting an even number an all four dice
ramon Reply
Kristine 2*2*2=8
Bridget Reply
Differences Between Laspeyres and Paasche Indices
Emedobi Reply
No. 7x -4y is simplified from 4x + (3y + 3x) -7y
Mary Reply
how do you translate this in Algebraic Expressions
linda Reply
Need to simplify the expresin. 3/7 (x+y)-1/7 (x-1)=
Crystal Reply
. After 3 months on a diet, Lisa had lost 12% of her original weight. She lost 21 pounds. What was Lisa's original weight?
Chris Reply
what's the easiest and fastest way to the synthesize AgNP?
Damian Reply
types of nano material
abeetha Reply
I start with an easy one. carbon nanotubes woven into a long filament like a string
many many of nanotubes
what is the k.e before it land
what is the function of carbon nanotubes?
I'm interested in nanotube
what is nanomaterials​ and their applications of sensors.
Ramkumar Reply
what is nano technology
Sravani Reply
what is system testing?
preparation of nanomaterial
Victor Reply
Yes, Nanotechnology has a very fast field of applications and their is always something new to do with it...
Himanshu Reply
good afternoon madam
what is system testing
what is the application of nanotechnology?
In this morden time nanotechnology used in many field . 1-Electronics-manufacturad IC ,RAM,MRAM,solar panel etc 2-Helth and Medical-Nanomedicine,Drug Dilivery for cancer treatment etc 3- Atomobile -MEMS, Coating on car etc. and may other field for details you can check at Google
anybody can imagine what will be happen after 100 years from now in nano tech world
after 100 year this will be not nanotechnology maybe this technology name will be change . maybe aftet 100 year . we work on electron lable practically about its properties and behaviour by the different instruments
name doesn't matter , whatever it will be change... I'm taking about effect on circumstances of the microscopic world
how hard could it be to apply nanotechnology against viral infections such HIV or Ebola?
silver nanoparticles could handle the job?
not now but maybe in future only AgNP maybe any other nanomaterials
I'm interested in Nanotube
this technology will not going on for the long time , so I'm thinking about femtotechnology 10^-15
can nanotechnology change the direction of the face of the world
Prasenjit Reply
At high concentrations (>0.01 M), the relation between absorptivity coefficient and absorbance is no longer linear. This is due to the electrostatic interactions between the quantum dots in close proximity. If the concentration of the solution is high, another effect that is seen is the scattering of light from the large number of quantum dots. This assumption only works at low concentrations of the analyte. Presence of stray light.
Ali Reply
the Beer law works very well for dilute solutions but fails for very high concentrations. why?
bamidele Reply
how did you get the value of 2000N.What calculations are needed to arrive at it
Smarajit Reply
Privacy Information Security Software Version 1.1a
Got questions? Join the online conversation and get instant answers!
QuizOver.com Reply

Get the best Algebra and trigonometry course in your pocket!

Source:  OpenStax, Giáo trình visual basic. OpenStax CNX. Jul 29, 2009 Download for free at http://cnx.org/content/col10777/1.1
Google Play and the Google Play logo are trademarks of Google Inc.

Notification Switch

Would you like to follow the 'Giáo trình visual basic' conversation and receive update notifications?