Bài giảng Tin học ứng dụng trong kinh doanh - Chương 7: Modules. Những nội dung chính được trình bày trong chương này gồm có: tìm hiểu ngôn ngữ lập trình Visual Basic, các cấu trúc lệnh. để biết thêm các nội dung chi tiết. | CHƯƠNG 7: MODULE MICROSOFT ACCESS Nội dung của chương Tìm hiểu ngôn ngữ lập trình Visual Basic Các cấu trúc lệnh 3 Lập trình sự kiện Code Builder Private Sub UserForm_Click( ) câu lệnh 1 câu lệnh 2 . End Sub 4 Lập trình sự kiện (tiếp) Private Sub UserForm_Click( ) MsgBox "VBA chao cac ban lop THKT" End Sub 5 KHAI BÁO BIẾN PHÉP GÁN VISUAL BASIC 6 Khai báo biến và câu lệnh gán Private Sub UserForm_Click( ) Dim a as Integer a = 7 MsgBox a End Sub 7 Khai báo biến và câu lệnh gán (tiếp) Private Sub UserForm_Click( ) Dim a as Integer Dim b as Integer a = 7 b = a + 3 MsgBox b End Sub 8 Kiểu nguyên Kích thước Phạm vi Byte 1 byte 0 đến 255 Integer 2 bytes -32,768 đến 32,767 Long 4 bytes -2,147,483,648 đến 2,147,483,647 Kiểu dữ liệu 9 Kiểu thực Kích thước Phạm vi Single 4 bytes Từ đến và từ đến Double 8 bytes đến và từ đến Currency 8 bytes Từ -922,337,203,685, đến 922,337,203,685, Kiểu dữ liệu (tiếp) 10 Ví dụ Dim a as Double Dim b as Double Dim c as Double a = b = c = a + b Msgbox c 11 Ví dụ khác Dim a as Integer Dim b, c as Double a = 8 b = 7/3 c = a + b Msgbox c 12 Kiểu dữ liệu chuỗi Ví dụ 1: Dim name as String name = “James Bond” Ví dụ 2: Dim firstname as String Dim lastname as String Dim fullname as String firstname = “David” lastname = “Coperfield” fullname = firstname & “ ” & lastname 13 Kiểu dữ liệu logic Dim abc as Boolean abc = (1 > 2) Msgbox abc abc = (2 Khác > Lớn hơn = Lớn hơn hoặc bằng <= Nhỏ hơn hoặc bằng 17 Toán tử logic Toán tử Ý nghĩa Not Logic phủ định And Logic VÀ Or Logic HOẶC 18 Ví dụ Người dùng gõ nội dung . | CHƯƠNG 7: MODULE MICROSOFT ACCESS Nội dung của chương Tìm hiểu ngôn ngữ lập trình Visual Basic Các cấu trúc lệnh 3 Lập trình sự kiện Code Builder Private Sub UserForm_Click( ) câu lệnh 1 câu lệnh 2 . End Sub 4 Lập trình sự kiện (tiếp) Private Sub UserForm_Click( ) MsgBox "VBA chao cac ban lop THKT" End Sub 5 KHAI BÁO BIẾN PHÉP GÁN VISUAL BASIC 6 Khai báo biến và câu lệnh gán Private Sub UserForm_Click( ) Dim a as Integer a = 7 MsgBox a End Sub 7 Khai báo biến và câu lệnh gán (tiếp) Private Sub UserForm_Click( ) Dim a as Integer Dim b as Integer a = 7 b = a + 3 MsgBox b End Sub 8 Kiểu nguyên Kích thước Phạm vi Byte 1 byte 0 đến 255 Integer 2 bytes -32,768 đến 32,767 Long 4 bytes -2,147,483,648 đến 2,147,483,647 Kiểu dữ liệu 9 Kiểu thực Kích thước Phạm vi Single 4 bytes Từ đến và từ đến Double 8 bytes đến và từ đến Currency 8 bytes Từ .
