Đang tải... (xem toàn văn)
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Ý... I= 1 to 100 step 2 S=S+I Next I Msgbox “Tong cac so le trong khoang 1-100 la:” & str(S) 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.ả Ví dụ: Sub ListTableDefs() Dim objDb As Database ... 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] Loop Bài giảng Cấu trúc lệnh điều khiển 3 Select Case Nh»m giải... 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 . 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 nhiều. 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>