ĐỀ 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 – CHUYÊN TU 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, câu hỏi có đáp án, thí sinh phải chọn đáp án đáp án • Thời gian làm 60 phút • Cần có: bút chì 2B, tẩy chì bút bi (mực) • Thí sinh tự chuẩn bị phiếu trả lời theo mẫu, ý in phô tô phiếu trả lời phải đảm bảo tỷ lệ so với gốc 100%, không bị nghiêng lệch Nếu phiếu thi không chuẩn, chấm hoàn toàn tự động máy tính, nên thi bị không (0) điểm • Trong làm thi, thí sinh không sử dụng tài liệu • Không sử dụng điện thoại di động thiết bị điện tử khác thi • Không viết, vẽ hay tạo dấu hiệu đề thi • Mỗi câu hỏi chọn đáp án nhất, chọn sai cần tẩy vết bút chì tô vào ô khác, không tẩy sạch, tính tự động loại câu hỏi • Trình tự thi sau: ¾ Thí sinh tập trung trước phòng thi trước 15 phút, đem theo thẻ sinh viên chứng minh thư nhân dân lái xe (các giấy tờ khác không chấp nhận) ¾ Giám thị gọi thí sinh vào theo danh sách dự thi trường lập ¾ Thí sinh nộp thẻ sinh viên (hoặc giấy tờ trên) cho giám thị Î Nhận đề thi Î Vào vị trí ngồi theo hướng dẫn giám thị Î Điền thông tin cá nhân mã đề vào phiếu trả lời (chỗ cần điền chữ dùng bút bi, chỗ cần tô đen dùng bút chì thực dẫn phiếu trả lời) Î Chờ hiệu lệnh làm giám thị ¾ Sau gọi hết thí sinh vào phòng thi, giám thị dành phút để thí sinh điền thông tin cá nhân 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 60 phút Î Thí sinh ngừng viết ngồi vị trí Î Kẹp thi vào đề thi Î Giám thị gọi thí sinh lên nộp theo danh sách Î Từng thí sinh đem 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 ĐỀ THI MẪU • Đề thi mẫu câu hỏi có tính tương đương với câu hỏi đề thi sử dụng thức • Đề thi mẫu tài liệu mà thí sinh nên sử dụng ôn thi • Để đạt kết tốt nhất, thí sinh nên tự làm lại dự án mẫu tập kèm Khi gặp vướng mắc nên hỏi giáo viên (1) Mã lệnh dùng để thêm giá trị vào hộp danh sách có tên Listbox1: Private Sub UserForm_Initialize() ListBox1.AddItem "Section 1", ListBox1.AddItem "Section 2", A ListBox1.AddItem "Section 3", ListBox1.AddItem "Section 4", End Sub Private Sub UserForm_Initialize() ListBox1.AddList "Section 1", ListBox1.AddList "Section 2", B ListBox1.AddList "Section 3", ListBox1.AddList "Section 4", End Sub Private Sub UserForm_Initialize() ListBox1.AddText "Section 1", ListBox1.AddText "Section 2", C ListBox1.AddText "Section 3", ListBox1.AddText "Section 4", End Sub Private Sub UserForm_Initialize() ListBox1.AddValue "Section 1", ListBox1.AddValue "Section 2", D ListBox1.AddValue "Section 3", ListBox1.AddValue "Section 4", 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ị 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 Mod dule1 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: F = G = Module1.F Func1(B:=D, , A:=E, C:= =F) End Sub b Khi thực chương trình t thì: A C lỗi xảy Có k gọi chương g trình Func1 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 Excel có liệ ệu sau: Chương trình t VBA tron ng Excel 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 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 có lỗi (5) Trong g sheet hành h Exce el có liệu sau: Chương trình t VBA tron ng Excel 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 chương trình, t giá trị củ biến C là: A B C 11 D 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 = E(3 3).C.B = ReD Dim Preserv ve E(1 To 10) As Type e2 F = E(1).C.A + E(2).C.B B + E(3).C .B End Sub b Khi thực chương trình t thì: A C lỗi xảy Có k khai báo trrường liệu C kiểu ữ liệu tự định nghĩa n B C lỗi xảy Có d khai báo kiể ểu liệu tự định đ nghĩa khô ông nằm g chương trình h Sub1 C G trị biế Giá ến F là: D G trị biế Giá ến F là: (7) Trong g UserForm ch hính dự án hình sa au: Trong UsserForm có ó số lượng Co ontrols (điều khiển) là: A 27 B 10 C D 17 (8) Chươ ơng trình VBA AutoCA AD 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 hình sau s vẽ a Modell AutoCAD D: A B C D R50p R R R100p o oR50 o oR100 (9) Chươ ơng trình VBA AutoCA AD sau: Const p pi = 3.1416 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 = To C(i * 2) = Cos(i * pi * / 3) C(i * + 1) = Sin( (i * pi * / 3) Nex xt i Set t A = ThisD Drawing.Mod delSpace.Ad ddCircle(B, , 5) A.A ArrayRectan ngular 3, 2, 1, 20, 20, 20 End Sub b Khi thực hình sau s vẽ a vẽ ẽ AutoCAD D: A B C D (10) Chư ương trình VBA A AutoC CAD sau: Const p pi = 3.1416 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 = To A(i * 2) = Cos(i * * pi / + pi / 2) ) A(i * + 1) = Sin( (i * * pi i / + 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 hình sau s vẽ a vẽ ẽ AutoCAD D: A B C D (11) Chư ương trình VBA A AutoC CAD sau: Publ lic Sub Sub b1() Di im A As Aca adSelection nSet Se et A = This sDrawing.Se electionSet ts.Add("SS1 1") A .SelectOnSc creen Di im B As Aca adEntity Fo or Each B In I A B.Color = acBlue B.Update Ne ext B 10 End d Sub Khi chạy chương trình thì: A AutoCAD yê cầu người dùng chọn cá ác đối tượng hình h học hình, sa au kết thúcc chọn t đối tượng chọn chuyển tất n sang màu accBlue A B C đối tượng thêm Các tập đối tượ ợng A sẵn có v đổi màu đối tượng nà ày thành màu acBlue C K Không chạy đư ược có lỗi dòng D K Không chạy đư ược có lỗi dòng (12) Chương trình VBA AutoCAD sau: Public Sub Sub1() Dim A As AcadSelectionSet Dim B As AcadText Dim i Set A = ThisDrawing.SelectionSets.Add("MySSet") A.Select acSelectionSetAll For i = To (A.Count - 1) If A.Item(i).ObjectName = "AcDbText" Then Set B = A.Item(i) 10 B.color = acBlue 11 End If 12 Next 13 End Sub Khi chạy chương trình thì: A Toàn đối tượng Text Mtext vẽ đổi sang màu acBlue B Toàn đối tượng Text vẽ đổi sang màu acBlue C Toàn đối tượng Text Mtext vẽ đổi sang màu acBlue D Toàn đối tượng Text vẽ đổi sang màu acBlue ... 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 Mod dule1 sau: Public Function Func1(A... ListBox1.AddItem "Section 1", ListBox1.AddItem "Section 2", A ListBox1.AddItem "Section 3", ListBox1.AddItem "Section 4", End Sub Private Sub UserForm_Initialize() ListBox1.AddList "Section 1", ListBox1.AddList... ListBox1.AddList "Section 2", B ListBox1.AddList "Section 3", ListBox1.AddList "Section 4", End Sub Private Sub UserForm_Initialize() ListBox1.AddText "Section 1", ListBox1.AddText "Section 2", C ListBox1.AddText