ĐỀ THI MẪU DÙNG ĐỂ ÔN THI KẾT THÚC MÔN TIN HỌC XÂY DỰNG HỆ CHÍNH QUY – BẰNG 2 – CHUYÊN TU

ĐỀ THI MẪU DÙNG ĐỂ ÔN THI KẾT THÚC MÔN TIN HỌC XÂY DỰNG
HỆ CHÍNH QUY – BẰNG 2 – CHUYÊN TU
1. MỘT SỐ CHÚ Ý KHI THI KẾT THÚC MÔN HỌC:
•

Đề thi kết thúc môn học gồm có 60 câu hỏi, mỗi câu hỏi có 4 đáp án, thí sinh
phải chọn đáp án đúng nhất trong 4 đáp án này.

•

Thời gian làm bài là 60 phút.

•

Cần có: bút chì 2B, tẩy chì và bút bi (mực).

•

Thí sinh tự chuẩn bị phiếu trả lời theo mẫu, chú ý là khi in hoặc phô tô phiếu
trả lời phải đảm bảo tỷ lệ so với bản gốc là 100%, không bị nghiêng lệch. Nếu
phiếu thi không chuẩn, do chấm hoàn toàn tự động trên máy tính, nên những
bài thi này sẽ bị không (0) điểm.

•

Trong khi làm bài thi, thí sinh không được sử dụng bất kỳ tài liệu nào.

•

Không được sử dụng điện thoại di động và các thiết bị điện tử khác trong khi
thi.

•

Không được viết, vẽ hay tạo ra bất kỳ dấu hiệu nào trong đề thi.

•

Mỗi câu hỏi chỉ được chọn 1 đáp án đúng nhất, khi chọn sai thì cần tẩy sạch
vết bút chì và tô vào ô khác, nếu không tẩy sạch, mấy tính sẽ tự động loại câu
hỏi đó.

•

Trình tự thi như sau:
¾ Thí sinh tập trung tại trước phòng thi trước 15 phút, đem theo thẻ
sinh viên hoặc chứng minh thư nhân dân hoặc bằng lái xe (các giấy
tờ khác đều không được chấp nhận)
¾ Giám thị gọi thí sinh vào theo danh sách dự thi do trường lập
¾ Thí sinh nộp thẻ sinh viên (hoặc các giấy tờ như trên) cho giám thị
Î Nhận đề thi Î Vào vị trí ngồi theo sự hướng dẫn của giám thị
Î Điền các thông tin cá nhân và mã đề vào phiếu trả lời (chỗ nào
cần điền chữ thì dùng bút bi, chỗ nào cần tô đen thì dùng bút chì và
thực hiện đúng như chỉ dẫn trên phiếu trả lời) Î Chờ hiệu lệnh làm
bài của giám thị
¾ Sau khi gọi hết thí sinh vào phòng thi, giám thị sẽ dành ra 5 phút để
thí sinh điền các thông tin cá nhân và mã đề thi vào phiếu trả lời.
¾ Bắt đầu thời gian 60 phút thi.
¾ Khi hết thời gian làm bài 60 phút Î Thí sinh ngừng viết và ngồi tại
vị trí Î Kẹp bài thi vào trong đề thi Î Giám thị gọi lần lượt các thí
sinh lên nộp bài theo danh sách Î Từng thí sinh đem bài lên nộp Î

Ký vào danh sách dự thi Î Nhận lại giấy tờ cá nhân Î Ra khỏi
phòng thi


2. ĐỀ THI MẪU
•

Đề thi mẫu này là những câu hỏi có tính tương đương với các câu hỏi trong đề
thi được sử dụng chính thức.

•

Đề thi mẫu là một trong những tài liệu mà thí sinh nên sử dụng khi ôn thi.

•

Để đạt được kết quả tốt nhất, thí sinh nên tự làm lại các dự án mẫu và các bài
tập đi kèm. Khi gặp bất kỳ vướng mắc nào thì nên hỏi giáo viên.

(1) Mã lệnh được dùng để thêm các giá trị vào trong hộp danh sách có tên là Listbox1:
Private Sub UserForm_Initialize()
ListBox1.AddItem "Section 1", 0
ListBox1.AddItem "Section 2", 1
A
ListBox1.AddItem "Section 3", 2
ListBox1.AddItem "Section 4", 3
End Sub
Private Sub UserForm_Initialize()
ListBox1.AddList "Section 1", 0
ListBox1.AddList "Section 2", 1

B
ListBox1.AddList "Section 3", 2
ListBox1.AddList "Section 4", 3
End Sub
Private Sub UserForm_Initialize()
ListBox1.AddText "Section 1", 0
ListBox1.AddText "Section 2", 1
C
ListBox1.AddText "Section 3", 2
ListBox1.AddText "Section 4", 3
End Sub
Private Sub UserForm_Initialize()
ListBox1.AddValue "Section 1", 0
ListBox1.AddValue "Section 2", 1
D
ListBox1.AddValue "Section 3", 2
ListBox1.AddValue "Section 4", 3
End Sub
(2) Chương trình VBA sau:
Public Sub Sub1()
Dim A, B, C, D
A = "BoMonTuDongHoaThietKeCauDuong"
B = Right(A, 5)
C = Left(A, 5)
D = Mid(A, 5, 6)
End Sub
Khi thực hiện, giá trị của biến B, C, D là:
B = BoMon
A C = Duong
D = nTuDon

B = BoMon
C = Duong
B
D = TuDon
B = Duong
C = BoMon
C
D = nTuDon
B = Duong
D C = BoMon
D = TuDon


(3) Hai cchương trình V
VBA trong Mod
dule1 như sau:
Public Function Func1(A
F
As Double, B As Double,
, C As Doub
ble)
Fun
nc1 = A + B * C
End Fun
nction
Public Sub Sub1()
Dim
m D As Doub
ble, E As Double,
D

F As
A Double, G As Doubl
le
D = 10: E = 2:
2 F = 5
G = Module1.F
Func1(B:=D,
, A:=E, C:=
=F)
End Sub
b
Khi thực hiện chương trình
t
thì:

A

C lỗi xảy ra khi
Có
k gọi chương
g trình Func1 trong
t
Sub1

B

G trị biến G là: 20
Giá

C

G trị biến G là: 25
Giá

D

G trị biến G là: 52
Giá

(4) Trong
g Sheet1 của Excel có dữ liệ
ệu như sau:

Chương trình
t
VBA tron
ng Excel như sau:
s
Public Sub Sub1()
Dim
m A As Rang
ge, B As Ra
ange
Set
t A = ThisW
Workbook.Wo
orksheets(1
1).Range("B
B3:D4")
Dim

m C As Doub
ble
For
r Each B In
n A.Offset(
(1, -1)
C = C + B.Value
B
Nex
xt
Deb
bug.Print C
End Sub
b
Khi thực hiện chương trình
t
thì:

A

T
Trong
cửa số Immediate xuất
x
hiện: 69

B

T
Trong

cửa số Immediate xuất
x
hiện: 45

C

T
Trong
cửa số Immediate xuất
x
hiện: 54

D

K
Không
chạy đư
ược do có lỗi


(5) Trong
g sheet hiện hành
h
của Exce
el có dữ liệu như sau:

Chương trình
t
VBA tron
ng Excel như sau:

s
Public Sub Sub1()
Dim
m A As Rang
ge, B As Ra
ange
Dim
m C As Doub
ble
Set
t A = ThisW
Workbook.Ac
ctiveSheet.
.UsedRange
For
r Each B In
n A.Offset(
(2, 1)
C = C + B.Cells.Val
B
lue
Nex
xt
End Sub
b
Khi thực hiện chương trình,
t
giá trị củ
ủa biến C là:

A

0

B

3

C

1
11

D

1
14

(6) Chươ
ơng trình VBA sau:
Type Ty
ype1
A A
As Double
B A
As Double
End Typ
pe
Type Ty
ype2

C A
As Type1
D A
As Double
End Typ
pe
Sub Sub
b1()
On Error Resu
ume Next
Dim
m E() As Ty
ype2, F
ReD
Dim E(1 To 3) As Type
e2
E(1
1).D = 2: E(2).C.A
E
= 3
E(3
3).C.B = 4
ReD
Dim Preserv
ve E(1 To 10)
1
As Type
e2
F = E(1).C.A + E(2).C.B
B + E(3).C.

.B
End Sub
b
Khi thực hiện chương trình
t
thì:

A

C lỗi xảy ra khi
Có
k khai báo trrường dữ liệu C của kiểu dữ
ữ liệu tự định nghĩa
n

B

C lỗi xảy ra do
Có
d khai báo kiể
ểu dữ liệu tự định
đ
nghĩa khô
ông nằm trong
g chương trình
h Sub1

C

G trị của biế

Giá
ến F là: 4


D

G trị của biế
Giá
ến F là: 0

(7) Trong
g UserForm ch
hính của dự án như hình sa
au:

Trong UsserForm này có
ó số lượng Co
ontrols (điều khiển) là:

A

2
27

B

1
10

C

7

D

1
17

(8) Chươ
ơng trình VBA trong AutoCA
AD như sau:
Public Sub Sub1()
Dim
m A As Acad
dDimRadial
Dim
m B, C, D(2
2) As Doubl
le
C = D: C(0) = C(0) + 10
00
B = 50
Set
t A = ThisD
Drawing.Mod
delSpace.Ad
ddDimRadial
l(D, C, B)
A.P
PrimaryUnit

tsPrecision
n = acDimPr
recisionZer
ro
End Sub
b
Khi thực hiện thì hình sau
s được vẽ ra
a trong Modell của AutoCAD
D:

A
B
C
D

R50p
R
R
R100p
o
oR50
o
oR100
0


(9) Chươ
ơng trình VBA trong AutoCA
AD như sau:

Const p
pi = 3.1416
6
Public Sub Sub2()
Dim
m A As Acad
dEntity
Dim
m B(2) As Double,
D
C(5
5) As Doubl
le
Dim
m i As Inte
eger
For
r i = 0 To 2
C(i * 2) = Cos(i * pi * 2 / 3)
3
C(i * 2 + 1) = Sin(
(i * pi * 2 / 3)
Nex
xt i
Set
t A = ThisD
Drawing.Mod
delSpace.Ad
ddCircle(B,
, 5)

A.A
ArrayRectan
ngular 3, 2,
2 1, 20, 20,
2
20
End Sub
b
Khi thực hiện thì hình sau
s được vẽ ra
a trong bản vẽ
ẽ của AutoCAD
D:

A

B

C

D
(10) Chư
ương trình VBA
A trong AutoC
CAD như sau:
Const p
pi = 3.1416
6
Public Sub Sub1()
Dim

m A(9) As Double
D
Dim
m B As Acad
dEntity
Dim
m i As Long
g
For
r i = 0 To 4
A(i * 2) = Cos(i * 4 * pi / 5 + pi / 2)
)
A(i * 2 + 1) = Sin(
(i * 4 * pi
i / 5 + pi / 2)
Nex
xt
Set
t B = ThisD
Drawing.Mod
delSpace.Ad
ddLightWeig
ghtPolyline
e(A)
B.C
Closed = Tr
rue
End Sub
b
Khi thực hiện thì hình sau

s được vẽ ra
a trong bản vẽ
ẽ của AutoCAD
D:


A

B

C

D

(11) Chư
ương trình VBA
A trong AutoC
CAD như sau:
1. Publ
lic Sub Sub
b1()
2.
Di
im A As Aca
adSelection
nSet
3.
Se
et A = This
sDrawing.Se

electionSet
ts.Add("SS1
1")
4.
A.
.SelectOnSc
creen
5.
Di
im B As Aca
adEntity
6.
Fo
or Each B In
I A
7.
B.Color = acBlue
8.
B.Update
9.
Ne
ext B
10. End
d Sub
Khi chạy chương trình trên thì:
A
AutoCAD
sẽ yê
êu cầu người dùng chọn cá
ác đối tượng hình

h
học trên màn hình, sa
au khi kết thúcc chọn thì
t cả các đối tượng được chọn sẽ chuyển
tất
n sang màu accBlue
A

B

C đối tượng được thêm và
Các
ào tập đối tượ
ợng A sẵn có và
v đổi màu các đối tượng nà
ày thành màu acBlue

C

K
Không
chạy đư
ược do có lỗi ở dòng 4

D

K
Không
chạy đư
ược do có lỗi ở dòng 7 và 8

(12) Chương trình VBA trong AutoCAD như sau:
1. Public Sub Sub1()
2.
Dim A As AcadSelectionSet
3.
Dim B As AcadText
4.
Dim i
5.
Set A = ThisDrawing.SelectionSets.Add("MySSet")
6.
A.Select acSelectionSetAll
7.
For i = 0 To (A.Count - 1)
8.
If A.Item(i).ObjectName = "AcDbText" Then
9.
Set B = A.Item(i)
10.
B.color = acBlue
11.
End If
12.
Next
13. End Sub
Khi chạy chương trình trên thì:

A

Toàn bộ những đối tượng không phải là Text và Mtext trong bản vẽ sẽ được đổi sang màu acBlue

B

Toàn bộ những đối tượng Text trong bản vẽ sẽ được đổi sang màu acBlue

C

Toàn bộ những đối tượng Text và Mtext trong bản vẽ sẽ được đổi sang màu acBlue

D

Toàn bộ những đối tượng không phải là Text trong bản vẽ sẽ được đổi sang màu acBlue