Câu hỏi ôn thi trắc nghiệm Access 2003

If
MsgBox (n)
End Sub
Trả lời :
A. 	8
B.	-2
C. 	3
D.	0
E. 	Lỗi do tràn số ( vượt quá giới hạn kiểu)
***********************************************************
Câu 51 :
Trong khi lập trình nếu muốn dùng chạy hành động Close của Macro thì để đóng Form DANHSACH đang mở thì phải dùng cấu trúc nào sau đây :
A.	DoCMD.Close ACForm,"Danhsach"
B.	DoCmd.Close acForm, "Danhsach", acSaveYes
C.	DoCmd.Close
D.	DoCmd.Close "Danhsach"
E.	DoCMD.Close acForm.
***********************************************************
Câu 52 :
Đoạn chương trình sau đây sau khi chạy sẽ cho kết quả là bao nhiêu
Public Sub Cong()
Dim a As Integer, b As String, s As String
a = 10
b = "10"
s = a & b
MsgBox (s)
End Sub
A.	10
B.	1010
C.	20
D. 	Lỗi do khác kiểu dữ liệu
E.	Không hiện kết quả gì.
***********************************************************
Câu 53:
Đoạn chương trình sau đây sau khi chạy sẽ cho kết quả là bao nhiêu
Public Sub Cong()
Dim a As Integer, b As String, s As String
a = 10
b = "10"
s = a + b
MsgBox (s)
End Sub
A.	10
B.	1010
C.	20
D. 	Lỗi do khác kiểu dữ liệu
E.	Không hiện kết quả gì.
***********************************************************
Câu 54:
Nếu có một thủ tục được lập trình như sau thì kết quả sau khi chạy sẽ là thế nào.Giả sử ngày hiện tại trong máy là #01/01/2003# và dữ liệu ngayd được định dạng là : dd/mm/yyyy.
Public Sub Cong()
Dim n As Integer, d As Date, s As String
n = 10
d = Date()
s = n + d
MsgBox (s)
End Sub
A.	Lỗi chương tình do khác kiểu dữ liệu.
B. 	#06/01/2003#. 
C.	10
D.	#11/01/2003#
E. 	Không thông báo gì.
***********************************************************
Câu 55 :
Nếu một thủ tục được lập trình như sau , thì kết quả sau khi chạy sẽ là thế nào . giả sử kiểu dữ liệu Date được định dạng như sau : #mm/dd/yyyy#.
Public Sub Cong()
Dim D1 As Date, D2 As Date, S As String
D1 = #10/20/2002#
D2 = #10/15/2002#
S = D1 - D2
MsgBox (S)
End Sub
Trả lời :
A. Lỗi do khác kiểu dữ liệu
B. 5
C. #10/15/2002#
D. Không hiện gì.
E. #10/20/2002#
***********************************************************
Câu 56 :
Đoạn chương trình dưới đây sẽ có kết quả như thế nào khi ta chạy :
Public Sub Tinhtoan()
Dim s As String, x As Integer, T
s = "Hello"
x = 10
T = s & 10
MsgBox (T)
End Sub
A.In ra màn hình "Hello10"
B.Lỗi Type Mismatch (Khác kiểu dữ liệu)
C.Không in ra màn hình kết quả gì 
D.Lỗi do biến T không xác dịnh kiểu dữ liệu
E.Có 2 lỗi Type Mismatch và không định kiểu của T
***********************************************************
Câu 57:
Đoạn chương trình dưới đây sẽ có kết quả như thế nào khi ta chạy :
Public Sub Tinhtoan()
Dim s As String, x As Integer, T
s = "Hello"
x = 10
T = s + 10
MsgBox (T)
End Sub
A.In ra màn hình "Hello10"
B.Lỗi Type Mismatch (Khác kiểu dữ liệu)
C.Không in ra màn hình kết quả gì 
D.Lỗi do biến T không xác dịnh kiểu dữ liệu
E.Có 2 lỗi Type Mismatch và không định kiểu của T
***********************************************************
Câu 58 :
Đoạn chương trình dưới đây sẽ có kết quả như thế nào khi ta chạy :
Public Sub Sub01()
Dim X As Byte, Y As Integer
X = InputBox("Nhap so thu nhat")
Y = InputBox("Nhap so thu hai")
S = X + Y
MsgBox (s)
End Sub
A.Lỗi khác kiểu dữ liệu do X kiểu Byte , Y kiểu Integer
B.Lỗi do biến S chưa được khai báo
C.In ra tổng 2 số X , Y
D.Không hiện kết quả gì.
E.Lỗi do biểu thức S=X+Y ( phải thay bằng S = X & Y)
***********************************************************
Câu 59 :
Đoạn chương trình dưới đây sẽ có kết quả như thế nào khi ta chạy :
Public Sub Sub01()
Dim N As Byte
N = InputBox("Nhap N ")
For I = 0 To N
s = s + I
Next
End Sub
A.Tổng các số từ 0 đến N , N không bị giới hạn
B.Tổng các số từ 0 đến N , N bị giới hạn từ 0 đến 255
C.Tổng các số từ 0 đến N , N bị giới hạn từ 0 đến 256
D.Không thể tính được do N không là số
E. Không thể tính được do chưa khai báo biến I
***********************************************************
Câu 60 :
Đoạn chương trình dưới đây sau khi chạy sẽ có kết quả như thế nào :
Public Sub Sub04()
Dim N As Byte
N = InputBox("Nhap N ")
For I = 0 To N
s = s & I
Next
MsgBox (s)
End Sub
A.Tổng các số từ 0 đến N , N bị giới hạn từ 0 đến 255
B.Liệt kê các số từ 0 đến N , N bị giới hạn từ 0 đến 255
C.Tổng các số từ 0 đến N, N không bị giới hạn
D. Liệt kê các số từ 0 đến N , N không bị giới hạn
E. Bị lỗi tại dòng lệnh S = S & I
***********************************************************
Câu 61 .
Đoạn chương trình dưới đây sau khi chạy sẽ có kết quả như thế nào :
Public Sub Sub05()
Dim N As Integer , S as Long
N = InputBox("Nhap N ")
For I = 0 To N
S = S & I
Next
MsgBox (s)
End Sub
A.Tổng các số từ 1 đến N
B. Liệt kê các số từ 1 đến N 
C. Không chạy được do thiếu lệnh End For (kết thúc lặp For)
D. Không chạy được do thiếu lệnh Next (kết thúc lặp For)
E. Lỗi do lệnh gán : S = S + I (Do S không phải kiểu String).
***********************************************************
Câu 62 .
Đoạn chương trình dưới đây sau khi chạy sẽ có kết quả như thế nào :
Public Sub Sub06()
Dim N As Integer , S as Long
N = InputBox("Nhap N ")
For I = 0 To N
S = S + I
MsgBox (s)
End Sub
A.Tổng các số từ 1 đến N
B. Liệt kê các số từ 1 đến N
C. Không chạy được do thiếu lệnh End For (kết thúc lặp For)
D. Không chạy được do thiếu lệnh Next (kết thúc lặp For)
E. Lỗi do lệnh gán : S = S + I (do S không phải là kiểu String)
***********************************************************
Câu 63:
Giả sử trong cơ sở dữ liệu hiện hành có một bảng (Table )gồm 2 trường 
Table1(SBD , Diem) . Và được mở bằng các lệnh như sau:
Dim db As DAO.Database, rs As DAO.Recordset
Dim KQ1 , KQ2
Set db = CurrentDb()
Set rs = db.OpenRecordset("Diem")
Để lấy dữ liệu của bản ghi đầu tiên từ các trường bảng Table1 ta dùng các lệnh như thế nào :
A.	Rs.moveFirst
	KQ1 = RS.SBD
	KQ2 = RS.Diem
B. 	Rs.moveFirst
	KQ1 = RS.(SBD)
	KQ2 = RS.(Diem)
C. 	Rs.moveFirst
	KQ1 = RS.[SBD]
	KQ2 = RS.[Diem]
D. 	Rs.moveFirst
	KQ1 = RS![SBD]
	KQ2 = RS![Diem]
E. 	Rs.moveFirst
	KQ1 = RS!(SBD)
	KQ2 = RS!(Diem)
***********************************************************
Câu 64:
Giả sử trong cơ sở dữ liệu hiện hành có một bảng (Table )gồm 2 trường 
Table1(SBD , Diem) . Và được mở bằng các lệnh như sau:
Dim db As DAO.Database, rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Diem")
Để xoá bản ghi đầu tiên ta phải viết tiếp các lệnh thế nào :
A.	Rs.MoveFirst
	Rs.Delete
B. 	Rs.MoveLast
	Rs.Delete
C. 	Rs.MoveFirst
	Rs.MovePrevious
	Rs.Delete
D.	Rs.MovePrevious
	Rs.Delete
E.	Rs.MoveNext
	Rs.Delete
***********************************************************
Câu 65:
Giả sử trong cơ sở dữ liệu hiện hành có một bảng (Table )gồm 2 trường 
Table1(SBD , Diem) . Và được mở bằng các lệnh như sau:
Dim db As DAO.Database, rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Diem")
Để xoá bản ghi cuối cùng ta phải viết tiếp các lệnh thế nào :
A.	Rs.MoveFirst
	Rs.Delete
B. 	Rs.MoveLast
	Rs.Delete
C. 	Rs.MoveFirst
	Rs.MovePrevious
	Rs.Delete
D.	Rs.MovePrevious
	Rs.Delete
E.	Rs.MoveNext
	Rs.Delete
***********************************************************
Câu 66:
Giả sử trong cơ sở dữ liệu hiện hành có một bảng (Table )gồm 2 trường 
Table1(SBD , Diem) . Và được mở bằng các lệnh như sau:
Dim db As DAO.Database, rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Diem")
Để xoá bản ghi thứ hai ta phải viết tiếp các lệnh thế nào :
A.	Rs.MoveFirst
	Rs.Delete
B. 	Rs.MoveLast
	Rs.Delete
C. 	Rs.MoveFirst
	Rs.MovePrevious
	Rs.Delete
D.	Rs.moveFirst
	Rs.MoveNext
	Rs.Delete
E.	Rs.MoveNext
	Rs.Delete
***********************************************************
Câu 67:
Giả sử trong cơ sở dữ liệu hiện hành có một bảng (Table )gồm 2 trường 
Table1(SBD , Diem) . Và được mở bằng các lệnh như sau:
Dim db As DAO.Database, rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Diem")
Để xoá bản ghi thứ năm ta phải viết tiếp các lệnh thế nào :
A.	Rs.MoveFirst
	Rs.Delete
B. 	Rs.MoveLast
	Rs.Delete
C. 	Rs.MoveFirst
	Rs.MovePrevious
	Rs.Delete
D.	Rs.moveFirst
	Rs.MoveNext
	Rs.Delete
E.	Rs.Move 4
	Rs.Delete
***********************************************************
Câu 68 :
Giả sử trong cơ sở dữ liệu hiện hành có một bảng (Table )gồm 2 trường 
Table1(SBD , Diem) . Và được mở bằng các lệnh như sau:
Dim db As DAO.Database, rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Diem")
Để xoá bản ghi trước bản ghi cuối cùng ta phải viết tiếp các lệnh thế nào :
A.	Rs.MoveFirst
	Rs.Delete
B. 	Rs.MoveLast
	Rs.Delete
C. 	Rs.MoveLast
	Rs.MovePrevious
	Rs.Delete
D.	Rs.moveFirst
	Rs.MoveNext
	Rs.Delete
E.	Rs.MoveNext
	Rs.Delete
***********************************************************
Câu69 :
Giả sử trong cơ sở dữ liệu hiện hành có một bảng (Table )gồm 2 trường 
Table1(SBD , Diem) . Và được mở bằng các lệnh như sau:
Dim db As DAO.Database, rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Diem")
Để sửa lại bản ghi thứ nhất ta phải viết tiếp các lệnh thế nào :
A.	Rs.MoveFirst
	Rs.Edit
	...
B. 	Rs.MoveLast
	Rs.Edit
	...
C. 	Rs.MoveLast
	Rs.MovePrevious
	Rs.Edit
	.........
D.	Rs.moveFirst
	Rs.MoveNext
	Rs.Edit
	..............
 E.	Rs.MoveNext
	Rs.Edit.
	..............
***********************************************************
Câu 70 :
Giả sử trong cơ sở dữ liệu hiện hành có một bảng (Table )gồm 2 trường 
Table1(SBD , Diem) . Và được mở bằng các lệnh như sau:
Dim db As DAO.Database, rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Diem")
Để sửa lại bản ghi cuối cùng ta phải viết tiếp các lệnh thế nào :
A.	Rs.MoveFirst
	Rs.Edit
	.............
B. 	Rs.MoveLast
	Rs.Edit
	..............
C. 	Rs.MoveLast
	Rs.MovePrevious
	Rs.Edit
	...............
D.	Rs.moveFirst
	Rs.MoveNext
	Rs.Edit
	..............
 E.	Rs.MoveNext
	Rs.Edit.
	..............