5TN VisualBasic 6.0

bài giảng VisualBasic

Trang 1 Lập trình với Visual Basic 6.0 Tổng số: 450 câu Nhóm A: 100 Câu Nhóm B: 100 Câu Nhóm C: 100 Câu Nhóm D: 100 câu Nhóm E: 50 Câu Câu 1: HA(1) = " Để xác định xem nút lệnh có xuất hiện khi chạy chơng trình hay không, ta dùng tính chất gì?" TA(1, 1) = " Visible" TA(1, 2) = " Enable" TA(1, 3) = " Default" TA(1, 4) = " Style" TA(1, 5) = " Appearance" DA(1) = 1 SA(1) = 5 DiemA(1) = 1 ------------------------------------------------------------------------------------ Câu2 HA(2) = " Để xác định xem nút lệnh có thế đáp ứng mọi sự kiện khi chạy chơng trình hay không, ta dùng tính chất gì?" TA(2, 1) = " Enable" TA(2, 2) = " Visible" TA(2, 3) = " Style" TA(2, 4) = " Appearance" TA(2, 5) = " Causes Validation" DA(2) = 1 SA(2) = 5 DiemA(2) = 1 ------------------------------------------------------------------------------------ Câu3 : HA(3) = " Trong hộp văn bản, số dòng giới hạn của hộp văn bản với tính chất MultiLine là True là bao nhiêu ký tự?" TA(3, 1) = " 32000" TA(3, 2) = " 64000" TA(3, 3) = " Không giới hạn" TA(3, 4) = " 1024" TA(3, 5) = " 256" DA(3) = 1 SA(3) = 5 DiemA(3) = 1 ------------------------------------------------------------------------------------ Câu 4 : 1 Trang 2 HA(4) = " Khi chạy một ứng dụng, thủ tục nào đợc thực hiện đầu tiên?" TA(4, 1) = " Form_Intialize" TA(4, 2) = " Form_Load" TA(4, 3) = " Form_Resize" TA(4, 4) = " Form_Activate" TA(4, 5) = " Form_GotFocus" DA(4) = 1 SA(4) = 5 DiemA(4) = 1 ------------------------------------------------------------------------------------ Câu 5 : HA(5) = " Có những cách nào để tạo chú thích trong chơng trình?" TA(5, 1) = " Dấu nháy đơn và từ khoá Rem" TA(5, 2) = " Dấu nháy kép và dấu nháy đơn" TA(5, 3) = " Dấu nháy đơn" TA(5, 4) = " Từ khoá Note" TA(5, 5) = " Dấu nháy đơn và từ khoá Note" DA(5) = 1 SA(5) = 5 DiemA(5) = 1 ------------------------------------------------------------------------------------ Câu 6 : HA(6) = " Để ngừng chơng trình, ta dùng từ khoá nào?" TA(6, 1) = " End" TA(6, 2) = " Exit" TA(6, 3) = " Halt" TA(6, 4) = " Close" TA(6, 5) = " Quit" DA(6) = 1 SA(6) = 5 DiemA(6) = 1 ------------------------------------------------------------------------------------ Câu 7 HA(7) = " Kiểu dữ liệu Variant đợc dùng để làm gì?" TA(7, 1) = " Lu mọi dữ liệu khác nhau của VB" TA(7, 2) = " Tạo kiểu dữ liệu tự do" TA(7, 3) = " Thay thế cho kiểu dữ liệu chuỗi" TA(7, 4) = " Lu dữ liệu dạng số nguyên" TA(7, 5) = " Đổi kiểu dữ liệu tự do sang kiểu chuỗi" DA(7) = 1 SA(7) = 5 DiemA(7) = 1 ------------------------------------------------------------------------------------ Câu 8 : HA(8) = " Chơng trình sau cho kết quả bằng bao nhiêu?" & vbCrLf & _ 2 Trang 3 "Private Sub Command1_Click()" & vbCrLf & _ " Dim k, i, j, u As String" & vbCrLf & _ " k = 1" & vbCrLf & _ " i = 2" & vbCrLf & _ "j = 3" & vbCrLf & _ "U = k&i&j" & vbCrLf & _ "Print u" & vbCrLf & _ " End Sub" TA(8, 1) = " 123" TA(8, 2) = " 6" TA(8, 3) = " Không có giá trị đúng" TA(8, 4) = " Chơng trình báo lỗi" DA(8) = 1 SA(8) = 4 DiemA(8) = 1 ------------------------------------------------------------------------------------ Câu 9 HA(9) = " Chơng trình sau cho kết quả bằng bao nhiêu?" & vbCrLf & _ "Private Sub Form_Load()" & vbCrLf & _ " Dim a$, b" & vbCrLf & _ " a = ""12""" & vbCrLf & _ " b = 6" & vbCrLf & _ " MsgBox a + b" & vbCrLf & _ "End Sub" TA(9, 1) = " 18" TA(9, 2) = " 126" TA(9, 3) = " Chơng trình báo lỗi" TA(9, 4) = " Không có kết quả đúng" DA(9) = 1 SA(9) = 4 DiemA(9) = 1 ------------------------------------------------------------------------------------ Câu 10 HA(10) = " Chơng trình sau khi chạy hiện kết quả bằng bao nhiêu?" & vbCrLf & _ "Private Sub Form_Load()" & vbCrLf & _ " Dim k, i, j, u As String" & vbCrLf & _ " k = 1" & vbCrLf & _ " i = 2" & vbCrLf & _ " j = 3" & vbCrLf & _ " u = k + i + j" & vbCrLf & _ " Print u" & vbCrLf & _ "End Sub" TA(10, 1) = " Không hiện kết quả gì" TA(10, 2) = " 123" TA(10, 3) = " 6" TA(10, 4) = " Chơng trình báo lỗi" DA(10) = 1 3 Trang 4 SA(10) = 4 DiemA(10) = 1 ------------------------------------------------------------------------------------ Câu 11 HA(11) = " Chơng trình sau cho kết quả bằng bao nhiêu?" & vbCrLf & _ "Private Sub Form_Load()" & vbCrLf & _ " Dim i As Integer, j As String" & vbCrLf & _ " Show" & vbCrLf & _ " i = 2" & vbCrLf & _ " j = ""3,123""" & vbCrLf & _ " i = i * j" & vbCrLf & _ " Print i" & vbCrLf & _ "End Sub" TA(11, 1) = " 6426" TA(11, 2) = " Chơng trình báo lỗi" TA(11, 3) = " 23123" TA(11, 4) = " 6" TA(11, 5) = " 6123" DA(11) = 1 SA(11) = 5 DiemA(11) = 1 ------------------------------------------------------------------------------------ Câu 12 HA(12) = " Hàm CDbl đợc dùng để thực hiện việc gì?" TA(12, 1) = " Chuyển đổi biến thành một số chính đôi" TA(12, 2) = " Chuyển đổi biến thành số nguyên" TA(12, 3) = " Chuyển đổi biến thành số chính đơn" TA(12, 4) = " Chuyển đổi biến thành số thực theo dấu phẩy động" TA(12, 5) = " Chuyển đổi biến thành số nguyên dài" DA(12) = 1 SA(12) = 5 DiemA(12) = 1 ------------------------------------------------------------------------------------ Câu 13 HA(13) = " Thế nào là biến toàn cục?" TA(13, 1) = " Các biến khai báo ở ngoài các thủ tục, có ý nghĩa trong mọi thủ tục và các biến đợc khai báo sau điều lệnh Option Explicit" TA(13, 2) = " Các biến khai báo ở ngoài các thủ tục, có ý nghĩa trong mọi thủ tục" TA(13, 3) = " Các biến có ý nghĩa trong tất cả các thủ tục" TA(13, 4) = " Các biến đợc khai báo ở ngoài các thủ tục" TA(13, 5) = " Các biến đợc khai báo sau điều lệnh Option Explicit" DA(13) = 1 SA(13) = 5 4 Trang 5 DiemA(13) = 1 ------------------------------------------------------------------------------------ Câu14 HA(14) = " Thế nào là biến cục bộ?" TA(14, 1) = " Các biến khai báo bên trong thủ tục, chỉ có ý nghĩa trong thủ tục đó" TA(14, 2) = " Các biến khai báo trong thân thủ tục" TA(14, 3) = " Các biến có ý nghĩa trong tất cả các thủ tục" TA(14, 4) = " Các biến chỉ có ý nghĩa trong một thủ tục, khai báo sau điều lệnh Option Explicit" DA(14) = 1 SA(14) = 4 DiemA(14) = 1 ------------------------------------------------------------------------------------ Câu15 HA(15) = " Hàm Spc() đợc dùng để làm gì?" TA(15, 1) = " Chèn một số khoảng cách đã chỉ định vào một dòng" TA(15, 2) = " Đa ra một số khoảng cách trong chơng trình" TA(15, 3) = " Lấy độ dài của chuỗi" TA(15, 4) = " Thay thế một số ký tự bằng các ký tự trắng" DA(15) = 1 SA(15) = 4 DiemA(15) = 1 ------------------------------------------------------------------------------------ Câu 16 HA(16) = " Lệnh Me.Print Format(123.456, ""##.##"") trả lại giá trị bằng bao nhiêu?" TA(16, 1) = " 123.46" TA(16, 2) = " 123.456" TA(16, 3) = " 12.45" TA(16, 4) = " 120.45" DA(16) = 1 SA(16) = 4 DiemA(16) = 1 ------------------------------------------------------------------------------------ Câu 17 : HA(17) = " Chơng trình sau hiện kết quả thế nào?" & vbCrLf & _ "Private Sub Form_Load()" & vbCrLf & _ " Show" & vbCrLf & _ " For i = 1 To 3" & vbCrLf & _ " For j = 1 To 3" & vbCrLf & _ " s = s + i * j" & vbCrLf & _ " Next j" & vbCrLf & _ " Next i" & vbCrLf & _ " Print s" & vbCrLf & _ 5 Trang 6 "End Sub" TA(17, 1) = " 36" TA(17, 2) = " 9" TA(17, 3) = " 18" TA(17, 4) = " 7" DA(17) = 1 SA(17) = 4 DiemA(17) = 1 '18 HA(18) = " Chơng trình sau thực hiện công việc gì?" & vbCrLf & _ "Private Sub Form_Load()" & vbCrLf & _ "Show" & vbCrLf & _ "t = 0" & vbCrLf & _ "p = 0" & vbCrLf & _ "Do" & vbCrLf & _ "t = t + 0.1" & vbCrLf & _ " p = p + 1" & vbCrLf & _ " Me.Print p" & vbCrLf & _ "Loop Until t = 1" & vbCrLf & _ "End Sub" TA(18, 1) = " Chơng trình lặp vô hạn" TA(18, 2) = " Lặp 10 lần" TA(18, 3) = " In ra các số lần lợt từ 0.1 đến 1" TA(18, 4) = " In ra các số từ 1 đến 10" DA(18) = 1 SA(18) = 4 DiemA(18) = 1 ------------------------------------------------------------------------------------ Câu 19 : HA(19) = " Hàm IsDate()đợc dùng để làm gì?" TA(19, 1) = " Xem có thể chuyển đổi biểu thức thành một ngày tháng hay không" TA(19, 2) = " Đổi biểu thức thành kiểu ngày" TA(19, 3) = " Đổi từ ngày sang số" TA(19, 4) = " Đổi kiểu ngày thành kiểu chuỗi" DA(19) = 1 SA(19) = 4 DiemA(19) = 1 ------------------------------------------------------------------------------------ Câu 20 HA(20) = " Hàm IsNumeric() đợc dùng để làm gì?" TA(20, 1) = " Xem có thể chuyển đổi một biến thành một số hay không." TA(20, 2) = " Đổi một chuỗi thành một số" TA(20, 3) = " Đổi số thành chuỗi" 6 Trang 7 TA(20, 4) = " Đổi một biến kiểu ngày thành kiểu số" DA(20) = 1 SA(20) = 4 DiemA(20) = 1 ------------------------------------------------------------------------------------ Câu 21 HA(21) = " Sự kiện QueryUnload đợc ứng tác khi nào?" TA(21, 1) = " Khi đóng một biểu mẫu" TA(21, 2) = " Khi đóng chơng trình" TA(21, 3) = " Khi đang chạy chơng trình" TA(21, 4) = " Khi chơng trình báo lỗi" DA(21) = 1 SA(21) = 4 DiemA(21) = 1 ------------------------------------------------------------------------------------ Câu 22 HA(22) = " Chơng trình sau trả lại giá trị bằng bao nhiêu?" & vbCrLf & _ "Private Sub Form_Load()" & vbCrLf & _ "Dim i, s As Integer" & vbCrLf & _ "Show" & vbCrLf & _ "i = 1" & vbCrLf & _ "s = 0" & vbCrLf & _ "1: s = s + i" & vbCrLf & _ " i = i + 1" & vbCrLf & _ " If i <= 100 Then GoTo 1" & vbCrLf & _ " Print s" & vbCrLf & _ "End Sub" TA(22, 1) = " 5050" TA(22, 2) = " 0" TA(22, 3) = " 100" TA(22, 4) = " 55" TA(22, 5) = " Không có kết quả đúng" DA(22) = 1 SA(22) = 5 DiemA(22) = 1 ------------------------------------------------------------------------------------ Câu 23 HA(23) = " Chơng trình sau cho kết quả bằng bao nhiêu?" & vbCrLf & _ "Private Sub Form_Load()" & vbCrLf & _ "Show" & vbCrLf & _ " a$ = ""chuong trinh""" & vbCrLf & _ " Print Mid(a$, Len(a$) - 7)" & vbCrLf & _ "End Sub" 7 Trang 8 TA(23, 1) = " Chuỗi ""ng trinh""" TA(23, 2) = " Chuỗi ""chơng trinh""" TA(23, 3) = " Chuỗi ""trinh" TA(23, 4) = " Cú pháp lệnh sai" DA(23) = 1 SA(23) = 4 DiemA(23) = 1 ------------------------------------------------------------------------------------ Câu 24 HA(24) = " Hàm Instr() dùng để làm gì?" TA(24, 1) = " Cho biết chuỗi có thuộc thành phần của chuỗi khác hay không" TA(24, 2) = " Đổi một số thành chuỗi" TA(24, 3) = " Tìm kiếm chuỗi con trong chuỗi" TA(24, 4) = " Tìm kiếm chuỗi con trong một chuỗi từ dới lên" DA(24) = 1 SA(24) = 4 DiemA(24) = 1 ------------------------------------------------------------------------------------ Câu 25 HA(25) = " Chơng trình sau thực hiện công việc gì?" & vbCrLf & _ "Private Sub Form_Click()" & vbCrLf & _ " Cls" & vbCrLf & _ " Dim i As Integer" & vbCrLf & _ " For i = 1 To 4" & vbCrLf & _ " Print Rnd" & vbCrLf & _ " Next i" & vbCrLf & _ "End Sub" TA(25, 1) = " In ra 4 số ngẫu nhiên từ [0,1)" TA(25, 2) = " In ra các số ngẫu nhiên bất kỳ" TA(25, 3) = " Không in gì" TA(25, 4) = " In ra các số 1, 2, 3, 4" DA(25) = 1 SA(25) = 4 DiemA(25) = 1 ------------------------------------------------------------------------------------ Câu '26 HA(26) = " Lệnh dới đây cho kết quả bằng bao nhiêu?" & vbCrLf & _ "Fix(-3.45)" TA(26, 1) = " -3" TA(26, 2) = " -3.45" TA(26, 3) = " -3.5" TA(26, 4) = " -4" DA(26) = 1 8 Trang 9 SA(26) = 4 DiemA(26) = 1 ------------------------------------------------------------------------------------ Câu 27 HA(27) = " Để thoát sớm khỏi một hàm, ta dùng điều lệnh nào?" TA(27, 1) = " Exit Function" TA(27, 2) = " Close" TA(27, 3) = " ExitFunction" TA(27, 4) = " End Function" DA(27) = 1 SA(27) = 4 DiemA(27) = 1 ------------------------------------------------------------------------------------ Câu 28 HA(28) = " Gọi thực hiện một thủ tục nh thế nào?" TA(28, 1) = " TenThuTuc Thamso1, Thamso2 và Call TenThuTuc(Thamso1,Thamso2, .)" TA(28, 2) = " TenThuTuc Thamso1, Thamso2" TA(28, 3) = " Call TenThuTuc(Thamso1,Thamso2, .)" TA(28, 4) = " TenThuTuc(Thamso1, Thamso2, )" DA(28) = 1 SA(28) = 4 DiemA(28) = 1 ------------------------------------------------------------------------------------ Câu 29 HA(29) = " Để tăng kích cỡ một mảng động mà không làm mất thông tin đã có, ta dùng lệnh gì?" TA(29, 1) = " ReDim Preserve" TA(29, 2) = " ReDim" TA(29, 3) = " Dim" TA(29, 4) = " Private" DA(29) = 1 SA(29) = 4 DiemA(29) = 1 ------------------------------------------------------------------------------------ Câu 30 HA(30) = " Với mảng A có các phần tử có nội dung bên trong, lệnh Erase A sẽ thực hiện điều gì?" TA(30, 1) = " Xoá nội dung các phần tử trong mảng" TA(30, 2) = " Xoá các phần tử của mảng" TA(30, 3) = " Xoá mảng, trả lại giá trị Null" TA(30, 4) = " Đa mảng A vào bộ nhớ đệm" 9 Trang 10 DA(30) = 1 SA(30) = 4 DiemA(30) = 1 ------------------------------------------------------------------------------------ Câu 31 HA(31) = " Chơng trình sau thực hiện việc gì?" & vbCrLf & _ "Private Sub Form_Load()" & vbCrLf & _ " Dim a(1 To 4)" & vbCrLf & _ " Show" & vbCrLf & _ " a(1) = 1" & vbCrLf & _ " a(2) = 2" & vbCrLf & _ " a(3) = 3" & vbCrLf & _ " a(4) = 4" & vbCrLf & _ "Print Join(a)" & vbCrLf & _ "End Sub" TA(31, 1) = " In ra chuỗi ""1 2 3 4""" TA(31, 2) = " In ra chuỗi ""1234""" TA(31, 3) = " Không thực hiện việc gì" TA(31, 4) = " Chơng trình báo lỗi" DA(31) = 1 SA(31) = 4 DiemA(31) = 1 ------------------------------------------------------------------------------------ Câu 32 HA(32) = " Trong ComboBox và ListBox, tính chất Sorted đợc dùng để làm gì?" TA(32, 1) = " ấn định các mục có hay không sắp xếp theo thứ tự ASCII" TA(32, 2) = " Sắp xếp các mục giảm dần" TA(32, 3) = " Sắp xếp các ListBox và ComboBox theo thứ tự" TA(32, 4) = " Sắp xếp các mục tăng dần" DA(32) = 1 SA(32) = 4 DiemA(32) = 1 ------------------------------------------------------------------------------------- Câu 33: Hãy xem đoạn mã sau : 1: Private Sub Form_Load() 2: Form2.Height = 23000 3: Me.Height = 2000 4: Form2.Show End Sub A. Sai dòng 1 B. Sai dòng 2 * C. Sai dòng 3 D. Sai dòng 4 10 [...]... cho ta kết quả dạng gì- hãy chọn kết quả đúng nhất? Sub Form_Load() Dim i As Integer Dim Versions As New Collection Dim A As String A = "Visual Basic 5.0" Versions.Add (A) 22 Trang 23 A = "Visual Basic 6.0" Versions.Add (A) A = "Visual Basic Net" Versions.Add (A) Show For i = 1 To 3 Print Versions.Item(i) Next i End Sub Ví dụ khác về tạo các mảng đối tợng: Private Sub Form_Load() Dim a(4) As CommandButton . 1 Lập trình với Visual Basic 6. 0 Tổng số: 4 50 câu Nhóm A: 100 Câu Nhóm B: 100 Câu Nhóm C: 100 Câu Nhóm D: 100 câu Nhóm E: 50 Câu Câu 1: HA(1) = ". = " 3 200 0" TA(3, 2) = " 64 00 0" TA(3, 3) = " Không giới hạn" TA(3, 4) = " 102 4" TA(3, 5) = " 2 56& quot; DA(3)