Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống
1
/ 45 trang
THÔNG TIN TÀI LIỆU
Thông tin cơ bản
Định dạng
Số trang
45
Dung lượng
1,55 MB
Nội dung
BÀI 5: CÁCLỆNHLẶP Sử dụng CheckBox và hộp thoại Toán tử logic và sử dụng toán tử logic để kết hợp nhiều điều kiện đơn Tổ chức mã trong Visual Basic Sử dụng lệnh đa lựa chọn Select Case Quy trình phát triển ứng dụng Hệ thống bài cũ Sử dụng CheckBox và hộp thoại Toán tử logic và sử dụng toán tử logic để kết hợp nhiều điều kiện đơn Tổ chức mã trong Visual Basic Sử dụng lệnh đa lựa chọn Select Case Quy trình phát triển ứng dụng Cáclệnhlặp 2 Mục tiêu bài học Biết cách sử dụng cáclệnhlặp khác nhau Biết cách sử dụng các điều khiển ListBox, NumericUpDown, TextBox nhiều dòng Biết cách chuyển điều khiển Biết cách vô hiệu hóa và kích hoạt điều khiển Biết cách sử dụng đối tượng String Biết cách sử dụng cáclệnhlặp khác nhau Biết cách sử dụng các điều khiển ListBox, NumericUpDown, TextBox nhiều dòng Biết cách chuyển điều khiển Biết cách vô hiệu hóa và kích hoạt điều khiển Biết cách sử dụng đối tượng String Cáclệnhlặp 3 Lệnhlặp Do While …Loop Bài toán đi mua hàng Một người đi đến cửa hàng tạp hóa với một danh sách các mặt hàng cần mua, người đó mua lần lượt từng mặt hàng theo danh sách cho đến khi có tất cả các mặt hàng cần mua Thực hiện các hành động sau, khi vẫn còn mặt hàng trong danh sách mặt hàng cần mua Đặt mặt hàng tiếp theo vào xe đẩy Gạch chéo tên mặt hàng này trong danh sách cần mua Cáclệnhlặp 4 Thực hiện các hành động sau, khi vẫn còn mặt hàng trong danh sách mặt hàng cần mua Đặt mặt hàng tiếp theo vào xe đẩy Gạch chéo tên mặt hàng này trong danh sách cần mua Thực thi lệnhlặp Do While…Loop Bài toán: Tìm số chẵn đầu tiền lớn hơn 5 Khai báo biến x và gán cho biến này giá trị là 2. Ứng dụng chuyển đến thực hiện lệnhlặp Do While…Loop. Đầu tiên, ứng dụng kiểm tra điều kiện tiếp tục vòng lặp, điều kiện này có giá trị là True nên ứng dụng tiếp tục thực thi lệnh trong thân vòng lặp. Sau thực thi thân vòng lặp, x có giá trị là 4. Ứng dụng kiểm tra điều kiện tiếp tục vòng lặp. Điều kiện này có giá trị True, ứng dụng tiếp tục thực thi lệnh trong thân vòng lặp. Sau khi thực thi thân vòng lặp, x có giá trị là 6. Ứng dụng kiểm tra điều kiện tiếp tục vòng lặp. Điều kiện này bây giờ có giá trị False (vì 6 lớn hơn 5). Ứng dụng kết thúc thực thi vòng lặp. Dim x As Integer = 2 Do While x <= 5 x += 2 Loop Điều kiện tiếp tục vòng lặpBài toán: Tìm số chẵn đầu tiền lớn hơn 5 Khai báo biến x và gán cho biến này giá trị là 2. Ứng dụng chuyển đến thực hiện lệnhlặp Do While…Loop. Đầu tiên, ứng dụng kiểm tra điều kiện tiếp tục vòng lặp, điều kiện này có giá trị là True nên ứng dụng tiếp tục thực thi lệnh trong thân vòng lặp. Sau thực thi thân vòng lặp, x có giá trị là 4. Ứng dụng kiểm tra điều kiện tiếp tục vòng lặp. Điều kiện này có giá trị True, ứng dụng tiếp tục thực thi lệnh trong thân vòng lặp. Sau khi thực thi thân vòng lặp, x có giá trị là 6. Ứng dụng kiểm tra điều kiện tiếp tục vòng lặp. Điều kiện này bây giờ có giá trị False (vì 6 lớn hơn 5). Ứng dụng kết thúc thực thi vòng lặp. Cáclệnhlặp5 Biểu đồ hoạt động của Do While…Loop Cộng x với 2 [x <= 5] Cáclệnhlặp 6 Cộng x với 2 [x > 5] [x <= 5] Câu lệnh Visual Basic tương ứng là: x += 2 Lệnhlặp Do Until…Loop Cách tiếp cận khác của bài toán đi mua hàng Thực hiện các hành động sau, khi vẫn còn mặt hàng trong danh sách mặt hàng cần mua Đặt mặt hàng tiếp theo vào xe đẩy Gạch chéo tên mặt hàng này trong danh sách mua hàng Cáclệnhlặp 7 Thực hiện các hành động sau, cho đến tận khi không còn mặt hàng nào trong danh sách cần mua sắm Đặt mặt hàng tiếp theo vào xe đẩy Gạch chéo tên mặt hàng này trong danh sách mua hàng Thực thi lệnhlặp Do Until…Loop Bài toán: Tìm số chẵn đầu tiền lớn hơn 5 Khai báo biến x và gán cho biến này giá trị là 2 Ứng dụng chuyển đến thực hiện lệnhlặp Do While…Loop Đầu tiên, ứng dụng kiểm tra điều kiện kết thúc vòng lặp, điều kiện này có giá trị là False nên ứng dụng tiếp tục thực thi lệnh trong thân vòng lặp Sau thực thi thân vòng lặp, x có giá trị là 4 Ứng dụng kiểm tra điều kiện kết thúc vòng lặp. Điều kiện này có giá trị False, ứng dụng tiếp tục thực thi lệnh trong thân vòng lặp Sau khi thực thi thân vòng lặp, x có giá trị là 6 Ứng dụng kiểm tra điều kiện kết thúc vòng lặp. Điều kiện này bây giờ có giá trị True (vì 6 lớn hơn 5). Ứng dụng kết thúc thực thi vòng lặp Dim x As Integer = 2 Do Until x > 5 x += 2 Loop Điều kiện kết thúc vòng lặpBài toán: Tìm số chẵn đầu tiền lớn hơn 5 Khai báo biến x và gán cho biến này giá trị là 2 Ứng dụng chuyển đến thực hiện lệnhlặp Do While…Loop Đầu tiên, ứng dụng kiểm tra điều kiện kết thúc vòng lặp, điều kiện này có giá trị là False nên ứng dụng tiếp tục thực thi lệnh trong thân vòng lặp Sau thực thi thân vòng lặp, x có giá trị là 4 Ứng dụng kiểm tra điều kiện kết thúc vòng lặp. Điều kiện này có giá trị False, ứng dụng tiếp tục thực thi lệnh trong thân vòng lặp Sau khi thực thi thân vòng lặp, x có giá trị là 6 Ứng dụng kiểm tra điều kiện kết thúc vòng lặp. Điều kiện này bây giờ có giá trị True (vì 6 lớn hơn 5). Ứng dụng kết thúc thực thi vòng lặpCáclệnhlặp 8 Biểu đồ hoạt động của Do Until…Loop Cộng x với 2 [x < 5] Cáclệnhlặp 9 Cộng x với 2 [x > 5] [x < 5] Câu lệnh Visual Basic tương ứng là: x += 2 Lệnhlặp Do…Loop While So sánh lệnh Do…Loop While và lệnh Do While…Loop Giống: Lặp khi điều kiện tiếp tục vòng lặp có giá trị True Khác: Lệnh Do While…Loop, điều kiện tiếp tục vòng lặp được kiểm tra tại thời điểm bắt đầu vòng lặp, trước khi thân vòng lặp được thực hiện Lệnh Do…Loop While kiểm tra điều kiện tiếp tục vòng lặp sau khi thực hiện thân vòng lặp Trong lệnh Do…Loop While, thân vòng lặp luôn được thực thi ít nhất một lần So sánh lệnh Do…Loop While và lệnh Do While…Loop Giống: Lặp khi điều kiện tiếp tục vòng lặp có giá trị True Khác: Lệnh Do While…Loop, điều kiện tiếp tục vòng lặp được kiểm tra tại thời điểm bắt đầu vòng lặp, trước khi thân vòng lặp được thực hiện Lệnh Do…Loop While kiểm tra điều kiện tiếp tục vòng lặp sau khi thực hiện thân vòng lặp Trong lệnh Do…Loop While, thân vòng lặp luôn được thực thi ít nhất một lần Cáclệnhlặp 10 [...]... - Xóa tất cả các giá trị có trong thuộc tính Items của ListBox Cáclệnhlặp 23 Demo cách sử dụng ListBox Thêm điều khiển vào Form Thêm điều khiển ListBox vào Form Cáclệnhlặp 24 Demo cách sử dụng ListBox Thêm các phần tử vào điều khiển ListBox Thêm phần tử vào ListBox Cáclệnhlặp 25 Demo cách sử dụng ListBox Xóa các phần tử trên điều khiển ListBox Xóa các phần tử trên ListBox Cáclệnhlặp 26 ListView... lệnh trong thân vòng lặp Sau khi thực thi thân vòng lặp, x có giá trị là 6 Ứng dụng kiểm tra điều kiện tiếp tục vòng lặp Điều kiện này bây giờ có giá trị False (vì 6 lớn hơn 5) Ứng dụng kết thúc thực thi vòng lặpCáclệnhlặp 11 Biểu đồ hoạt động của Do…Loop While Cộng x với 2 [x 5] Do While…Loop Cáclệnhlặp [x 5] Do…Loop While 12 Lệnhlặp Do…Loop Until So sánh lệnh. .. tiếp tục thực thi lệnh trong thân vòng lặp Sau khi thực thi thân vòng lặp, x có giá trị là 6 Ứng dụng kiểm tra điều kiện kết thúc vòng lặp Điều kiện này bây giờ có giá trị True (vì 6 lớn hơn 5) Ứng dụng kết thúc thực thi vòng lặpCáclệnhlặp 14 Biểu đồ hoạt động của Do…Loop Until Cộng x với 2 [x 5] Do Until…Loop Cáclệnhlặp [x 5] Do…Loop Until 15 Vòng lặp dùng biến... Until và lệnh Do Until…Loop Giống: Lặp khi điều kiện kết thức vòng lặp có giá trị False Khác: Lệnh Do Until…Loop, điều kiện kết thúc vòng lặp được kiểm tra tại thời điểm bắt đầu vòng lặp, trước khi thân vòng lặp được thực hiện Lệnh Do…Loop Until kiểm tra điều kiện kết thúc vòng lặp sau khi thực hiện thân vòng lặp Trong lệnh Do…Loop Until, thân vòng lặp luôn được thực thi ít nhất một lần Các lệnh lặp 13... tiếp tục vòng lặp lại được kiểm tra, điều kiện có giá trị là False (vì 8 lớn hơn 6), ứng dụng kết thúc thực thi vòng lặp Các lệnh lặp 18 Biểu đồ hoạt động của For…Next Khai báo biến điều khiển và khởi tạo giá trị [x 6] Các lệnh lặp 19 Một số lưu ý cho lệnh For…Next Nếu không có mệnh đề step, biến điều khiển tự động tăng 1 sau mỗi lần lặp For x As Integer... chỉ ra cả bốn yếu tố cơ bản của vòng lặp giá trị dùng biến đếm giá trị cuối bước tăng tên biến khởi tạo điều khiển For x As Integer = 2 To 10 Step 2 Next [Thân lệnh] x=2 Do While x 5 Điều kiện tiếp tục vòng lặp K hai báo biến x và gán cho biến này giá trị là 2 Ứng dụng chuyển đến thực hiện lệnhlặp Do While…Loop Trước tiên, ứng dụng thực thi thân vòng lặp, x có giá trị là 4 Sau đó, ứng dụng kiểm tra điều kiện kết thúc vòng lặp Điều kiện này có giá... lần lặp Nếu muốn giảm giá trị của biến điều khiển, dùng số âm sau từ khóa Step For x As Integer = 10 To 2 Step -2 Biến x giảm đi 2 sau mỗi lần lặp Các lệnh lặp 20 Một số lưu ý cho lệnh For…Next Giá trị khởi đầu, giá trị kết thúc và bước tăng có thể là biểu thức số học Giả sử a=2 và b=10 Các biểu thức được đánh giá trước For i As Integer = a To (4*a*b) Step (b\a) For i As Integer = 2 To 80 Step 5 Các lệnh. ..Thực thi lệnhlặp Do…Loop While Bài toán: Tìm số chẵn đầu tiền lớn hơn 5 Dim x As Integer = 2 Do x += 2 Loop While x . vòng lặp Các lệnh lặp 11 Biểu đồ hoạt động của Do…Loop While Cộng x với 2 [x <= 5] Cộng x với 2 [x > 5] [x <= 5] Các lệnh lặp 12 [x > 5] [x > 5] Do While…Loop Do…Loop While Lệnh lặp. hơn 5) . Ứng dụng kết thúc thực thi vòng lặp Các lệnh lặp 14 Biểu đồ hoạt động của Do…Loop Until Cộng x với 2 [x <= 5] Cộng x với 2 [x > 5] [x <= 5] Các lệnh lặp 15 [x > 5] [x > 5] Do. dụng Các lệnh lặp 2 Mục tiêu bài học Biết cách sử dụng các lệnh lặp khác nhau Biết cách sử dụng các điều khiển ListBox, NumericUpDown, TextBox nhiều dòng Biết cách chuyển điều khiển Biết cách