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

For Each<phần tử>In<nhóm>

<khối lệnh>

Next<phần tử>

Lưu ý:

- Phần tử trong tập hợp chỉ có thể là biến Variant, biến Object, hoặc một đối tượng trong Object Browser.

- Phần tử trong mảng chỉ có thể là biến Variant.

- Không dùng For Each ... Next với mảng chứa kiểu tự định nghĩa vì Variant không chứa kiểu tự định nghĩa.

Chương trình con

Khái niệm

Trong những chương trình lớn, có thể có những đoạn chương trình viết lặp đi lặp lại nhiều lần, để tránh rườm rà và mất thời gian khi viết chương trình người ta thường phân chia chương trình thành nhiều module, mỗi module giải quyết một công việc nào đó. Các module như vậy gọi là các chương trình con.

Một tiện lợi khác của việc sử dụng chương trình con là ta có thể dễ dàng kiểm tra xác định tính đúng đắn của nó trước khi ráp nối vào chương trình chính và do đó việc xác định sai sót để tiến hành hiệu đính trong chương trình chính sẽ thuận lợi hơn.

Trong Visual Basic, chương trình con có hai dạng là hàm (Function) và thủ tục (Sub).

Hàm khác thủ tục ở chỗ hàm trả về cho lệnh gọi một giá trị thông qua tên của nó còn thủ tục thì không. Do vậy ta chỉ dùng hàm khi và chỉ khi thoả mãn đồng thời các yêu cầu sau đây:

• Ta muốn nhận lại một kết quả (chỉ một mà thôi) khi gọi chương trình con.
• Ta cần dùng tên chương trình con (có chứa kết quả) để viết trong các biểu thức.

Nếu không thỏa mãn hai điều kiện ấy thì dùng thủ tục.

Thủ tục

1. Khái niệm:

Thủ tục là một chương trình con thực hiện một hay một số tác vụ nào đó. Thủ tục có thể có hay không có tham số.

1. Khai báo thủ tục

[Private | Public] [Static]Sub<tên thủ tục>[(<tham số>[As<Kiểu tham số>])]

<Các dòng lệnh>hay<Các khai báo>

End Sub

Trong đó:

-<Tên thủ tục>: Đây là một tên được đặt giống quy tắc tên biến, hằng,…

-<tham số>[:<Kiểu tham số>]: có thể có hay không? Nếu có nhiều tham số thì mỗi tham số phân cách nhau dấu phẩy. Nếu không xác định kiểu tham số thì tham số có kiểu Variant.

Để gọi thủ tục để thực thi, ta có 2 cách:

• <Tên thủ tục>[<Các tham số thực tế>]
• Call<Tên thủ tục>([<Các tham số thực tế>])

Ví dụ: Thiết kế chương trình kiểm tra xem số nguyên N có phải là số nguyên tố hay không?

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

• Bước 2: Viết thủ tục KtraNgTo trong phần mã lệnh của Form

Sub KTraNgTo(N As Integer)

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

End Sub

• Bước 3: Xử lý sự kiện Command1_Click; trong thủ tục xử lý sự kiện này ta có gọi thủ tục KtraNgTo như sau:

Private Sub Command1_Click()

KTraNgTo Val(txtNum.Text)

‘ Call KtraNgTo(Val(txtNum.Text))

End Sub

• Bước 4: Lưu dự án và chạy chương trình. Ta được kết quả sau:

Trong ví dụ trên thay vì gọi thủ tục bằng lời gọi:

KTraNgTo Val(txtNum.Text)

Ta có thể sử dụng cách khác:

Call KtraNgTo(Val(txtNum.Text))

Hàm

1. Khái niệm

Hàm (Function) là một chương trình con có nhiệm vụ tính toán và cho ta một kết quả. Kết quả này được trả về trong tên hàm cho lời gọi nó.

1. Khai báo hàm

[Private | Public | Static] Function<Tên hàm>[(<tham số>[As<Kiểu tham số>])]_