Bài giảng cấu trúc lệnh điều khiển

Bài giảng cấu trúc lệnh điều khiển

Bài giảngCấu trúc lệnh điều khiển I. Cấu trúc chọn1. If .Then Cấu trúc một dòng lệnh: If <điều kiện> Then <dòng lệnh>Cấu trúc nhiều dòng lệnh: If <điều kiện> Then <Các dòng lệnh> End Ifiều kiện ở đây là một biểu thức Logic tr về kết qu True / False. VÝ dô: nhập vào một số, kiểm tra xem số đó có phải là chẵn không? In thông báoSub InputNum()Dim A as byteA=inputbox(“nhap vao so a”) If (A MOD 2) = 0Thenmsgbox “A la một số chẵn” End IfEnd Sub 2. If .Then .Else Có ph¸p : If < ®iÒu kiÖn1> Then [ Khèi lÖnh 1] [ ElseIf <®iÒu kiÖn 2> Then [khèi lÖnh 2] . [Else] [khèi lÖnh n] End If VÝ d 1ụVÝ d 1ụIf If tuoi <18 tuoi <18 Then Then MsgboxMsgbox Ban chua den tuoi lao dong“ ” Ban chua den tuoi lao dong“ ” ElseIf ElseIf tuoi <60 tuoi <60 Then Then Msgbox Msgbox Ban van trong do tuoi lao dong“ ” Ban van trong do tuoi lao dong“ ” ElseElse Msgbox Msgbox Ban da het tuoi lao dong“ ”Ban da het tuoi lao dong“ ”End IfEnd If vÝ dô 2vÝ dô 2Dim Number, Digits, MyString Dim Number, Digits, MyString Number = 53Number = 53If Number < 10 Then If Number < 10 Then Digits = 1 Digits = 1 ElseIf Number < 100 Then ElseIf Number < 100 Then Digits = 2 Digits = 2 Else Else Digits = 3 Digits = 3 End If End If If Digits = 1 Then MyString = "One" Else If Digits = 1 Then MyString = "One" Else MyString = "More than one" MyString = "More than one" 3 Select Case Nhằm gii quyết trường hợp quá nhiều ElseIf lồng nhau, giúp cho chương trỡnh sáng sủa dễ đọc. Biểu thức logic được so sánh một lần vào đầu cấu trúc. Sau đó VB so sánh với từng Case, nếu bằng nó thực hiện khối lệnh trong Case đó.Mỗi danh sách biểu thức có thể chứa một hoặc nhiều giá trị. Các giá trị cách nhau nhờ dấu phy. Mỗi khối lệnh có thể không chứa hoặc chứa một hay nhiều dòng lệnh. Nếu có hơn một Case tho mãn điều kiện thỡ khối lệnh của Case đầu tiên tho mãn sẽ được thi hành. Case Else không nhất thiết phi có, nó dùng trong trường hợp còn lại của các Case trước đó. Có ph¸p: Có ph¸p: Select Case <Select Case <biÓu thøc kiÓm tra>biÓu thøc kiÓm tra> [[Case <Case <danh s¸ch biÓu thøc 1>danh s¸ch biÓu thøc 1> [khèi lÖnh 1] ][khèi lÖnh 1] ] [ [ Case < Case < danh s¸ch biÓu thøc 2> danh s¸ch biÓu thøc 2> [khèi [khèi lÖnh 2] ] lÖnh 2] ] [[Case ElseCase Else [khèi lÖnh n] ][khèi lÖnh n] ] End SelectEnd Select Select Case State Case "Michigan" Case "Minnesota" Message = "A wonderful state to visit if you enjoy fresh-water lakes." Case "Virginia" Message = "A wide variety of historical landmarks and beautiful mountains” Case "Arizona" Message = "A wonderful getaway for those who love heat with low humidity." Case "Colorado" Message = "Virtually unsurpassed for its majestic mountains and rivers." Case Else Message = "No specific information is available about this state."End Select II. Vũng lp xỏc nh1. For .NextDùng kiểu vòng lặp này khi ta 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 trong vòng lặp.Cú pháp: For <biến đếm>=<điểm đầu> To <điểm cuối> [Step <bước nh y>] < khối lệnh> [Exit For]Next [ <biến đếm>] [...]... khối lệnh Do <khối lệnh& gt; Loop While < ;điều kiện> ã Kiểu 3: Lặp trong khi điều kiện là False Do Until < ;điều kiện> <khối lệnh& gt; [Exit Do ] Loop 2. Vòng lặp While Wend Tương t như vòng lặp Do While, nhưng ta không thể thoát khỏi vòng lặp bằng lệnh Exit. Vỡ vậy vòng lặp này chỉ thoát khỏi khi biểu thức điều kiện là sai. Cú pháp: While < ;Điều kiện> <Câu lệnh& gt; Wend VÝ... lệnh& gt; Wend VÝ dô: While sPassword <> “vitti” sPassword=InputBox$ (“Enter Password”) Wend I. CÊu tróc chän 1. If Then    CÊu trúc một dòng lệnh: If < ;điều kiện> Then <dòng lệnh& gt; Cấu trúc nhiều dòng lệnh: If < ;điều kiện> Then <Các dòng lệnh& gt; End If iều kiện ở đây là một biểu thức Logic trĐ ả vÒ kÕt qu True / False.ả Trong đó: biến đếm, điểm đầu, điểm cuối vµ... If Kiểu 4: Lặp trong khi điều kiện là False và có ít nhất một lần được thi hành khèi lƯnh. cú pháp: Do <khèi lƯnh> Loop Until <®iỊu kiƯn> Ví d :ụ I=2 Do I=I*2 Loop Until I>1000 3 Select Case Nh»m giải qut tr­êng hỵp quá nhiều ElseIf lồng nhau, giúp cho chương trỡnh sáng sủa dễ đọc. Biểu thức logic được so sánh một lần vào đầu cấu trúc. Sau đó VB so sánh víi tõng... III. Vũng lp khụng xỏc nh 1.Vòng lặp Do Loop Thi hành khối lệnh với số vòng lặp không xác ®Þnh tr­íc, trong ®ã cã mét biĨu thøc ®iỊu kiƯn dùng để so sánh và quyết định vòng lặp có tiếp tục n a không. Có thể thoát khỏi vòng lặp nhờ câu lệnh Exit Do. Kiểu 1: Lặp trong khi ®iỊu kiƯn lµ True. Do While <®iỊu kiƯn> <khèi lƯnh> [Exit Do] ... sánh víi tõng Case, nÕu b»ng nã thùc hiƯn khèi lƯnh trong Case đó. Mỗi danh sách biểu thức có thể chứa một hoặc nhiều giá trị. Các giá trị cách nhau nhờ dấu phy. Mỗi khối lệnh có thể không chứa hoặc chứa một hay nhiều dòng lệnh. Nếu có hơn mét Case thoả m·n ®iỊu kiƯn thì khèi lƯnh cđa Case đầu tiên tho mÃn sẽ được thi hành. Case Else kh«ng nhÊt thiÕt phải cã, nã dïng trong tr­êng hợp còn lại... & ". Double it again ?", vbYesNo) = vbYes Then           DoubleIt = DoubleIt * 2 Else           Again = False End If Loop 2. For Each Next T­¬ng tù nh­ For Next , nhưng nó lặp khối lệnh theo số phần tử của một tập hợp các đối tư ợng hay một m ng thay v 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 có bao nhiêu phần tử trong tập hợp. Cú pháp: For Each <phÇn... biến đếm, điểm đầu, điểm cuối vµ b­íc nhảy cã kiĨu dữ liƯu sè. B­íc nh y là tuỳ chọn và có thể dương hoặc âm. Nếu bước nh y là số dương, điểm đầu ph i nhỏ hơn hoặc bằng điểm cuối. Nếu không, khối lệnh sẽ không được thi hành. Ngược lại, nếu bước nh y âm, điểm đầu ph i lớn hơn điểm cuối. Nếu Step không được chỉ ra, mặc định bước nh y lµ 1.ả . Bài giảngCấu trúc lệnh điều khiển I. Cấu trúc chọn1. If...Then Cấu trúc một dòng lệnh: If < ;điều kiện> Then <dòng lệnh& gt ;Cấu trúc. hành khối lệnh Do <khối lệnh& gt; Loop While < ;điều kiện> Kiểu 3: Lặp trong khi điều kiện là False Do Until < ;điều kiện>