0.2 Lập trình cấu trúc trong visual basic  (Page 4/7)

End Select

Toán tử Is&To

Toán tử Is: Được dùng để so sánh<Biểu thức kiểm tra>với một biểu thức nào đó.

Toán tử To: Dùng để xác lập miền giá trị của<Biểu thức kiểm tra>.

Ví dụ:

Select Case Tuoi

Case Is<18

MsgBox “Vi thanh nien”

Case 18 To 30

MsgBox “Ban da truong thanh, lo lap than di”

Case 31 To 60

MsgBox “Ban dang o lua tuoi trung nien”

Case Else

MsgBox “Ban da lon tuoi, nghi huu duoc roi day!”

End Select

Lưu ý: Trong ví dụ trên không thể viết Case Tuoi<18.

Cấu trúc lặp

Các cấu trúc lặp cho phép thi hành một khối lệnh nào đó nhiều lần.

1. Lặp không biết trước số lần lặp

Khối lệnhDo ... Loop: Đây là cấu trúc lặp không xác định trước số lần lặp, trong đó, số lần lặp sẽ được quyết định bởi một biểu thức điều kiện. Biểu thức điều kiện phải có kết quả là True hoặc False. Cấu trúc này có 4 kiểu:

Kiểu 1:

Do While<điều kiện>

<khối lệnh>Đkiện

Loop

Đúng Sai

Khối lệnh sẽ được thi hành đến khi nào điều kiện không còn đúng nữa. Do biểu thức điều kiện được kiểm tra trước khi thi hành khối lệnh, do đó có thể khối lệnh sẽ không được thực hiện một lần nào cả.

Kiểu 2:

Do

<khối lệnh>

Loop While<điều kiện>

Khối lệnh sẽ được thực hiện, sau đó biểu thức điều kiện được kiểm tra, nếu điều kiện còn đúng thì, khối lệnh sẽ được thực hiện tiếp tục. Do biểu thức điều kiện được kiểm tra sau, do đó khối lệnh sẽ được thực hiện ít nhất một lần.

Kiểu 3:

Do Until<điều kiện>

<khối lệnh>

Loop

Cũng tương tự như cấu trúc Do While ... Loop nhưng khác biệt ở chỗ là khối lệnh sẽ được thi hành khi điều kiện còn sai.

Kiểu 4:

Do

<khối lệnh>

Loop Until<điều kiện>

Khối lệnh được thi hành trong khi điều kiện còn sai và có ít nhất là một lần lặp.

Ví dụ: Đoạn lệnh dưới đây cho phép kiểm tra một số nguyên N có phải là số nguyên tố hay không?

Dim i As Integer

i = 2

Do While (i<= Sqr(N)) And (N Mod i = 0)

i = i + 1

Loop

If (i>Sqr(N)) And (N<>1) Then

MsgBox Str(N)&“ la so nguyen to”

Else

MsgBox Str(N)&“ khong la so nguyen to”

End If

Trong đó, hàm Sqr: hàm tính căn bậc hai của một số

Lặp biết trước số lần lặp

• For ... Next

Đây là cấu trúc biết trước số lần lặp, ta dùng biến đếm tăng dần hoặc giảm dần để xác định số lần lặp.

For<biến đếm>=<điểm đầu>To<điểm cuối>[Step<bước nhảy>]

[khối lệnh]

Next

Biến đếm, điểm đầu, điểm cuối, bước nhảy là những giá trị số (Integer, Single,…). Bước nhảy có thể là âm hoặc dương. Nếu bước nhảy là số âm thì điểm đầu phải lớn hơn điểm cuối, nếu không khối lệnh sẽ không được thi hành.

Khi Step không được chỉ ra, VB sẽ dùng bước nhảy mặc định là một.

Ví dụ: Đoạn lệnh sau đây sẽ hiển thị các kiểu chữ hiện có của máy bạn.

Private Sub Form_Click( )

Dim i As Integer

For i = 0 To Screen.FontCount

MsgBox Screen.Fonts(I)

Next

End Sub

Ví dụ: Tính N!

• TextBox: Name:txtNum Bước 1: Thiết kế chương trình có giao diện:

Label: Name: lblKQ

• Bước 2: Sự kiện Command1_Click được xử lý:

Private Sub Command1_Click()

Dim i As Integer, n As Integer, Kq As Long

n = Val(txtNum.Text)

Kq = 1

For i = 1 To n

Kq = Kq * i

Next

lblKQ.Caption = Str(Kq)

End Sub

• Lưu dự án và chạy chương trình ta được kết quả như hình dưới:

• For Each ... Next

Tương tự vòng lặp For ... Next, nhưng nó lặp khối lệnh theo số phần tử của một tập các đối tượng hay một mảng thay vì theo số lần lặp xác định. Vòng lặp này tiện lợi khi ta không biết chính xác bao nhiêu phần tử trong tập hợp.