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

Chia sẻ: Ngothanh Xuan | Ngày: | Loại File: DOC | Số trang:5

Thêm vào BST

Báo xấu

222
lượt xem 21
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

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ả.

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: 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ình 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ả. Câu 2: Cho cơ sở dữ liệu có tên QUANLY_THICHUNGCHI, tên server là ANHSANG, uername là SA và mật khẩ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: CmdTHOAT Câ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 D\CSDL 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 BAN 3/ 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ẢN 4/ 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 D\CSDL trên máy tính Server. 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 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 D\CSDL trên máy tính Server.Bên trong CSDL có 03 thủ tục được viế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ện gồ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ÊM Hã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ước Câ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 = Rst Câ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 if Câ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 Baùo !" KeyAscii = 0 End If End If End Sub Câu 4: Option Explicit Public Function TaoMa_COSO(s As String) As String Dim rs As New ADODB.Recordset Strr = "select MACS from COSO" rs.Open Strr, Cn, adOpenDynamic, adLockReadOnly End Function Câu 5: Private Sub Command_Click() Dim i As Integer For i = 1 To 5 Step i=i+1 Next End Sub Câu 6: Dim k As Integer Case "1" If k = 1 Then i = i + 1
Case "2" If k >1 Then MsgBox "Lớn hơn 1.", vbCritical, "Thông báo !" End If End Select Câu 7: Dim S As String S=”Phạm Ngọc Nhanh” LTrim(S,5) Câu 8: Dim Str As String Dim S As New ADOBD.Recordset Str = "select macv, tencv from CHUCVU where TENCV=' " & Trim(TxtTENCV.Text) & " ' " S.Execute Câu 9: Dim A As Integer Dim K As Integer Do While Until (K >=10) If A 0 Then rstNGHIPHEP.MoveNext If rstNGHIPHEP.FOF Then rstNGHIPHEP.MoveLast End If Dạng 3: Cho biết kết quả từ đoạn chương trình cho trước Câu 1: Cho biết chức năng của Ham01 Public Sub Ham01(Frm As Form, Rst As ADODB.Recordset, Optional Tag As String = 1) Dim Ctrl As Control For Each Ctrl In Frm.Controls If Ctrl.Tag = Tag Then Set Ctrl.DataSource = Rst Ctrl.DataField = Mid(Ctrl.Name, 4) Ctrl.DataMember = "" End If Next End Sub
Câu 2: Cho biết chức năng của sự kiện Txt_KeyPress Private Sub Txt_KeyPress(KeyAscii As Integer) Dim s As String s = "0123456789" If KeyAscii > 26 Then If InStr(s, Chr(KeyAscii)) = 0 Then MsgBox "Cho biết chức năng của sự kiện này.", vbCritical, "Thông báo !" KeyAscii = 0 End If End If End Sub Câu 3: Cho biết chức năng của đoạn chương trình sau: Dim Ctrl As Control For Each Ctrl In Frm.Controls If TypeOf Ctrl Is TextBox Or TypeOf Ctrl Is ComboBox Then Ctrl.Enable = False End If Next Câu 4: Cho một điều kiển lưới có tên “DgdCHUCVU” và biến “rstCHUCVU” có kiểu Recorrdset. Hãy cho biết chức năng của các dòng lênh trên ? Dim rstCHUCVU As ADODB.Recordset Set rstCHUCVU = New ADODB.Recordset rstCHUCVU.Open "CHUCVU", Cn, adOpenStatic, adLockOptimistic, adCmdTable Set DgdCHUCVU.DataSource = rstCHUCVU  KẾT THÚC