MỘT SỐ CÂU HỎI ÔN TẬP VISUAL BASIC 6.0

Câu 1:Viết một chương trình tính tiền cước Taxi, biết rằng:- Km đầu tiên giá 5.000 đ- 200 m tiếp theo giá 1.000 đ- Nếu lớn hơn 30 Km thì mỗi Km theo giá 3.000 đ. Hãy nhập số Km khách hàng cần đi và sauđó in ra số tiền khách hàng phải trả.
Nội dung trích xuất từ tài liệu:
MỘT SỐ CÂU HỎI ÔN TẬP VISUAL BASIC 6.0 MỘT SỐ CÂU HỎI ÔN TẬP VISUAL BASIC 6.0 Dạng 1: Viết chương trìnhCâu 1:Viết một chương trình tính tiền cước Taxi, biết rằng: - Km đầu tiên giá 5.000 đ - 200 m tiếp theo giá 1.000 đ - Nếu lớn hơn 30 Km thì mỗi Km theo giá 3.000 đ. Hãy nhập số Km khách hàng cần đi và sau đó in ra số tiền khách hàng phải trả.Câu 2:Cho cơ sở dữ liệu có tên QUANLY_THICHUNGCHI, tên server là ANHSANG, uername là SA và mậtkhẩu để trống. Hãy tạo form như hình bên dưới và viết lệnh cho nút đăng nhập để khi nhấn vào nútđăng nhập thì sẽ kết nối đến CSDL trên SQL ?Ghi chú: + Tên form: FrmDANGNHAP + Tên Textbox 1: TxtUSER + Tên Textbox 2: TxtPASS + Tên Textbox 3: TxtDATABASE + Tên Textbox 4: TxtSERVER + Tên Command Button 1: CmdDANGNHAP + Tên Command Button 2: CmdTHOATCâu 3:Cho cơ sở dữ liệu có tên QUANLY_THUVIEN, tên server là ANHSANG, uername là SA và mật khẩuđể trống. CSDL đã lưu trữ thành 02 file: QUANLY_THUVIEN_DATA.mdf vàQUANLY_THUVIEN_LOG.ldf tại DCSDL trên máy tính Server.Yêu cầu:1/ Copy 02 file trên Server sau đó Attact vào SQL trên mỗi máy tính của thí sinh ?2/ Tạo một đề án đặt tên ProQLTV, trong đề án tạo 03 form: Form chính: Name: FrmMAIN Caption: CHUONG TRINH QUAN LY THU VIEN Form đăng nhập: Name: FrmDANGNHAP Caption: DANH NHAP CHUONG TRINH Form nhà xuất bản: Name: FrmNXB Caption: THONG TIN NHA XUAT BAN3/ Trên form chính: Tạo 02 menu Menu 1: Khi click chuột vào thì hiển thị form đăng nhập Name: mnDN Caption: ĐĂNG NHẬP Menu 2: Khi click chuột vào thì hiển thị form nhà xuất bản Name: mnNXB Caption: NHÀ XUẤT BẢN4/ Viết lệnh để khi form Nhà xuất bản được nạp (chạy) thì dữ liệu sẽ nạp vào điều khiển lưới vàcác textbox trên form Nhà xuất bản ?Câu 4:Cho cơ sở dữ liệu có tên QUANLY_THUVIEN, tên server là ANHSANG, uername là SA và mật khẩuđể trống. CSDL đã lưu trữ thành 02 file: QUANLY_THUVIEN_DATA.mdf vàQUANLY_THUVIEN_LOG.ldf tại DCSDL trên máy tính Server. Tận dụng câu 3 có sẵn hãy viếtlệnh cho các chức năng: Thêm dữ liệu, lưu dữ liệu, xóa dữ liệu và thoát form nhà xuất bản khi tanhấn vào các nút lệnh tương ứng.Yêu cầu: - Sử dụng biến có kiểu Recordset để thực hiện thay cho công cụ ADO. - Có kiểm tra điều khiển các nút nhấn cho hợp lý.Câu 5:Cho cơ sở dữ liệu có tên QUANLY_THUVIEN, tên server là ANHSANG, uername là SA và mật khẩuđể trống. CSDL đã lưu trữ thành 02 file: QUANLY_THUVIEN_DATA.mdf vàQUANLY_THUVIEN_LOG.ldf tại DCSDL trên máy tính Server.Bên trong CSDL có 03 thủ tục đượcviết sẵn có tên “THEM_NXB”, SUA_NXB, XOA_NXB.Tận dụng câu 3 có sẵn hãy viết lệnh cho các chức năng: Thêm dữ liệu, lưu dữ liệu, xóa dữ liệu vàthoát form nhà xuất bản khi ta nhấn vào các nút lệnh tương ứng.Yêu cầu: - Sử dụng biến có kiểu Connection để thực hiện thay cho công cụ ADO và biến kiểu Recordset. - Có kiểu tra điều khiển các nút nhấn cho hợp lý.Câu 6:Tận dụng câu 3 có sẵn sau đó tạo thêm một form để quản lý thông tin các loại sách trong thư việngồm các thông tin sau: Tên công cụ Tên thuộc tính Giá trị Form Name FrmSACH Form Caption QUAN LY THONG TIN SACH Textbox Name TxtMSS Textbox Name TxtTENSACH Textbox Name TxtSOTRANG Combox Name CmbMSNXB Command Button Name CmdTHEM Command Button Caption THÊMHãy viết lệnh để khi ta nhấn lên nút THÊM thì sẽ thực hiện các công việc sau:1/ Tạo mã số sách tự động sau đó gắn vào Textbox mã số sách.Ví dụ trong CSDL có MSS là S001,S002 thì sẽ tự động tạo S003,…2/ Liệt kê tất cả MSNXB và đưa vào Combox trên form sách. Dạng 2: Tìm lỗi sai trong đoạn chương trình cho trướcCâu 1: Dim Rst As ADODB.Recordset Set Rst = ADODB.Recordset Rst .Open TEN TABLE, Cn, adOpenStatic, adLockOptimistic, adCmdTable Set TEN_DIEU_KHIEN_LUOI .DataSource = RstCâu 2: Dim Str As String Dim I As Integer If I > 0 then MsgBox Biến I lớn hơn không !, vbOKOnly + vbCritical, Thông báo ! End ifCâu 3: Private Sub TxtCMND_KeyPress(KeyAscii As Integer) Dim S As String S = 0123456789 If KeyAscii > 26 Then If InStr(Chr(KeyAscii), S) = 0 Then MsgBox CMND chæ ñöôïc nhaäp soá., vbCritical, Caûnh B ...