Câu hỏi ôn tập Visual Basic 6.0: Tổng hợp một số câu hỏi thường gặp

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

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 <=10 then

A = A + 1

End if

Loop

Câu 10: Cho m t bi n có tên “rstNGHIPHEP” có ki u Recorrdset. Hãy xác đ nh l i trong đo nộ ế ể ị ỗ ạ

ch ng trình sauươ

If rstNGHIPHEP.RecordCount > 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

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

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Ế

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

Chủ đề:

Tài liệu liên quan

Tài liêu mới

AI tóm tắt

Giới thiệu tài liệu

Đối tượng sử dụng

Từ khoá chính

Nội dung tóm tắt

Hỗ trợ

Phương thức thanh toán

Theo dõi chúng tôi