Bài giảng Thực tập chuyên ngành Visual Basic trình bày nội dung thông qua các chương sau: chương 1 giới thiệu, chương 2 làm việc với các điều khiển, chương 3 menu và dialogbox, chương 4 biến và toán từ, chương 5 sử dụng các cấu trúc quyết định, chương 6 các cấu trúc lặp,...
BỘ GIAO THÔNG VẬN TẢI TRƢỜNG ĐẠI HỌC HÀNG HẢI BỘ MƠN: KỸ THUẬT MÁY TÍNH KHOA: CƠNG NGHỆ THƠNG TIN BÀI GIẢNG THỰC TẬP CHUYÊN NGÀNH VISUAL BASIC TÊN HỌC PHẦN MÃ HỌC PHẦN TRÌNH ĐỘ ĐÀO TẠO DÙNG CHO SV NGÀNH : THỰC TẬP CHUYÊN NGÀNH VB : 17315 : ĐẠI HỌC CHÍNH QUY : CƠNG NGHỆ THƠNG TIN HẢI PHÒNG - 2011 MỤC LỤC YÊU CẦU VÀ NỘI DUNG CHI TIẾT Chương 1: GIỚI THIỆU 1.1 Môi trường phát triển Visual Studio.net 1.1.1 Khởi động visual studio.NET 1.1.2 Mở dự án VB.NET 1.2 Các công cụ Visual Studio.NET 1.2.2 Cửa sổ Properties 10 1.2.3 Thoát khỏi Visual Studio 12 1.3 Bài tập cuối chương 12 Chương 2: LÀM VIỆC VỚI CÁC ĐIỀU KHIỂN 13 1.1 Điều khiển TextBox - chương trình HELLOWORLD 13 1.1.1 Tìm hiểu chương trình 13 1.1.2 Thiết kế chương trình 13 1.1.3 Viết mã lệnh 15 2.2 Điều khiển DATETIMEPICKER – Chương trình Birthday 16 2.1.1 Tìm hiểu chương trình 16 2.1.2 Xây dựng giao diện 16 2.1.3 Viết mã lệnh cho chương trình 17 2.3.1 CheckBox – chương trình MyCheckBox 17 2.3.2 Một số điều khiển khác 18 2.4 Bài tập cuối chương 22 Chương 3: MENU VÀ DIALOGBOX 23 3.1 Điều khiển MainMenu – chương trình MyMenu 23 3.1.1 Thiết kế giao diện xây dựng chương trình 23 3.1.2 Thêm phím truy cập vào mục chọn lệnh menu 24 3.1.3 Thay đổi thứ tự mục chọn 24 3.1.4 Xử lý mục chọn 24 3.1.5 Chạy chương trình MyMenu 25 3.2 Các hàm thuộc tính thời gian hệ thống 25 3.3 Các điều khiển DialogBox chuẩn 25 3.3.1 Thêm hộp thoại chuẩn vào project 26 3.3.2 Thêm mục File vào menu 27 3.3.3 Viết mã chương trình 27 Chương 4: BIẾN VÀ TOÁN TỬ 31 4.1 Câu lệnh 31 4.2 Sử dụng biến 31 4.2.1 Sử dụng biến để chứa thông tin 31 4.2.2 Sử dụng biến chương trình 31 4.2.3 Sử dụng biến để chứa liệu nhập từ vào 32 4.2.4 Sử dụng biến nhận kết xuất 33 4.3 Các kiểu liệu 34 4.4 Hằng 37 4.5 Toán tử 38 4.5.1 Các toán tử sở: +, -, *, / 38 4.5.2 Sử dụng toán tử : , Mod, ^, & 39 4.6 Làm việc với phương thức thư viện NET 40 4.7 Bài tập cuối chương 41 Chương 5: SỬ DỤNG CÁC CẤU TRÚC QUYẾT ĐỊNH 42 5.1 Lập trình hướng kiện 42 5.2 Sử dụng biểu thức điều kiện 42 5.3 Câu lệnh If…Then 42 5.3.1 Kiểm tra nhiều điều kiện cấu trúc If…Then 43 5.3.2 Các toán tử logic biểu thức điều kiện 43 5.4 Câu lệnh Select Case 44 5.5 Bài tập cuối chương 45 Chương 6: CÁC CẤU TRÚC LẶP 47 6.1 Vòng lặp For…Next 47 6.2 Vòng lặp DO LOOP 49 6.3 Bài tập cuối chương 50 Chương 7: MODULE, HÀM VÀ THỦ TỤC 52 7.1 Làm việc với MODULE 52 7.1.1 Tạo lưu module chuẩn 52 7.2 Làm việc với biến Public 54 7.3 Hàm (FUNCTION) 56 7.3.1 Khai báo hàm 56 7.3.2 Gọi hàm 57 7.3.3 Sử dụng hàm 57 7.4 Thủ tục 59 7.5 Truyền đối số theo tham trị tham biến 59 7.6 Bài tập cuối chương 59 Chương 8: MẢNG 60 8.1 Khai báo mảng 60 8.2 Làm việc với phần tử mảng 61 8.3 Mảng có kích thước cố định 61 8.4 Mảng động 63 8.5 Câu lệnh REDIM 63 8.6 Bài tập cuối chương 64 Chương 9: ADO.NET 65 9.1 Lập trình với ADO.NET 65 9.1.1 Một số thuật ngữ 65 9.1.2 Làm việc với sở liệu Access 65 9.1.3 Đối tượng Data Adapter 68 9.1.4 Sử dụng đối tượng điều khiển OleDbDataAdapter 68 9.2 Sử dụng điều khiển ràng buộc liệu 73 9.3 Tạo điều khiển duyệt xem liệu 75 9.4 Hiển thị vị trí ghi hành 76 9.5 Đối tượng DatagridView 77 9.6 Định dạng ô lưới DataGridView 82 9.7 Cập nhật sở 83 9.8 Bài tập cuối chương 84 ĐỀ THI 85 HƯỚNG DẪN GIẢI 87 YÊU CẦU VÀ NỘI DUNG CHI TIẾT Tên học phần: Thực tập chuyên ngành Visual Basic Bộ mơn phụ trách giảng dạy: Kỹ thuật Máy tính Mã học phần: 17315 TS tiết 45 Lý thuyết Thực hành/Xemina 45 Tự học Loại học phần: Khoa phụ trách: CNTT Tổng số TC: Bài tập lớn Đồ án môn học Điều kiện tiên quyết: Sinh viên phải học xong học phần sau đăng ký học phần này: Tin học đại cương, Ngơn ngữ lập trình C, Cấu trúc liệu giải thuật Mục tiêu học phần: - Cung cấp cho sinh viên kỹ mở đầu ngôn ngữ lập trình hướng kiện hệ điều hành Windows Nội dung chủ yếu - Những vấn đề ngơn ngữ lập trình VB.NET - Cách thức xây dựng chương trình dựa ngơn ngữ lập trình VB.NET Nội dung chi tiết học phần: TÊN CHƢƠNG MỤC Chƣơng I: Giới thiệu 1.1 Môi trường phát triển Visual Studio 1.2 Các công cụ Visual Studio Chƣơng II: Làm việc với điều khiển 2.1 Điều khiển TextBox 2.2 Điều khiển DateTimePicker 2.3 Các điều khiển khác Chƣơng III: Menu Dialog Box 3.1 Điều khiển Menu 3.2 Các hàm thời gian hệ thống 3.3 Các điều khiển Dialogbox Chƣơng IV: Biến toán tử 4.1 Câu lệnh 4.2 Sử dụng biến 4.3 Các kiểu liệu 4.4 Hằng 4.5 Toán tử 4.6 Làm việc với phương thức thư viện net Chƣơng V: Sử dụng cấu trúc định 5.1 Lập trình hướng kiện 5.2 Sử dụng biểu thức điều kiện 5.3 Câu lệnh If Then 5.4 Câu lệnh Select Case Chƣơng VI: Các cấu trúc lặp 6.1 Vòng lặp For Next 6.2 Vòng lặp Do Loop Chƣơng VII: Module, hàm thủ tục 7.1 Làm việc với Module TS 4 4 PHÂN PHỐI SỐ TIẾT LT TH/Xemina BT 1 1 0.5 0.5 1 0.5 0.5 1 2 KT TÊN CHƢƠNG MỤC 7.2.Làm việc với biến Public 7.3 Hàm (Function) 7.4 Thủ tục 7.5 Truyền đối số theo tham trị tham chiếu Chƣơng VIII: Mảng 8.1 Khai báo mảng 8.2 Làm việc với phần tử mảng 8.3 Mảng có kích thước cố định 8.4 Mảng động 8.5 Câu lệnh Redim Chƣơng IX: ADO.NET 9.1 Lập trình với ADO.NET 9.2.Sử dụng điều khiển ràng buộc liệu 9.3 Tạo điều khiển duyệt xem liệu 9.4 Hiển thị vị trí ghi hành 9.5 Đối tượng DatagridView 9.6 Định dạng ô lưới DatagridView 9.7 Cập nhật sở liệu TS PHÂN PHỐI SỐ TIẾT LT TH/Xemina BT 1 0.5 0.5 0.5 0.5 0.5 0.5 1 1 1 KT Nhiệm vụ sinh viên: Tham dự buổi thuyết trình giáo viên, tự học, tự làm tập giáo viên giao, tham dự buổi thực hành, kiểm tra định kỳ cuối kỳ Tài liệu học tập: Microsoft Visual Basic 2005 step by step, Microsoft Press Tim Patrik, Programming Visual Basic 2008, O‟reilly Microsoft ADO.NET, Microsoft Express Hình thức tiêu chuẩn đánh giá sinh viên: - Hình thức thi cuối kỳ : Thi máy tính - Đánh giá dựa tình hình tham dự buổi thực hành, điểm kiểm tra thường xuyên điểm kết thúc học phần Thang điểm: Thang điểm chữ A, B, C, D, F Điểm đánh giá học phần: Z = 0,3X + 0,7Y (n=3; X = (X1 + X2 + X3)/3) Bộ phận biên soạn (Ký, ghi rõ họ tên) Trƣởng Bộ môn (Ký, ghi rõ họ tên) Ngày phê duyệt: / / 2012 Trƣởng đơn vị (Ký, ghi rõ họ tên) Chƣơng 1: GIỚI THIỆU 1.1 Môi trƣờng phát triển Visual Studio.net Mặc dù ngôn ngữ mà ta học Visual Basic môi trường phát triển sử dụng để viết chương trình IDE - Mơi trường phát triển tích hợp Microsoft Visual Studio - Microsoft Visual Studio Integrated Development Environment Visual Studio môi trường phát triển mạnh mẽ cung cấp tất công cụ bạn cần để tạo chương trình lớn cho Windows hay ứng dụng Web cách nhanh chóng hiệu Tất đặc điểm Visual Studio ứng dụng cho ngôn ngữ Visual Basic, Visual C++, Visual C# Visual J# 1.1.1 Khởi động visual studio.NET Bƣớc Tại tác vụ Windows, chọn Start, All Programs chọn thư mục Microsoft Visual Studio 2005 ta thấy danh sách thư mục biểu tượng thư mục Microsoft Visual Studio 2005 Bƣớc 2: Chọn vào biểu tượng Microsoft Visual Studio 2005 Khi ta chọn vào biểu tượng khởi động, Visual Studio khởi động ta thấy môi trường phát triển hình với nhiều thực đơn menu, công cụ cửa sổ thành phần (các cửa sổ cơng cụ) Ta Start Page, có chứa liên kết, thơng tin MSDN lựa chọn project Trong Visual Studio 2005, Start Page cải tiến nhiều nguồn thơng tin đầy đủ chương trình Bên cạnh cịn có thực đơn Community cung cấp cho nguồn truy nhập vào thơng tin Hình 1.1 - Trang khởi động Start Page 1.1.2 Mở dự án VB.NET Bƣớc Chọn mục Open Projects/Solutions Start Page Hộp thoại Open Project xuất hình với lựa chọn, ta mở hộp thoại cách nhấn vào mục Open Project menu File bấm tổ hợp phím Ctrl + O Hình 1.2 - Mở Project Bƣớc Duyệt đến thư mục chứa project mà ta muốn mở Ví dụ ta mở thư mục c:\vb05sbs (Thư mục C:\vb05sbs thư mục mặc định cho chương trình giáo trình này.) Hình 1.3 - Duyệt tới thư mục chứa Project Bƣớc Mở thư mục chap01\musictrivia chọn file MusicTrivia.sln 1.2 Các công cụ Visual Studio.NET VS.NET cung cấp nhiều cơng cụ tiện ích cho người lập trình Chúng ta tìm hiểu dần trình học Ở ta tìm hiểu hai cửa sổ chính, cửa sổ Designer cửa sổ Properties 1.2.1 Cửa sổ Designer Nếu thành công, project MusicTrivia mở môi trường phát triển Visual Studio Tuy nhiên, ta chưa thấy biểu mẫu điều khiển khác Để làm cho biểu mẫu hiển thị, ta dùng cửa sổ Solution Explorer Hiển thị cửa số Designer: Chọn cửa sổ Solution Explorer góc phải hình Studio Nếu bạn không thấy cửa sổ này, chọn vào mục Solution Explorer menu View Khi project mở, cửa sổ Solution Explorer trơng sau: Hình 1.4 - Cửa sổ Design Chọn vào mục View Designer cửa sổ Solution Explorer để hiển thị giao diện chương trình Biểu mẫu Music Trivia hiển thị Designer hình đây: Hình 1.5 - Thực thi Project Music Trivia Ta thấy tab Start Page nằm bên cạnh MusicTrivia đầu cửa sổ Designer, bạn chọn để hiển thị trang khởi động Start Page Để trở hình Designer project, bấm chuột vào MusicTrivia.vb[Design] Thực thi chƣơng trình Visual Basic: Bƣớc 1: Bấm nút Start Debugging (phím mũi tên màu xanh) công cụ Toolbar để thực thi chương trình Music Trivia Visual Studio Hình 1.6.1 - Chương trình Music Trivia Music Trivia hỏi câu hỏi: What rock and roll instrument is often played with sharp, slapping thumb movements? Bƣớc 2: Bấm vào Answer để biết câu trả lời Chương trình hiển thị câu trả lời cho câu hỏi bên Câu Giao diện: Mã lệnh: Imports System.Data.OleDb Public Class Bai3C2 Private Sub Bai3C2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load datThongTin.ColumnCount = datThongTin.Columns(0).HeaderText = "Ma NV" datThongTin.Columns(1).HeaderText = "Ten NV" datThongTin.Columns(2).HeaderText = "Bo Phan" datThongTin.Columns(0).Width = 50 datThongTin.Columns(1).Width = 120 datThongTin.Columns(2).Width = 120 Dim As OleDbConnection Dim cmd As OleDbCommand Dim result As OleDbDataReader Dim intRowIndex As Integer = New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;data source=C:\mdbKiemTra.mdb") con.Open() cmd = New OleDbCommand("Select * from tblBai3 order by MaNV", con) result = cmd.ExecuteReader datThongTin.RowCount = intRowIndex = Do While result.Read() datThongTin.RowCount = datThongTin.RowCount + datThongTin.Item(0, intRowIndex).Value = result(0) datThongTin.Item(1, intRowIndex).Value = result(1) datThongTin.Item(2, intRowIndex).Value = result(2) intRowIndex = intRowIndex + Loop result.Close() cmd.Dispose() con.Dispose() End Sub 93 Private Sub cmdThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdThoat.Click Me.Dispose() End Sub Private Sub cmdtimkiem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTimKiem.Click Dim strBoPhan As String strBoPhan = txtBoPhan.Text Dim As OleDbConnection Dim cmd As OleDbCommand Dim result As OleDbDataReader Dim intRowIndex As Integer = New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;data source=C:\mdbKiemTra.mdb") con.Open() cmd = New OleDbCommand("select * from tblBai3 where bophan='" & strBoPhan & "'", con) result = cmd.ExecuteReader datThongTin.RowCount = intRowIndex = Do While result.Read() datThongTin.RowCount = datThongTin.RowCount + datThongTin.Item(0, intRowIndex).Value = result(0) datThongTin.Item(1, intRowIndex).Value = result(1) datThongTin.Item(2, intRowIndex).Value = result(2) intRowIndex = intRowIndex + Loop result.Close() cmd.Dispose() con.Dispose() End Sub End Class Đề số Câu Giao diện: Mã lệnh: Public Class Bai4 Private Sub cmdThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdThoat.Click Me.Dispose() 94 End Sub Private Sub cmdTinh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTinh.Click Dim x As Double Dim n As Integer Dim i As Integer Dim s As Double s=0 x = Val(txtX.Text) n = Val(txtN.Text) For i = To n s = s + x / (i * (i + 2)) Next txtS.Text = s End Sub End Class Câu Giao diện: Mã lệnh: Imports System.Data.OleDb Public Class Bai4C2 Private Sub Bai4C2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load datThongTin.ColumnCount = datThongTin.Columns(0).HeaderText = "Ma NV" datThongTin.Columns(1).HeaderText = "Ten NV" datThongTin.Columns(2).HeaderText = "Bo Phan" datThongTin.Columns(0).Width = 50 datThongTin.Columns(1).Width = 120 datThongTin.Columns(2).Width = 120 Dim As OleDbConnection Dim cmd As OleDbCommand Dim result As OleDbDataReader Dim intRowIndex As Integer 95 = New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;data source=C:\mdbKiemTra.mdb") con.Open() cmd = New OleDbCommand("Select * from tblBai4 order by MaNV", con) result = cmd.ExecuteReader datThongTin.RowCount = intRowIndex = Do While result.Read() datThongTin.RowCount = datThongTin.RowCount + datThongTin.Item(0, intRowIndex).Value = result(0) datThongTin.Item(1, intRowIndex).Value = result(1) datThongTin.Item(2, intRowIndex).Value = result(2) intRowIndex = intRowIndex + Loop result.Close() cmd.Dispose() con.Dispose() End Sub Private Sub cmdThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdThoat.Click Me.Dispose() End Sub Private Sub cmdthem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdThem.Click Dim strMaNV As String Dim strTenNv As String Dim strBoPhan As String strMaNV = txtMaNV.Text strTenNv = txtTenNV.Text strBoPhan = txtBoPhan.Text Dim As OleDbConnection Dim cmd As OleDbCommand = New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;data source=C:\mdbKiemTra.mdb") con.Open() cmd = New OleDbCommand("insert into tblBai4 values ('" & strMaNV & "','" & strTenNv & "','" & strBoPhan & "')", con) cmd.ExecuteNonQuery() cmd.Dispose() con.Dispose() Bai4C2_Load(sender, e) End Sub End Class 96 Đề số Câu Giao diện: Mã lệnh: Public Class Bai5 Private Sub cmdTinh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTinh.Click Dim x As Double Dim y As Double Dim s As Double x = Val(txtX.Text) y = Val(txtY.Text) If x c And a + c > b And b + c > a) Then p = (a + b + c) / s = Math.Sqrt(p * (p - a) * (p - b) * (p - c)) txtKQ.Text = "Chu vi = " & * p & ", dien tich = " & s Else txtKQ.Text = "Khong phai la tam giac" End If End Sub Private Sub cmdThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdThoat.Click Me.Dispose() End Sub End Class 100 Câu Giao diện: Mã lệnh: Imports System.Data.OleDb Public Class Bai6C2 Private Sub Bai6C2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load datThongTin.ColumnCount = datThongTin.Columns(0).HeaderText = "Ma VT" datThongTin.Columns(1).HeaderText = "Ten VT" datThongTin.Columns(2).HeaderText = "So Luong" datThongTin.Columns(3).HeaderText = "DVT" datThongTin.Columns(0).Width = 50 datThongTin.Columns(1).Width = 120 datThongTin.Columns(2).Width = 100 datThongTin.Columns(3).Width = 100 Dim As OleDbConnection Dim cmd As OleDbCommand Dim result As OleDbDataReader Dim intRowIndex As Integer = New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;data source=C:\mdbKiemTra.mdb") con.Open() cmd = New OleDbCommand("Select * from tblBai6 order by Mavt", con) result = cmd.ExecuteReader datThongTin.RowCount = intRowIndex = Do While result.Read() datThongTin.RowCount = datThongTin.RowCount + datThongTin.Item(0, intRowIndex).Value = result(0) datThongTin.Item(1, intRowIndex).Value = result(1) datThongTin.Item(2, intRowIndex).Value = result(2) datThongTin.Item(3, intRowIndex).Value = result(3) intRowIndex = intRowIndex + Loop 101 result.Close() cmd.Dispose() con.Dispose() End Sub Private Sub cmdThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdThoat.Click Me.Dispose() End Sub Private Sub cmdxoa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdXoa.Click Dim strSoLuong As String strSoLuong = txtSoLuong.Text Dim As OleDbConnection Dim cmd As OleDbCommand = New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;data source=C:\mdbKiemTra.mdb") con.Open() cmd = New OleDbCommand("delete from tblBai6 where soluong " & strSoLuong, con) cmd.ExecuteNonQuery() cmd.Dispose() con.Dispose() Bai6C2_Load(sender, e) End Sub End Class Đề số Câu Giao diện Mã lệnh: Public Class Bai7 Private Sub cmdTinh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTinh.Click Dim a As Integer Dim b As Integer Dim c As Integer Dim max As Integer a = Val(txtA.Text) 102 b = Val(txtB.Text) c = Val(txtC.Text) max = a If max < b Then max = b If max < c Then max = c txtKQ.Text = "So lon nhat la: " & max End Sub Private Sub cmdThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdThoat.Click Me.Dispose() End Sub End Class Câu Giao diện: Mã lệnh: Imports System.Data.OleDb Public Class Bai7C2 Private Sub Bai7C2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load datThongTin.ColumnCount = datThongTin.Columns(0).HeaderText = "Ma VT" datThongTin.Columns(1).HeaderText = "Ten VT" datThongTin.Columns(2).HeaderText = "So Luong" datThongTin.Columns(3).HeaderText = "DVT" datThongTin.Columns(0).Width = 50 datThongTin.Columns(1).Width = 120 datThongTin.Columns(2).Width = 100 datThongTin.Columns(3).Width = 100 Dim As OleDbConnection Dim cmd As OleDbCommand Dim result As OleDbDataReader Dim intRowIndex As Integer 103 = New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;data source=C:\mdbKiemTra.mdb") con.Open() cmd = New OleDbCommand("Select * from tblBai7 order by Mavt", con) result = cmd.ExecuteReader datThongTin.RowCount = intRowIndex = Do While result.Read() datThongTin.RowCount = datThongTin.RowCount + datThongTin.Item(0, intRowIndex).Value = result(0) datThongTin.Item(1, intRowIndex).Value = result(1) datThongTin.Item(2, intRowIndex).Value = result(2) datThongTin.Item(3, intRowIndex).Value = result(3) intRowIndex = intRowIndex + Loop result.Close() cmd.Dispose() con.Dispose() End Sub Private Sub cmdThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdThoat.Click Me.Dispose() End Sub Private Sub cmdthem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdThem.Click Dim strMaVT As String Dim strTenVT As String Dim intSoLuong As Integer Dim strDVT As String strMaVT = txtMaVT.Text strTenVT = txtTenVT.Text intSoLuong = Val(txtSoLuong.Text) strDVT = txtDVT.Text Dim As OleDbConnection Dim cmd As OleDbCommand = New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;data source=C:\mdbKiemTra.mdb") con.Open() cmd = New OleDbCommand("insert into tblBai7 values ('" & strMaVT & "','" & strTenVT & "'," & intSoLuong & ",'" & strDVT & "')", con) cmd.ExecuteNonQuery() cmd.Dispose() con.Dispose() Bai7C2_Load(sender, e) End Sub End Class 104 Đề số Câu Giao diện Mã lệnh: Public Class Bai8 Private Sub cmdTinh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTinh.Click Dim a As Integer Dim b As Integer Dim c As Integer Dim tg As Integer a = Val(txtA.Text) b = Val(txtB.Text) c = Val(txtC.Text) If a > b Then tg = a a=b b = tg End If If a > c Then tg = a a=c c = tg End If If b > c Then tg = b b=c c = tg End If txtKQ.Text = a & " " & b & " " & c End Sub Private Sub cmdThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdThoat.Click Me.Dispose() End Sub End Class 105 Câu Giao diện: Mã lệnh: Imports System.Data.OleDb Public Class Bai8C2 Private Sub Bai8C2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load datThongTin.ColumnCount = datThongTin.Columns(0).HeaderText = "Ma HS" datThongTin.Columns(1).HeaderText = "Ten HS" datThongTin.Columns(2).HeaderText = "Truong" datThongTin.Columns(0).Width = 50 datThongTin.Columns(1).Width = 120 datThongTin.Columns(2).Width = 120 Dim As OleDbConnection Dim cmd As OleDbCommand Dim result As OleDbDataReader Dim intRowIndex As Integer = New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;data source=C:\mdbKiemTra.mdb") con.Open() cmd = New OleDbCommand("Select * from tblBai8 order by MaHS", con) result = cmd.ExecuteReader datThongTin.RowCount = intRowIndex = Do While result.Read() datThongTin.RowCount = datThongTin.RowCount + datThongTin.Item(0, intRowIndex).Value = result(0) datThongTin.Item(1, intRowIndex).Value = result(1) datThongTin.Item(2, intRowIndex).Value = result(2) intRowIndex = intRowIndex + Loop result.Close() 106 cmd.Dispose() con.Dispose() End Sub Private Sub cmdThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdThoat.Click Me.Dispose() End Sub Private Sub cmdupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdUpdate.Click Dim strTruong As String strTruong = txtTruong.Text Dim As OleDbConnection Dim cmd As OleDbCommand = New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;data source=C:\mdbKiemTra.mdb") con.Open() cmd = New OleDbCommand("update tblBai8 set Truong='" & strTruong & "' where Truong='NQ'", con) cmd.ExecuteNonQuery() cmd.Dispose() con.Dispose() Bai8C2_Load(sender, e) End Sub End Class % 107 ... chính: - Sử dụng biến để chứa liệu chương trình - Nhận liệu nhập cách sử dụng hàm InputBox - Hiển thị thông điệp MsgBox - Làm việc với biến liệu khác - Sử dụng tốn tử tốn học hàm cơng thức - Sử... liệu Short thƣớc 16-bit -3 2,678 - 32,767 Dim S as Short S = 12500 Integer Long Single 32-bit 64-bit 32-bit (dấu -2 ,147,483,648 đến Dim I as Integer 2,147,483,647 S = 4000 -9 ,233,372,036,854,775,808... đoạn mã sau: Dim LastName As String LastName = "Đình Hiếu" Label1.Text = LastName LastName = "Tên Khác" Label2.Text = LastName Chú thích mã: - Lệnh thứ khai báo biến có tên LastName có kiểu String