Cho đọan lệnh sau: Dim intAttr As Integer intAttr = GetAttr("test.txt") intAttr = intAttr Or vbReadOnly intAttr = intAttr Xor vbHidden SetAttr "test.txt", intAttr Ý nghĩa của đọan lệnh trên là:
A -
Gán thuộc tính chỉ đọc (ReadOnly) cho file test.txt
B -
Gán thuộc tính ẩn (hidden) cho file test.txt nếu file này chưa phải là file ẩn
C -
Bỏ thuộc tính ẩn (hidden) cho file test.txt nếu file này là file ẩn
D -
Cả 3 câu trên đều đúng
2-
Thuộc tính ConnectionString của đối tượng Adodc:
A -
Có thể thay đổi trong chương trình đang chạy
B -
Được xác lập mặc định bởi VB
C -
Hai câu a, b đều đúng
D -
Hai câu a, b đều sai.
3-
Khi debug 1 chương trình, để chạy 1 lệnh rồi dừng lại, nếu lệnh thi hành là lệnh gọi thủ tục thì tòan bộ thủ tục được chạy ta sẽ:
A -
Chọn menu Debug.Step Over
B -
Nhấn tổ hợp phím Shift+F8
C -
Hai câu a, b đều đúng
D -
Hai câu a, b đều sai
4-
Chọn câu SAI trong các câu sau:
A -
Thủ tục Line có thể dùng đề vẽ hình vuông
B -
Thủ tục Line có thể dùng để vẻ 1 điểm (giống thủ tục Pset)
C -
Thủ tục Line có thể dùng để vẽ 1 hình thoi
D -
Thủ tục Circle có thể dùng để vẽ 1 cung ellipse
5-
Đọan chương trình sau dùng cho 3 câu hỏi tiếp theo: Public Sub Inso() (1) Dim x As Integer, y As Integer (2) For x = 1 To 9 (3) For y = 1 To 9 (4) If x + y = 10 Then (5) Print x * 10 + y (6) Exit For (7) End If (8) Next y (9) Next x (10) End Sub Đọan chương trình trên có chức năng:
A -
In ra tất cả các số từ 1 đến 99
B -
In ra các số hai chữ số có tổng các chữ s ố bằng 10
C -
In ra các số từ 10 đến 99
D -
Các câu a, b, c đều sai
6-
Nếu bỏ dòng lệnh (7) Exit For thì:
A -
Kết quả in ra sẽ khác so với trước lúc chưa bỏ
B -
Đọan chương trình sẽ báo lỗi cú pháp
C -
Kết quả in ra không đổi nhưng thời gian chạy chương trình lâu hơn
D -
Các câu a, b, c đều sai
7-
Nếu thay dòng lệnh (7) bằng Exit Sub thì:
A -
Kết quả sẽ in ra số 19
B -
Không in ra số nào cả
C -
Kết quả in ra không thay đổi
D -
Không thay thế được
8-
Khi cần lập trình giao tiếp với người dùng, người lập trình bằng VB nên:
A -
Sử dụng các hàm giao tiếp của device driver
B -
Truy xuất trực tiếp phần cứng thiết bị I/O
C -
Sử dụng các đối tượng giao diện cấp cao đã được định sẵn của VB hay các ActiveX Control
D -
Sử dụng các đối tượng của Windows như Printer, Screen
9-
Mô hình FSO (File System Object) hỗ trợ truy xuất:
A -
Binary file
B -
Text file (sequential file)
C -
Random file
D -
Cả 3 lọai file trên
10-
Cho đoạn chương trình sau: Private Function Vidu(strFileName As String) As Long Dim lngCount As Long, FileNum as Integer, Char as String*1 FileNum = Freefile Open strFileName for Input as FileNum lngCount = 0 Do While not EOF(FileNum) Char = Input(1, #FileNum) If ("0" <= Char And Char >= "9") Then lngCount = lngCount + 1 End if Loop Vidu = lngCount Close #1FileNum Giả sử tập tin TestFile có nội dung như sau: Tran Lam, 250 Au Co, P.14, Q.TB Nếu gọi hàm Vidu ở trên và truyền thông số là "TestFile" thì kết quả trả về của hàm là:
