Đề cương Lập trình trực quan là:Tập hợp các câu hỏi trắc nghiệm, đã có đáp án được in đậm; Các câu hỏi đều nằm trong chương trình học và bám sát đề thi. Chúc các bạn ôn tập tốt và đạt kết quả cao. ♥♥♥♥♥♥♥♥♥
Câu 17: Hãy cho biết kết S bao nhiêu? Sub Tinh_Tich() Dim s As Integer Dim i As Integer s=0 For i = To 10 Step s=s*i Next MsgBox Tích & s End Sub 1:5 *2:0 3:25 4:175 Câu 6: Hãy cho biết kết S bao nhiêu? Sub Tinh_Tong() s=0 For i = To 10 s=s*i Next MsgBox Tich la & s End Sub 1:S=1 2:S=255 *3:S=0 4:S=55 Câu 76: Chọn phát biểu thuộc tính multiline điều khiển textbox: 1:Số dòng cho phép nhập phụ thuộc vào thuộc tính Maxlength diều khiển textbox *2:Cho phép có nhiều dòng điều khiển textbox 3:Sử dụng tổ hợp phím control + tab để di chuyển nhy sang điều khiển kế 4:Sử dụng phím tab để di chuyển nhy sang điều khiển kế Câu 24: Để thay đổi màu chữ Textbox ta sử dụng thuộc tính Textbox 1:FontColor *2:ForeColor 3:FontItalic 4:Font Câu 11: Hãy cho biết kết S bao nhiêu? Sub Tinh_Tong() Dim s As Integer s=5 For i = To 10 s=s+1 Next MsgBox Tong la & s End Sub 1:S=11 2:S=10 3:D=5 *4:S=15 Câu 89: Thêm mẩu tin bạn sử dụng phương thức Recordset 1:Edit 2:Cả ba sai *3:Addnew 4:Update CÂU 2: Khi chạy đoạn lệnh nhập vào A B Hãy cho biết đoạn lệnh cho kết bao nhiêu? Private Sub Command1_Click() Dim a As String Dim b As String Dim s As String a = InputBox(Nhap so A) b = InputBox(Nhap so B) s=a+b MsgBox Tong so A va B la & s End Sub 1:In câu thông báo: Tong so A va B la 11 2:In câu thông báo: Tong so A va B la *3:In câu thông báo: Tong so A va B la 56 4:In câu thông báo: Tong so A va B la 65 Câu 74: Định nghĩa thủ tục dạng public module sử dụng phạm vi 1:Trong module định nghĩa 2:Trong thủ tục khác module 3:Trong module định nghĩa *4:Trong toàn ứng dụng Câu 15: Hãy cho biết kết S bao nhiê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 1:S=1 *2:S=45 3:S=10 4:S=11 Câu 28: Cho mảng A có 10 phần tử số nguyên Đoạn lệnh sau, sau chạy cho kết P bao nhiêu? P = a(1) For i = To 10 If P > a(i) Then P = a(i) End If Next MsgBox P 1:Tổng giá trị mảng 2:Giá trị lớn mảng 3:Giá trị trung bình mảng *4:Giá trị nhỏ mảng Câu 22: Để khai báo biến a kiểu chuỗi ta sử dụng lệnh sau đây: 1:Dim a As Double 2:Dim a As Varial *3:Dim a As String 4:Dim a As Integer Câu 83: Gi sử tồn tệp tin C:\QLHS.mdb, cho biết giá trị cn.state sau thực xong đoạn lệnh sau: Dim cn As New adodb.Connection cn.ConnectionString = Chuoi_ket_noi cn.Cursolocation = adUseClient MsgBox cn.State 1:0 2:Không có câu *3:Xuất thơng báo lỗi tham chiếu đến Cn.state 4:1 Câu 75: Nếu checkbox chọn thuộc tính value trả giá trị là: 1:true 2:vbUncheck 3:vbGrayed *4:vbChecked Câu 26: Để khai báo mảng A có 10 phần tử có kiểu nguyên ta sử dụng lệnh sau đây? 1:Dim A(1 To 10) As Double 2:Dim A(1 To 10) As String *3:Dim A(1 To 10) As Integer 4:Dim A As Integer Câu 19: Hãy cho biết kết XL bao nhiêu?Nếu nhập vào điểm Sub Xeploai() Dim XL As String Dim D As Double D = InputBox(Nhap diem) If D >= Then XL = GIOI ElseIf D >= 6.5 Then XL = KHA ElseIf D >= Then XL = TB Else XL = YEU End If MsgBox Xep loai & XL End Sub 1:YEU 2:TB *3:KHA 4:GIOI Câu 5: Hãy cho biết kết S bao nhiêu? Sub Tinh_Tong() For i = To 10 s=s+i Next MsgBox Tong la & s End Sub 1:S=12 2:S=10 3:S=0 *4:S=55 Câu 80: Thuộc tính AbsolutePosition recordset trả giá trị có kiểu: *1:Long 2:Integer 3:Byte 4:variant Câu 25: Để thay đổi màu Textbox ta sử dụng thuộc tính Textbox *1:BackColor 2:Font 3:ForeColor 4:FontItalic Câu 77: Lệnh sau dùng để tắt bẫy lỗi bật: 1:option error off *2:on error goto 3:option on error off 4:on error off Câu 31: Cho mảng A có 10 phần tử số nguyên Đoạn lệnh sau, dùng để làm gì? For i = To For j = i + To 10 If a(i) < a(j) Then TG = a(j) a(j: a(i) a(i: TG End If Next Next 1:Nhập mảng 2:Sắp xếp mảng A theo thứ tự tăng dần 3:In mảng *4:Sắp xếp mảng A theo thứ tự giảm dần Câu 82: Cho biết giá trị cn.state sau thực câu lệnh sau: Dim cn As adodb.connetion MsgBox cn.State 1:0 2:Khơng có câu lênh *3:Xuất thông báo lỗi 4:1 Câu 8: Hãy cho biết kết S bao nhiêu? Sub Tinh_Tong() Dim s As Integer s=2 For i = To 10 Step s=s+i Next MsgBox Tong la & s End Sub 1:S=12 2:S=2 *3:S=27 4:S=25 Câu 30: Cho mảng A có 10 phần tử số nguyên Đoạn lệnh sau, dùng để làm gì? For i = To For j = i + To 10 If a(i) > a(j) Then TG = a(j) a(j: a(i) a(i: TG End If Next Next 1:Nhập mảng *2:Sắp xếp mảng A theo thứ tự tăng dần 3:Sắp xếp mảng A theo thứ tự gim dần 4:In mảng Câu 16: Hãy cho biết kết S bao nhiêu? Sub Tinh_Tich() Dim s As Integer Dim i As Integer s=0 For i = To 10 Step s=s*i Next MsgBox Tích & s End Sub 1:1 2:10 *3:0 4:525 Câu 27: Đoạn lệnh sau dùng để làm gì? Dim a(1 To 10) As Integer For i = To 10 a(i: InputBox(Nhap vao phan tu thu & i) Next 1:Khai báo mảng A gồm 10 phần tử kiểu số nguyên in mảng mảng *2:Khai báo mảng A gồm 10 phần tử kiểu số nguyên nhập giá trị cho mảng 3:Khai báo mảng A gồm 10 phần tử kiểu số nguyên xếp mảng 4:Khai báo mảng A gồm 10 phần tử kiểu số nguyên tính tổng giá trị mảng Câu 10: Hãy chọn phát biểu cấu trúc lệnh Do Loop Do While < ĐK> Loop *1:Chừng ĐK thực <Nhóm lệnh>, ĐK sai khỏi vòng lặp 2:Chừng ĐK sai thực <Nhóm lệnh>, ĐK khỏi vòng lặp 3:Chừng ĐK sai thực <Nhóm lệnh> 4:Chừng ĐK thực <Nhóm lệnh> Câu 20: Để khai báo biến a kiểu nguyên ta sử dụng lệnh sau đây: 1:Dim a As String 2:Dim a As Double 3:Dim a As Varial *4:Dim a As Integer Câu 13: Hãy cho biết kết S bao nhiê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 1:S=11 *2:S=0 3:S=10 4:S=1 CÂU 1: Để giải tốn tính tổng số A b cho biết dòng sai đoạn mã lệnh sau? Public Sub NhapCauHoi() Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim s As Integer a = InputBox(Nhap so A) b = InputBox(Nhap so B) s=a+b MsgBox Tong so A va B la & s End Sub 1:Dòng sai 2:Dòng sai *3:Khơng có dòng sai 4:Dòng sai Câu 12: Hãy cho biết kết S bao nhiêu? Sub Tinh_Tich() Dim s s = 10 For i = To 1000 s=s*1 Next MsgBox Tich la & s End Sub 1:S=55 2:S=1 *3:S=10 4:S=255 Câu 32: Để ẩn Textbox ta sử dụng thuộc tính sau đây? 1:ForeColor *2:Visible 3:FontItalic 4:FontColor Câu 78: Những đối tượng chứa phưng thức execute 1:recordset, connection 2:recordset, command 3:command, parameter *4:connection, command Câu 88: Chọn cách truy xuất liệu Recordset cách sau: 1:Tên-Recordset.Fields(index) 2:Tên-Recordset!tên trường 3:Tên-recordset.Fields() *4:C ba phưng án khác Câu 79: Giá trị thuộc tính editmode(của recordset) cho biết tình trạng sửa đổi chưa cập nhật mẩu tin hành 1:adeditlnprogress *2:adeditchange 3:adeditnone 4:adeditadd Câu 85: Câu lệnh sau dùng để di chuyển vị trí hành Recordset mẩu tin trước Giả sử recordset Khơng rỗng vị trí hành Khơng adPosBOF 1:Rst.First *2:Rst.MovePrevious 3:Rst.AbsolutePosition = Rst AbsolutePosition +1 4:Rst.Movenext Câu 21: Để khai báo biến a kiểu thực ta sử dụng lệnh sau đây: 1:Dim a As Integer 2:Dim a As Varial 3:Dim a As String *4:Dim a As Double Câu 29: Cho mảng A có 10 phần tử số nguyên Đoạn lệnh sau, sau chạy cho kết P bao nhiêu? P = a(1) For i = To 10 If P < a(i) Then P = a(i) End If Next MsgBox P 1:Giá trị nhỏ mảng 2:Giá trị trung bình mảng *3:Giá trị lớn mảng 4:Tổng giá trị mảng Câu 84: Câu lệnh sau dùng để di chuyển vị trí hành Recordset sang mẩu tin Giả sử recordset Khơng rỗng vị trí hành Không adPosEOF 1:Rst.AbsolutePosition = Rst AbsolutePosition +1 2:Rst.Movenext *3:Rst.Movenext Rst.AbsolutePosition = Rst AbsolutePosition +1 4:Rst.Move Câu 81: Sắp xếp thứ tự câu lệnh sau để thực mở kết nối thành công Dim cn= New ADODB.Connection cn.open cn.CursorLocation = adUseClient cn.ConnectionString = Chuoi_ket_noi 1:2 *2:1 3:1 4:tât sai Câu 86: Câu lệnh sau dùng để di chuyển vị trí hành Recordset mẩu tin đâu tiên Giả sử recordset Khơng rỗng vị trí hành Không adPosBOF 1:Rst.AbsolutePosition *2:Rst.MoveFirst 3:Rst.MoveNext 4:Rst.MoveLast Câu 23: Để chuyển chữ Textbox thành chữ nghiêng ta sử dụng thuộc tính Textbox 1:Font 2:FontColor 3:ForeColor *4:FontItalic CÂU 3: Hãy chọn phát biểu cấu trúc lệnh IF Else EndIf IF Then Else End If 1:Nếu ĐK thực ,nếu ĐK sai Khơng thực lệnh If 2:Nếu ĐK sai thực , ĐK thực *3:Nếu ĐK thực , ĐK sai thực 4:Nếu ĐK thực , ĐK sai Khơng thực Câu 90: Xóa mẩu tin bạn sử dụng phương thức Recordset 1:Cả ba sai 2:Addnew 3:Update *4:Delete Câu 87: Truy xuất liệu recordset có cách: *1:Có cách 2:có cách 3:có cách 4:có cách Câu 18: Hãy cho biết kết XL bao nhiêu? Nếu nhập vào điểm Sub Xeploai() Dim XL As String Dim D As Double D = InputBox(Nhap diem) If D >= Then XL = TB ElseIf D >= 6.5 Then XL = KHA ElseIf D >= Then XL = GIOI Else XL = YEU End If MsgBox XL End Sub 1:YEU 2:KHA *3:TB 4:GIOI Câu 7: Hãy cho biết kết S bao nhiêu? Câu số 194: Để xem cửa sổ Code ta sử dụng phím tắt sau đây? 1:C) F5 2:B) F6 *3:A) F7 4:D) F9 Câu số 199: Để khai báo biến ta dùng lệnh? 1:C) Dim [ <Kiểu liệu>As] <Tên biến> 2:D) Dim [As <Kiểu liệu>] <Tên biến> 3:A) Dim <Tên biến,Kiểu liệu> *4:B) Dim <Tên biến> [As <Kiểu liệu>] Câu số 9: Cho biết chương trình sau phạm lỗi cú pháp dòng ? Sub qqq(x As Byte, y As Byte) As Byte (0)Dim Sum As Integer For i = To x (1)y = y + i (2)Next iSum = y (3)End Sub (4) 1:B) Sai dòng (3) 2:C) Sai dòng (2) *3:D) Sai dòng (0) 4:A) Sai dòng (1) Câu số 197: Khi sử dụng thông điệp "vbOKOnly" cho ta kết hiển thị là? 1:D) OK, Info 2:A) OK, Cancel 3:B) OK, Retry *4:C) OK Câu số 63: Có thể truyền tham số cho chương trình cách nào? *1:D) Cả hai cách 2:B) Truyền Theo tham trị 3:C) Cả hai cách sai 4:A) Truyền theo tham biến Câu số 90: Thuộc tính listcount đối tượng Drivelistbox xác định 1:Trả lời: 2:C) khơng xác định 3:B) Tổng số thư mục ổ đĩa *4:A) Tổng số ổ đĩa máy tính 5:D) Xác định file ổ đĩa Câu số 71: Cho mảng A có 10 phần tử số nguyên Đoạn lệnh sau, sau chạy cho kết P bao nhiêu? P = A(1) For I = To 10If P > A(I) ThenP = A(I) End IfNextMsgBox P 1:B) Giá trị trung bình mảng 2:D) Tổng giá trị mảng *3:C) Giá trị lớn mảng 4:A) Giá trị nhỏ mảng Câu số 41: Giả sử có bảng liệu Sinhvien gồm (Hoten,Masv,Diachi,Diemtb) sở liệu db1.mdb Access, db1.mdb mở kết nối đối tượng Connection có tên từ vb.Đối tượng recordset để mở bảng có tên rst, 'Câu lệnh:Rst.open ''select * from sinhvien where Diemtb>=5'',conSẽ thực công việc 1:C) Chọn sinh viên bảng có Diemtb<=5 đặt vào biến rst *2:D) Chọn sinh viên bảng có Diemtb>=5 đặt vào biến rst 3:B) Chọn sinh viên bảng có Diemtb>=5 đặt vào biến 4:A) Chọn sinh viên bảng có Diemtb<=5 đặt vào biến Câu số 36: Để làm nh hiển thị theo kích cỡ đối tượng Image ta sử dụng lệnh nào? 1:A) Image.Visible=True *2:C) Image.Stretch=True 3:B) Image.Stretch=False 4:D) Image.Visible=True Câu số 193: Một điều khiển thông dụng dùng để nhận liệu từ người sử dụng hiển thị liệu hình gọi là? 1:A) Tập thuộc tính 2:B) Hộp thông báo *3:D) Hộp văn 4:C) Hộp nhập liệu Câu số 86: Lập trình cấu trúc đặc trưng cấu trúc điều khiển 1:D) Các 'Câu a, b, c sai 2:A) Tuần tự + Lặp 3:C) Lựa chọn + Lặp *4:B) Tuần tự + Lựa chọn + Lặp Câu số 89: Lệnh AppActive dùng để 1:B) Dùng để đổi tên tập tin 2:C) Xóa hay nhiều tập tin đĩa 3:A) Dùng để xóa thư mục rỗng *4:D) Dùng để kích hoạt cửa sổ chương trình chạy Windows Câu số 170: chương trình sau in kết cuối bao nhiêu? Private Sub Form_Load()Dim s As Singles = 0ShowDos = s + 1Form1.Print sLoop Until s 7End Sub 1:C) 2:A) 3:B) *4:D) Câu số 249: Để khai báo biến a kiểu nguyên ta sử dụng lệnh sau đây: 1:A) Dim a As Varial 2:B) Dim a As Double 3:D) Dim a As String *4:C) Dim a As Integer Câu số 161: Đoạn chương trình sau, sai dòng nào? 1: Private Sub cmdNut1_Click()2: Form2.Show VbModal3: Form2.Text1 = ''Chào bạn''4: Form1.Show5: Form1.Print ''Tơi đây''6: End Sub 1:D) Sai dòng *2:A) Sai dòng 3:B) Sai dòng 4:C) Sai dòng Câu số 242: Cho mảng A có 10 phần tử số nguyên Đoạn lệnh sau, dùng để làm gì? For i = To 9For j = i + To 10If a(i) > a(j) ThenTG = a(j)a(j) = a(i)a(i) = TGEnd IfNextNext *1:D) Sắp xếp mảng A theo thứ tự tăng dần 2:A) Nhập mảng 3:C) Sắp xếp mảng A theo thứ tự gim dần 4:B) In mảng Câu số 182: Sẽ chạy đoạn mã sau ? Option ExplicitPrivate Sub Form_Load() Dim i As IntegerShowDo While i