Giáo trình Quản trị cơ sở dữ liệu Access 1 (Nghề: Công nghệ thông tin - Cao đẳng) - Trường Cao đẳng nghề Đồng Tháp

Giáo trình Quản trị cơ sở dữ liệu Access 1 được biên soạn với mục tiêu nhằm giúp sinh viên phân biệt hệ quản trị cơ sở dữ liệu nói chung và hệ quản trị cơ sở dữ liệu Access cụ thể; Nắm được đặc điểm chung của các hệ quản trị CSDL. Mời các bạn cùng tham khảo!

UỶ BAN NHÂN DÂN TỈNH ĐỒNG THÁP TRƯỜNG CAO ĐẲNG NGHỀ ĐỒNG THÁP GIÁO TRÌNH MƠ ĐUN: QUẢN TRỊ CSDL ACCESS NGÀNH, NGHỀ: CƠNG NGHỆ THƠNG TIN (UDPM) TRÌNH ĐỘ: CAO ĐẲNG (Ban hành kèm theo Quyết định Số: /QĐ-CĐCĐ-ĐT ngày tháng Hiệu trưởng Trường Cao đẳng nghề Đồng Tháp) Đồng Tháp, năm 2017 năm 2017 TUYÊN BỐ BẢN QUYỀN Tài liệu thuộc loại sách giáo trình nên nguồn thơng tin phép dùng nguyên trích dùng cho mục đích đào tạo tham khảo Mọi mục đích khác mang tính lệch lạc sử dụng với mục đích kinh doanh thiếu lành mạnh bị nghiêm cấm GIỚI THIỆU VỀ MÔN HỌC HỆ QUẢN TRỊ C SỞ D LIỆU MS ACCESS Vị trí, ý nghĩa, vai trị môn học: Mục tiêu môn học: Sau học xong mơn học học viên có khả năng:  Phân biệt hệ quản trị sở liệu nói chung hệ quản trị sở liệu Access cụ thể  Nắm đặc điểm chung hệ quản trị CSDL  Biết thiết kế CSDL  Dùng thành thạo chức hệ QT CSDL để tạo bảng liệu (DataBase)  Từ bảng liệu ban đầu, tạo bảng liệu với thông tin chắt lọc cần thiết  Thiết kế giao diên, nút lệnh, mã lệnh nhằm khai thác CSDL thiết kế tạo  Dùng số hàm chức để khai thác liệu  Dùng câu lệnh truy vấn liệu để khai thác liệu, kết nối liệu lập Mục tiêu thực môn học: Học xong môn học này, học viên có khả năng: o Thiết kế CSDL dựa yêu cầu thực tế toán đề ra: Các liệu vào, liệu ra, liệu trung gian cần thiết o Tạo lập bảng liệu, xác định liên kết khoá truy nhập o Khai thác hiệu CSDL thiết kế: Xác định yêu cầu truy xuất liệu, thông tin hỗ trợ cho quản lý o Viết câu lệnh cụ thể truy xuất liệu theo điều kiện đưa o Sử dụng thành thạo chức hệ quản trị sở liệu để lập nên chương trình hồn chỉnh thực số chức cụ thể cập nhật liệu, tìm kiếm, thống kê, tổng hợp theo điều kiện yêu cầu o Kết hợp với ngôn ngữ lập trình khác, hệ trị sở liệu khác để liên kết liệu, khai thác liệu, tạo sở liệu khác với thông tin cần thiết phục vụ cho công việc cụ thể Nội dung mơn học: I LÀM VIỆC VỚI HỆ QTCSDL MICROSOFT ACCESS Chủ đề chính: Cách vào mơi trương MS-Access, khái niệm CSDL, tạo CSDL làm việc với CSDL Kỹ thực hành: Thao tác máy nhanh, thành thạo Sử dụng tốt hệ điều hành (môi trường hệ sở liệu) Thái độ học viên : Rèn tính nghiêm túc, cẩn thận II BẢNG (TABLE) Chủ đề chính: Cách sử dụng công cụ để làm việc với bảng như: - Tạo bảng - Đặt khóa tạo mục cho bảng - Nhập sửa liệu cho bảng - Chỉnh sửa cấu trúc cho bảng - Thiết lập quan hệ bảng - Sử dụng thuộc tính trường, kiểm tra tính hợp lệ liệu Kỹ thực hành: Vào, hệ quản trị sở liệu MS-Access Thao tác nhanh, chuyển đổi qua lại ứng dụng linh hoạt Thái độ học viên: Nghiêm túc, cẩn thận, thao tác nhanh suy nghĩ logic III TRUY VẤN D LIỆU (QUERY) Chủ đề chính: Tổng hợp, xếp tìm kiếm liệu Cách xây dựng sử dụng truy vấn để trích lọc liệu Kỹ thực hành: Thành thao thao tác sử dụng máy, tạo truy vấn, chép, cập nhật, thay đổi liệu, thiết lập mối quan hệ bảng để tạo truy vấn Thái độ học viên: Nghiêm túc, chăm IV TRUY VẤN NÂNG CAO Chủ đề chính: Trình bày loại truy vấn như: Truy vấn thông số dung tốn tìm kiếm, Truy vấn crosstab dùng tổng hợp, phân tích, truy vấn dung câu lệnh SQL dùng để hợp bảng liệu, truy vấn hàn động dùng để tạo bảng liệu thêm sửa, xóa thơng tin Kỹ thực hành: Sử dụng thành thạo chức tạo bảng, tạo truy vấn đơn giản Thái độ học viên: Nghiêm túc, chăm chú, cẩn thận V MẪU BIỂU Chủ đề chính: Cách tạo mẫu biểu, trình bày dạng hiển thị mẫu biểu Sắp xếp, điều chỉnh, tạo giao diện cho mẫu biểu Kỹ thực hành: Kỹ thao tác nhanh, xác, thao tác thành thạo đối tượng biểu mẫu Thái độ học viên: Nghiêm túc, chăm chú, cẩn thận, óc thẩm mỹ VI BÁO BIỂU Chủ đề chính: Trình bày khả báo biểu, tạo báo cáo đơn giản, nâng cao, in ấn báo biểu Kỹ thực hành: Thành thạo thao tác, nắm vững phần trước tạo bảng, tạo truy vấn, truy vấn nâng cao, tạo báo biểu Thái độ học viên: Nghiêm túc, chăm chú, cẩn thận VII MACRO Chủ đề chính: Khái niệm Macro, cách tạo macro, dùng macro Kỹ thực hành: Thành thạo thao tác, nắm vững phần trước tạo bảng, tạo truy vấn, truy vấn nâng cao, tạo báo biểu, mẫu biểu Thái độ học viên: Nghiêm túc, chăm chú, cẩn thận VIII MODULE Chủ đề chính: tạo xoá Module, thực viết câu lệnh điều khiển, xử lý liệu, xây dựng hàm, thủ tục người dùng tự định nghĩa Kỹ thực hành: viết thủ tục hàm để thực cho đối tượng khác ACCESS Thái độ học viờn: Nghiờm tỳc, chm chỳ, cn thn Sơ đồ quan hệ theo trình tự học nghề Ghi chú: (Giải thích sơ đồ, đ-a ph-ơng sách thực mô đun/môn học tuỳ thuộc đối t-ợng học: công nhân đà qua sản xuất, dạy phần lý thuyết ) Kỹ thuật An toàn bảo hộ lao động mô đun bắt buộc Mọi học viên phải học đạt kết chấp nhận đ-ợc kiểm tra đánh giá thi kết thúc nh- đà đặt ch-ơng trình đào tạo Những học viên qua kiểm tra thi mà không đạt phải thu xếp cho học lại phần ch-a đạt phải đạt điểm chuẩn đ-ợc phép học tiếp mô đun/ môn học Học viên, chuyển tr-ờng, chuyển ngành.nếu đà học sở đào tạo khác phải xuất trình giÊy chøng nhËn; Trong mét sè tr-êng hỵp cã thĨ phải qua sát hạch lại Cỏc hỡnh thc học tập mơn học Nghe giảng giải lớp về: Các khái niệm HQT CSDL MS Access, môi trường MS Access, phiên bản, thành phần MS Access tables, Queries, Forms, Reports, Macro, Modules Các khái niệm trường, ghi, kiểu liệu MS Access, thuộc tính trường liệu, điều kiện ràng buộc Cách tạo (các bước) CSDL, tạo bảng, truy vấn, biểu mẫu, báo cáo cách tạo khác Tạo lập loại query khác theo điều kiện, thiết lập quan hệ tables, thay đổi điều kiện trích lọc liệu, thao tác liệu Cập nhật, thay đổi liệu kết xuất, hiển thị liệu nhiều dạng, mẫu khác Các bước tạo lập macro chạy ngầm, tạo module xử lý, module phức tạp khác Các kỹ thuật, kỹ kỹ xảo làm việc mơi trường MS Access kỹ phân tích toán xây dựng ứng dụng MS Access Thảo luận nhóm làm tập lớn: Tổ chức thảo luận nhóm nhà lớp tập tình (case study) thực tế phân tích thiết kế, tổ chức quản lý HQT CSDL MS Access, Làm tập trả lời câu hỏi cuối chương, làm tập nhà sửa lớp phòng thực hành Làm tập thực hành: Mỗi học viên giao đề tài (bài toán quản lý ) cụ thể yêu cầu học viên thực theo lý thuyết học Dự án hoàn thành với đầy đủ chức phần mềm quản lý Ngoài ra, học viên thực hành phòng Lab với tập minh họa, kỹ thao tác, xử lý làm việc môi trường MS Access u cầu đánh giá hồn thành mơn học: Về Lý thuyết: Đánh giá thông qua kiểm tra trắc nghiệm : Dùng phần mềm thi trắc nghiệm Kiểm tra trắc nghiệm giấy máy tính Xây dựng ngân hàng câu hỏi, học viên nhận để phát sinh ngẫu nhiên chất lượng đề (trung bình, khá, giỏi, xuất sắc) Thời gian làm tuỳ theo số lượng câu đề Thang điểm 10 chia cho câu Kết đánh giá dựa vào làm theo điểm đạt Về Thực hành: Môn học đánh giá qua bài tập lớn học viên thể thành phần mềm quản lý MS Access bao gồm tài liệu phân tích thiết kế cho sản phẩm Điểm đánh giá cho phần thực hành qua việc chấm điểm sản phẩm vấn đáp trực tiếp sản phẩm mà học viên thực -7- Thang điểm: (đánh giá câu hỏi trắc nghiệm) 0-49 : Khơng đạt 50-69 : Đạt trung bình 70-85 : Đạt 86-100 : Đạt Giỏi -8- BÀI LÀM VIỆC VỚI HQT CSDL MICROSOFT ACCESS Mã bài: ITDBM07.1 (NGHE GIẢNG CÓ THẢO LUẬN) Mục tiêu thực hiện: Học xong học viên có khả năng:  Vào, môi trường MS-Access  Hiểu nắm khái niệm CSDL  Tạo lập CSDL làm việc với CSDL Nội dung: 1.1 iới thiệu MS-Access 1.2 hởi đ ng mơi trường MS-Access 1.3 Tạo m t CSDL 1.4 Làm việc với CSDL tồn 1.5 Các cửa sổ thường sử dụng xây dựng chương trình 1.6 Các thao tác 1.1 Giới thiệu MS Access Cuối năm 80 k trước, hãng Microsoft cho đời hệ điều hành Windows, đánh dấu bước ngoặt phát triển ứng dụng phần mềm giao diện đồ họa GUI- Graphical User Interface-Windows Một ứng dụng bật kèm lúc phần mềm tin học văn phòng Microsoft Offices Từ đời nay, MS Offices phần mềm chiếm thị phần số giới lĩnh vực tin học văn phòng Ngồi ứng dụng văn phịng như: MS Word -để soạn thảo văn bản, tài liệu; MS Excel - bảng tính điện tử; MS Powerpoint – trình di n báo cáo, thuyết trình; cịn phải kể đến phần mềm quản trị sở liệu tiếng kèm:MS Access MS Access phát triển qua nhiều phiên từ MS Access 2.0, MS Access 97 (ra đời năm 1997), MS AccessXP, MS Access 2000, 2002 đến MS Access 2003 Toàn nội dung giáo trình này, chúng tơi giới thiệu Access2003 Về bản, phiên từ Access97 trở lại cách sử dụng gần giống nhau, phiên khác số tính đặc biệt giao diện thao tác Do đó, học Access2003, học viên ln có kiến thức cần thiết để tiếp thu phiên Access sau để nhìn nhận sử dụng tốt phiên trước Và tốt học viên nên sử dụng MS AccessXP MS Access 2002 2003 Vậy, MS Access làm gì, ứng dụng thực tế? MS Access Hệ quản trị sở liệu quan hệ (RDMS- Relational Database management System), phù hợp cho toán quản lý vừa nhỏ Hiệu cao đặc biệt d sử dụng- lẽ giao diện sử dụng phần mềm có điểm tương đồng với phần mềm khác MS Offices mà quen thuộc : MS Word, MS Excel; Ngoài ra, Access cịn cung cấp hệ thống cơng cụ phát triển mạnh kèm Công cụ giúp người phát triển phần mềm đơn giản việc xây dựng trọn gói -9- dự án phần mềm quản lý qui mô vừa nhỏ Đặc biệt, muốn học phát triển phần mềm cách d học nhất, nhanh giải toán Hai ứng dụng MS Access là: Dùng để tổ chức lưu trữ hệ sở liệu (chỉ phần sở liệu, phần phát triển thành phần mềm dùng cơng cụ khác để làm như: Visual Basic, Visual C++, Delphi, NET, Có thể dùng để xây dựng hồn thiện phần mềm quản lý qui mô vừa nhỏ (các sản phẩm phần mềm) Những điểm bậc phiên bảng sau MS Access 2002 2003 so với phiên trước là: Giao diện thân thiện, d sử dụng Công nghệ truy cập liệu ADO – ActiveX Data Objects Ngơn ngữ lập trình VBA cải tiến, đặc biệt MS Access 2000 trở Có khả tạo ứng dụng truy cập sở liệu thông quan giao diện web (web-base) 1.2 hởi động mơi tr ờng MS Access Để khởi động MS Access có nhiều cách:  Vào Menu Start -> Program files - >Microsoft Office – Microsoft Office Access 2003 Hoặc  Vào Menu Start -> Program files - > Microsoft Access (đối với ver 2000 trở trước) Hoặc  Nhấn đúp chuột vào biểu tượng có dạng : MDB Link đến ứng dụng MS Access để mở file có phần mở rộng Sau kích chuột khởi động MS Access, hình sau xuất Hình Màn hình MS Access sau khởi động - 10 - Ví dụ 3: Khai báo biến i kiểu Integer, st kiểu String độ dài 15 ký tự Dim i As Integer, st As String*15 Ví dụ 4: Khai báo biến i kiểu Variant Dim i As Variant ‘hoặc Dim i Ví dụ 5: Khai báo biến txt kiểu Textbox (kiểu đối tượng, object) Dim txt As TextBox Ví dụ 6: Khai báo mảng kiểu String*30 gồm 46 phần tử Dim Hoten(45) As String * 45 Ví dụ 7: Khai báo biến mảng chiều A(i , j) đó: i = j = Dim A(3, 4) As Integer Ví dụ 8: Khai báo mảng chiều A(i, j, k) đó: i = 5; j = k = Dim A(1 To 5, To 9, To 5) As Double Ví dụ 9: Khai báo mảng động kiểu Variant Mảng động mảng không cố định chiều dài Dim MyArray() Khi khai báo biến bạn phải đặt tên cho biến, sau số gợi ý thông thường mà bạn nên tuân thủ đặt tên biến: - Ký tự tên biến nên mô tả kiểu liệu biến, kiểu numeric ì ký tự n, kiểu Character ký tự c Ví dụ nStudentAge,cStudentName - Tên biến nên mơ tả mục đích việc sử dụng biến, ví dụ nSum, nTotal o Tên biến khơng nên có ký tự đặc biệt ! @ # $ % ^ & * ( ) { } [ ] , : ; “ ‘ / \ - Nếu tên biến có khoảng trắng, bạn dùng dấu gạch để nối hai từ lại với ví dụ cStudent_Name Nếu biến có nhiều từ viết liền ký tự từ thuộc tên biến bạn nên viết chữ hoa Ví dụ: iTotalScore, iSumOfSquares Các chữ đứng đầu cho ta biết kiểu liệu biến b Ph m vi biến Như biết, biến sau khai báo nhận kiểu liệu có phạm vi hoạt động, tức lời khai báo biến có tác dụng vùng định; vùng định biến khơng có tác dụng, có tác dụng theo nghĩa khác (biến cục kiểu Variant chẳng hạn) Biến cục bộ: Biến cục khai báo sau từ khố Dim, có tác dụng chương trình con, cục form module Dưới trường hợp biến cục này: - Trong chương trình con, khai báo chương trình đó; - Trong Form, khai báo phần Decralations Form đó; - Trong Reports, khai báo phần Decralations Report đó; - 134 - - Trong Modules, khai báo phần Decralations Modules đó; * Biến có tác dụng sau lệnh khai báo Dim Biến toàn cục: Biến tồn cục khai báo sau cụm từ khố Public, có tác dụng tồn chương trình (ở chỗ viết lệnh) Loại biến phải khái báo vùng Decralations Module Ví dụ: Public Hoten(45) As String * 45 Trên tệp Access, không phép khai báo trùng tên biến toàn cục Tuy nhiên tên biến cục trùng tên biến tồn cục, trường hợp VBA ưu tiên sử dụng biến cục phạm vi c Hằng cách sử dụng Khai báo Hằng (Constan) đại lượng có giá trị xác định khơng bị thay đổi hoàn cảnh Tương ứng với kiểu liệu, có tương ứng Khai báo số từ khoá Const Sau ví dụ khai báo loại hằng: Ví dụ 1: Hằng a =5 (hằng số) Const a = Ví dụ 2: Hằng ngày = 24 12 2004 kiểu Date (bao cặp dấu thăng # #) Const = #24/12/2004# Ví dụ 3: Hằng xâu ký tự (bao cặp dấu nháy kép ) Const phongban = "Tài vụ" Ví dụ 4: Hằng kiểu Lơgíc xác định True False Const ok = True Phạm vi Tương tự biến, có phạm vi hoạt động Hằng khai báo thủ tục nào, cục form, report module có tác dụng phạm vi Muốn có phạm vi tồn cục, phải khai báo sau từ khoá Public Const, vùng Decralations module sau: Public Const a = 12 8.4.3 Các cấu tr c lệnh VBA Các cấu trúc lệnh thành phần ngơn ngữ lập trình Thơng thường ngơn ngữ lập trình có cấu trúc lệnh nhau: lệnh xử lý điều kiện, lệnh lặp biết trước số vịng lặp, lệnh lặp khơng biết trước số vòng lặp, Tuy nhiên cách thể (cú pháp) cấu trúc lệnh khác tuỳ thuộc vào ngơn ngữ lập trình Hơn nữa, ngơn ngữ có số điểm khác biệt, đặc trưng cấu trúc lệnh Cũng giống nhiều ngơn ngữ lập trình đại khác, cấu trúc lệnh VBA tuân thủ nguyên tắc: - Có cấu trúc: cấu trúc lệnh có từ khố bắt đầu từ khóa báo hiệu kết thúc; - Thực (loại trừ trường hợp đặc biệt thủ tục Goto ); - Có khả lồng nhau; - 135 - Cấu trúc IF… END IF Cấu trúc thường gọi lệnh lựa chọn, rẽ nhánh Tức điều kiện xảy làm gì, trái lại làm Trong VBA cú pháp lệnh sau: If Then [ Else ] End If Ý nghĩa lệnh là: = True thực lệnh Trái lại thực lệnh Phần cặp dấu ngoặc vng [ ] có khơng có câu lệnh, tuỳ thuộc vào mục đích xử lý Ví dụ 1: Kiểm tra trả lời số ch n hay lẻ? If so Mod = Then Msgbox “Là số chẵn !” Else Msgbox “Là số lẻ !” End If Cho biết tháng (số nguyên) rơi vào đầu năm (1 4), năm (5 8) hay cuối năm (9//12)? If thang >=9 Then Msgbox “Cuối năm “ Else If thang >=5 Then Msgbox “ iữa năm “ Else Msgbox “Đầu năm “ End If End If Cấu trúc SELECT CASE END SELECT Đây loại cấu trúc lựa chọn Thơng thường hồn tồn sử dụng If End If để thực xử lý liên quan đến kiểu cấu trúc này, trường hợp đặc biệt, cấu trúc Select Case End Select thể tiện dụng vượt trội Trong VBA cú pháp lệnh sau: - 136 - Select Case Case Case ……… Case [Case Else ] End Select Trong đó: ln trả giá trị kiểu vô hướng đếm như: số nguyên, xâu ký tự, kiểu lơ gíc, Với cấu trúc này, VBA hoạt động sau: (1) Tính giá trị biểu thức (2) Kiểm tra = ? - Nếu thực kết thúc lệnh, thực lệnh sau từ khoá End Select - Nếu sai, thực tiếp việc so sánh = xử lý tương tự qui trình nêu (3) Trong trường hợp , i=1 n có khả năng: - Nếu có tuỳ chọn Case Else VBA thực ; - Nếu khơng có tuỳ chọn Case Else, VBA không thực thủ tục liệt kê vùng Select End Select mà chuyển tới thực lệnh sau từ khoá End Select Xét ví dụ sau: Kiểm tra số nguyên (so) trả tên tiếng Anh tháng tương ứng với số ngun (biến thang) , ví dụ: - Janualy - Februaly … 12 - December >12 - Khơng xác định Nếu dùng lệnh If hồn tồn đáp ứng tốn này, thay vào tập hợp 12 lệnh If Else End If sau: If so = Then thang = "Jan" Else If so = Then thang = "Feb" - 137 - Else If so = Then thang = "Mar" Else If so = Then thang = "Apr" Else If so = Then thang = "May" Else If so = Then thang = "Jun" Else If so = Then thang = "Jul" Else If so = Then thang = "Aug" Else If so = Then thang = "Sep" Else If so = 10 Then thang = "Oct" Else If so = 11 Then thang = "Nov" Else If so = 12 Then thang =”Dec” Else thang =”không đúng” End If End If End If End If End If End If End If End If End If End If End If - 138 - Tuy nhiên sử dụng Select Case End Select, cấu trúc gọn gàng sáng sủa nhiều Cụ thể sau: Select Case so Case thang = "Jany" Case thang = "Feb" Case thang = "Mar" Case thang = "Apr" Case thang = "May" Case thang = "Jun" Case thang = "Jul" Case thang = "Aug" Case thang = "Sep" Case 10 thang = "Oct" Case 11 thang = "Nov" Case 12 thang = "Dec" Case Else thang = "Không xác định" End Select Cấu trúc FOR … NEXT For… Next cấu trúc lặp biết trước số lần lặp VBA, nhiên tình đặc biệt, sử dụng cấu trúc cấu trúc trước số lần lặp Cú pháp cấu trúc For…Next sau: - 139 - For = To [Step ] [Exit For] Next Trong đó: - biến kiểu vơ hướng đếm được, hay dùng biến kiểu nguyên; - , giá trị mà biến chạy nhận thực dịch chuyển sau lần lặp Có thể dịch chuyển đơn vị, dịch chuyển nhiều đơn vị lần, dịch chuyển tiến, dịch chuyển lùi- tất điều tuỳ thuộc vào việc có hay khơng có tuỳ chọn [Step ]; - Nếu có tuỳ chọn [Step ] biến chạy dịch n đơn vị sau lần lặp Khi đó, n>0 dẽ dịch tiến, ngược lại dịch lùi; - Mỗi lần lặp, VBA thực lần; - Trong trường hợp đặc biệt gặp phải lệnh Exit For vòng lặp, thoát khỏi lệnh lặp thực lệnh tiếp sau từ khố Next Chính Exit For làm tính lặp biết trước số lần lặp loại lệnh Tiếp theo ví dụ: Ví dụ 1: Tính tổng số từ đến 50, giá trị lưu vào biến tong Dim i As Byte Dim tong As Integer tong = For i = To 50 tong = tong +i Next Msgbox tong Ví dụ 2: Tính tổng số chia hết cho từ đến 50, giá trị lưu vào biến tong Dim i As Byte Dim tong As Integer tong = For i = To 50 Step tong = tong +i Next Msgbox tong Lệnh For ví dụ khác lệnh For ví dụ chỗ Step Vì = số chia hết cho 3, nên tất giá trị i lại chia hết cho (vì i = i +3) Ví dụ 3: Kiểm tra số nguyên (>2) có phải nguyên tố hay không? - 140 - Dim so As Integer Dim uoc As Integer Dim nguyento As Boolean nguyento = True For uoc = To Int(so / 2) If so Mod uoc = Then nguyento = False Exit For End If Next If nguyento Then Msgbox "là nguyên tố" Else Msgbox "không nguyên tố !" End If Giải thuật đơn giản để xác định số có phải ngun tố hay khơng là: xác định xem tất số (uoc) trở thành ước số (so) cần kiểm tra Nếu tìm ước thực đầu tiên, kết luận số nguyên tố lệnh nguyento = False thoát khỏi vòng lặp lệnh Exit For; trường hợp xét tồn ước mà khơng tìm số ước thực sự, kết luận số nguyên tố (biến nguyento = True giá trị ban đầu) Cấu trúc WHILE … WEND While … Wend cấu trúc lặp trước số lần lặp VBA.Cú pháp cấu trúc While…Wend sau (Wend - viết tắt cụm từ While End): While Wend Trong đó: - While, Wend từ khoá lệnh lặp; - Nếu = True, lệnh thực Thực xong lại quay lên dòng lệnh While để kiểm tra tiếp ; - Nếu = False, khỏi vịng lặp thực lệnh từ khoá Wend Chú ý: Luôn phải chứng minh rằng, sau số hữu hạn lần thực , giá trị phải False để khỏi vịng lặp Trong trường hợp khơng thể khỏi vịng lặp, có nghĩa người lập trình mắc phải lỗi lặp vơ hạn Có thể dẫn đến chương trình bị treo Các ví dụ: Ví dụ 1: Tính tổng số chia hết cho khoảng từ đến 50 - 141 - Dim i As Byte Dim tong As Integer tong = i=3 While i