GIÁO TRÌNH MICOSOFT VISUAL BASIC - BÀI TẬP PHẦN CƠ BẢN

Bai tập 1 Viết 1 form nhập 2 số và bấm nút để cho kết quả phép cộng Chương trình khi chạy sẽ cho kết quả như sau: Hướng dẫn: 1. Khởi động Visual Basic , chọn New/ Standard EXE 2. Điều chỉnh các thuộc tính của form1 theo nh ư bảng sau:

Bài tập Visual Basic - Phần 168 BÀI TẬP PHẦN CƠ BẢN Bai tập Viết form nhập số bấm nút kết phép cộng Chương trình chạy cho kết sau: Hướng dẫn: Khởi động Visual Basic , chọn New/ Standard EXE Điều chỉnh thuộc tính form1 theo nh bảng sau: Thuộc tính Giá trị (Value) (Property) Alignment - Right justify Name txtTong Lock True Height 315 Width 735 Nhấp đúp CommandButton Toolbox Button xuất form Di chuyển điều chỉnh thuộc tính theo bảng sau: Thuộc tính Giá trị (Value) (Property) Name CmdTinh Caption Tinh Height 330 Width 1335 Nhấp đúp CommandButton để viết lệnh cho chức tính tốn người dùng bấm vào nút Cửa sổ lệnh xuất với phần khai báo thủ tục bấm nút định nghĩa sẵn: Private Sub CmdTinh_Click() Thuộc tính Giá trị (Value) (Property) Name frmTinh Caption Cong hai so Height 2500 Width 2800 Nhấp đúp Label Toolbox để đặt Label lên form Di chuyển đặt thuộc tính theo bảng sau: Thuộc tính Giá trị (Value) (Property) Name Label1 Caption Nhap so thu Làm tương tự bước với thuộc tính theo bảng sau: Thuộc tính Giá trị (Value) (Property) Name Label2 Caption Nhap so thu Nhấp đúp Textbox Toolbox Textbox th ứ xuất form Di chuyển điều chỉnh thuộc tính theo bảng sau: End Sub Thuộc tính Giá trị (Value) (Property) Nhập lệnh để cuối ta có Alignment - Right justify Private Sub CmdTinh_Click() Name txtSo1 txtTong.Text = Val(tx tSo1.Text) + Height 315 Val(txtSo2.Text) Width 735 End Sub Nhấp đúp Textbox Toolbox Textbox th ứ 10 Bấm nút Run Toolbar F5 để chạy hai xuất form Di chuyển chương trình Nhập số vào text box Bấm điều chỉnh thuộc tính theo bảng sau: nút tính Kết cộng số xuất Thuộc tính Giá trị (Value) thứ (Property) 11 Chọn File/Save Project để save tập tin Alignment - Right justify chương trình sau: Name txtSo2 FrmTinh.FRM Tập tin định nghĩa form Height 315 frmTinh) Width 735 Vd1.VBP Tập tin định nghĩa dự án) Nhấp đúp Textbox Toolbox Textbox th ứ ba xuất form Di chuyển điều chỉnh thuộc tính theo bảng sau: Thử thay đối property sau quan sát thay đổi form Appearance -> Flat BackColor – Đổi màu form BorderStyle – Thay đổi dạng viền form Bài tập Visual Basic – Phần 169 Bài tập Thiết kế chương trình kiểm tra thuộc tính Alignment Label cách sử dụng đối tượng Option Button Chương trình hoạt động có dạng: Khi click mouse vào option Left, Center, Right , Caption Label thay đổi tương ứng Hướng dẫn Chọn New/Standard EXE Đặt thuộc tính cho form nh sau: Thuộc tính Giá trị Name frmMain Caption Bai tap BorderStyle – Fixed Single Control Box False Đặt Label với thuộc tính Thuộc tính Giá trị Name lblNotify Caption BorderStyle – Fixed Single Đặt Frame với thuộc tính Thuộc tính Giá trị Name Frame1 Caption Label alignment Đặt Option Button Frame với Name Caption sau: Thuộc tính Giá trị Name OpLeft Caption Left Name OpCenter Caption Center Name OpRight Caption Right Đặt CommandButton với thuộc tính sau Thuộc tính Giá trị Name CmdClose Caption Close Định nghĩa mã lệnh cho kiện Form_Load (Khi nạp Form), OpClick (Khi click Option Private Sub Form_Load() OpLeft.Value = True End Sub Private Sub CmdClose_Click() Unload Me End Sub Private Sub OpLeft_Click() lblNotify.Caption = "Label is justified left" lblNotify.Alignment = End Sub Private Sub OpRight_Click() lblNotify.Caption = "Label is justified right" lblNotify.Alignment = End Sub Private Sub OpCenter_Click() lblNotify.Caption = "Label is justified center" lblNotify.Alignment = Làm thêm   Điều chỉnh TabIndex đối tượng để bắt đầu chạy chương trình Nút Close nhận Focus, sau Option Button Left, Center, Right Định nghĩa Hotkey cho Button (Alt+O) Option Button l ần lượt (Alt+L, Alt+C, Alt+R) Bài tập Visual Basic - Phần 170 End Sub Bài tập Viết chương trình thực máy tính đơn giản gồm nút bấm +, -, x, / Nhập số cần tính bấm nút tương ứng kết Label Form ch ương trình có dạng sau: Lưu ý:   Dạng viền form - Khơng thay đổi kích thước Font tiếng việt Làm thêm: Thay nút bấm phép toán nút chọn (Option Button) Bài tập Viết chương trình thực form có dạng sau:    Họ tên nhập vào TextBox Khi bấm nút Nhập , họ tên nhập vào cập nhật vào nội dung phía d ưới Viết lệnh thay đổi chiều cao FORM cho ch ưa bấm nút cập nhật, chiều cao FORM đủ trình bày phần TextBox bút bấm phía Bài tập Visual Basic - Phần Bài tập 171 Thiết kế chương trình có dạng sau:  Các Option Button dùng đ ể Enable/Disable hoạt động Button Show  Button Exit dùng để kết thúc chương trình xuất form thứ hai xuất  Form thứ xuất bên form thứ Hãy viết lệnh để bấm nút Exit (kết thúc chương trình ), form đóng lại Bài tập Thiết kế chương trình kiểm tra kiện MouseMove, MouseDown form: Khi form xuất lần Nó nằm hình Tọa độ mouse thơng báo góc bên phải di chuyển mouse form Chương trình thơng báo kiện có phím trái phải bấm Hướng dẫn Đặt property Left,Top s ự kiên Load để xác định vị trí form Trong kiện MouseMove, tham số X,Y chứa giá trị toạ độ xảy kiện Trong kiện MouseDown, tham số Button chứa giá trị nút bấm Button = (Nút trái) Button = (Nút phải) Bài tập Visual Basic - Phần 172 Bài tập Viết chương trình nhập họ tên, phái ngày tháng n ăm sinh người Chương trình thơng báo tuổi nhân xưng người theo tuổi Thang phân loại sau: Nam: Tuổi Nhân xưng 1-10 Cháu 11-17 Em 18-34 Anh 35-70 Ông 71Cụ Nữ Tuổi Nhân xưng 1-10 Cháu 11-23 Em 24-30 Chị 31-65 Bà 66Cụ Lưu ý:  Chương trình có kiểm tra liệu nhập ngày tháng thông báo lỗi liệu nhập không hợp lệ hàm MsgBox  Phái nhập chọn Option Button  Định nghĩa Tabstop hotkey cho ô nhập liệu  Sử dụng lệnh End để kết thúc chương trình thay dùng lệnh Unload Me Bài tập Viết chương trình giải biện luận phương trình bậc Chương trình có kiểm tra liệu nhập Các thông báo lỗi thông báo kết sử dụng MsgBox Bài tập Viết chương trình kiểm tra hoạt động vịng lặp For Next, Do While Loop Do Until cách thiết kế form có dạng hình bên: Mỗi nút bấm làm xuấ t 20 dòng textbox bên trái mơ t ả loại vịng lặp sử dụng Mã lệnh định nghĩa cho Button For Next sau Private Sub cmdFor_Click() Dim strBegin As String Dim strEnd As String Dim strMsg As String Dim i As Integer strBegin = "This is line #" strEnd = " of a For Next Loop" For i = To 20 strMsg = strMsg & strBegin strMsg = strMsg & i strMsg = strMsg & strEnd & vbCrLf txtReport.Text = strMsg Next I End Sub Bài tập Visual Basic - Phần 173 Bài tập 10 Viết chương trình tạo form có dạng sau màu tô (Fill Color) mẫu tô (Fill Style) Shape bên trái thay đổi theo giá trị chọn Option Button Bài tập 12 Viết chương trình máy tính số nguyên đơn giản cách sử dụng mảng đối tượng điều khiển Bài tập 13 Viết chương trình thực chương trình soạn thảo văn đơn giản, chương trình cho phép thực chức tìm (Find) thay (Replace) Bài tập 14 Viết chương trình quản lý lương đơn giản cách thiết kế form có dạng sau: Bài tập Visual Basic - Phần 174 Yêu cầu:  Họ tên nhân viên nhập vào textbox Họ tên  Chức vụ nhân viên chọn combo box Chức vụ  Mỗi chức vụ nhân viên chọn Mức lương tương ứng xuất hộp Lương  Khi bấm nút Nhập, nhân viên nhập vào ListBox bên trái  Tổng lương nhân viên danh sách nhập trình bày textbox Tong Giá trị cập nhật sau danh sách nhập có thay đổi  Các nút bấm >>