Một số câu hỏi ôn tập Lập trình Visual basic1

Một số câu hỏi ôn tập Lập trình Visual Basic Nhóm câu hỏi A CU 1) "Giao diện làm việc VB gì" 1) " GUI(Graphichcal user interface)" 2) " MDI(Multilple document interface)" 3) " IDE(Intergrated deverlopment environment)" 4) " project & form" CÂU 2) " VB ph¸t triển chơng trình dựa trên." 1) " form điều khiển." 2) " hệ thống menu tuỳ chọn thuộc tính công cụ." 3) " cửa sổ điều khiển thuộc tính cửa sổ soạn thảo mà lệnh." 4) " tất đúng." CU 3) " Khi mn tao mét øng dơng th«ng thơng cách tự động sử dụng công cụ nào." 1) " Standard EXE" 2) " ActiveX EXE" 3) " ActiveX control" 4) " VB application Wizard" CÂU 4) " Thc tÝnh Caption cđa mét ®iỊu khiĨn" 1) " Cã thĨ thay thÕ cho thc tÝnh Name" 2) " Kh«ng thÓ thay thÕ cho thuéc tÝnh Name " 3) " Dùng nh phụ đề cho điền khiển Cã thÓ thay thÕ cho thuéc tÝnh Name" 4) " Không thể thay cho thuộc tính Name Dùng nh phụ đề cho điền khiển đó" CU 5) " Khi lµm viƯc víi Project cã nhiỊu Form, ta dùng phơng thức để hiển thị Form?" 1) " Show" 2) " Open" 3) " ShowForm" 4) " OpenForm" CU 6) " Để ẩn Form ta dùng phơng thøc nµo?" 1) " Close" 2) " Exit" 3) " Hide" 4) " Quit" CU 7) "Tập hợp đối tợng Form có tên là:" 1) " Objects" 2) " Controls" 3) " Project" 4) " C¶ ba đáp án đúng" CU 8) "Để gán giá trị cho bíến đối tợng a ta dùng cú pháp nào?" 1) " Dim a tên đối tợng" 2) " Set a tên đối tợng" 3) " a Tên đối tợng" 4) " Private a tên đối tợng" CU 9) " Để gọi hàm th viện API môi trờng VB 6.0, ta sử dụng cách c¸c c¸ch sau:" 1) " Start\ programs\ Microsoft Visual Studio 6.0\ Microsoft Tool" 2) " Vào menu Project\Components\ đánh dấu kiĨm vµo mơc API" 3) " Vµo menu File\ Microsoft API lib" 4) " Start\ programs\ Microsoft Visual Studio 6.0 Tool\ API Text Viewer" CÂU 10) " lùa chän biÓu tợng cho ứng dụng thao tác từ cửa sổ thuéc tÝnh nh sau." 1) " Proceduce/Icon" 2) " Proceduce/style" 3) " Proceduce/appearance" 4) " Proceduce/palette" CU 11) "Đối tợng LoadPicture dùng để làm gì?" 1) " Dùng để đa ảnh vào đối tợng Picture Form" 2) " Dïng ®Ĩ chÌn mét picture" 3) " Dïng để mở tệp ảnh" 4) " Không tồn đối tợng VB" CU 12) " Trên Toolbox, có đối tợng cho phép chèn ảnh lên Form?" 1) " đối tợng" 2) " đối tợng" 3) " đối tợng" 4) " Không có đối tợng dùng để chèn ảnh lên Form" CU 13) " Thđ tơc Submain() lµ:" 1) " Lµ mét thủ tục đặc biệt Module kích hoạt sau chạy project " 2) " Là thủ tục chÝnh Form" 3) " Lµ thđ tơc chÝnh Class" 4) " Lµ mét thđ tơc ngêi dïng tự quy định" CU 14) " Các câu lệnh nằm thủ tục đợc kích hoạt sau ch¹y Form:" 1) " Form_click()" 2) " Form_Drag()" 3) " Form_MouseUp()" 4) " Form_load()" CÂU 15) " Các kiện sau kiện nót lƯnh?" 1) " Click, Drag, Load" 2) " Click, DblClick" 3) " Click, DragDrop, KeyUp" 4) " Click, Drag, Load" CÂU 16) " Trong thđ tơc Form_Load() (View code cđa Form1) cã c©u lƯnh: Set aForm1.Controls.Add(""VB.CommandButton"",""nut"")" & vbCrLf &_ "a.Visible True" & vbCrLf & _ "a.Caption ""Nut lenh 1""" & vbCrLf & _ "Khi chạy Form, Form xuất đối tợng nào?" 1) " Nút lệnh có tên Nut lenh 1" 2) " TextBox " 3) " Nút lệnh có tên nut" 4) " Không xuất đối tợng nào" CU 17) " Để so sánh hai biến đối tợng ta sử dụng phép toán nµo?" 1) " PhÐp " 2) " PhÐp Like" 3) " Phép Is" 4) " Không tồn phép toán này" CU 18) " Câu lệnh khai báo: Dim a as New Collection dung để làm gì?" 1) " Xây dựng tập hợp riêng khai báo biến tập hợp a" 2) " Khai báo đối tợng kiểu Collection" 3) " Tạo tập hợp đối tợng Form" 4) " Cú pháp sai" CU 19) " Hàm RGB(RValue,GValue,BValue) dùng để làm gì?" 1) " Tạo màu sắc theo tỉ lệ Red-Green-Blue" 2) " LÊy mµu nỊn cho Form" 3) " LÊy mµu cho TextBox" 4) " Tự tạo màu riêng bảng màu đợc hiển thị đối tợng CommonDialog" CU 20) " Khai báo mảng Module nh sau:" & vbCrLf &_ "Option Explicit" & vbCrLf & _ "Dim a(n) As Integer" & vbCrLf & _ "Khi mảng a là:" 1) " Mảng a gồm n phàn tử toàn cục" 2) " Mảng a gồm n phần tử cục bộ" 3) " a mảng số nguyên đợc dùng toàn cục" 4) " Cú pháp câu lệnh khai báo sai" CU 21) "Trớc sử dụng phơng thức ShowColor CommonDialog, ta gọi đến thuộc tính Flags với giá trị cdlCCFullOpen, chạy chơng trình nh nào?" 1) " Hộp thoại Color đầy đủ" 2) " Hộp thoại Color xuất nhng phần Define Custom Color bị vô hiệu hoá" 3) " Hộp thoại Color khuyết phần Define Custom Color xuất hiện" 4) " Thêm lệnh vào không làm ảnh hởng đến hộp thoại Color" CU 22) " Trớc muốn trng hộp thoại font nhờ phơng thức ShowFont đối tợng CommonDialog, ta phải ấn định tham sè cho thuéc tÝnh nµo?" 1) " Flags" 2) " Invisible" 3) " Enable" 4) " Value" CÂU 23) " Muốn chọn font chữ hình sử dụng phơng thức showfont đối tợng CommonDialog, thuộc tính Flags phải nhận giá trị nào?" 1) " cdlCFBoth cdlCFPrinterFonts" 2) " cdlCFPrinter" 3) " cdlCFBoth hc cdlCFScreenFonts" 4) " cdlCFScreenFonts" CÂU 24) " Mét thđ tơc (Sub) nhapmang() viÕt Module, mn sư dơng thđ tơc ®ã ta sử dụng từ khoá để gọi?" 1) " Use nhapmang()" 2) " Call nhapmang" 3) " Call nhapmang()" 4) " Nhapmang()" CU 25) " Để khống chế hoạt ®éng cđa c¸c biĨu mÉu, ta sư dơng t chän nµo?" 1) " vbModal" 2) " vbModals" 3) " vbClock" 4) " vbKey" CÂU 26) " muèn mét øng dông thực thi có độ lớn toàn hình cửa sổ thuộc tính chọn dòng window state chọn giá trị sau hay chọn cau tra lêi ®óng." 1) " Window state chän 0" 2) " Window state chän 1" 3) " Window state chän 2" 4) " Window state chän 3" CÂU 27) " tính chất định độ rộng biểu mẫu đợc thực thi" 1) " witdh" 2) " scale witdh" 3) " scale left" 4) " Left" CÂU 28) " Mn khai b¸o mét h»ng VB sư dơng khoá nào?" 1) " Dim " 2) " Cosnt " 3) " Private " 4) " Dim " CU 29) " có dòng code dài ta muốn cho dòng code xuống hàng cho dễ quan s¸t ta dïng ký hiƯu:" 1) " _" 2) " *" 3) " $" 4) " &" CÂU 30) " mn chun mét biÕn d¹ng sè kiĨu string sang dạng số kiểu integer ta soạn." 1) " cint()" 2) " change integer()" 3) " chr()" 4) " asc()" CU 31) " đoạn mà sau làm công việc gì" & vbCrLf & _ "" & vbCrLf & _ "thôngbao ""chào bạn đà đến với VB6""" & vbCrLf & _ "rongbieumau Me.ScaleWidth" & vbCrLf & _ "caobieumau Me.scalehight" & vbCrLf & _ "rongvanban Me.TextWidth(thongbao)" & vbCrLf & _ "caovanban Me.texthight(thongbao)" & vbCrLf & _ "CurrentX (rongbieumau - rongvanban) / 2" & vbCrLf & _ "CurrentY (caobieumau - caovanban) / 2" & vbCrLf & _ "Print thongbao" & vbCrLf & _ "…" 1) " chiỊu cao vµ chiỊu rộng văn nửa biểu mẫu." 2) " chiều cao chiều rộng văn nửa biểu mẫu nằm biểu mẫu" 3) " văn nằm biểu mẫu." 4) " in dòng chữ" CU 32) "IDE VB6 gì" 1) "Môi trờng phát triển tích hợp" 2) "Là công cụ lập trình" 3) "Là giao diện ngờI sử dụng vớI máy tính" 4) "Là tạo mớI mét project" CÂU 33) "HƯ thèng Menu Bar cđa VB6 là" 1) "Chứa đầy đủ lệnh sử dụng để làm việc với VB6" 2) "có hình icons cho phép click để thực công việc tiện Hơn" 3) "hộp đồ công cụ, gọi controls, đặt lên form lúc thiết kế" 4) "liệt kê forms modules project hành " CU 34) "Hệ thống Toolbar VB6 là" 1) "Chứa đầy đủ lệnh sử dụng để làm việc với VB6" 2) "có hình icons cho phép click để thực công việc tiện Hơn" 3) "hộp đồ công cụ, gọi controls, đặt lên form lúc thiết kế" 4) "liệt kê forms modules project hiƯn hµnh " CÂU 35) "HƯ thèng toolbox cđa VB6 là" 1) "Chứa đầy đủ lệnh sử dụng để làm việc với VB6" 2) "có hình icons cho phép click để thực công việc tiện Hơn" 3) "hộp đồ công cụ, gọi controls, đặt lên form lúc thiết kế" 4) "liệt kê forms modules project hành " CU 36) "Project Explorer VB6 là" 1) "Chứa đầy đủ lệnh sử dụng để làm việc với VB6" 2) "có hình icons cho phép click để thực công việc tiện Hơn" 3) "hộp đồ công cụ, gọi controls, đặt lên form lúc thiết kế" 4) "liệt kê forms modules project hành " CU 37) "của sổ Properties window dùng để" 1) "Liệt kê đặc tính forms controls đợc chọn" 2) "liệt kê forms modules project hành " 3) "để chỉnh vị trí forms form lần đầu lúc chơng trình chạy" 4) "Dùng để thiết kế giao diện lập trình " CU 38) "Form Designer là" 1) "Liệt kê đặc tính forms controls đợc chọn" 2) "liệt kê forms modules project hành " 3) "để chỉnh vị trí forms form lần đầu lúc chơng trình chạy" 4) "Dùng để thiết kế giao diện lËp tr×nh " CÂU 39) "cđa sỉ Immediate Window dïng ®Ĩ" 1) "®Ĩ gë rèi (debug) tr×nh øng dơng " 2) "để chỉnh vị trí forms form lần đầu lúc chơng trình chạy" 3) "Dùng ®Ĩ thiÕt kÕ giao diƯn lËp tr×nh " 4) "xem form form mà bạn đà chọn " CU 40) "Để nhận trợ giúp làm việc vớI VB ta dung" 1) "Microsoft Developer Network | MSDN Library Visual Studio 6.0 tõ nót Start" 2) "Help | Contents tõ Menu Bar cña VB6" 3) "chän mét keyword (highlight keyword) ấn F1 để đọc Help." 4) "tất đúng" CU 41) "Làm việc vớI Control(điều khiển) thông qua :" 1) "Các Thuộc tính(Properties)" 2) "Các phơng thøc (Methods) " 3) "C¸c sù kiƯn (event)" 4) "TÊt phơng án đa ra" CU 42) "Các thuộc tính ((Properties) control(điều khiển) là:" 1) "Tập hợp đặc tính control mà ta ấn định lúc Thiết kế hay chạy chơng trình" 2) "những control thực đuợc, tức khả nó." 3) "những cố mà control thông báo cho chóng ta biÕt nã x·y víi control" 4) "Tất phơng án nêu ra" CU 43) "Các kiện (event ) control(điều khiển) là:" 1) "Tập hợp đặc tính control mà ta ấn định lúc Thiết kế hay chạy chơng trình" 2) "những control thực đuợc, tức khả nó." 3) "những cố mà control thông báo cho biết xÃy với control" 4) "Tất phơng án nêu ra" CU 44) "Các phơng thức control(điều khiển) là:" 1) "Tập hợp đặc tính control mà ta ấn định lúc Thiết kế hay chạy chơng trình" 2) "những control thực đuợc, tức khả nó." 3) "những cố mà control thông báo cho biết xÃy với control" 4) "Tất phơng án nêu ra" CU 45) "Sắp xếp thứ tự u tiên kiƯn trªn form" 1) "Form_Initialize,Form_Load,Form_Activate,Form_QueryUnload" 2) "Form_Initialize,Form_Activate,Form_QueryUnload,Form_Load" 3) "Form_Activate,Form_Initialize,Form_QueryUnload,Form_Load" 4) "Form_Load,Form_Activate,Form_Initialize,Form_QueryUnload" CÂU 46) " §Ĩ di chun nót lƯnh cã tên cmdMove sang vị trí mớI cách c¸ch sau:" & vbCrLf & _ "C¸ch 1:" & vbCrLf & _ "cmdMove.Left100" & vbCrLf & _ "cmdMove.Top100" & vbCrLf & _ "C¸ch 2:" & vbCrLf & _ "cmdMove.Move 100,100&" & vbCrLf & _ "" 1) "C¸ch1" 2) "Cach2" 3) "Cả cách đúng" 4) "Cả hai cách sai" CU 47) " thuộc tính định thành phần cửa sổ (nh tiêu đề, nút phóng to thu nhá…) mµ mét biĨu mÉu sÏ cã" 1) "BorderStyle" 2) "Enable" 3) "Hieght" 4) "Width" CÂU 48) "Khi BorderStyle có giá tr ị:0 - None Hiệu ứng biểu mẫu" 1) "Không có cạnh viền, không tiêu đề, không đợc di chuyển Giá trị thờng đợc dùng cho cửa sổ khởi động chơng trình" 2) "không thể co giÃn cửa sổ cách kéo rê cạnh viỊn, nhng cã thĨ dïng nót phãng to hc thu nhá " 3) "Cã thĨ co gi·n cưa sỉ b»ng cách kéo rê cạnh viền dùng nút phóng to thu nhỏ." 4) "Không thể co giÃn không cã thĨ dïng nót phãng to hc thu nhá" CÂU 49) " Khi BorderStyle c ó gi tr ị - Fixed Single thì: Hiệu ứng biểu mẫu" 1) "không thể co giÃn cửa sổ cách kéo rê cạnh viền, nhng dùng nút phóng to thu nhỏ." 2) "Không có cạnh viền, không tiêu đề, không đợc di chuyển Giá trị thờng đợc dùng cho cửa sổ khởi động chơng trình" 3) "Có thể co giÃn cửa sổ cách kéo rê cạnh viền dùng nút phóng to thu nhỏ." 4) "Không thể co giÃn không dùng nót phãng to hc thu nhá" CÂU 50) "Khi BorderStyle có giá trị - Sizable Thì Hiệu ứng biĨu mÉu" 1) "Cã thĨ co gi·n cưa sỉ b»ng cách kéo rê cạnh viền dùng nút phóng to thu nhỏ" 2) "Không thể co giÃn không cã thĨ dïng nót phãng to hc thu nhá" 3) "Không có cạnh viền, không tiêu đề, không đợc di chun." 4) " kh«ng thĨ co gi·n cưa sỉ cách kéo rê cạnh viền, nhng dùng nót phãng to hc thu nhá." CÂU 51) "Khi BorderStyle có giá trị - Fixed Dialog Thì Hiệu ứng biểu mẫu" 1) " Không thể co giÃn không dùng nút phóng to thu nhỏ" 2) " co giÃn cửa sổ cách kéo rê cạnh viền, nhng dùng nút phóng to thu nhỏ." 3) " Không có cạnh viền, không tiêu đề, không đợc di chuyển " 4) " Cã thĨ co gi·n cưa sỉ b»ng c¸ch kÐo rê cạnh viền dùng nút phóng to thu nhỏ." CU 52) "Điều khiển nội tạI" 1) " Các điều khiển đợc chứa tập tin EXE Visual Basic Các điều khiển nội chứa sẵn hộp công cụ, ta gỡ bỏ hay thêm chúng vào hộp công cụ" 2) " tồn tập tin độc lập có phần mở rộng OCX." 3) " Cung cấp phần Automation lập trình với đối tợng sinh từ ứng dơng kh¸c øng dơng cđa Visual Basic." CÂU 53) "Điều khiển ActiveX" 1) " tồn tập tin độc lập có phần mở rộng OCX." 2) " Các điều khiển đợc chứa tập tin EXE Visual Basic Các điều khiển nội chứa sẵn hộp công cụ, ta gỡ bỏ hay thêm chúng vào hộp công cụ" 1) 2) 3) 4) "4" "5" "2" "không sai dòng nµo" CÂU 79) " Cã thĨ thay thÕ CÊu tróc IF THen else B»ng Select Case kh«ng" 1) "Cã thĨ thay thÕ" 2) "Kh«ng thĨ thay thĨ" 3) "chØ thay có điều kiện" CU 80) " Cấu trúc Lặp sau VB" 1) "Do While " & vbCrLf & _ "[các lÖnh ]" & vbCrLf & _ "loop" & vbCrLf & _ "" 2) "Do " & vbCrLf & _ "[c¸c lƯnh]" & vbCrLf & _ "loop While" & vbCrLf & _ "" 3) "Do until " & vbCrLf & _ "[c¸c lƯnh ]" & vbCrLf & _ "loop" & vbCrLf & _ "" 4) "Do " & vbCrLf & _ "[c¸c lƯnh]" & vbCrLf & _ "loop until " & vbCrLf & _ "" 4) "Tất có" CU 81) " Để thông điệp ta chọn Hộp thoại hộp thoại sau" 1) "Msgbox" 2) "Inputbox" 3) "common dialog" 4) "Custom dialog" CÂU 82) " Để Hiện thông báo nhập liệu ta chọn Hộp thoại hộp thoại sau" 1) "Inputbox" 2) "Msgbox" 3) "common dialog" 4) "Custom dialog" CÂU ¬ng 1) " 2) " 3) " 4) " 5) " 83) " Để xác định xem nút lệnh có xuất chạy chtrình hay không, ta dùng tính chÊt g×?" Visible" Enable" Default" Style" Appearance" CÂU 84) " Để xác định xem nút lệnh đáp ứng kiện chạy chơng trình hay không, ta dïng tÝnh chÊt g×?" 1) " Enable" 2) " Visible" 3) " Style" 4) " Appearance" 5) " Causes Validation" CU 85) " Trong hộp văn bản, số dòng giới hạn hộp văn với tính chất MultiLine True ký tự?" 1) " 32000" 2) " 64000" 3) " Không giới hạn" 4) " 1024" 5) " 256" CÂU 86) " Khi ch¹y mét øng dụng, thủ tục đợc thực đầu tiên?" 1) " Form_Intialize" 2) " Form_Load" 3) " Form_Resize" 4) " Form_Activate" 5) " Form_GotFocus" CU 87) " Có cách để tạo thích chơng trình?" 1) " Dấu nháy đơn từ khoá " 2) " Dấu nháy kép dấu nháy đơn" 3) " Dấu nháy đơn" 4) " Từ khoá Note" 5) " Dấu nháy đơn từ khoá Note" CU 1) " 2) " 3) " 4) " 88) " Để ngừng chơng trình, ta dùng từ khoá nào?" End" Exit" Halt" Close" 5) " Quit" CÂU 1) " 2) " 3) " 4) " 5) " 89) " Kiểu liệu Variant đợc dùng để làm gì?" Lu liệu khác VB" Tạo kiểu liệu tự do" Thay cho kiểu liệu chuỗi" Lu liệu dạng số nguyên" Đổi kiểu liệu tự sang kiểu chuỗi" CÂU 90) " Mét nót lƯnh cã tÝnh chÊt Name CmdQ Cách sau viết đúng" 1) " CmdQ.EnabledvbRed" 2) " CmdQ.EnabledTrue " 3) " CmdQ.Enabled0" CÂU 91) "Mét Form cã tÝnh chÊt Name lµ A H·y xem cách viết sau cách đúng" 1) " A.LeftTrue" 2) " A.LeftFalse" 3) " A.Left-3.40" 4) " A.Left1200" CÂU 92) "Mét Form cã tÝnh chÊt Name lµ B H·y xem cách viết sau cách đúng" 1) " B.FontvnTime" 2) " B.Font''.vnTime''" 3) " B.FontBold" 4) " B.FontItalic" CU 93) "Một hộp văn có tính chất Name txtQ Các cách viết sau cách đúng?" 1) " txtQ.ScrollBarsTrue" 2) " txtQ.ScrollBars12" 3) " txtQ.ScrollBars2" 4) " txtQ.ScrollBars-1" CU 94) "Một hộp văn có tính chất Name txtQ Các cách viết sau cách đúng?" 1) " txtQ.txt''Chào bạn''" 2) " txtQ''Chào bạn''" 3) " txtQ.Text''Chào bạn'' " CU 95) "Những tên biến sai?" 1) " ab" 2) " 123xy " 3) " x!" 4) " i%" CÂU 96) " TÖp User th viện API chứa hàm về: " 1) " Chứa hàm thời gian thực, truy xuất liệu" 2) " Chứa hàm đồ hoạ" 3) " chứa hàm multimedia" 4) " Cả ba câu trả lời sai" CU 97) "Tệp Winnm th viện API chứa hàm về:" 1) " Chứa hàm thời gian thực, tệp, truy xuất liệu" 2) " Chứa hàm đồ hoạ" 3) " chứa hàm multimedia" 4) " Cả ba câu trả lời sai" CU 98) "Tệp Gdi th viện API chứa hàm về:" 1) " Chứa hàm thời gian thực, tệp, truy xuất liệu" 2) " Chứa hàm đồ hoạ" 3) " chứa hàm multimedia" 4) " Cả ba câu trả lời sai" CU 99) " Trong VB khai b¸o biÕn ngêi ta cã sử dụng ký hiệu định danh sau tên biến biến A muốn nhận giá trị kiểu STRING ta khai b¸o:" 1) " A%" 2) " A&" 3) " A!" 4) " A$" CÂU 100) " Trong VB khai b¸o biÕn ngêi ta cã sư dơng c¸c ký hiệu định danh sau tên biến biến A muốn nhận giá trị kiểu SINGLE ta khai báo:" 1) " A%" 2) " A&" 3) " A!" 4) " A$" Nhóm câu hỏi B CU 1) " Đọc chơng trình sau:" & vbCrLf & _ " Option Explicit" & vbCrLf & _ " Dim Loai(0 To 2) As String" & vbCrLf & _ " Dim Gia(0 To 2) As String" & vbCrLf & _ "Private Sub Form_Load()" & vbCrLf & _ " Dim I As Integer" & vbCrLf & _ " " " " " " " " Loai(0) ''quần vải bông''" & vbCrLf & _ Loai(1) ''quần vải pha sợi Tổng hợp''" & vbCrLf & _ Loai(2) ''quần vải sợi tổng hợp''" & vbCrLf & _ Gia(0) ''100.000®''" & vbCrLf & _ Gia(1) ''90.000®''" & vbCrLf & _ Gia(2) ''80.000®''" & vbCrLf & _ For I To 2" & vbCrLf & _ Combo1.AddItem Loai(I)" & vbCrLf & _ " Next I" & vbCrLf & _ " Combo1.ListIndex 0" & vbCrLf & _ "End Sub" & vbCrLf & _ "Private Sub Combo1_Click()" & vbCrLf & _ " Text1.Text Gia(Combo1.ListIndex)" & vbCrLf & _ "End Sub" & vbCrLf & _ "HÃy xem chơng trình chứa đối tợng" 1) "1 đối tợng" 2) "2 đối tợng" 3) "3 đối tợng" 4) "4 đối tợng" CU 2) " Đọc chơng trình sau:" & vbCrLf & _ "Option Explicit" & vbCrLf & _ "Dim Loai(0 To 2) As String" & vbCrLf & _ "Dim Gia(0 To 2) As String" & vbCrLf & _ "Private Sub Form_Load()" & vbCrLf & _ " Dim I As Integer" & vbCrLf & _ " Loai(0) ''quần vải bông''" & vbCrLf & _ " Loai(1) ''quần vải pha sợi Tổng hợp''" & vbCrLf & _ " Loai(2) ''quần vải sợi tổng hợp''" & vbCrLf & _ " Gia(0) ''100.000®''" & vbCrLf & _ " Gia(1) ''90.000®''" & vbCrLf & _ " Gia(2) ''80.000®''" & vbCrLf & _ " For I To 2" & vbCrLf & _ " Combo1.AddItem Loai(I)" & vbCrLf & _ " Next I" & vbCrLf & _ " Combo1.ListIndex 0" & vbCrLf & _ "End Sub" & vbCrLf & _ "Private Sub Combo1_Click()" & vbCrLf & _ " Text1.Text Gia(Combo1.ListIndex)" & vbCrLf & _ "End Sub" & vbCrLf & _ "Khi chạy, kích vào thành phần ''quần vải pha sợi Tổng hợp''của hộp Combo1, ta có kết ë Text1" 1) "100.000®" 2) "80.000®" 3) "90.000®" 4) "170.000®" CU 3) " Đọc chơng trình sau:" & vbCrLf & _ "Option Explicit" & vbCrLf & _ "Dim L(0 To 2) As String" & vbCrLf & _ "Dim G(0 To 2) As Integer" & vbCrLf & _ "Private Sub Form_Load()" & vbCrLf & _ " Dim I As Integer" & vbCrLf & _ " L(0) ''A''" & vbCrLf & _ " L(1) ''B''" & vbCrLf & _ " L(2) ''C''" & vbCrLf & _ " G(0) 20000" & vbCrLf & _ " G(0) 10000" & vbCrLf & _ " G(2) 40000" & vbCrLf & _ " For I To 2" & vbCrLf & _ " List1.AddItem Str$(L(I))" & vbCrLf & _ " Next I" & vbCrLf & _ " List1.ListIndex 0" & vbCrLf & _ "End Sub" & vbCrLf & _ "Private Sub List1_Click()" & vbCrLf & _ " Text1.Text G(List1.ListIndex)" & vbCrLf & _ "End Sub" & vbCrLf & _ "Khi chạy, kích vào thành phần ''B''của List1, ta có kết Text1" 1) "10000" 2) "20000" 3) "40000" 4) "30000" 5) "0" CÂU 4) "HÃy đọc đoạn chơng trình sau:" & vbCrLf & _ "Private Sub Form_Load()" & vbCrLf & _ " Open ''TESTFILE.TXT'' For Output As #1" & vbCrLf & _ " Print #1, ''Danh sách Sinh viên''" & vbCrLf & _ " Print #1," & vbCrLf & _ " Print #1, SpB(4); ''1 Hå ThÞ lan''" & vbCrLf & _ " Print #1, SpB(4); ''2 Lê văn tài''" & vbCrLf & _ " Dim MyDate" & vbCrLf & _ " MyDate #3/23/2001#" & vbCrLf & _ "Print #1, SpB(20); ''Hµ néi ngµy ''; SpB(1); MyDate" & vbCrLf & _ " Close #1" & vbCrLf & _ "End Sub" & vbCrLf & _ "HÃy xem chơng trình tạo tệp có dòng?" 1) "3 dòng" 2) "2 dòng" 3) "5 dòng" 4) "4 dòng" CU 5) "HÃy đọc đoạn chơng tr×nh sau:" & vbCrLf & _ "1 Private Sub Form_Load()" & vbCrLf & _ "2 Open ''Baitap.txt'' Output As #1" & vbCrLf & _ "3 Print #1, ''VÝ dô 1''" & vbCrLf & _ "4 Print #1,''TÝnh tæng sin(1)+sin(2)+ +Sin(1000)''" & vbCrLf & _ "5 Close #1" & vbCrLf & _ "6 End Sub" & vbCrLf & _ "H·y xem chơng trình sai dòng nào?" 1) "Dòng 1" 2) "Dßng 2" 3) "Dßng 3" 4) "Dßng 4" 5) "Dòng 5" CU 6) "HÃy đọc đoạn chơng trình sau:" & vbCrLf & _ "1 Private Sub Form_Load()" & vbCrLf & _ "2 Open ''Baitap.txt'' For Output As #1" & vbCrLf & _ "3 Print #1, ''VÝ dô 1''" & vbCrLf & _ "4 Print #1,''TÝnh tæng sin(1)+sin(2)+ +Sin(1000)''" & vbCrLf & _ "5 Close #2" & vbCrLf & _ "6 End Sub" & vbCrLf & _ "H·y xem ch¬ng trình sai dòng nào?" 1) "Dòng 1" 2) "Dßng 2" 3) "Dßng 3" 4) "Dßng 4" 5) "Dßng 5" CU 7) "Khi chạy chơng trình sau cho kết nào?" & vbCrLf & _ "Private Sub Form_Load()" & vbCrLf & _ "Open ''ViDu.txt'' For Output As #1" & vbCrLf & _ "Print #1, 1.2" & vbCrLf & _ "Print #1, 2.7" & vbCrLf & _ "Print #1, 4.6" & vbCrLf & _ "Print #1, 6.7" & vbCrLf & _ "Close #1" & vbCrLf & _ "QQ" & vbCrLf & _ "End Sub" & vbCrLf & _ "Private Sub QQ()" & vbCrLf & _ "Dim s, x" & vbCrLf & _ "Open ''ViDu.txt'' For Input As #1" & vbCrLf & _ "Do While Not EOF(1)" & vbCrLf & _ "Input #1, x" & vbCrLf & _ "s s - x" & vbCrLf & _ "Loop" & vbCrLf & _ "Debug.Print ''s'', s" & vbCrLf & _ "Close #1" & vbCrLf & _ "End Sub" 1) "-15.2" 2) "20.2" 3) "15.2" 4) "16.0" 5) "-12.4" CÂU 8) "Khi ch¹y chơng trình sau cho kết nào?" & vbCrLf & _ "Private Sub Form_Load()" & vbCrLf & _ "Dim i as Integer" & vbCrLf & _ "Open ''ViDu.txt'' For Output As #1" & vbCrLf & _ "For i-5 to 10" & vbCrLf & _ "Print #1, i" & vbCrLf & _ "Next i" & vbCrLf & _ "Close #1" & vbCrLf & _ "AA" & vbCrLf & _ "End Sub" & vbCrLf & _ "Private Sub AA()" & vbCrLf & _ "Dim s, x" & vbCrLf & _ "Open ''ViDu.txt'' For Input As #1" & vbCrLf & _ "Do While Not EOF(1)" & vbCrLf & _ "Input #1, x" & vbCrLf & _ "s s + x" & vbCrLf & _ "Loop" & vbCrLf & _ "Debug.Print ''s'', s" & vbCrLf & _ "Close #1" & vbCrLf & _ "End Sub" 1) "10" 2) "20" 3) "32" 4) "40" CÂU 9) "Private Sub Form_Load()" & vbCrLf & _ "Dim I, FileName" & vbCrLf & _ "For I To 3" & vbCrLf & _ "FileName ''D:\KhoaTin\TEST'' & I & ''.txt''" & vbCrLf & _ "Open FileName For Output As #I" & vbCrLf & _ "Print #I, ''VÝ dô '' & I" & vbCrLf & _ "Next I" & vbCrLf & _ "Close" & vbCrLf & _ "End Sub" & vbCrLf & _ "Khi chạy, đoạn mà sau tạo sản phẩm gì?" 1) "Sẽ báo lỗi" 2) "Sẽ không tạo sản phẩm cả" 3) "Sẽ tạo tệp tên Test.txt" 4) "Sẽ tạo tệp có tên Test1.txt, Test2.txt Test3.txt" CU 10) "Một chơng trình có Form, Khi chạy chơng trình Form nµo hiƯn tríc" 1) "Form1" 2) "Form2" 3) "Form3" 4) "Tuỳ bạn cài đặt" CU 11) "Một chơng trình có Form đợc đặt tất thuộc tính VisibleFalse, Khi chạy chơng trình Form tríc" 1) "Form1" 2) "Form2" 3) "Form3" 4) "Form4" 5) "Không có Form thị" CU 12) "HÃy đọc đoạn chơng trình sau:" & vbCrLf & _ "1 Private Sub Form_Load()" & vbCrLf & _ "2 Open ''Vidu.txt'' For Input As #1" & vbCrLf & _ "3 Print #1, ''H·y quan s¸t''" & vbCrLf & _ "4 Print #1,''TÝnh tæng Cos(1)+Cos(2)+ +Cos(1000)''" & vbCrLf & _ "5 Close #1" & vbCrLf & _ "6 End Sub" & vbCrLf & _ "HÃy xem chơng trình sai dòng nào?" 1) "Dßng 1" 2) "Dßng 2" 3) "Dßng 3" 4) "Dßng 4" 5) "Dßng 5" CÂU 13) "Sub Form_Load()" & vbCrLf & _ " Dim A As CommandButton" & vbCrLf & _ " Set A Command1" & vbCrLf & _ " Show" & vbCrLf & _ " Command1.Caption ''Tin1 + Tin2''" & vbCrLf & _ " A.Caption ''Tin häc''" & vbCrLf & _ "End Sub" & vbCrLf & _ "Trªn Form1 có nút lệnh Command1, chạy chơng trình sau, sản sinh đợc nút lệnh" 1) "2 nót lƯnh" 2) "3 nót lƯnh" 3) "1 nót lƯnh" 4) "4 nót lƯnh" CÂU 14) "Sub Form_Load()" & vbCrLf & _ " Dim A As CommandButton" & vbCrLf & _ " Set A Command1" & vbCrLf & _ " Show" & vbCrLf & _ " Command1.Caption ''Tin1 + Tin2''" & vbCrLf & _ " A.Caption ''Tin häc''" & vbCrLf & _ "End Sub" & vbCrLf & _ "Trªn Form1 có nút lệnh Command1, chạy chơng trình sau, bề mặt nút lệnh có thông tin g×?" 1) "Tin1 + Tin2" 2) "Command1" 3) "Tin học" 4) "Không có thông tin nào" CU 15) "Private Sub Form_Load()" & vbCrLf & _ "Text1.FontSize 30" & vbCrLf & _ "Set Text1.Font Me.Font" & vbCrLf & _ "Text1.FontSize 12" & vbCrLf & _ "Me.FontSize 24" & vbCrLf & _ "Show" & vbCrLf & _ "Print Text1.FontSize" & vbCrLf & _ "End Sub" & vbCrLf & _ "Chơng trình sau, chạy in kết nào?" 1) "12" 2) "30" 3) "24" CÂU 16) "Option Explicit" & vbCrLf & _ "Public n As Integer" & vbCrLf & _ "Private Sub Form_Load()" & vbCrLf & _ " Me.Show" & vbCrLf & _ " Me.Caption ''Day la Form '' & n+1" & vbCrLf & _ " n n + 1" & vbCrLf & _ "End Sub" & vbCrLf & _ "Private Sub Form_Click()" & vbCrLf & _ " 'T¹o form míi" & vbCrLf & _ " Dim A As New Form1" & vbCrLf & _ " 'HiĨn thÞ form míi" & vbCrLf & _ " A.Show" & vbCrLf & _ "End Sub" & vbCrLf & _ "Khi chạy đoạn mà sau, kích vào Form hình lần sinh Form có tiêu đề nào?" 1) "Form1" 2) "Form2" 3) "Form0" CÂU 17) "Private Sub Form_Load()" & vbCrLf & _ "LeTrai Form1" & vbCrLf & _ "End Sub" & vbCrLf & _ "Sub LeTrai(X As Form)" & vbCrLf & _ " If X.Left < 1000 Then" & vbCrLf & _ " X.Left 2000" & vbCrLf & _ " X.Top 2000" & vbCrLf & _ " X.Width 4000" & vbCrLf & _ " X.Height 3000" & vbCrLf & _ " End If" & vbCrLf & _ "End Sub" & vbCrLf & _ "Chơng trình chạy tạo form có tên tiêu đề gì?" 1) "Báo lỗi " 2) "Tiêu đề Form Form1" 3) "Tiêu đề Form là: X" CU 18) "Private Sub Form_Load()" & vbCrLf & _ "1 Dim A As Label" & vbCrLf & _ "2 Set A Form1.Controls.Add(''VB.Label'')" & vbCrLf & _ "3 With A" & vbCrLf & _ " Visible True" & vbCrLf & _ " BorderStyle 1" & vbCrLf & _ " Height 300" & vbCrLf & _ " Left 1000" & vbCrLf & _ " Top 100" & vbCrLf & _ " AutoSize True" & vbCrLf & _ " Caption ''chơng trình Test''" & vbCrLf & _ " End With" & vbCrLf & _ "4 Show" & vbCrLf & _ "5 End Sub" & vbCrLf & _ "Chơng trình 1) "Sai dòng 2) "Sai dòng 3) "Sai ë dßng 4) "Sai ë dßng 5) "Sai dòng sau sai dòng nào?" 3" 1" 2" 4" 5" CÂU 19) "Option Explicit" & vbCrLf & _ "Public n As Integer" & vbCrLf & _ "Private Sub Form_Load()" & vbCrLf & _ " Me.Caption''''" & vbCrLf & _ " Msgbox Me.Caption" & vbCrLf & _ " Me.Caption''Example''" & vbCrLf & _ "End Sub" & vbCrLf & _ "Private Sub Form_Click()" & vbCrLf & _ " Dim s as string" & vbCrLf & _ " s''Hello students''" & vbCrLf & _ " Msgbox s" & vbCrLf & _ " s''Welcome''" & vbCrLf & _ "End Sub" & vbCrLf & _ "Khi chạy đoạn mà sau, kích vào Form hình thông báo gì?" 1) "Hiện thông báo trống" 2) "Chơng trình báo lỗi" 3) "Form1" 4) "Không cả" Cau 20 CÂU 20) " Dim a(3) As CommandButton" & vbCrLf & _ " Dim i As Integer" & vbCrLf & _ " For i To 3" & vbCrLf & _ " Set a(i) Form1.Controls.Add(''vb.commandbutton'', ''Cmd'' & i)" & vbCrLf & _ " a(i).FontName ''.vnTime''" & vbCrLf & _ " a(i).FontSize 12" & vbCrLf & _ " a(i).Left 100 * i" & vbCrLf & _ " a(i).Caption ''Nót thø '' & i" & vbCrLf & _ " a(i).Visible True" & vbCrLf & _ " Next i" & vbCrLf & _ " End Sub" & vbCrLf & _ "Chơng trình sau tạo nút lệnh theo phơng nào?" 1) "Lộn xộn " 2) "Phơng nằm ngang" 3) "Phơng thẳng đứng" 4) "Phơng chéo" CU 21) " 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?" & vbCrLf & _ "" & vbCrLf & _ "P A(1)" & vbCrLf & _ "For I To 10" & vbCrLf & _ " If P > A(I) Then" & vbCrLf & _ " P A(I)" & vbCrLf & _ " End If" & vbCrLf & _ "Next" & vbCrLf & _ "MsgBox P" & vbCrLf & _ "" 1) " Giá trị nhỏ mảng" 2) " Giá trị lớn mảng" 3) " Giá trị trung bình mảng" 4) " Tổng giá trị mảng" CU 22) " 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?" & vbCrLf & _ "" & vbCrLf & _ "P A(1)" & vbCrLf & _ "For I To 10" & vbCrLf & _ " If P < A(I) Then" & vbCrLf & _ " P A(I)" & vbCrLf & _ " End If" & vbCrLf & _ "Next" & vbCrLf & _ "MsgBox P" 1) " Giá trị nhỏ mảng" 2) " Giá trị lớn mảng" 3) " Giá trị trung bình mảng" 4) " Tổng giá trị mảng" CU 23) " Chơng trình sau cho kết bao nhiêu?" & vbCrLf & _ "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" 1) " 123" 2) " 6" 3) " Không có giá trị đúng" 4) " Chơng trình báo lỗi" CU 24) " Chơng trình sau cho kết 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" 1) " 18" 2) " 126" 3) " Chơng trình báo lỗi" 4) " Không có kết đúng" CU 25) " Lệnh Me.Print Format(123.456, ""##.##"") trả lại giá trị bao nhiªu?" 1) " 123.46" 2) " 123.456" 3) " 12.45" 4) " 120.45" CU 26) " Chơng trình sau kết nào?" & vbCrLf & _ "Private Sub Form_Load()" & vbCrLf & _ " Show" & vbCrLf & _ " For i To 3" & vbCrLf & _ " For j To 3" & vbCrLf & _ " s s + i * j" & vbCrLf & _ " Next j" & vbCrLf & _ " Next i" & vbCrLf & _ " Print s" & vbCrLf & _ "End Sub" 1) " 36" 2) " 9" 3) " 18" 4) " 7" CÂU 27) " Chơng trình sau cho kết bao nhiêu?" & vbCrLf & _ "Private Sub Form_Load()" & vbCrLf & _ "Show" & vbCrLf & _ " a$ ""chuong trinh""" & vbCrLf & _ " Print Mid(a$, Len(a$) - 7)" & vbCrLf & _ "End Sub" 1) " Chuỗi ""ng trinh""" 2) " Chuỗi ""chơng trinh""" 3) " Chuỗi ""trinh" 4) " Cú pháp lệnh sai" CU 28) " Chơng trình sau thực công việc gì?" & vbCrLf &_ "Private Sub Form_Click()" & vbCrLf & _ " Cls" & vbCrLf & _ " Dim i As Integer" & vbCrLf & _ " For i To 4" & vbCrLf & _ " Print Rnd" & vbCrLf & _ " Next i" & vbCrLf & _ "End Sub" 1) " In sè ngÉu nhiªn tõ [0,1)" 2) " In số ngẫu nhiên bất kỳ" 3) " Không in gì" 4) " In số 1, 2, 3, 4" CU 29) "Đoạn mà sau Kết nào?" & vbCrLf & _ "Private Sub Form_Load()" & vbCrLf & _ " Dim a As Integer" & vbCrLf & _ " Show" & vbCrLf & _ " a 8" & vbCrLf & _ " Me.Print Trim(Str$(a)) & a ^ (1 / 3)" & vbCrLf & _ " End Sub" & vbCrLf & _ " " & vbCrLf & _ " Tr¶ lêi" & vbCrLf & _ "" 1) " 88" 2) " 82" 3) " AA" 4) " 84" CU 30) " Đoạn mà sau in Kết nào?" & vbCrLf & _ " a ''1220'' " & vbCrLf & _ " If IsDate(a) Then" & vbCrLf & _ " Print ''§óng''" & vbCrLf & _ " Else" & vbCrLf & _ " Print ''Sai''" & vbCrLf & _ " End If" & vbCrLf & _ " " & vbCrLf & _ " Tr¶ lêi:" & vbCrLf & _ ... EXE cđa Visual Basic C¸c điều khiển nội chứa sẵn hộp công cụ, ta gỡ bỏ hay thêm chúng vào hộp công cụ" 2) " tồn tập tin độc lập có phần mở rộng OCX." 3) " Cung cấp phần Automation lập trình với... "Width" CÂU 48) "Khi BorderStyle cã gi¸ tr ị:0 - None Hiệu ứng biểu mẫu" 1) "Không có cạnh viền, không tiêu đề, không đợc di chuyển Giá trị thờng đợc dùng cho cửa sổ khởi động chơng trình" 2) "không... từ ứng dụng khác øng dơng cđa Visual Basic." CÂU 53) "§iỊu khiĨn ActiveX" 1) " tồn tập tin độc lập có phần mở rộng OCX." 2) " Các điều khiển đợc chứa tập tin EXE Visual Basic Các điều khiển nội