Đề cương môn học tin học trong xây dựng

Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng Đề cương môn học tin học trong xây dựng

Môn học TIN HỌC XÂY DỰNG Đề cương môn học TIN HỌC TRONG XÂY DỰNG TT Nội dung - Câu lệnh, sử dụng dấu (:), gạch (_) - Ghi chú, dấu nháy đơn (‘) - Sử dụng trợ giúp Options  Editor - Kiểu liệu đơn - Kiểu liệu mảng - Kiểu liệu tự định nghĩa - Khai báo biến số - Toán tử ( + - * / ^ Not And Or = > >= < = And B = "GOOD" Then Debug.Print "Dat" 'Dong End Sub a Sai dòng b Kết : “Cam thi lai” c Kết : “Dat” d Kết : “Duoc thi lai” Cho đoạn mã lệnh Private Function Cau4(ByVal Number As Integer) As String Dim SoTuNhien as String Select Case Number Case To SoTuNhien = "Between and 5" Môn học TIN HỌC XÂY DỰNG Case 6, 7, SoTuNhien = "Between and 8" Case To 10 SoTuNhien = "Greater than 8" Case Else SoTuNhien = "Not between and 10" End Select Cau4 = SoTuNhien End Function Đoạn mã lệnh biến Ketqua nhận giá trị “Greater than 8” a Public Sub Main() Dim ketqua as String Ketqua=Cau4 End Sub b Public Sub Main() Dim ketqua as String Ketqua= Cau4 (9) End Sub c Public Sub Main() Dim ketqua as String Ketqua= Cau4 (11) End Sub d Public Sub Main() Dim ketqua as String Cau4 (10) End Sub Cho biết kết cửa sổ Immediate sau thực đoạn mã lệnh sau: Public Sub Cau5() Dim i, A, B, SoChan As Integer A = 1: B = 10 i = A SoChan = Do Until i > B If (i Mod 2) = Then SoChan = SoChan + i = i + Loop Debug.Print ("So chu so chan = " & SoChan) End sub a So chu so chan = Môn học TIN HỌC XÂY DỰNG b So chu so chan = c So chu so chan = d So chu so chan = SoChan Cho đoạn mã lệnh sau: Sub Cau6() Const str = "For_Each_In_Next_String" Dim strArr() As String strArr = Split(str, "_") Dim BienChay As String For Each BienChay In strArr Debug.Print BienChay Next End Sub a b c d ' ' ' ' ' ' ' Dong Dong Dong Dong Dong Dong Dong Không thực sai dòng Không thực sai dòng Không thực sai dòng Đoạn chương trình thực lỗi kết sau thực sau Viết đoạn mã lệnh sử dụng vòng lặp xác định tính tích số chẵn từ đến 20 Chọn nhận định a Sau thực hiện, chương trình dạng hàm tạo giá trị chương trình dạng thủ tục thực số biến đổi bên mà không trả giá trị Do đó, gọi chương trình dạng hàm phép gán (với dấu =) mà gọi chương trình dạng thủ tục theo cách b Khi gọi chương trình dạng hàm thủ tục phải đặt tham số chúng dấu ngoặc đơn “()” c Khi khai báo chương trình dạng hàm, bắt buộc phải khai báo kiểu giá trị hàm d Chương trình dạng hàm thủ tục không đặt module Môn học TIN HỌC XÂY DỰNG Hình Môn học TIN HỌC XÂY DỰNG Ôn tập chương (Các mục 5.2.5, 5.2.6, 7.2, 7.3, 7.4) Để lấy giá trị ô B2 Sheet2 tệp tài liệu hành gán cho biến A (kiểu Variant), mã lệnh sau: a b c d A A A A = = = = ActiveWorkbook.Worksheets(2).Range("B2").Value ActiveWorkbook.Worksheets("Sheet2").Range("B2") ActiveWorkbook.Worksheets(2).Range(B2).Value ActiveWorkbook.Worksheets(Sheet2).Range(B2).Value Hãy cho biết cửa sổ thông báo MsgBox biểu diễn kết mã lệnh a b c d Worksheets(“Sheet1”).Range("B2:E4").Address Worksheets(“Sheet1”).Range("B2:E4").Cells(2, 3).Address Worksheets(“Sheet1”).Range("B2:E4").Cells(5).Address Worksheets(“Sheet1”).Cells(2, 3).Address Với giá trị ô cho sẵn Sheet1 Workbook hành, cho biết kết biến Tong sau thực đoạn chương trình VD_Cells đây: Sub VD_Cells() Dim myCell As Range Dim Tong As Double Tong = For Each myCell In _ Worksheets("Sheet1").Range("A2.C4,D5,E6").Cells Tong = Tong + myCell.Value Next myCell MsgBox Tong End Sub ‘Dòng ‘Dòng ‘Dòng ‘Dòng ‘Dòng ‘Dòng ‘Dòng ‘Dòng ‘Dòng ‘Dòng 10 Môn học TIN HỌC XÂY DỰNG a Không thực Lỗi dòng b c d Hãy cho biết kết hình thực đoạn mã lệnh sau đây: a Dim cel As Range For Each cel In ActiveSheet.[b2:e8].Rows cel.Value = cel.Row Next b Dim cel As Range For Each cel In ActiveSheet.[b2:e8].Columns cel.Value = cel.Column Next c Dim cel As Cell For Each cel In ActiveSheet.[b2:e8].Rows cel.Value = cel.Row Next d Dim cel As Range For Each cel In ActiveSheet.[b2:e8] cel.Value = cel.Rows Môn học TIN HỌC XÂY DỰNG Next Để thêm Worksheet vào Workbook hành, đoạn mã lệnh sai: a Sub Tao_moi_worksheet() Dim ws As Worksheet Set ws = Worksheets.Add End Sub b Sub Tao_moi_worksheet() Dim ws As Worksheet ws = Sheets.Add(Before:=Sheets(Sheets.Count), _ Type:=xlWorksheet) End Sub c Sub Tao_moi_worksheet() Dim ws As Worksheet Set ws = Sheets.Add(After:=Sheets(1), _ Type:=xlWorksheet) End Sub d Sub Tao_moi_worksheet() Dim ws As Worksheet Set ws = Sheets.Add(After:=Sheets(1)) End Sub Xét đoạn mã lệnh Sub VD_Cells() Dim myCell As Range Dim Tong As Double Tong = For Each myCell In Worksheets("Sheet1").UsedRange ‘ ‘ ‘ ‘ Dòng Dòng Dòng Dòng Môn học TIN HỌC XÂY DỰNG If myCell.Value >= Then Tong = Tong + myCell.Value Else myCell.BorderAround ColorIndex:=1, _ Weight:=xlMedium End If Next myCell MsgBox "Tong=" & Tong End Sub ‘ ‘ ‘ ‘ ‘ ‘ ‘ ‘ Dòng Dòng Dòng Dòng Dòng Dòng Dòng Dòng 10 11 12 a Hiển thị Msgbox tổng ô chứa số lớn nằm Sheet1, ô chứa giá trị âm tô viền xung quanh (xem hình trên) b Hiển thị Msgbox tổng ô chứa số lớn nằm vùng có chứa liệu Sheet1, ô chứa giá trị âm tô viền xung quanh (xem hình c Không thực lỗi dòng d Không thực lỗi dòng CÂU HỎI ÔN TẬP Chương – Lập trình AutoCAD (phần 1) 1) Các lệnh AutoCAD thực thông qua A) Dòng lệnh B) Các trình đơn C) Dòng lệnh, trình đơn công cụ D) Thanh công cụ 2) Nhận định sai: A) Khi làm việc AutoCAD, người dùng thao tác với không gian vẽ ModelSpace B) Khi làm việc AutoCAD, người dùng thao tác với không gian in PaperSpace C) Khi làm việc AutoCAD, người dùng thao tác với đồng thời không gian in ModelSpace không gian vẽ PaperSpace D) Khi làm việc AutoCAD, người dùng thao tác với không gian in ModelSpace không gian vẽ PaperSpace 3) Sử dụng AutoCAD, vẽ tạo A) Không gian in PaperSpace B) Không gian vẽ ModelSpace C) Cả không gian in không gian vẽ D) Trong không gian in không gian vẽ 4) Trong nhận định dự án VBA kiểu nhúng (Embedded Project) AutoCAD, nhận định đúng: A) Chỉ có hiệu lực vẽ chứa không chuyển sang dự án dạng độc lập (Global Project) B) Tự động tải mở vẽ nên người dùng thực thao tác với trình quản lý dự án VBA để tải lên C) Được lưu trữ với vẽ mà không ảnh hưởng đến độ lớn của tệp vẽ chứa dự án Môn học TIN HỌC XÂY DỰNG D) Dự án nhúng làm việc vẽ chứa dự án đóng 5) Trong AutoCAD, dự án VBA dạng độc lập – Global Project có đặc điểm: A) Có hiệu lực với tất vẽ B) Được tự động tải vào vẽ mở C) Có hiệu lực với tất vẽ mở D) Không chuyển thành dự án dạng nhúng 6) Trong AutoCAD, cách tải dự án VBA vào tệp vẽ sau: A) Gõ lệnh VBALOAD từ dòng lệnh (Commandline) Sử dụng hộp thoại VBA Manager chọn nút lệnh Load B) Sử dụng hộp thoại VBA Manager chọn nút lệnh Load C) Gõ lệnh VBALOAD từ dòng lệnh (Commandline) D) Bấm tổ hợp phím Alt + F11 7) Trong AutoCAD, để nhúng dự án VBA dạng độc lập vào vẽ thực sau: A) Trong cửa sổ VBA Manager, chọn vẽ cần nhúng dự án, chọn dự án cần nhúng bấm vào nút lệnh Load B) Trong cửa sổ VBA Manager, chọn vẽ cần nhúng dự án, chọn dự án cần nhúng bấm vào nút lệnh Embed C) Trong cửa sổ VBA Manager, chọn vẽ cần nhúng dự án, chọn dự án cần nhúng bấm vào nút lệnh UnLoad D) Trong cửa sổ VBA Manager, chọn vẽ cần nhúng dự án, chọn dự án cần nhúng bấm vào nút lệnh Extract 8) Chọn đáp án A) Trong AutoCAD, sau thực nhúng dự án VBA dạng độc lập vào vẽ, dự án độc lập nhúng vào vẽ vừa nhúngđó B) Trong AutoCAD, tải dự án VBA dạng độc lập vào vẽ dự án chuyển thành dự án nhúng vẽ C) Trong AutoCAD, sau thực nhúng dự án VBA dạng độc lập vào vẽ, dự án độc lập không mà tồn hai dự án VBA giống nhau: dự án nhúng dự án độc lập D) Trong AutoCAD, tải dự án VBA dạng độc lập vào vẽ dự án không chuyển thành dự án nhúng vẽ 9) Trong AutoCAD, Macro có đặc điểm A) Là chương trình dạng Sub, phạm vi Public đặt Mô đun chuẩn B) Là chương trình dạng Sub, phạm vi Public đặt Mô đun lớp Môn học TIN HỌC XÂY DỰNG C) Là chương trình dạng Sub, phạm vi Public đặt Mô đun chuẩn Mô đun ThisDrawing D) Giống Macro Excel 10) Chọn câu trả lời sai: A) Macro VBA AutoCAD chương trình dạng thủ tục, phạm vi Public mã lệnh đặt Mô đun chuẩn Mô đun ThisDrawing B) Macro VBA AutoCAD chương trình dạng Sub, phạm vi Public mã lệnh người dùng viết trực tiếp VBA IDE C) Macro VBA AutoCAD chương trình dạng thủ tục, phạm vi Public mã lệnh tự động ghi lại theo trình tự thao tác người tạo Macro D) Macro VBA AutoCAD chương trình dạng thủ tục, phạm vi Public tên Macro tên chương trình 11) Để mở hộp thoại Macro AutoCAD, cách sai A) Bấm tổ hợp phím Alt+F11 B) Bấm tổ hợp phím Alt+F8 C) Chọn trình đơn Tools\Macro\Macros… D) Sử dụng lệnh VBARUN từ dòng lệnh 12) Dự án VBA dạng độc lập tải tự động khởi động AutoCAD A) lưu thành tệp có tên VBA.dvb B) lưu thành tệp có tên VBA.dvb đặt thư mục cài đặt AutoCAD C) đặt thư mục cài đặt AutoCAD D) tải tự động 13) Trong AutoCAD, phần mô hình phân cấp đối tượng sau: Application Documents Document Line Blocks Block Circle ModelSpace Arc PaperSpace Hatch Cách sai muốn tạo đối tượng AcadCircle (đối tượng đường tròn) vẽ: A) Dim Duongtron as AcadCircle Set Duongtron = ThisDrawing.ModelSpace.AddCircle(Center, Radius) B) Dim Duongtron as AcadCircle Set Duongtron = ThisDrawing.PaperSpace.AddCircle(Center, Radius) Môn học TIN HỌC XÂY DỰNG C) Dim Set D) Dim Set Duongtron Duongtron Duongtron Duongtron as AcadCircle = ThisDrawing.Blocks(0).AddCircle(Center, Radius) as AcadCircle = ThisDrawing.AddCircle(Center, Radius) 14) Đối tượng dùng trực tiếp để tạo đối tượng hình học vẽ AutoCAD: A) Đối tượng ModelSpace PaperSpace B) Đối tượng Document C) Đối tượng ThisDrawing D) Đối tượng Documents 15) Đối tượng Document A) Một vẽ AutoCAD B) Một vẽ mở AutoCAD C) Đối tượng thể cho thân chương trình AutoCAD D) Đối tượng ThisDrawing 16) Đối tượng phi hình học AutoCAD không bao gồm: A) TextStyle B) Layer C) Linetype D) Text 17) Chọn câu trả lời đúng: A) Trong dự án VBA, Application đối tượng kiểu Document có sẵn Đối tượng Application tham chiếu đến vẽ hành AutoCAD B) Trong dự án VBA, ThisDrawing đối tượng kiểu Document có sẵn Đối tượng ThisDrawing tham chiếu đến vẽ hành AutoCAD C) Trong dự án VBA, Document đối tượng kiểu Document có sẵn Đối tượng Document tham chiếu đến vẽ hành AutoCAD D) Trong dự án VBA, Documents đối tượng kiểu Document có sẵn Đối tượng Documents tham chiếu đến vẽ hành AutoCAD 18) Để tạo vẽ AutoCAD từ VBA, sử dụng phương thức sau A) Documents Open B) Document Open C) Documents Add D) Document Add 19) Đối tượng Document A) Là tệp vẽ B) Là tệp vẽ mở C) Là tệp vẽ hành D) Là tập đối tượng vẽ mở Môn học TIN HỌC XÂY DỰNG 20) Để đóng tệp vẽ có tên MyDrawing.dwg, mã lệnh sau: A) Documents(“MyDrawing.dwg”).Quit SaveChanges:=True B) Documents(“MyDrawing.dwg”).Close C) ThisDrawing.Close D) Document(“MyDrawing.dwg”).Close 21) Để tạo đối tượng đường thẳng vẽ AutoCAD, mã lệnh sau: A) ThisDrawing AddLine () B) ThisDrawing.ModelSpace.Linetypes.Add () C) ThisDrawing.ModelSpace.AddLine () D) ThisDrawing.Linetypes.Add () 22) Trong AutoCAD, để tạo Layer sử dụng phương thức Add sau: A) ThisDrawing.Layers.Add(“NewLayer”) B) ThisDrawing.Layer.Add(“NewLayer”) C) ThisDrawing.ModelSpace.AddLayer(“NewLayer”) D) ThisDrawing.AddLayer(“NewLayer”) 23) Trong AutoCAD, để nhận liệu từ người dùng vào dự án VBA không sử dụng cách A) Dùng phương thức GetXXXX đối tượng Utility đối tượng Document B) Nhập vào từ dòng lệnh Command C) Dùng UserForm D) Dùng hộp thoại thông dụng Inputbox 24) Khi sử dụng phương thức (hàm) GetPoint đối tượng Utility, kiểu giá trị trả phương thức (hàm) A) Kiểu điểm AcadPoint B) Mảng chiều gồm phần tử kiểu Double chứa tọa độ X, Y, Z điểm C) Kiểu Variant D) Kiểu Object 25) Utility.GetEntity Object, PickedPoint[, “Prompt”] Câu lệnh cú pháp phương thức GetEntity đối tượng Utility sử dụng để chọn đối tượng AutoCAD hình đồ họa Trong câu lệnh sử dụng phương thức GetEntity đối tượng người dùng chọn trả cho biến nào: ThisDrawing.Utility.GetEntity returnObj, basePnt, "Prompt" A) Entity B) returnObj C) basePnt D) Prompt 26) Để nhận tọa độ điểm mà người dùng nhập vào, đoạn mã lệnh sau: A) Sub test() Dim point As Variant point = ThisDrawing.ModelSpace.GetPoint(, "Nhap vao mot diem") End Sub B) Sub test() Dim point As Variant Môn học TIN HỌC XÂY DỰNG point = ThisDrawing.Utility.GetPoint(, "Nhap vao mot diem") End Sub C) Sub test() Dim point(2) As Double point = ThisDrawing.Utility.GetPoint("Nhap vao mot diem") End Sub D) Sub test() Dim point As AcadPoint Set point = ThisDrawing.Utility.GetPoint(, "Nhap vao mot diem") End Sub 27) Đoạn mã lệnh không tạo đường thẳng vẽ A) Public Sub TaoDoiTuongHinhHoc() Dim obj As AcadLine Dim StartPoint(0 To 2) As Double Dim EndPoint(0 To 2) As Double StartPoint(0) = 2#: StartPoint(1) = 2#: StartPoint(2) = 0# EndPoint(0) = 0#: EndPoint(1) = 0#: EndPoint(2) = 0# Set obj = ThisDrawing.ModelSpace.AddLine(StartPoint, EndPoint) End Sub B) Public Sub TaoDoiTuongHinhHoc() Dim obj As AcadLine Dim StartPoint(0 To 2) As Double Dim EndPoint(0 To 2) As Double StartPoint(0) = 2#: StartPoint(1) = 2#: StartPoint(2) = 0# EndPoint(0) = 0#: EndPoint(1) = 0#: EndPoint(2) = 0# Set obj = ActiveDrawing.PaperSpace.AddLine(StartPoint, EndPoint) End Sub C) Public Sub TaoDoiTuongHinhHoc() Dim obj As AcadLine Dim StartPoint(0 To 2) As Double Dim EndPoint(0 To 2) As Double StartPoint(0) = 2#: StartPoint(1) = 2#: StartPoint(2) = 0# EndPoint(0) = 0#: EndPoint(1) = 0#: EndPoint(2) = 0# Set obj = Documents(0).ModelSpace.AddLine(StartPoint, EndPoint) End Sub D) Public Sub TaoDoiTuongHinhHoc() Dim obj As AcadLine Dim StartPoint(0 To 2) As Double Dim EndPoint(0 To 2) As Double StartPoint(0) = 2#: StartPoint(1) = 2#: StartPoint(2) = 0# EndPoint(0) = 0#: EndPoint(1) = 0#: EndPoint(2) = 0# Set obj = ModelSpace.AddLine(StartPoint, EndPoint) End Sub Môn học TIN HỌC XÂY DỰNG CÂU HỎI ÔN TẬP Chương – Lập trình AutoCAD (phần 2) 28) Hãy cho biết mã lệnh thực việc vẽ đa tuyến hình đây: A) Public Sub VeDaTuyen() Dim datuyen As AcadLWPolyline Dim p(0 To 9) As Double p(0) = 7#: p(1) = 7# : p(2) = 2#: p(3) = 5# : p(4) = 6# p(5) = 5# : p(6) = 3#: p(7) = 4# : p(8) = 1# : p(9) = 2# Set datuyen = ThisDrawing.ModelSpace.AddLightWeightPolyline(p) End Sub B) Public Sub VeDaTuyen() Dim datuyen As AcadLWPolyline Dim p(0 To 9) As Double p(0) = 2#: p(1) = 1# : p(2) = 5# : p(3) = 2# : p(4) = 6# p(5) = 5# : p(6) = 3#: p(7) = 4# : p(8) = 7# : p(9) = 7# Set datuyen = ThisDrawing.ModelSpace.AddLightWeightPolyline(p) End Sub C) Public Sub VeDaTuyen() Dim datuyen As AcadLWPolyline Dim p(0 To 9) As Double p(0) = 1#: p(1) = 2# : p(2) = 6#: p(3) = 5#: p(4) = 2# p(5) = 5# : p(6) = 3#: p(7) = 4#: p(8) = 7#: p(9) = 7# Set datuyen = ThisDrawing.ModelSpace.AddLightWeightPolyline(p) End Sub D) Public Sub VeDaTuyen() Dim datuyen As AcadLWPolyline Dim p(0 To 9) As Double p(0) = 1#: p(1) = 2#: p(2) = 2#: p(3) = 5#: p(4) = 6# p(5) = 5#: p(6) = 3#: p(7) = 4#: p(8) = 7#: p(9) = 7# Set datuyen = ThisDrawing.ModelSpace.AddLightWeightPolyline(p) End Sub 29) Hãy cho biết kết sau thực đoạn mã lệnh sau: Public Sub TaoDTVanBan() Môn học TIN HỌC XÂY DỰNG Dim Dim p = Set End Sub A) B) C) D) VanBan As AcadText p As Variant ThisDrawing.Utility.GetPoint(, "Chon vi tri chen van ban") VanBan = ThisDrawing.ModelSpace.AddText(“2” , p, 5) Không thực sai cú pháp phương thức Utility.GetPoint Không thực sai cú pháp phương thức ModelSpace.AddText Đoạn mã lệnh in kết số không gian vẽ với chiều cao chữ (đơn vị vẽ) Đoạn mã lệnh in kết số không gian vẽ với chiều cao chữ (đơn vị vẽ) 30) Phương thức dùng để hiệu chỉnh đối tượng mà không sử dụng tham số: A) Copy B) Move C) Rotate D) Mirror 31) Sử dụng phương thức hiệu chỉnh đối tượng không tạo đối tượng hình học mới: A) Copy B) Mirror C) Explode D) Move 32) Hình vẽ tạo đoạn mã lệnh nào: P1 P3 P4 P2 A) Sub test() Dim cirObj As AcadCircle Dim cenPnt(0 To 2) As Double cenPnt(0) = 0: cenPnt(1) = 0: cenPnt(2) = Set cirObj = ThisDrawing.ModelSpace.AddCircle(cenPnt, 2) Dim p1(2) As Double Dim p2(2) As Double p1(0) = 1: p1(1) = : p1(2) = p2(0) = 1: p2(1) = -1: p2(2) = Dim NewObj As AcadCircle NewObj = cirObj.Mirror(p1, p2) End Sub B) Sub test() Dim cirObj As AcadCircle Dim cenPnt(0 To 2) As Double Môn học TIN HỌC XÂY DỰNG cenPnt(0) = 0: cenPnt(1) = 0: cenPnt(2) = Set cirObj = ThisDrawing.ModelSpace.AddCircle(cenPnt, 2) Dim p3(2) As Double Dim p4(2) As Double p3(0) = 0: p3(1) = : p3(2) = p4(0) = 2: p4(1) = : p4(2) = cirObj.Move p3, p4 End Sub C) Sub test() Dim cirObj As AcadCircle Dim cenPnt(0 To 2) As Double cenPnt(0) = 0: cenPnt(1) = 0: cenPnt(2) = Set cirObj = ThisDrawing.ModelSpace.AddCircle(cenPnt, 2) Dim p3(2) As Double Dim p4(2) As Double p3(0) = 0: p3(1) = : p3(2) = p4(0) = 2: p4(1) = : p4(2) = Dim NewObj As AcadCircle Set NewObj = cirObj.Copy End Sub D) Sub test() Dim cirObj As AcadCircle Dim cenPnt(0 To 2) As Double cenPnt(0) = 0: cenPnt(1) = 0: cenPnt(2) = Set cirObj = ThisDrawing.ModelSpace.AddCircle(cenPnt, 2) Dim p3(2) As Double Dim p4(2) As Double p3(0) = 0: p3(1) = : p3(2) = p4(0) = 2: p4(1) = : p4(2) = Dim NewObj As AcadCircle Set NewObj = cirObj.Copy NewObj.Move p3, p4 End Sub 33) Chọn đáp án đúng: A) Trong AutoCAD, tập đối tượng SelectionSet dùng để nhóm đối tượng hình học với nhằm mục đích hiệu chỉnh đối tượng hình học Khi mở vẽ, có đối tượng SelectionSet tạo sẵn nằm tập đối tượng SelectionSets vẽ B) Trong AutoCAD, tập đối tượng SelectionSet dùng để nhóm đối tượng hình học với nhằm mục đích hiệu chỉnh đối tượng hình học Các phương thức chọn đối tượng SelectionSet chứa tham số vị trí miền lựa chọn mà không chứa tham số tiêu chí lựa chọn C) Trong AutoCAD, tập đối tượng SelectionSet dùng để nhóm đối tượng hình học với nhằm mục đích hiệu chỉnh đối tượng hình học Khi đóng vẽ đối tượng hình học nằm đối tượng SelectionSet bị xóa với tập đối tượng SelectionSet D) Trong AutoCAD, tập đối tượng SelectionSet dùng để nhóm đối tượng hình học với nhằm mục đích hiệu chỉnh đối tượng hình học Khi đóng vẽ đối tượng hình học lựa chọn không nằm tập đối tượng SelectionSet chứa chúng Môn học TIN HỌC XÂY DỰNG 34) Mã lệnh để khai báo khởi tạo đối tượng SelectionSet sau: A) Dim Tapluachon as AcadSelectionSet Set MySSet = ThisDrawing.SelectionSets.Add("Tapluachon") B) Dim Tapluachon as AcadSelectionSet Set Tapluachon = SelectionSets.Add("Tapluachon") C) Dim Tapluachon as AcadSelectionSet MySSet = ThisDrawing.SelectionSets.Add("Tapluachon") D) Dim Tapluachon as AcadSelectionSet Set Tapluachon = ThisDrawing.SelectionSets.Add("MySSet") 35) Trong không gian vẽ AutoCAD chứa 03 đối tượng hình học: đường tròn, đường thẳng, hình chữ nhật hình vẽ Đường bao 1: mảng điểm PointList: đa tuyến thể nét đứt biểu diễn đường lựa chọn phương thức SelectByPolygon; Đường bao 2: hình chữ nhật thể nét đứt biểu diễn cửa sổ lựa chọn phương thức Select; Điểm p thể điểm lựa chọn tham số phương thức SelectAtPoint Hãy cho biết để lựa chọn tất đối tượng hình học nói sử dụng phương thức (object đối tượng kiểu SelectionSet): (có thể chọn nhiều 01 phương án) A) object.Select , p1, p2 B) object.Select , p1, p2 C) object.Select , p1, p2 D) object.SelectAtPoint p E) object.SelectOnScreen F) object.SelectByPolygon , PointList G) object.SelectByPolygon , PointList H) object.SelectByPolygon , PointList 36) Phương thức đối tượng SelectionSet thực loại bỏ đối tượng hình học khỏi đối tượng tập lựa chọn vẽ A) RemoveItems B) Delete C) Clear Môn học TIN HỌC XÂY DỰNG D) Erase 37) Đoạn mã lệnh sau thực làm việc với phần tử tập đối tượng SelectionSet Sub VD_SelectOnScreen() Dim ssetObj As AcadSelectionSet On Error Resume Next Set ssetObj = ThisDrawing.SelectionSets("MySS") ‘Dòng4 If Err Then Err.Clear Set ssetObj = ThisDrawing.SelectionSets.Add("MySS") ‘Dòng Else ssetObj.Clear End If ThisDrawing.Utility.Prompt vbCrLf & "Chon doi tuong:" ssetObj.SelectOnScreen Dim point1(0 To 2) As Double Dim point2(0 To 2) As Double point1(0) = 0: point1(1) = 0: point1(2) = point2(0) = 10: point2(1) = 0: point2(2) = Dim ent As AcadEntity For Each ent In ssetObj ent.Move point1, point2 ent.Update Next ent End Sub Hãy cho biết kết sau thực đoạn mã lệnh A) Các đối tượng không gian mô hình vẽ hành tịnh tiến sang phải 10 đơn vị vẽ B) Đối tượng lựa chọn tịnh tiến sang phải 10 đơn vị vẽ C) Không thực lỗi dòng D) Không thực lỗi dòng ... tập đối tượng Windows d Có đối tượng Workbook tập đối tượng Workbooks Môn học TIN HỌC XÂY DỰNG Hình Môn học TIN HỌC XÂY DỰNG Ôn tập chương (Các mục 5.2.5, 5.2.6, 7.2, 7.3, 7.4) Để lấy giá trị... lệnh khai báo viết sau a Public Function TinhTong() End Function b Function TinhTong() End Function c Private Function TinhTong() Môn học TIN HỌC XÂY DỰNG End Function 14 Đoạn mã lệnh gồm chương... 10 phần tử giữ nguyên giá trị phần tử mảng ban đầu Môn học TIN HỌC XÂY DỰNG 17 Viết đoạn mã lệnh định nghĩa kiểu liệu “ Sinhvien” với thông tin sau Kí hiệu Ten MaSV Nganh Ý nghĩa Tên sinh viên