THÔNG TIN TÀI LIỆU
Tong hop & Bién soan Ks BINH XUAN LAM VN-GUIDE GIAO TRINH HOC VA THUC LY THUYET DAY DU, TRINH BAY NGAN GON, DE HIEU PHU HOP CHO NGUOI HQC LAP TRINH VISUAL BASIC BAI TAP THUC HANH CO HUONG DAN TUNG BUOC VA BAI TAP TU LUYEN DA DANG, THEO SAT THUC TE PHAN ON TAP BAO GOM: CAU HOI LÍ THUYET CAU HOI TRAC NGHIEM BAI TAP THUC HANH NHñ XUAT BAN THŨNG K HANH Gido frinh HOC VA THUC HANH VISUAL BASIC can ban Giáo trình — hoc va thuc banh Visual Basic _ can ban ~ Tổng hợp biên soạn: VN-GUIDE Và kỹ sư tin học: ĐINH XUÂN LÂM Driv ¬ “+ ‘ IHAINGUYÊN TIS ANT NHA XUAT BAN THONG KE T | Giao trinh hoc va thuc hanh VISUAL BASIC CAN BAN Chịu trách nhiệm xuốt CÁT VĂN THÀNH Biên tộp Trinh bay : HANH NGUYEN : THIÊN TRUNG Vẽ bia : THIEN AN Sita ban in : LỆ HÀNG NHÀ XUẤT BẢN THỐNG KÊ 98 Thụy Khuê - Tây Hồ - Hà Nội CN : ló Nguyễn Huệ, Quộn 1, TP Hồ Chí Minh ĐT: 8290047 Liên kết xuốt : CTY VAN HOA MINH TRÍ - NS VĂN LANG 25 Nguyễn Thị Minh Khoi, Q.I, TPHCM ĐT : 8.242157 - 8233022 - Fox : 84.8.235079 In 1000 khổ 14.5x20.5cm Xưởng in CN Trung Tôm Hội Chợ Triển Lãm Việt Nam, Giấy chúp nhộn đöng ký KHXB số 92-357/XB-QLXB Cục xuất ban cdép 26.03.2004 In xong vò nộp lưu chiểu quý năm 2004 Loi gidi thiéu Giáo trình học thực hành Visual Basic can ban hướng dẫn sử dụng Microsoft Visual Basic for Windows Version 6.0 Sau đọc xong tập sách này, bạn dùng ngơn ngữ lập trình Visual Basic để thiết kế trình ứng dụng chạy mơi trường Windous Visual Basic la mét céng cụ phát triển phần mềm, lợi điểm so uới ngơn ngữ lập trình khác tiết kiệm thời gian 0à cơng sức lúc xây dựng ứng dụng Khi thiết kế chương trình uới Visual Basie, bạn thấy kết qua thao tác uà giao diện chương trình thực Điều cho phép thay đổi dễ dàng nhanh chóng màu sắc, bích thước, hình dạng, đối tượng ứng dụng Tập sách dành cho bạn đọc chưa có hinh nghiệm lập trình tiếp cận bÿ lập trình ngôn ngữ Visual Basic cách nhanh Do đó, số tiết hỹ thuật lập trình mớ rộng Visual Basic 6.0 không đề cập Bạn thay đổi, mở rộng gợi ý sách Tập sách bao gồm 24 uà phần phụ -: lục, cuối có số câu hỏi uà tập Bạn nên tự trả lời trước coi tới phần giải đáp (Phụ lục D) cuối sách Khi uiết cố gắng để sách hoàn chỉnh, song chắn khơng tránh khỏi thiếu sót, uậy mong góp ý bạn đọc Chúc bạn trở thành lập trình uiên giỏi Visual Basic VN-GUIDE nhận Chuong I Bail Oooo00 0 Giới thiệu lập trinh Visual Basic Tại phải viết chương trình? Khái quát lịch sử lập trình Lập trình viên đâu? Q trình cải tiến ngơn ngữ lập trình Chạy chương trình để xuất kết Khó khăn trình xử lý lỗi kỹ thuật Giao diện đồ họa thay đổi thứ Chuyển tiếp từ BASIC sang Visual Basic Nội dung sách để cập thấu đáo so với đĩa hướng dẫn thông thường Tập sách hướng dẫn sử dụng Microsoft Visual Basic for Windows, vốn hệ thống thiết kế chương trình Windows hồn hảo Với Visual Basic, bạn có ý tưởng tuyệt vời ban đầu (nếu phép nói thế) hầu lập trình mơi trường Visual Basic Thêm vào đó, cịn có chương trình minh họa, bạn tốn thời gian nhập liệu tìm hiểu Nếu bạn lập trình ngơn ngữ khác, tạm qn Visual Basic khơng giống ngơn ngữ lập trình Điểm khác biệt Visual Basic mang lại cảm giác thoải mái lúc làm việc mà nhiều ngơn ngữ lập trình khác khơng có Với Visual Basic, phần lớn chương trình bạn tạo cách nhấp di chuyển mouse Thay lập trình, thực bạn thiết kế chương trình Visual Basic số cơng cụ lập trình giúp bạn thiết kế hiệu tạo chương trình Giáo trình học thực hành Visual Basic ban Chương mô tả tất liên quan đến lập trình Bạn xem lướt qua lịch sử lập trình, đặc biệt biến đổi ngôn ngữ BASIC q trình phát triển máy tính (Visual Basic có nguồn gốc từ ngôn ngữ BASIC truyền thống.) Hãy sẵn sàng học cách ứng dụng Visual Basic để lập trình Ghi Chương đề cập kiến thức bản, tầm quan trọng việc lập trình ngơn ngữ lập trình ban đầu Nội dung chương sách bàn hai vấn đề Thứ nhất, thơng qua tìm hiểu lịch sử lập trình, bạn có khái niệm hồn hảo cơng cụ lập trình Vấn đề thứ hai đánh giá đầy đủ chức dễ sử dụng linh hoạt mà Visual Basic cung cấp so với số ngôn ngữ lập trình khác Khả Visual Basic vượt xa sức tưởng tượng dùng cách vài năm TẠI SAO PHẢI VIẾT CHƯƠNG TRÌNH? Khái niệm Nếu muốn máy tính xử lý xác,kh phải viết chương trình Bản thân máy tính chẳng thể làm Thực ra, máy tính máy đần độn không hiểu biết Ngược lại với bạn đọc truyện khoa học viễn tưởng, máy tính khơng làm ngồi việc thực cách máy móc lệnh lập trình viên cung cấp Máy tính thật khơng biết suy nghĩ Định nghĩa Chương trình tập hợp lệnh, cho máy tính biết xác cân thực Hiện nay, mua máy tính đặt bàn khơng làm đến nạp chương trình vào nhớ máy tính khởi động chương trình Chỉ có VCR (thiết bị đọc ghi chương trình lên đĩa từ) khơng lập trình để thực cơng việc Máy tính cho lệnh tiết tìm thấy chương trình Giả sử bạn cho th tài sản muốn máy tính tìm hồ sơ người th Máy tính khơng trợ giúp bạn chừng bạn nạp chạy chương trình quản lý tài sản cho thuê Bạn tìm chương trình đâu? Có hai cách để có chương trình máy tính: 216 lệnh Giáo trình học thực hanh Visual Basic Để hoàn thành câu lệnh lặp, Visual Basic hỗ trợ Do-Loop Until Giống Do-Loop While, lệnh Do-Loop Until kiểm tra biếu thie relational test cuối vịng lặp Vì vậy, thân vịng lặp thi hành lần cho biểu thức relational test ải Vòng lặp tiếp tục biểu thức relational test cịn giá trị false Hình 10.5 minh họa hoạt động lệnh Do-Loop Until Do Vòng lặp Khối lệnh gồm hay sé thi hanh nhiéu lénh Visual Basic Biểu thức kiểm tra quan hệ lénh Loop Until Nếu false % Nếu true Ae Chương trình cịn lại tiếp tục Hình 10.5 Vịng lặp Do-Loop Until kiểm tra giá trị false biểu thức kiểm tra quan hệ cuối thân vòng lặp Tóm tắt Ví dụ 10.3 có thủ tục biến cố kiểm tra tuổi ngắn nhiều so với phiên cuối vòng cần thiết lặp, trước Biểu việc thêm thức relational lệnh gọi hàm test xuất InputBox$() khơng Ơn lại dụng Biểu thức relatonal test xuất cuối vòng lặp bạn sử lệnh lặp Do-Loop While Thân vòng lặp ln ln thi hành lần Thân vòng lặp thi hành nhiều lần biểu thức relaiional test trì giá trị true Có lệnh Do-Loop Until tương ứng chuyên kiểm tra điều kiện false cuối thân vòng lặp Bai 10: Vong lap 217 Ví dụ 10.3 Sử dụng lệnh Do-Loop While để kiểm tra quan hệ cuối vòng lặp 1: Dim StrAge As String 2: Dim Age As Integer 3: Do 4: StrAge = InputBox("How old are you?", "Age Ask") 5: ' Check for the Cancel command button 6: If (StrAge = "") Then 7: End 8: End lí 9: Age = Val(StrAge) 10: If ((Age < 10) Or (Age > 99)) Then 11: ' The user's age is out of range 12: Beep 13: MsgBox "Your age must be between 10 and 99", MB_ICONEXCLAMATION, "Error!" 14: End If 15: Loop While ((Age < 10) Or (Age > 99)) Phan tich Vòng lặp bắt đầu dòng Thân vịng lặp thi hành lần, hàm InputBox$() xuất vòng lặp Bằng cách đặt hàm InputBox$() bên vòng lặp, ban bo qua nhu cầu đặt hàm vào mã lệnh hai lần (một lần trước vòng lặp lần vòng lặp, sử dụng lệnh lặp trước Ví dụ 10.1 10.2) Dịng 10 phải kiểm tra để bảo đảm giá trị InputBox$() hay ngồi vùng tuổi để thơng báo lỗi hiển thị Ghi Trong ứng dụng đơn giản câu lệnh lặp đây, lệnh lặp Do-While Loop địi hỏi mã lệnh lệnh lặp Do While va Do Until Bằng cách thay đổi biểu thức relational test dòng 15, lệnh Do Umtil làm việc Hai lệnh lặp cuối không giảm mã lệnh, trường hợp ứng dụng xác định vòng lặp làm việc tốt Logic 218 Giáo trình học thực hành Visual Basic ban VÒNG LẶP For Khái niệm Vịng lặp For (đơi cịn gọi vịng lặp For-Next) tạo vịng lặp Tuy nhiên, khơng giống vòng lặp Do, vòng lặp For lặp lại số lần xác định Dạng thức vòng lặp For dễ nản chí vịng lặp Do, sau bạn làm chủ lệnh Do, bạn gặp vài vấn để thi hành vòng lặp For mã lệnh bạn cần lặp nhóm mã lệnh với số lần xác định Khơng có vòng lặp tối ưu để sử dụng tất trường hợp Lệnh For cung cấp chế xây dựng vòng lặp thu Visual Basic Một vịng lặp For ln ln bắt đầu với lệnh For kết thúc với lệnh Next Sau dạng thức vòng lặp For: Fer CounterVar = StartVal To EndVal [Step IncrementVal] Block of one or more Visual Basic statements Next CounterVar Vịng lặp Ví dụ 10.4 tính tổng số từ đến 10 Ví dụ 10.4 Cộng số từ đến 10 1: Sum = 2: For Number = To 10 3: Sum = Sum + Number 4: Next Number Number la mét bién dém (counter Var) dang vong lap For (dong 2) Biến đếm phải biến giá trị bắt đầu (StartVal) (dòng 2) Giá trị bắt đầu số, biểu thức hay biến 10 giá trị kết thúc (EndVal) (vẫn dịng 2) Giá trị kết thúc số, biểu thức, hay biến Bước nhảy Step không xác định Trong dạng thức câu lệnh For, Step IncrementVal tùy chọn Nếu bạn không xác định giá trị Step, Visual Basic giả sử giá trị Step Vì vậy, hai lệnh For sau xác nhau: For Number = To 10 Và For Number = To 10 Step Bai 10: Vong lap 219 Vòng lap For tính tổng Ví du 10.4 gan giá trị ban đầu tới CounterVar StartVal dòng Vì vậy, Number gán đầu vịng lặp Lúc đó, Visual Basic thi hành cho Number Với Number vòng lặp: thân vòng lặp giá trị 1, dòng làm việc sau lần Sum = Sum + Khi Visual Basic thi hanh lénh Next Number, Visual Basic tré lai đầu vòng lặp (lệnh For), cộng giá trị Step = vào Number, tiếp tục lặp lại cách sử dụng giá trị Number thân vòng lặp Vì vậy, lần thứ hai qua vịng lặp, dịng làm việc sau: Sum = Sum + Vòng Number lặp tiếp tục việc cộng giá lần vòng lặp thi hành trị Step Khi mặc Number định đạt giá với trị 10 (EndVai), vịng lặp hồn thành lệnh sau lệnh Next tiếp tục Lời nhắc Hãy nhớ, vòng lặp For dừng biến đếm CounterVar có giá trị lớn giá trị EndVal Có ngoại lệ với điều này: bạn viết giá trị Step âm, vòng lặp dừng CounterVar đạt giá trị nhỏ EndVal, bạn thấy lát phần Bạn khơng cần lệnh For để tínb tổng giá trị từ đến 10 Bạn viết lệnh gán dài giống sau: Sum =1+2+34+445+6+7+8+9+10 Bạn viết lại mã lệnh thành câu lệnh gán sau: Sum = Sum + | Sum = Sum + Sum = Sum + Sum = Sum + Sum = Sum +5 Sum = Sum + Sum = Sum + Sum = Sum + Sum = Sum + Sum = Sum + 10 a 220 Giáo trình học thực hành Visual Basic Không phương pháp vơ khó khăn, mà cịn gay cấn chỗ bạn cần để cộng 100 số integer đầu tiên? Ví dụ 10.5 minh họa Ví dụ 10.5 Cộng số từ tdi 100 1:Sum=0 2: For Number = To 100 ' Only this line changes 3: Sum = Sum + Number 4: Next Number Vòng lặp sau hiển thị hộp thông báo (message box): For c = To 20 Step MsgBox "This is a message box" Next c Khái niệm loop iteration la su lap vong Vong lap dém tir đến 20 với bước nhảy 4, đặt giá trị đếm vào biến tên c in hộp thông báo lần Giá trị Step thay đối cách Visual Basie cập nhật CounterVar lần lặp đủ Nếu bạn xác định giá trị Step âm, Visual Basic đếm giảm dân Vòng lặp sau phát tiếng bíp từ loa PC lần: Fori=5 To Step -1 Beep Next i Canh bao Nếu bạn xác định giá trị Step âm, EndVal phải nhỏ StartVal hay Visual Basic thi hành vịng lặp lần Bạn dừng vịng lặp sớm: Đơi khi, bạn xử lý liệu vào người dùng nhiều giá trị liệu sử dụng câu lệnh lặp, ngoại lệ xảy liệu địi hỏi dừng lặp Ví dụ, bạn chọn giá trị lương cho 10 phận cơng ty bên vịng lặp For chia làm 10 lần Tuy nhiên, người dùng nhập vào số cho giá trị lương phận, để khơng có liệu lương cho phận Thay hồn thành việc lặp, Bai 10: Vong lap 221 chương trình bạn có lẽ cần vịng lặp điểm thơng tin báo cáo phận đầy đủ không tập hợp lúc Lệnh Exit Do Exit For tự dừng vịng lặp Khơng quan tâm tới kết kiểm tra quan hệ vòng lặp Do hay số lần lặp lại biến đếm bên trái vòng lặp For, Visual Basic gặp lệnh Exit Do hay Exit For, Visual Basic vịng lặp chuyển việc thi hành xuống câu lệnh sau vịng lặp Điển hình, câu lệnh If kích hoạt lệnh Exit giống sau: For Divisions = To 10 ‘Code to get a sales value If (sales = 0) Then Exit For ' Quit the loop early End If ' Process the rest of the code Next Divisions Lệnh If đảm bảo lệnh Exit For thi hành điều kiện xác định (một giá trị lương thiếu) Khơng có lệnh Exit For kích hoạt điều kiện xác định, vịng lặp thực bình thường Tóm tắt 7í dụ 10.6 bao hàm tồn diện vịng lặp For tính lãi kép cho giá trị đầu tư ban đầu $1,000.00 Mã lệnh xuất bên thủ tục biến cố Click cho nút lệnh có tên Cmdlnt Trong trường hợp bạn không quen với lãi kép, năm tổng số tiền đầu tư, kể tiền đầu tư trước đó, phát sinh thêm tiền lãi Mỗi chu kỳ, thông thường năm, nghĩa tiền đầu tư năm khác phải cộng với giá trị tiền đầu tư Một vòng lặp For hồn hảo cho việc tính tốn đầu tư Ví dụ 10.6 sử dụng vịng tính lãi Ôn lại Vòng lặp For lặp khối gồm hay nhiều mã lệnh Visual Basie Không giống vòng số lần xác định điều khiển For biến lặp Do, vòng lặp For lặp lại giá trị điều khiển lệnh 222 Giáo trình học thực hành Visual Basic Ví dụ 10.6 Dùng vịng lặp For để tính lãi kép _ : Sub cmdlnt_ Click () : ' Use a For loop to calculate a final total investment using compound interest 4: ' Num is a loop control variable :' IRate is the annual interest rate a : ' Term is the Number of years in the investment 7: ' InitInv is the investor's initial investment 8: ' Interest is the total interest paid 9: Dim IRate, Interest As Single 10: Dim Term, Num qs As Integer Dim InitInv As Currency V2: 15: IRate = 08 14: Term =5 15: InitInv = 16: 1000.00 Interest = ' Begin at one for first compound 1: 18: ' Use loop to calculate total compound amount 19: For Num = To Term 20: Interest = Interest * (1 + IRate) 21: Next 22: 23: "Now we have total interest, 24: ‘ calculate the total investment 25: ‘at the end of N years 26: IbIFinallnv.Caption = InitInv * Interest 2#: End Sub Phân tích Phân tích tập trung vào vịng lặp khơng quan tâm tới việc tính tốn Điều quan trọng mà bạn thực lúc làm chủ lệnh lặp For Các dòng đến chứa ghi bao quát Ghi chứa nội dung mô tả biến để nhìn mã lệnh hay thay đổi mã lệnh sau biết biến chứa Bai 10: Vong lap dòng dòng lệnh 223 Sau chương trình định nghĩa 11, biến khởi tạo với 16 Nếu bạn sử dụng thủ tục biến nhãn (label) có tên IblFinallnv vào vào mẫu biểu có tên cmdlnt Dịng tất biến từ dịng đến giá trị ban đầu từ dòng 13 đến cố này, chắn để thêm mẫu biểu thêm nút 15 gây rắc rối cho bạn nhập liệu trừ bạn nhớ ký tự hậu tố liệu mô tả Chương Visual Basic sử dụng dấu pound, #, để giá trị xác kép, Visual Basic giả sử 1000.00 giá trị xác kép (khơng hiểu sao) đối 1000.00 thành 1000# sau bạn nhấn Enter cuối dòng! Đừng lo lắng chọn lựa Visual Basic Phần quan trọng chương trình xuất dịng 19 đến dòng 21 Dòng 19 bắt đầu vòng lặp For lặp qua chu kỳ tỉ giá đầu tư (5 lần), lãi kép số tiền đầu tư theo ngày dòng 20 Một lần nữa, đừng để việc quản lý tài làm bận tâm bạn Việc tính tốn quan trọng việc tìm hiểu trình lặp Sau vịng lặp hồn thành, dịng 26 hồn tất thú lãi kép vào nhãn (label) Bằng cách đó, cố ứng dụng riêng bạn, so tién cửa sổ số xác đơn với nhiều vị tục biến cố việc đặt bạn thi hành thủ tục biến đầu tư xuất trí thập phân Bạn học cách định dạng liệu thành dollar cent Chương Bài tập Kiến thức tổng qt Vịng lặp gì? ch Visual Basic hỗ trợ loại lệnh lặp? Visual Basic hỗ trợ lệnh Do khác nhau? Đúng hay Sai: Một khối chứa lệnh đơn Vịng lặp khơng xác định gì? Bạn tận dụng dùng gây nào? vịng lặp để sửa Có lần vịng lặp sau thi hành? chữa lỗi người Giáo trình học thực hành Visual Basic 224 | =1Ơ Do While | >1 t=I-1 Loop Có lần vòng lặp sau sé thi hành? I=10 Do While | >= I=l-—† Loop Có lần vòng lặp sau thi hành? I= 10 Do Untill >1 l=!-1 Loop 10 Có lần vịng lặp sau thi hành? For | = To 10 Beep Loop 11 Visual Basic hiểu giá trị Step bạn không xác định giá tri Step nao? 12 Lệnh nào, Do hay For, hỗ trợ vòng lặp thường tiếp tục với số lần xác định? 13 Lệnh nào, Do hay For, hỗ trợ vòng lặp thường tiếp tục tùy theo biểu thức kiểm tra quan hệ? 14 Điểm khác vịng lặp Do While Do Until gì? 15 Điểm khác vòng lặp Do While Do—-Loop While gì? 16 Iteration la gi? 17 Bạn ép vịng lặp For đếm xuống thay đếm lên nào? 18 Nếu giá trị khởi tạo ban đầu vòng lặp For lớn giá trị kết thúc, điều cho giá trị tăng thêm? 19 Câu lệnh dừng vòng lặp Do For sớm? Bai 10: Vong lap 225 Lập trình 20 Viết chương trình gán giá trị 34 cho biến sau hỏi người dùng đốn số sử dụng hộp nhận liệu (input box) , Tìm lỗi kỹ thuật 21 Lập trình viên An Huy thiếu kinh nghiệm viết vịng lặp For sau y vịng lặp vơ định Bạn nhận vấn đề khơng? For ¡ = To 25 Total = Total * | i=i-1 Next| 22 An Huy muốn vòng lặp Eor anh lặp di lap lai 100 lan anh có vấn để Hãy cho An Huy biết có sai dịng lệnh sau: For |= 100 To Step1 Phan nang cao Vịng lặp lơng (nested loop) vòng lặp vòng lặp Vịng lặp ngồi xác định có lần vịng lặp thi hành Hãy xem liệu bạn xác định có lần mã lệnh sau phát tiếng bíp tới người dùng khơng For ¡ = To ' The outer loop Forj = To ' The inner loop Beep Next j ' Inner loop completes before Next ¡ ' outer loop iterates again 226 Giáo trình học thực hành Visual Basic Bai thuc hanh Loi ich cua diéu khién Tom tat Chuong chi cho ban cach cung cap tai liéu va diéu khiển chương trình Khi bạn tăng thêm khả trình ung dung Visual Basic, chúng trở nên phức tạp Và lúc đó, q trình bảo trì chương trình thêm khó khăn Cần lưu ý đến thơng tin tóm tắt tài liệu trợ giúp chương trình dịng lệnh phức tạp Bây bạn bổ sung điều khiển vào chương trình cách sử dụng vòng lệnh lặp, để lặp lại phần chương trình Máy tính cơng cụ tuyệt vời cho phép tính lặp nhiều lần trước đưa kết Vòng lặp cung cấp cho bạn cách kiểm tra liệu nhập vào người dùng hay sai lặp lại dấu nhắc nhập liệu để người dùng sử dụng dạng thức giá trị vùng yêu cầu Trong ch ơng này, bạn nắm bắt: e - Cách thích mã lệnh làm tài liệu trợ giúp e Khi hộp thông báo giúp đỡ người dùng nhiều hon diéu khiển nhãn e - Cách nhận kết phản hồi từ hộp nhận liệu e _ Sức mạnh vịng lặp bổ sung chương trình Mơ tả chương trình Hình Pã.1 minh họa ứng dụng PROJECT5.VBP lúc nạp chạy chương trình Mẫu biểu project có nút lệnh, thực nhiệm vụ khác minh họa qua để mục khác Ba nút lệnh thực hành động sau đây: e Nut lénh Color Change thay déi nhanh màu mẫu biếu qua số màu e Nut lénh Odd Entry yêu cầu người dùng nhập số lẻ se Nút lệnh Even Entry yéu cau người dùng nhập số chẩn Bài thực hành 5: Lợi ích điều khiển 227 Get Cortrof Hình P5.1 Màn hình mở project Hoạt động chương trình Nhấp nút lệnh Color Change Màu mẫu biểu đổi màu nhanh phát tiếng bíp Các màu thay đổi nhanh khiến bạn xem tất màu Tiếng bíp thực nhờ lệnh Beep để phát tiếng loa PC lần lúc thay đổi màu Mục đích thật tiếng bíp làm chậm lại q trình thay đổi màu Trong phân lớn máy tính, màu thay đổi q nhanh khơng có tiếng bíp trung gian, bạn khơng thể thấy điểu ngoại trừ cảnh mờ Ngay dùng tiếng bíp, q trình thay đổi màu nhanh khả nhìn thấy mắt bạn Nút lệnh Odd Entry yêu câu người dùng số lẻ, cách dùng hộp nhập minh họa Hình Pð.2 Thủ tục biến cố Click nút lệnh số lẻ trì trình lặp người dùng nhập vào 228 Giáo trình học thực hanh Visual Basic can ban Get Odd Hình P5.2 (hương trình yêu cầu số lẻ Nút lệnh thứ ba, Even Entry, yêu cầu số chẵn trì vịng lặp người dùng nhập số chẵn Thủ tục thay đổi màu Ví dụ Põ.1 trình bày thủ tục biến cố Click nút lệnh Color Change 1: Sub cmdColor_Click () 2: ' Wildly Change the color of the form 3: Dim ColorVal As Integer 4: For ColorVal = To 15 ' Step through the color values 5: frmControl.BackColor = QBColor(ColorVal) 6: Beep ‘ These beeps simply add 7: Beep ' to the intensity of the : 8: Beep ' color change and slow 9: Beep ' things down some 10: Next ColorVal 11: End Sub Mô tả 1: Nút lệnh cmdColor_ Click() tên cmdColor, tên thủ 2: Chú thích giải thích mục đích thủ tục biến cố tục biến 3: Biến số nguyên lưu giá trị thay đổi màu vòng lặp For cố Click Bài thực hành 5: Lợi ích điều khiển 229 4: Dịng bắt đầu vòng lặp For lặp lại 16 lần, trình gán số từ đến 15 cho biến ColorVar 5: Hàm QBColor() có sẵn giúp bạn thay đổi dễ dàng giá trị màu Hàm có sẵn QBColor() đòi hỏi giá trị số cặp ngoặc đơn từ tới 15 Mỗi số đại diện cho giá trị màu khác Sử dụng QBColor() dễ xác định giá trị thập lục phân 6: Lệnh Beep làm chậm trình thay đổi màu thêm dáng vẻ cho chương trình 7: Lệnh Beep làm chậm trình thay đổi màu thêm dáng vẻ cho chương trình 8: Lệnh Beep làm chậm trình thay đổi màu thêm dáng vẻ cho chương trình 9: Lệnh Beep làm chậm chương trình trình thay đổi màu thêm dáng vẻ cho 10: Dòng kết thúc vòng lặp For 11: Dòng kết thúc thủ tục biến cố Lấy giá trị lẻ Khi người dùng nhấp nút Odd Entry, chương trình yêu cầu số lẻ, cách dùng hàm InputBox$Q Hàm InputBox$() đợi giá trị chuỗi Nếu người dùng nhấp nút Cancel, cửa số Form trả lại Ngược lại, thủ tục biến cố chờ đợi số lẻ trì u cầu nhập số với vịng lặp Do người dùng nhập vào số lẻ Ví dụ P5.2 Thủ tục biến cố yêu cầu số lẻ ° 1: Sub cmdOdd_Click () 2: ' Request an odd number 3: Dim OddStr As String 4: Dim OddNum As Integer 5: Do 6: OddStr = InputBox$("Enter an odd number", "Get Odd") 7: If (OddStr =") Then ' Quit if pressed Cancel 8: Exit Do ' Quits the Do loop early 9: End If 10: OddNum = Val(OddStr) / 230 Giáo trình học thực hanh Visual Basic can 11:' The integer OddNum holds the exact value 12: ' of the Val(OddStr) / if OddNum is even 13: Loop Until (OddNum (Val(OddStr)/ 2)) 14: End Sub Mơ tả 1: Thuộc tính Name nút lệnh có giá trị cmdOdd, tên thủ tục biến cố Click cmdOdd_Click() 2: Chú thích giải thích mục đích thủ tục 3: Dịng định nghĩa biến chuỗi lưu kết hàm InputBox$() 4: Dòng định nghĩa biến số nguyên lưu kết hàm InputBox$i) 5: Dòng bắt đầu vòng lặp 6: Chương trình đợi người dùng nhập số lẻ, hiển thị để mục hộp nhập thích hợp Dùng hàm InputBox$() để nhận chuỗi từ người dùng 7: Nếu người dùng nhấn nút lệnh Cancel, chương trình vịng lặp 8: Dịng lệnh kết thúc vòng lặp Do 9: Dòng lệnh kết thúc lệnh Ií 10: Dịng lệnh chuyển chuỗi nhập vào thành số, chia số cho 2, lưu kết biến số ngun 11: Chú thích nhiều dịng mơ tả trình kiểm tra số lẻ 12: Tiếp tục thích dịng 13: OddNum lưu giá trị số ngun tính dịng 10 Nếu biến ngun OddNum có giá trị thập phân từ kết chia giá trị người dùng nhập cho 2, người dùng nhập số lẻ, chương trình cần lặp lại hỏi số lẻ khác 14: Dòng kết thúc thủ tục biến cố Ghi Thủ tục biến cố cmdEven_ Click() việc kiểm tra số chẵn thay số lẻ tương tự cmdOdd Click() ngoại trừ Đóng trình ứng dụng Bây bạn khỏi chương trình Visual Basic Chương giải thích thêm lệnh Visual Basic mơ tả cách bổ sung điều khiển vào mẫu biểu bạn hiển thị số lượng đữ liệu lớn
Ngày đăng: 15/11/2023, 13:25
Xem thêm: