Trắc Nghiệm Lập Trình Trực Quan Cơ Sở Và Nâng Cao - Đại Học Kinh Doanh Và Công Nghệ Hà Nội (HUBT) (Miễn Phí, Có Đáp Án)

Tham gia trắc nghiệm Lập Trình Trực Quan cơ sở và nâng cao miễn phí tại Đại Học Kinh Doanh Và Công Nghệ Hà Nội (HUBT), kèm theo đáp án chi tiết. Bộ câu hỏi bao gồm các khái niệm cơ bản và các kỹ thuật nâng cao trong lập trình trực quan, giúp sinh viên nắm vững kiến thức về giao diện, xử lý sự kiện, và phát triển phần mềm trực quan. Đây là tài liệu ôn tập hiệu quả cho các kỳ thi và bài kiểm tra môn Lập Trình Trực Quan tại HUBT. Hãy kiểm tra ngay kiến thức của bạn và chuẩn bị tốt cho kỳ thi với hệ thống câu hỏi có đáp án cụ thể.

Từ khoá: trắc nghiệm lập trình trực quantrắc nghiệm lập trình trực quan cơ bảnlập trình trực quan nâng caocâu hỏi lập trình trực quan có đáp ánthi thử lập trình trực quanĐại học Kinh doanh và Công nghệ Hà Nội HUBTlập trình giao diện trực quanxử lý sự kiện lập trìnhôn thi lập trình HUBTbài tập lập trình trực quanthi lập trình trực quan miễn phícâu hỏi lập trình trực quan online

Đề thi nằm trong bộ sưu tập: Tuyển Tập Đề Thi Môn Lập Trình - Miễn Phí, Có Đáp Án - Đại Học Kinh Doanh và Công Nghệ Hà Nội (HUBT)

Số câu hỏi: 265 câuSố mã đề: 7 đềThời gian: 1 giờ

143,790 lượt xem 11,050 lượt làm bài

Chọn mã đề:

Bạn chưa làm Mã đề 1!!!

Xem trước nội dung:

Câu 1: 0.25 điểm

Điều khiển DriveListBox cho phép người sử dụng?

Chọn một kết nối đến dữ liệu

Chọn một tập tin trên máy tính

Chọn lựa ổ đĩa trên máy tính

Chọn thư mục trên ổ đĩa hoặc trong thư mục

Câu 2: 0.25 điểm

Sắp xếp thứ tự các câu lệnh sau để thực hiện mở kết nối thành công
Dim cn= New ADODB.Connection
cn.open
cn.CursorLocation = adUseClient
cn.ConnectionString = Chuoi_ket_noi

1 4 2 3

1 2 3 4

2 3 4 1

tât cả đều sai.

Câu 3: 0.25 điểm

Hãy cho biết kết quả của S bằng bao nhiêu?
Sub Tong()
Dim s As Integer
Dim i As Integer
s = 0
i = 1
Do While i <> 10
s = s + i
i = i + 1
Loop
MsgBox Tong la & s
End Sub

S=45

S=10

S=11

S=1

Câu 4: 0.25 điểm

Những đối tượng nào chứa phưng thức execute

recordset, command

connection, command

command, parameter

recordset, connection

Câu 5: 0.25 điểm

Để xác định ổ đĩa E: trong máy tính với trật tự lần lượt là C:, D:, E: từ một đối tượng DriveListbox có tên là Drv1 thì ta dùng cú pháp

Drv1.List(2)

Drv1.List(1)

Drv1.List(0)

Drv1.List(3)

Câu 6: 0.25 điểm

Thuộc tính Listindex của đối tượng listbox, combobox cho ta biết:

Số chỉ mục của giá trị trong listbox

Tổng số phần tử trong listbox

Giá trị listbox được chọn

Luôn có giá trị là 0

Câu 7: 0.25 điểm

Một listbox có tên là lst1, trong đó có 3 item lần lượt là Item1, Item2, Item3. Hỏi: sau khi thực hiện lệnh lst1.additem Item4 ,0 thì listbox sẽ có các Item lần lượt là?

Item4, Item1, Item2, Item3

Item1, Item2, Item3, Item4

Item1, Item4, Item2, Item3

Item0, Item1, Item2, Item3

Câu 8: 0.25 điểm

Để xóa bỏ các thông báo đã in ra trên nền form ta dùng lệnh

cls

echo

msgbox

Câu 9: 0.25 điểm

Định nghĩa lại mảng trong VB6.0 dùng từ khóa nào?

ReDim m(x to y) as <kiểu>

Dim m(x to y) as <kiểu>

Re m(x to y) as <kiểu>

Rem m(x to y) as <kiểu>

Câu 10: 0.25 điểm

Thế nào là biến toàn cục?

Các biến khai báo ở ngoài các thủ tục, có ý nghĩa trong mọi thủ tục và các biến được khai báo sau điều lệnh Option Explicit

Các biến khai báo ở ngoài các thủ tục, có ý nghĩa trong mọi thủ tục

Các biến có ý nghĩa trong tất c các thủ tục

Các biến được khai báo ở ngoài các thủ tục

Câu 11: 0.25 điểm

Để hiển thị các file trong một thư mục vào đối tượng FileListbox Flst ta dùng lệnh

Flst.Path= Đường dẫn

Flst= Đường dẫn

Flst.file= Đường dẫn

Flst.Folder= Đường dẫn

Câu 12: 0.25 điểm

Để sao chép một Form dựa trên một form khác khi chạy chương trình ta sử dụng từ khoá nào?

New

NewForrm

NewProject

AddNew

Câu 13: 0.25 điểm

Một chương trình có 3 Form được đặt tất cả thuộc tính Visible=False, Khi chạy chương trình thì Form nào hiện ra trước

không có Form nào hiện thị

Form2

Form3

Form1

Câu 14: 0.25 điểm

Điều khiển OLE là tên gọi viết tắt của từ?

Object Linking and Embedding

Option Linking and Embedding

Object List and Embedding

Object List and Empty

Câu 15: 0.25 điểm

Phương thức LoadPicture dùng để làm gì?

Dùng để mở một tệp ảnh

Dùng để đưa một bức ảnh vào trong đối tượng Picture trên Form

Dùng để chèn một picture

Không tồn tại đối tượng này trong VB

Câu 16: 0.25 điểm

Sự kiện nào được thực thi trước khi người sử dụng gõ vào hộp văn bản?

Sự kiện KeyPress

Sự kiện PressKey

Sự kiện Change

Sự kiện KeyUp

Câu 17: 0.25 điểm

Một hàm được viết như sau:
Public Function tinh(x As Integer, y As Integer, z As Integer)
Dim m As Integer
m = IIf(x > 0 Or y > 0 Or z > 0, x + y, y + z)
tinh = m
End Function
Hỏi: sau lệnh Print 23,12,17 thì kết quả in ra là bao nhiêu?

-17

-35

Câu 18: 0.25 điểm

Thuộc tính ConnectionString của đối tượng Adodc dùng để?

Dùng để tạo chuỗi kết nối với một cơ sở dữ liệu nào đó

Dùng để mở một bảng trong cơ sở dữ liệu kết nối

Dùng để thực hiện một câu lệnh SQL

Không đáp án nào đúng

Câu 19: 0.25 điểm

Một Form có tính chất Name là FrmB. Hãy xem các cách viết sau cách nào đúng?

FrmB.WindowState=True

FrmB.WindowState=False

FrmB. WindowState=''True''

FrmB. WindowState=2

Câu 20: 0.25 điểm

Để khai báo tất cả các biến cục bộ trong một thủ tục Static, thì ta?

Đặt từ khoá Static vào tên thủ tục: Function RunningTotal(Num)

Đặt từ khoá Static vào tên thủ tục: Static RunningTotal(Num)

Đặt từ khoá Static vào tên thủ tục: Static Function RunningTotal(Num)

Không thể thực hiện được

Câu 21: 0.25 điểm

Trong FormLoad, có câu lệnh CommonDialog.showOpen, khi chạy Form, hiện tượng gì xảy ra?

Hiển thị hộp thoại Open

Hiển thị hộp thoại Save

Hiển thị bảng màu

Không hiện gì

Câu 22: 0.25 điểm

Chọn cách truy xuất dữ liệu trong Recordset đúng nhất trong các cách sau:

Tên-recordset.Fields(<field_name>)

Tên-Recordset!tên trường

Tên-Recordset.Fields(index)

C ba phưng án khác

Câu 23: 0.25 điểm

Hãy cho biết kết quả của XL bằng bao nhiêu?Nếu nhập vào điểm bằng 7
Sub Xeploai()
Dim XL As String
Dim D As Double
D = InputBox(Nhap diem)
If D >= 8 Then
XL = GIOI
ElseIf D >= 6.5 Then
XL = KHA
ElseIf D >= 5 Then
XL = TB
Else XL = YEU
End If
MsgBox Xep loai & XL
End Sub

GIOI

KHA

YEU

Câu 24: 0.25 điểm

Đoạn mã sau thực hiện chức năng gì?
Sub ColorChange()
Rem Dùng hàm RGB()
If cmdbkcolor.Value Then
Text1.BackColor = RGB(VRed.Value, VGreen.Value, VBlue.Value)
Else If CmdFrColor.Value Then
Text1.ForeColor = RGB(VRed.Value, VGreen.Value, VBlue.Value)
Text1.Text =
Text1.Text = Màu chữ đây.
End If
End Sub

Chức năng hoà màu cho nền text1

Chức năng hoà màu cho chữ trong text1

Chức năng hoà màu cho nền và chữ trong text1

Hoà màu cho nền hoặc chữ trong text1*

Câu 25: 0.25 điểm

Thuộc tính nào của OptionButton cho phép máy hiểu nút option đó được chọn hay không được chọn

Value

True

Character

Enable

Câu 26: 0.25 điểm

chương trình sau thực hiện công việc gì?
Private Sub Form_Click()
Cls
Dim i As Integer
For i = 1 To 4
Print Rnd
Next i
End Sub

In ra 4 số ngẫu nhiên từ [0,1)

In ra các số ngẫu nhiên bất kỳ

không in gì

In ra các số 1, 2, 3, 4

Câu 27: 0.25 điểm

Đoạn mã lệnh dưới đây sau khi chạy sẽ cho kết quả?
Private Sub Form_Load()
Dim i As Integer
Do While i <= 2
Print Rnd
Loop
End Sub

Cho vô hạn số nhỏ hơn 1 và không dừng được

Cho vô hạn số nhỏ hơn 1

Cho vô hạn số nhỏ hơn 2

Cho vô hạn số nhỏ hơn 1 và dừng được

Câu 28: 0.25 điểm

Điều khiển OptionBox có tác dụng

Cho phép người sử dụng chọn một từ danh sách các lựa chọn

Cho phép người sử dụng chọn nhiều từ danh sách các lựa chọn

Cho phép người sử dụng cuộn ngang qua một điều khiển chứa dữ liệu khác

Cho phép người sử dụng chọn hoặc không chọn một khả năng nào đó

Câu 29: 0.25 điểm

chương trình sau thực hiện việc gì?
Private Sub Form_Load()
Dim a(1 To 4)
Show
a(1: 1
a(2: 2
a(3: 3
a(4: 4
Print Join(a)
End Sub

In ra chuỗi 1 2 3 4

In ra chuỗi 1234

không thực hiện việc gì

chương trình báo lỗi

Câu 30: 0.25 điểm

Khi cài cài đặt thuộc tính MultiLine là True của đối tượng textbox thì nó sẽ cho phép nhạp tối đa bao nhiêu ký tự?

32000

64000

1024

256

Câu 31: 0.25 điểm

Khi người sử dụng ấn một phím bất kỳ thì thủ tục nào sau đây của Form sẽ thực hiện trước?

Form_KeyDown(...)

Form_KeyUp(...)

Form_KeyPress(...)

Form_MouseDown(...)

Câu 32: 0.25 điểm

Với một thanh cuộn Hscroll có tên là HS1, thì sự kiện HS1_change() sẽ được thực hiện khi nào?

Khi người sử dụng cuộn nút trỏ trong thanh cuộn

Khi người sử dụng kích vào nút trỏ trong thanh cuộn

Khi người sử dụng kéo nút trỏ trong thanh cuộn

Khi người sử dụng kích đúp vào nút trỏ trong thanh cuộn

Câu 33: 0.25 điểm

Cho biết chương trình sau sẽ in ra kết quả gì? :
Function www(Optional x As Byte = 2, Optional y As Byte = 4, Optional z As Byte = 6)
www = (x * y) + z
End Function
Private Sub Command1_Click()
Print www(, , 3);
Print www(3, , 2)

11 14

12 14

13 14

VB báo chương trình có lỗi

Câu 34: 0.25 điểm

Đọan chương trình sau dùng cho 3 câu hỏi tiếp sau:
Private Function a(m As Byte, Optional n As Byte) As Byte (1)
a = m + n(2)
End Function (3)
Private Sub thutuc(ByVal d As Byte, ByVal e As Byte) (4)
Dim x As Byte, y As Byte (5)
x = a(d, e)(6)
y = a(d)(7)
End Sub
Chọn câu phát biểu SAI

Tại dòng (6), d và e là tham số hình thức

Dòng lệnh (1) định nghĩa Function a sai cú pháp

Dòng lệnh (7) sai cú pháp

Tại dòng (4), d và e là tham số hình thức

Câu 35: 0.25 điểm

Định nghĩa mảng trong VB6.0 dùng từ khóa nào?

Dim m(x to y) as <kiểu>

ReDim m(x to y) as <kiểu>

Re m(x to y) as <kiểu>

Rem m(x to y) as <kiểu>

Câu 36: 0.25 điểm

Kiểm tra xem đoạn mã sau đưa các Item vào hộp sai ở dòng nào?
Sub Form_Load()
1. Combo1.AddItem Alpha
2. Combo1.AddItem Beta
3. Combo1.AddItem Charlie
4. Combo1.AddItem Delta
5. Combo1.AddItem Dingo
End Sub

Không sai dòng nào

Sai dòng 1

Sai dòng 4

Sai dòng 5

Câu 37: 0.25 điểm

Trong thuộc tính MaxLength của đối tượng textbox, khi ta nhập cho nó một giá trị là 5 thì điều này có nghĩa là gì?

Chỉ nhập được nhiều nhất 5 ký tự

Chỉ được nhập chuỗi lớn hơn 5 ký tự

Chỉ được nhập các chữ số là 5

Phải nhập chính xác 5 ký tự

Câu 38: 0.25 điểm

Đôi khi ta phải sử dụng phím Tab để tạo ra thứ tự điều khiển thay vì dùng chuột, thuộc tính nào sau đây thực hiện điều này?

Enable

Focus

TabIndex

Visible

Câu 39: 0.25 điểm

Thuộc tính AbsolutePosition của recordset tr về giá trị có kiểu:

variant

Integer

Long

Byte

Câu 40: 0.25 điểm

Nếu chon Filter là Bitmap|*.bmp. Đoạn mã sau sẽ cho kết quả như thế nào?
Private Sub cmdShowBitmap_Click()
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub

Trưng hộp thoại mở File

Trưng hộp thoại mở File và hiển thị các File BMP*

Trưng hộp thoại lưu File

Trưng hộp Picture

Đề thi tương tự

Trắc nghiệm Lập trình Cấu trúc Pascal - Đại học Kinh doanh và Công nghệ Hà Nội (HUBT)

5 mã đề 250 câu hỏi 1 giờ

41,1643,161

Đề Thi Trắc Nghiệm Lập Trình Cấu Trúc - Pascal - Đại Học Kinh Doanh Và Công Nghệ Hà Nội HUBT (Miễn Phí, Có Đáp Án)Đại học - Cao đẳng

3 mã đề 104 câu hỏi 1 giờ

144,43611,157

Đề Thi Trắc Nghiệm Môn Kiến Trúc Máy Tính LHU - Đại Học Dân Lập Lạc Hồng - Miễn Phí Có Đáp ÁnĐại học - Cao đẳngKiến trúc

3 mã đề 148 câu hỏi 1 giờ

62,4934,803

Trắc nghiệm Lập trình Thiết bị Di động (Mobile Programming)

1 mã đề 60 câu hỏi 1 giờ

13,4881,030

Trắc nghiệm Lập trình Java Cơ sở - Đại học Kinh doanh và Công nghệ Hà Nội (HUBT)

3 mã đề 114 câu hỏi 1 giờ

18,4121,411

Trắc nghiệm Lập trình Mạng - Đại học Kinh doanh và Công nghệ Hà Nội (HUBT)

6 mã đề 240 câu hỏi 1 giờ

14,9121,144

Đề Trắc Nghiệm Lập Trình Phân Tán HUBT có đáp án giải thích

5 mã đề 246 câu hỏi 1 giờ

46,1373,558

Đề Thi Trắc Nghiệm Lập Trình PLC Phần 3 - Đại Học Điện Lực (EPU) Miễn Phí, Có Đáp ÁnĐại học - Cao đẳng

1 mã đề 25 câu hỏi 40 phút

90,6936,976

Đề Thi Trắc Nghiệm Lập Trình Phân Tán HUBT Có Đáp ÁnĐại học - Cao đẳngCông nghệ thông tin

4 mã đề 196 câu hỏi 1 giờ

88,2026,782

LetQA - Ôn luyện đề thi trắc nghiệm online miễn phí

Về chúng tôi

LetQA là công cụ hỗ trợ học sinh, sinh viên, giáo viên, tổ chức trong việc ôn luyện, kiểm tra kiến thức online; website được cung cấp miễn phí cho tất cả người dùng.
LetQA KHÔNG cung cấp dịch vụ mạng xã hội, không cung cấp thông tin tổng hợp và không thu phí người dùng.

Thông tin liên hệ & hỗ trợ

Email: hotro@letqa.com

Facebook: LetQA (fb.com/letqavn)

Liên kết phổ biến

Nhóm học tập trao đổi

Yêu cầu bổ sung đề thi

Đóng góp đề thi

Website liên kết

Phần mềm kiểm tra trùng lặp đạo văn Kiểm Tra Tài Liệu

Phần mềm xuất bản tạp chí điện tử VOJS

Công cụ kiểm tra chính tả và thể thức Viver

Công cụ hỗ trợ trích dẫn và phân tích khoa học Scholar Hub