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

• 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

Trang 1

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

Trang 2

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:

A

Private Sub UserForm_Initialize()

ListBox1.AddItem "Section 1", 0

End Sub

B

ListBox1.AddList "Section 1", 0

End Sub

C

ListBox1.AddText "Section 1", 0

End Sub

D

ListBox1.AddValue "Section 1", 0

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

A B = BoMon C = Duong

D = nTuDon

B B = BoMon C = Duong

D = TuDon

C B = Duong C = BoMon

D = nTuDon

D B = Duong C = BoMon

D = TuDon

Trang 3

(3) Hai c

Public

Fun

End Fun

Public

Dim

D =

G =

End Sub

Khi thực

A C

B G

C G

D G

(4) Trong

Chương t

Public

Dim

Set

Dim

For

Nex

Deb

End Sub

Khi thực

A T

B T

C T

D K

chương trình V

Function F

nc1 = A + B

nction

Sub Sub1()

m D As Doub

= 10: E = 2

= Module1.F

b

hiện chương t

Có lỗi xảy ra k

Giá trị biến G

g Sheet1 của

trình VBA tron

Sub Sub1()

m A As Rang

t A = ThisW

m C As Doub

r Each B In

C = C + B

xt

bug.Print C

b

hiện chương t

Trong cửa số

Không chạy đư

VBA trong Mod Func1(A As

B * C

ble, E As D 2: F = 5 Func1(B:=D,

trình thì:

khi gọi chương là: 20 là: 25 là: 52 Excel có dữ liệ

ng Excel như s

ge, B As Ra Workbook.Wo ble

n A.Offset(

B.Value

C

trình thì:

Immediate x Immediate x Immediate x

ược do có lỗi

dule1 như sau Double, B

Double, F A

, A:=E, C:=

g trình Func1 t

ệu như sau:

sau:

ange orksheets(1

(1, -1)

xuất hiện: 69 xuất hiện: 45 xuất hiện: 54

:

As Double,

=F)

trong Sub1

1).Range("B

, C As Doub

G As Doubl

B3:D4")

ble)

le

Trang 4

(5) Trong

Chương t

Public

Dim

Set

For

Nex

End Sub

Khi thực

A 0

B 3

C 1

D 1

(6) Chươ

Type Ty

A A

B A

End Typ

Type Ty

C A

D A

End Typ

Sub Sub

On

Dim

ReD

E(1

E(3

ReD

F =

End Sub

Khi thực

A C

B C

C G

g sheet hiện h

trình VBA tron

Sub Sub1()

m A As Rang

m C As Doub

t A = ThisW

r Each B In

C = C + B

xt

b

hiện chương t

0

3

11

14

ơng trình VBA

ype1

As Double

pe

ype2

As Type1

As Double

pe

b1()

Error Resu

m E() As Ty

Dim E(1 To

1).D = 2: E

3).C.B = 4

Dim Preserv

= E(1).C.A

b

hiện chương t

Có lỗi xảy ra k

Có lỗi xảy ra d

Giá trị của biế

hành của Exce

ng Excel như s

ge, B As Ra ble

Workbook.Ac

n A.Offset(

B.Cells.Val

trình, giá trị củ

sau:

ume Next ype2, F 3) As Type E(2).C.A =

ve E(1 To 1 + E(2).C.B

trình thì:

khi khai báo tr

do khai báo kiể

ến F là: 4

el có dữ liệu n

sau:

ange

ctiveSheet

(2, 1) lue

ủa biến C là:

e2

3

10) As Type

B + E(3).C

rường dữ liệu C

ểu dữ liệu tự đ

hư sau:

.UsedRange

e2 .B

C của kiểu dữ định nghĩa khô

ữ liệu tự định n ông nằm trong

nghĩa

g chương trìnhh Sub1

Trang 5

D G

(7) Trong

Trong Us

A 2

B 1

C 7

D 1

(8) Chươ

Public

Dim

C =

B =

Set

A.P

End Sub

Khi thực

Giá trị của biế

g UserForm ch

serForm này có

27

10

7

17

ơng trình VBA

Sub Sub1()

m A As Acad

m B, C, D(2

= D: C(0) =

= 50

t A = ThisD

PrimaryUnit

b

hiện thì hình s

R50p

R100p

oR50

oR100

ến F là: 0

hính của dự á

ó số lượng Co

trong AutoCA dDimRadial 2) As Doubl

= C(0) + 10

Drawing.Mod tsPrecision

sau được vẽ ra

0

n như hình sa

ontrols (điều k

AD như sau:

le

00

delSpace.Ad

n = acDimPr

a trong Model

au:

hiển) là:

ddDimRadial recisionZer

l của AutoCAD

l(D, C, B)

ro

D:

Trang 6

(9) Chươ

Const p

Public

Dim

For

Nex

Set

A.A

End Sub

Khi thực

A

B

C

D

(10) Chư

Const p

Public

Dim

For

Nex

Set

B.C

End Sub

Khi thực

ơng trình VBA

pi = 3.1416

Sub Sub2()

m A As Acad

m B(2) As D

m i As Inte

r i = 0 To

C(i * 2)

C(i * 2 +

xt i

t A = ThisD

ArrayRectan

b

hiện thì hình s

ương trình VBA

pi = 3.1416

Sub Sub1()

m A(9) As D

m B As Acad

m i As Long

r i = 0 To

A(i * 2)

A(i * 2 +

xt

t B = ThisD

Closed = Tr

b

hiện thì hình s

trong AutoCA

6

dEntity Double, C(5 eger

2

= Cos(i * + 1) = Sin(

Drawing.Mod ngular 3, 2

A trong AutoC

6

Double dEntity

g

4

= Cos(i * + 1) = Sin(

Drawing.Mod rue

AD như sau:

5) As Doubl

pi * 2 / 3 (i * pi * 2

delSpace.Ad

2, 1, 20, 2

a trong bản vẽ

CAD như sau:

4 * pi / 5 (i * 4 * pi

delSpace.Ad

a trong bản vẽ

le

3)

2 / 3)

ddCircle(B,

20, 20

ẽ của AutoCAD

5 + pi / 2)

i / 5 + pi

ddLightWeig

ẽ của AutoCAD

, 5)

D:

) / 2)

ghtPolyline

D:

e(A)

Trang 7

A

B

C

D

(11) Chư

1 Publ

2 Di

3 Se

4 A

5 Di

6 Fo

7

8

9 Ne

10 End

Khi chạy

A At

B C

C K

D K

ương trình VBA

lic Sub Sub

im A As Aca

et A = This

.SelectOnSc

im B As Aca

or Each B I

B.Color =

B.Update

ext B

d Sub

chương trình

AutoCAD sẽ yê

tất cả các đối

Các đối tượng

Không chạy đư

A trong AutoC b1() adSelection sDrawing.Se creen adEntity

In A acBlue

trên thì:

êu cầu người tượng được c được thêm và ược do có lỗi ở ược do có lỗi ở

CAD như sau:

nSet electionSet

dùng chọn cá họn sẽ chuyển

ào tập đối tượ

ở dòng 4

ở dòng 7 và 8

ts.Add("SS1

ác đối tượng h

n sang màu ac ợng A sẵn có v

8

1")

hình học trên cBlue

và đổi màu cá

màn hình, sa

c đối tượng nà

au khi kết thúc

ày thành màu

c chọn thì

acBlue

Trang 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

Định dạng
Số trang	8
Dung lượng	351,22 KB