bài tập tin học xây dựng

Câu3.Chương trình VBA như sau: Public Sub Sub1 Câu4.Chương trình VBA như sau: Public Sub Sub1 Khi thực hiện thì kết quả nhận được sẽ là: A Xuất hiện thông báo: 5 B Xuất hiện thông báo

Trang 1

Câu.1.Chương trình VBA như sau:

ATrong cửa sổ Immediate xuất hiện : 4

B.Trong cửa sổ Immediate xuất hiện : 3

C.Trong cửa sổ Immediate xuất hiện : 10

D.Không chạy khi có lỗi

Câu2 Trong sheet1 của bảng excel có giá trị như hình dưới

Chương trình VBA trong Excel như sau :

Public sub sub1 ()

Dim A As Double Dim B As Double Dim i As Integer Set A = This.Workbook.worksheets(1).Range(”A1:C2”)

Trang 2

Câu3.Chương trình VBA như sau:

Public Sub Sub1()

Khi thực hiện thì kết quả nhận được sẽ là:

(A) Xuất hiện thông báo: 5 ( B) Xuất hiện thông báo: 6

(C) Xuất hiện thông báo: 4 (D) Không chạy được do có lỗi

Câu5.Trong Sheet1 của Excel có vùng dữ liệu như hình dưới:

HONG SON CTGTCC- K54

Trang 3

Chương trình VBA trong Excel như sau:

Public Sub Sub1()

Dim A As Long Range, B As Range

Dim C As Long: C = 0

Set A = ThisWorkbook.Worksheets(1).Range(“A2:B4”)

For Each B In A.Columns(1).Cells

If Trim(B,Value) = “Betong200” Then

Câu6 Chương trình VBA như sau:

Public Sub Sub1()

A.Không chạy khi có lỗi

B.Trong c ửa sổ Immediate xuất hiện :A+B=223

C.Trong cửa sổ Immediate xuất hiện :A+B= “& (A+B)

D.Trong cửa sổ Immediate xuất hiện :100+123

Câu7 Chương trình VBA như sau:

Public Sub Sub1()

Dim A As Double , Dim B As Double ,

Dim C As Double , Dim D Double

(A) Xuất hiện thông báo:D >=0 (B) Xuất hiện thông báo:D < 0

(C) Xuất hiện thông báo:D = 20 (D) Không chạy được do có lỗi

Trang 4

Câu8 Chạy chương trình VBA trong AutoCAD như sau:

Public Sub Sub1()

Câu9: Chương trình VBA trong AutoCAD như sau:

Public Sub Sub1()

Dim A(1 To 3) As Double

Trang 5

Câu10.Chương trình VBA trong auto CAD như sau :

Public Sub Sub1 ()

Dim A As Acadselectionset

Set A = ThisDrawing.Selectionset.Add(“$$”)

End Sub

Khi thực hiện thì:

A.autoCad yêu cầu người dùng đưa vào tên của tập đối tượng A

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

C.Tập đối tượng có tên là $$ được tạo ra trong bản vẽ hiện hành của AutoCad

D.Tập đối tượng A được tạo ra trong bản vẽ hiện hành của AutoCad

Câu11.Trong một mô-đun có 2 chương trình VBA như sau :

Public Function Fune1( A As Double, B As Double)As Double

Public Sub Sub1()

Dim C As Double, D As Double

C = 10: D = 11

MsgBox Func1(C, D)

End Sub

Khi thực hiện chương trình Sub1 thì:

(A) Xuất hiện thông báo: 0 (B) Xuất hiện thông báo: 10

(C) Không chạy được do có lỗi (D) Xuất hiện thông báo: 11

Câu12.Chương trình VBA trong AutoCAD như sau:

1: Public Sub Sub1()

2: Dim A(1 To 2) As Double

Trang 6

(A) Trong AutoCAD xuất hiện hình vẽ sau (không bao gồm các chữ số tọa độ):

(B) Trong AutoCAD xuất hiện hình vẽ sau (không bao gồm các chữ số tọa độ):

(C) Chương trình không chạy được do lỗi tại dòng lệnh số 8

(D) Chương trình không chạy được do lỗi khai báo biến tọa độ (dòng lệnh số , 3 và 4) thiếu

thành

chỉ có X và Y)

Câu13: Trong một mô–đun có 2 chương trình VBA như sau:

Public Function Func1(A As Double, B As Double) As Double

Public Sub Sub1()

Dim C As Double, D As Double

C = 10; D = 11

MsgBox Func1(C, D) & “ + “ & Func2(C, D)

End Sub

(A) Không chạy được do có lỗi (B) Xuất hiện thông báo: 10+11

(C) Xuất hiện thông báo: 11+10 (D) Xuất hiện thông báo: 21

Trang 7

Câu14: Chương trình VBA trong Excel như sau:

Public Sub Sub1 ()

ThisMorkbook.ActiveSheet.Range (“B3:D6”).Cells (2,1)

ThisMorkbook.ActiveSheet.Cells (2,1) Value = 10

End Sub

Khi thực hiện thì trong Sheet hiện hành của Excel có kết quả như sau:

(A) Giá trị ô B4 bằng 10, giá trị ô B1 bằng 10 (B) Giá trị ô B4 bằng 10, giá trị ô A1 bằng 10

(C) Giá trị ô B4 bằng 10, giá trị ô A2 bằng 10 (D) Giá trị ô B2 bằng 10, giá trị ô A2 bằng 10

Câu 15: Chương trình VBA như sau:

Public Sub Sub1 ()

A(1) = 0: A(2) = 1: A(3) = 2

A(3) = A(1) + A(2)

Debug.Print A(1); A(2) ; A(3)

End Sub

(A) Không chạy được do có lỗi (B) Trong cửa sổ Immediate xuất hiện: 0 1

(C) Trong cửa sổ Immediate xuất hiện: (D) Trong cửa sổ Immediate xuất hiện:

0 1 2 A(1) A(2) A(3)

Câu 16: Chương trình VBA như sau:

Public Sub Sub1()

Khi thực hiện chương trình thì:

(A) Xuất hiện thông báo: 22 (B) Xuất hiện thông báo : 33

(C) Xuất hiện thông báo: 11 (D) Không chạy được do có lỗi

Trang 8

Câu17.Chương trình VBA trong AutoCAD như sau:

Public Sub Sub1()

Câu18 Chương trình VBA như sau:

Public Sub Sub1()

Dim A As Double, B As Double, C As Double

(A) Biến C có giá trị: 20 (B) Biến C có giá trị: 30

(C) Biến C có giá trị: 10 (D) Không chạy được do có lỗi

Trang 9

Câu19.Chương trình VBA trong AutoCAD như sau:

A Chương trình không chạy được do lỗi tại dòng lệnh số 5

B Vẽ đường LWPolyline đi qua các điểm: (1,1), (1, 2), (2, 1) và (2, 2) trong Model của AutoCAD

C Chương trình không chạy được do lỗi tại dòng lệnh số 4

D Vẽ đoạn thẳng có tọa độ điểm đầu là (1, 1) và điểm cuối là (2, 2) trong Model của AutoCAD

Câu 20 Chương trình VBA trong AutoCAD như sau:

Public Sub Sub1()

Trang 10

Câu21 Chương trình VBA trong AutoCAD như sau:

Public Sub Sub1()

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

B.Vẽ đoạn văn bản có nội dung là “Text” tại điểm có tọa độ là(1, 1) và nghiêng góc 45 độ

so với phuwowng ngang trong Model của AutoCAD

C.Vẽ đoạn văn bản có nội dung là “Text” tại điểm A trong Model của AutoCAD

D.Vẽ đoạn văn bản có nội dung là “Text” tại điểm A và nghiêng góc 90 độ so với phương

ngang trong Model của AutoCAD

Câu 22.Chương trình VBA sau :

Public sub sub1 ()

A.Không thực hiện được do lỗi

B.Thông báo có nội dung “ i<3” suất hiện 2 lần

C.Thông báo có nội dung “ i<3” suất hiện 3 lần

D.Thông báo có nội dung “ i<3” suất hiện 1 lần HONG SON CTGTCC- K54

Trang 11

Câu 23 Chương trình VBA trong Auto Cad như sau :

Public sub sub1 ()

Dim A (1 To 3) As Double

Dim B(1 To 3) As Double

Dim C As AcadLine

A(1) = 1 : A(2) = 2 : A(3) = 0

A(1) = 2 : A(2) = 2 : A(3) = 0

Set C=ThisDrawing.Modelspace.AddLine (A, B )

A(1) = 2 : A(2) = 1 : A(3) = 0

C.Mirror A, B

End sub

Khi thực hiện thì sẽ vẽ ra bản AutoCad hình sau: ( Chỉ bao gồm các đoạn thẳng,

không bao gồm các chữ số tọa độ của các điểm )

Câu 24.Chương Trình VBA trong AutoCad như sau:

Public Sub Sub1 ()

A.Vẽ đoạn thẳng đi qua có tọa độ ( 1,1) và nghiêng góc 45 độ so với phương ngang

trong Model của AutoCad

B.Vẽ đoạn thẳng đi qua 2 điểm có tọa độ (1,1) và (3,1) sau đó tạo điểm A trong

Model của AutoCad

C Vẽ đoạn thẳng đi qua 2 điểm có tọa độ (1,1) và (3,1) trong Model của AutoCad

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

Trang 12

Câu 25.Trong sheet1 của bảng excel có giá trị như hình dưới

1 10 + 20 + 30

2

Chương trình VBA trong Excel như sau :

Public sub sub1 ()

A.Không chạy được do có lỗi B.Biến A có giá trị.A1:Value

C.Biến A có giá trị : 60 D.Biến A có giá trị: 10 + 20 + 30

Câu 26.Chương trình VBA như sau :

Public Sub Sub1()

Dim A As Double , Dim B As Double

Trang 13

Câu27 Trong một mô-đun có 2 chương trình VBA như sau:

Public Sub Sub1(A As Double, B As Double)

MsgBox “A + B = “&(A + B)

(A) Không chạy được do có lỗi (B) Xuất hiện thông báo A + B=”&( A + B )

(C) Xuất hiện thông báo: A + B = 0 (D) Xuất hiện thông báo: A + B = 3

(A) Trong cửa sổ Immediate xuất hiện: 3 (B) Trong cửa sổ Immediate xuất hiện: 1+2

(C) Trong cửa sổ Immediate xuất hiện: B= A.A+A.B (D) Không chạy được do có lỗi

Khi thực hiện chương trình thì:

A.Không chạy được do có lỗi ở dòng lệnh số 8 vì phép cộng sai

B.Không chạy được do có lỗi ở dòng lệnh số 6 vì phép gán sai

C.Xuất hiện thông báo: 33

D.Xuất hiện thông báo: 21

Trang 14

Câu30. Khi thực hiện thì vẽ ra trong bản vẽ AutoCAD hình sau:

Public Sub Sub1()

Dim A As Variant, B As Variant

Public Sub Sub1 ()

Trang 15

(C) D)

Public Sub Sub1()

Dim A As AcadLayer, B As AcadLayer

Set A = ThisDrawing.Layers.Add(“AA”)

Set B = ThisDrawing.Layers(“AA”)

End Sub

Khi thực hiện chương trình trên thì:

A.Hai lớp mới sẽ được thêm vào bản vẽ với tên tương ứng là A và B

B Một lớp mới sẽ được thêm vào bản vẽ với tên là AA

C.Một lơp mới sẽ được thêm vào bản vẽ với tên là B

D Ba lớp mới được thê vào bản vẽ

Câu33 Chương trình VBA trong AutoCAD như sau:

Public Sub Sub1()

A AutoCAD sẽ vẽ đoạn văn bản có nội dung là “Text” tại điểm A trong Model của AutoCAD

B.AutoCAD yêu cầu nhập một đoạn văn bản và sẽ vẽ đoạn văn bản đó tại điểm A trong

Model của AutoCAD

C.AutoCAD yêu cầu nhập một đoạn văn bản và sẽ vẽ một đoạn văn bản có nội dung là “Text”

tại điểm A trong Model của AutoCAD

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

Câu34.Chương trình VBA trong Excel như sau:

Public Sub Sub1()

Dim A As Range

Set A = Application.InputBox(“Nhap so lieu”, Type:-8)

End Sub

(A) Không chạy được do có lỗi (B) Xuất hiện giá trị biến A trong Exel

(C) Xuất hiện hộp thoại yêu cầu nhập dữ liệu trong Exel (D) Xuất hiện giá trị bằng B trong Exel

Trang 16

Public Sub Sub1()

Câu36.Chương trình VBA trong AutoCAD như sau:

Public Sub Sub1()

Dim A(0 To 7) As Double

(D) Không chạy được do có lỗi

37 Chương trình VBA như sau:

Trang 17

A.Không chạy được do biến A chưa khai báo trong chương trình con Sub1 và Sub2

B.Xuất hiện thông báo: A = 0

C.Xuất hiện thông báo: A = 123

D.Không chạy được do biến a khai báo sai vị trí

Public Sub Sub1()

A.Không tực hiện được do có lỗi

B.Trên bản vẽ AutoCAD, tọa độ Y của điểm A sẽ được in ra với chiều cao chữ là 1 đơn vị bản vẽ,

tại vị trí điểm đầu của đoạn thẳng C

C.Trên bản vẽ AutoCAD, tọa độ của điểm đầu đoạn thẳng C sẽ được in ra với chiều cao chữ là 1

đơn vị bản vẽ, tại vị trí điểm đầu của đoạn thẳng C

D.Trên bản vẽ AutoCAD, chuỗi “C.startPoint(1)” sẽ được in ra với chiều cao chữ là 1 đơn vị bản

vẽ, tại vị trí điểm đầu của đoạn thẳng C

Public Sub Sub1()

Trang 18

Câu40 Trên Userform1 có chứa điều khiển Textbox1 và điều khiển Label có tên là Label1, mã sau

sẽ lấy giá trị của Textbox1 và hiển thị nó trong Label1:

(A) Label1.Caption = Textbox1.Text

(B) Label1.Value = Textbox1.Text

(C) Label1.Text = Textbox1.Text

(D) Label1.Caption= Textbox1.Caption

Public Sub Sub1()

A.AutoCAD yêu cầu người dùng chọn đối tượng hình học trên bản vẽ hiện hành

B.Tập đối tượng có tên là SS được tạo ra trong bản vẽ hiện hành của AutoCAD

C.Tập đối tượng có tên là SS bị xóa khỏi bản vẽ hiện hành trong AutoCAD

Câu42 Ý nghĩa của câu lệnh:

On Error Resume Next

A.Khi chạy chương trình nếu gặp lỗi phát sinh ở bất cứ dòng lệnh nào thì sẽ bỏ qua và chạy

đến dòng lệnh tiếp theo

B.Khi chạy chương trình nếu gặp lỗi phát sinh ở dòng lệnh kế tiếp của câu lệnh này thì

chương trình sẽ tự động lỗi

C.Khi chạy chương trình nếu gặp lỗi phát sinh ở các dòng lệnh phía trên của câu lệnh này

thì sẽ bỏ qua và chạy đến dòng lệnh tiếp theo

D.Khi chạy chương trình nếu gặp lỗi phát sinh ở dòng lệnh kế tiếp của câu lệnh này thì sẽ bỏ

qua và chạy đến dòng lệnh tiếp theo

Trang 19

Câu43 Trong Sheet1 của bảng tính Exel có giá trị như hình dưới:

Public Sub Sub1()

(A) Không chạy được do có lỗi (B) Trong cửa sổ Immediate xuất hiện: 21

(C) Trong cửa sổ Immediate xuất hiện: 6 (D) Trong cửa sổ Immediate xuất hiện: 15

Câu44 Cho nút lệnh Button1 trong Userform1, để thay đổi tiêu đề hiển thị của nút lệnh đó cần sử

dụng thuộc tính:

(C) Name (D) Caption

Câu45 Chương trình VBA trong AutoCAD như sau:

Public Sub Sub1()

Dim A(0 To 2) As Double

A.Không chạy được doc có lỗi

B.Vẽ đoạn văn bản màu acRed, có nội dung là “Text” tại điểm có tọa độ là (1, 1) trong Model của

AutoCAD

C.Vẽ đoạn văn bản có nội dung là “Text” tại điểm có tọa độ là (1, 1) trong Model của AutoCAD

D.Vẽ đoạn văn bản màu acRed, có nội dung là : “Text” trong Model của AutoCAD

Trang 20

Câu46 Trong Sheet1 của bảng tính Excel có giá trị như hình dưới:

Public Sub Sub1()

Dim A As Double

A = ThisWorkbook.Worksheets(1).Range(“A1”).Value

End Sub

(A) Biến A có giá trị: 10+20+30 (B) Biến A có giá trị: 60

(C) Không chạy được do có lỗi (D) Biến A có giá trị là: A1.Value

Public Sub Sub1()

A.AutoCad vẽ đoạn thẳng điểm nối 2 điểm A và B trong Model của Autocad

B.AutoCad yêu cầu nhập 2 điểm A và B trong Model của Autocad

C.AutoCad yêu cầu nhập 2 điểm và sẽ vẽ đoạn thẳng nối 2 điểm đó trong Model

của AutoCad

Public Sub Sub1()

Trang 21

Khi thực hiện thi:

(A) Trong cửa sổ Immediate xuất hiện: i = 3 (B) Trong cửa sổ Immediate xuất hiện: i = 1

(C) Trong cửa sổ Immediate xuất hiện: i = 3.5 (D) Trong cửa sổ Immediate xuất hiện: i = 2

Public Sub Sub1()

A.Tập đối tương có tên là SS bị xóa khỏi bản vẽ hiện hành trong AutoCAD

B.Tất cả các tập đối tượng bị xóa khỏi bản vẽ hiện hành trong AutoCAD

C.Tên tập đối tượng SS bị xóa khỏi bản vẽ hiện hành trong AutoCAD

Public Sub Suba()

(A) Không chạy được do có lỗi (B) Biến B có giá trị: 11

(C) Biến B có giá trị: 10 (D) Biến B có giá trị: 0

Trang 22

Public Sub Sub1()

Dim i As Integer, j As Integer

Public Sub Sub1 ()

Dim A() As Double

(A) Không chạy được do có lỗi (B) Trong cửa sổ Immediate xuất hiện:3

(C) Trong cửa sổ Immediate xuất hiện: 4 (D) Trong cửa sổ Immediate xuất hiện:0

Trang 23

Public Sub Sub1()

Dim A( 0 To 2) As Double

Dim B As AcadText

Set B = ThisDrawing.ModelSpace.AddText(“AAA”, A, 10)

End Sub

Khi thực hiện chương trình trên thì:

A.Thêm một dòng chữ vào bản vẽ của AutoCAD với nội dung là 10, góc nghiêng 0 độ

B.Thêm một dòng chữ vào bản vẽ của AutoCAD với nội dung AAA, chiều cao chữ là 10

C.Thêm một dòng chữ vào bản vẽ của AutoCAD với nội dung AAA, góc nghiêng của chữ là 10 độ

D.Thêm một dòng chữ vào bản vẽ của AutoCAD với nội dung A, góc nghiêng của chữ là 10 độ

Public Sub Sub1()

A(0) = 1: A(1) = 1: A(2) = 3: A(3) = 1: A(4) = 2: A(5) = 2

Call ThisDrawing.ModelSpace.AddLightWeightPollyLine(A)

End Sub

Khi thực hiện thì sẽ vẽ trong bản vẽ AutoCAD hình sau (chỉ bao gồm các đoạn thẳng, không

bao gồm các chữ số, tọa độ các điểm):

Định dạng
Số trang	26
Dung lượng	0,97 MB