Lập trình trực quan 90 BÀI 12. CÁC CẤU TRÚC ĐIỀU KHIỂN Tương tự như các ngôn ngữ lập trình khác trong Visual Basic ta có thể sử dụng các cấu trúc điều khiển trong chương trình để có thể chọn lựa công việc thực hiện hoặc tự động lặp lại nhóm chỉ thị nhiều lần. 12.1. Cấu trúc chọn : 12.1.1 Cấu trúc : IF <Điều kiện> THEN <Chỉ thị> Khi gặp cấu trúc này nếu điều kiện có giá trị True thì thực hiện chỉ thị nếu điều kiện có giá trị False thì bỏ qua chỉ thị đó. Ví dụ : IF dtb > 5 THEN Print "Bạn đủ điểm" Trong trường hợp này chỉ có duy nhất một chỉ thị. 12.1.2 Cấu trúc : IF <Điều kiện> THEN <Chỉ thị 1> ELSE <Chỉ thị 2> Khi gặp cấu trúc này nếu điều kiện có giá trị True thì thực hiện chỉ thị 1 nếu điều kiện có giá trị False thì thực hiện chỉ thị 2. Ví dụ : IF dtb > 5 THEN Print "Bạn đủ điểm" ELSE Print "Bạn thiếu điểm" Chú ý : - Nếu muốn sau THEN hoặc ELSE có nhiều chỉ thị cần thực hiện thì phải viết xuống dòng và cuối cấu trúc này phải có END IF. Cách viết : IF <Điều kiện> THEN <Chỉ thị 1> <Chỉ thị n> Lập trình trực quan 91 ELSE <Chỉ thị 1'> <Chỉ thị n'> END IF 12.1.3 Cấu trúc : Select Case <Biểu thức> Case <Liệt kê biểu thức 1> <Khối chỉ thị 1> Case <Liệt kê biểu thức 2> <Khối chỉ thị 2> [Case Else <Khối chỉ thị n>] End Select Trong đó : - Biểu thức : là một thức chuỗi hoặc số. Nếu giá trị của biểu thức ở đây trùng với giá trị của các biểu thức được liệt kê nào bên dưới thì khối chỉ thị tương ứng được thực hiện. - Liệt kê biểu thức I : là biểu thức sẽ được đem so sánh với biểu thức đầu. Trong phần này biểu thức li ệt kê có thể được viết dưới các dạng sau : • Biểu thức : số hoặc chữ. • Biểu thức 1 TO Biểu thức 2 : chỉ ra đoạn giá trị nằm giữa biểu thức 1 và 2. • IS <phép so sánh> <biểu thức> : chỉ ra phép so sánh và giá trị so sánh. - Khối chỉ thị I : là các chỉ thị cần thực hiện trong trường hợp giá trị của biểu thức thứ I trùng với giá trị c ủa biểu thức đầu. Ở đây có thể gồm nhiều chỉ thị được viết trên nhiều dòng. Ví dụ : viết chương trình nhập vào tuổi một người và cho biết người đó thuộc lứa tuổi nào. Sub Form_Click() Dim Cauhoi, Tuoi 'Khai báo biến Cauhoi và Tuoi Cauhoi = "Bạn bao nhiêu tuổi :" Lập trình trực quan 92 Tuoi = InputBox(Cauhoi) ' Nhập tuổi vào biến tuoi Select Case Tuoi Case 1 TO 12 MsgBox "Bạn ở tuổi Nhi đồng" 'In ra dòng thông báo Case 13 TO 18 MsgBox "Bạn ở tuổi Thiếu niên" Case 18 TO 25 MsgBox "Bạn ở tuổi Thanh niên" Case 25 TO 60 MsgBox "Bạn đã là Người lớn" Case IS > 60 MsgBox "Bạn ở tuổi Về hưu" Case Else MsgBox "Bạn không phải con người" End Select End Sub 12.2. Cấu trúc lặp : cho phép tự động lặp đi lặp lại nhóm lệnh nhiều lần. 12.2.1 Cấu trúc : FOR <Biến đếm> = <Giá trị đầu> TO <Giá trị cuối> [STEP n] [Khối chỉ thị 1] [Exit For] [Khối chỉ thị 2] NEXT <biến đếm> - Biến đếm : là tên biến dùng để kiểm tra số lần lặp. - Giá trị đầu : là giá trị khởi gán lần đầu tiên cho biến đếm khi thực hiện vòng lặp. - Giá trị cuối : là giá trị cuối cùng của biến đếm. Khi biến đếm đạt đến giá trị này thì vòng lặp thực hiện lần cuối và dừng quá trình lặp. - STEP n : chỉ định bước nhảy n để thực hi ện thay đổi giá trị của biến đếm sau mỗi lần lặp. - Khối chỉ thị : liệt kê các chỉ thị cần thực hiện trong mỗi lần lặp. - Exit For : nếu trong vòng lặp mà gặp chỉ thị này thì sẽ ngưng vòng lặp. Lập trình trực quan 93 Vòng lặp trên cho phép tự động thực hiện các chỉ thị với số lần lặp xác định trước. Ví dụ : viết đoạn lệnh in ra các số nguyên từ 1 đến 10. FOR so! = 1 TO 10 'biến số là Single Print so! NEXT so! Ví dụ : viết đoạn lệnh in ra các số với bước nhảy 0.25 và từ 0 đến 10. FOR so! = 0 TO 10 STEP 0.25 'biến số là Single Print so! NEXT so! 12.2.2 Cấu trúc : WHILE <Điều kiện> [Khối chỉ thị] Wend - Điều kiện : qui định điều kiện để thực hiện vờng lặp. Nếu điều kiện có giá trị True thì thực hiện khối chỉ thị, gặp Wend sẽ quay trở lại kiểm tra điều kiện. Quá trình trên kết thúc khi điều kiện có giá trị False. - Khối chỉ thị : các chỉ thị cần thực hiện trong vòng lặp. Ví dụ : viết đ oạn lệnh in ra các số nguyên từ 1 đến 10. So! = 1 While so! <= 10 Print so! So! = so! + 1 Wend 12.2.3 Cấu trúc : DO [WHILE | UNTIL <Điều kiện>] [Khối chỉ thị] [Exit Do] [Khối chỉ thị] LOOP [WHILE | UNTIL <Điều kiện>] - Điều kiện : qui định điều kiện để thực hiện vờng lặp. Lập trình trực quan 94 - Nếu dùng WHILE thì điều kiện có giá trị True thì thực hiện khối chỉ thị, nếu False kết thúc vòng lặp. - Nếu dùng UNTIL thì điều kiện có giá trị False thì thực hiện khối chỉ thị, nếu True kết thúc vòng lặp. Ta có thể đặt điều kiện ở đầu hoặc cuối vòng lặp đều được. - Khối chỉ thị : các chỉ thị cần thự c hiện trong vòng lặp. - Exit Do : cho phép dừng vòng lặp mà không cần qua kiểm tra điều kiện. Ví dụ : viết đoạn lệnh in ra các số nguyên từ 1 đến 10. So! = 1 Do While so! <= 10 Print so! So! = so! + 1 Loop Hoặc : So! = 1 Do Print so! So! = so! + 1 Loop While so! <= 10 Hoặc : So! = 1 Do Print so! So! = so! + 1 Loop Until so! > 10 12.3. Nhãn : Trong Visual Basic ta có thể chuyển đến thực hiện ở một đoạn chương trình hoặc một dòng lệnh mới bằng cách dùng nhãn hoặc số thứ tự dòng lệnh. Lập trình trực quan 95 12.3.1 Nhãn : Là một đoạn chỉ thị lệnh bất kỳ trong chương trình được gán một tên xác định. Khi cần thực hiện đoạn chỉ thỉ này ta chỉ việc nhảy về nhãn đó. Mỗi nhãn được dùng trong biểu mẫu hoặc đơn thể phải là duy nhất. Không thể sử dụng hai nhãn trùng tên trong một biểu mẫu, thủ tục, hộp điều khiển - Cách viế t tên_nhãn: <Nhóm chỉ thị> - Cách gọi : • Cách 1 : sử dụng lệnh GOTO <tên_nhãn> • Cách 2 : sử dụng lệnh ON <biểu thức số> GOTO <liệt lê các tên nhãn> Trong trường hợp này biểu thức số có giá trị từ 1 đến 255 và tên nhãn có số thứ tự tương ứng với biểu thức số sẽ được thực hiện. Ví dụ : ON stt GOTO nhan1, nhan2, nhan3 Nếu stt có giá trị 1 thì nhan1 được thực hiện, stt là 2 thì nhan2 thực hiện và stt là 3 thì nhan3 được th ực hiện. Ví dụ : Sub Form_Click() Print "Giáo trình" GOTO Nhan1 Print "Không in" Nhan1: Print "Lập trình trực quan" End Sub Lúc này kết quả trên màn hình ta nhận được : Giáo trình Lập trình trực quan Còn dòng lệnh Print "Không in" sẽ không thực hiện. Lập trình trực quan 96 12.3.2 Số thứ tự dòng lệnh : Là phương pháp đánh số ở trước mỗi dòng lệnh và khi cần ta có nhảy đến vị trí này bất cứ lúc nào. Mỗi số được dùng trong biểu mẫu hoặc đơn thể phải là duy nhất. Không thể sử dụng hai số trùng giá trị để đánh số dòng lệnh trong một biểu mẫu, thủ tục, hộp điều khiển Các số dùng đ ánh số dòng lệnh là tùy ý không bắt buộc phải đánh số theo thứ tự tăng hay giảm dần mà ngẫu nhiên, không bắt buộc phải đánh số tất cả các chỉ thị lệnh mà thích đánh số vào dòng lệnh nào cũng được. Cách gọi : GOTO <giá trị số> Khi thực hiện lệnh này Visual Basic sẽ chuyển đến dòng lệnh được đánh số tươnmg ứng. Ví dụ : 100 MsgBox "Dòng lệnh mang số 100" 101 MsgBox "Dòng lệnh mang số 101" 57 MsgBox "Dòng lệnh mang số 57" GOTO 101 . Lập trình trực quan 90 BÀI 12. CÁC CẤU TRÚC ĐIỀU KHIỂN Tương tự như các ngôn ngữ lập trình khác trong Visual Basic ta có thể sử dụng các cấu trúc điều khiển trong chương trình để. "Giáo trình& quot; GOTO Nhan1 Print "Không in" Nhan1: Print " ;Lập trình trực quan& quot; End Sub Lúc này kết quả trên màn hình ta nhận được : Giáo trình Lập trình trực quan. 10 12. 3. Nhãn : Trong Visual Basic ta có thể chuyển đến thực hiện ở một đoạn chương trình hoặc một dòng lệnh mới bằng cách dùng nhãn hoặc số thứ tự dòng lệnh. Lập trình trực quan 95 12. 3.1