lập trình với visual basic 6 0

Trang Nhãm Nhãm Nhãm Nhãm Nhãm LËp tr×nh víi Visual Basic 6.0 Tỉng sè: 450 c©u A: 100 C©u B: 100 C©u C: 100 C©u D: 100 c©u E: 50 Câu Câu 1: HA(1) = " Để xác định xem nút lệnh có xuất 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) = SA(1) = DiemA(1) = Câu2 HA(2) = " Để 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ì?" TA(2, 1) = " Enable" TA(2, 2) = " Visible" TA(2, 3) = " Style" TA(2, 4) = " Appearance" TA(2, 5) = " Causes Validation" DA(2) = SA(2) = DiemA(2) = C©u3 : HA(3) = " 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 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" Trang TA(3, 5) = " 256" DA(3) = SA(3) = DiemA(3) = C©u : HA(4) = " Khi chạy ứng dụng, thủ tục đợc thực đầ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) = SA(4) = DiemA(4) = C©u : HA(5) = " Có cách để tạo thích chơng trình?" TA(5, 1) = " Dấu nháy đơn từ khoá Rem" TA(5, 2) = " Dấu nháy kép 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 từ khoá Note" DA(5) = SA(5) = DiemA(5) = Câu : 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) = SA(6) = Trang DiemA(6) = Câu HA(7) = " Kiểu liệu Variant đợc dùng để làm gì?" TA(7, 1) = " Lu liệu khác VB" TA(7, 2) = " Tạo kiểu liệu tự do" TA(7, 3) = " Thay cho kiểu liệu chuỗi" TA(7, 4) = " Lu liệu dạng số nguyên" TA(7, 5) = " Đổi kiểu liệu tự sang kiểu chuỗi" DA(7) = SA(7) = DiemA(7) = Câu : HA(8) = " 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" 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) = SA(8) = DiemA(8) = C©u HA(9) = " Chơng trình sau cho kết bao nhiªu?" & vbCrLf & _ "Private Sub Form_Load()" & vbCrLf & _ " Dim a$, b" & vbCrLf & _ " a = ""12""" & vbCrLf & _ Trang " 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 đúng" DA(9) = SA(9) = DiemA(9) = C©u 10 HA(10) = " Chơng trình sau chạy kết 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 kết gì" TA(10, 2) = " 123" TA(10, 3) = " 6" TA(10, 4) = " Chơng trình báo lỗi" DA(10) = SA(10) = DiemA(10) = C©u 11 HA(11) = " Chơng trình sau cho kết 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 & _ Trang " 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) = SA(11) = DiemA(11) = C©u 12 HA(12) = " Hàm CDbl đợc dùng để thực việc gì?" TA(12, 1) = " Chuyển đổi biến thành số đô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ố đơ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) = SA(12) = DiemA(12) = 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 thủ tục, có ý nghĩa thủ tục biến đợc khai báo sau điều lệnh Option Explicit" TA(13, 2) = " Các biến khai báo thđ tơc, cã ý nghÜa mäi thđ tơc" TA(13, 3) = " C¸c biÕn cã ý nghÜa tÊt thủ tục" TA(13, 4) = " Các biến đợc khai báo thủ tục" TA(13, 5) = " Các biến đợc khai báo sau điều lệnh Option Explicit" DA(13) = SA(13) = DiemA(13) = Trang Câu14 HA(14) = " Thế biến cục bộ?" TA(14, 1) = " Các biến khai báo bên thủ tục, có ý nghĩa thủ tục đó" TA(14, 2) = " Các biến khai báo thân thủ tục" TA(14, 3) = " Các biến có ý nghĩa tất thủ tơc" TA(14, 4) = " C¸c biÕn chØ cã ý nghĩa thủ tục, khai báo sau điều lệnh Option Explicit" DA(14) = SA(14) = DiemA(14) = Câu15 HA(15) = " Hàm Spc() đợc dùng để làm gì?" TA(15, 1) = " Chèn số khoảng cách định vào dòng" TA(15, 2) = " Đa số khoảng cách chơng trình" TA(15, 3) = " Lấy độ dài chuỗi" TA(15, 4) = " Thay thÕ mét sè ký tù ký tự trắng" DA(15) = SA(15) = DiemA(15) = C©u 16 HA(16) = " Lệnh Me.Print Format(123.456, ""##.##"") trả lại giá trị 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) = SA(16) = DiemA(16) = Trang Câu 17 : HA(17) = " 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" TA(17, 1) = " 36" TA(17, 2) = " 9" TA(17, 3) = " 18" TA(17, 4) = " 7" DA(17) = SA(17) = DiemA(17) = '18 HA(18) = " Chơng trình sau thực 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 số lần lợt tõ 0.1 ®Õn 1" TA(18, 4) = " In số từ đến 10" DA(18) = SA(18) = DiemA(18) = Trang C©u 19 : HA(19) = " Hàm IsDate()đợc dùng để làm gì?" TA(19, 1) = " Xem cã thĨ chun ®ỉi biĨu thức thành 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) = SA(19) = DiemA(19) = C©u 20 HA(20) = " Hàm IsNumeric() đợc dùng để làm gì?" TA(20, 1) = " Xem chuyển đổi biến thành số hay không." TA(20, 2) = " Đổi chuỗi thành số" TA(20, 3) = " Đổi số thành chuỗi" TA(20, 4) = " Đổi biến kiểu ngµy thµnh kiĨu sè" DA(20) = SA(20) = DiemA(20) = C©u 21 HA(21) = " Sù kiện QueryUnload đợc ứng tác 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 chạy chơng trình" TA(21, 4) = " Khi chơng trình báo lỗi" DA(21) = SA(21) = DiemA(21) = Câu 22 Trang HA(22) = " Chơng trình sau trả lại giá trị 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 = MSFlexGrid1.Rows CurrentStart = CurrentStart + If CurrentStart > Rs.RecordCount RecordCount - FillGrid CurrentStart, PageSize MSFlexGrid1.SetFocus MSFlexGrid1.Row = MSFlexGrid1.Rows If (VScroll1.Value + 1) * PageSize VScroll1.Value = VScroll1.Value + Exit Sub End If - Then Then CurrentStart = - < CurrentStart Then A §óng B Sai* - Câu 32 Đoạn mã sau sai hay ®óng ? Declare Function CallWindowProc Lib "user32" Alias _ "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As _ Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As _ Long) As Long A §óng* B Sai - Câu 33 Đoạn mã sau sai dòng ? Private Sub Command1_Click() iFixedCols = iFixedCols + If iFixedCols >= MSFlexGrid1.Cols - Then iFixedCols = MSFlexGrid1.Cols - MsgBox "No more columns to fix" Else MSFlexGrid1.FixedCols = iFixedCols End If End Sub A Dßng thø Trang 164 B Dßng thø C Dßng thø D Dßng thø E Dßng thø 2* - Câu 34 Đoạn mã sau sai dòng nµo ? Ole1.Class = "Excel.Chart.5" Ole1.Action = OLE_CREATE_EMBED Set objChart = Ole1 Object Set objChartTitle = Ole1.Object.ChartTitle objChart.HasTitle = objChartTitle.Caption = "Expenses" A Dßng thø B Dßng thø C Dßng thø D Dßng thø E Dßng thø 3* - Câu 35 Đoạn mã sau có dòng, sai dòng ? Private Sub Form_Load() Text1.TabIndex = Text2.TabIndex = Text2.BorderStyle = Text3.TabIndex = MSFlexGrid1.Cols = MSFlexGrid1.Rows = MSFlexGrid1.TabStop = False End Sub A Dßng thø B Dßng thø C Dßng thứ D Dòng thứ E Không sai dòng cả* - Câu 36 Đoạn mã sau có thủ tục Private Sub Command1_Click() UserDocument.Hyperlink.GoBack End Sub Private Sub Command2_Click() UserDocument.Hyperlink.NavigateTo App.Path & "\UserDocument3.vbd" Trang 165 End Sub Private Sub UserDocument_Initialize() Command1.Caption = "" Label1.Caption = "The Magic Number Is" Text1.Text = MyNumber End Sub Private Sub Thanh() Text2.Text = “Chao” End Sub A Cã thđ tơc B Cã thđ tơc C Cã thđ tơc D Cã thđ tơc* E Cã thđ tơc - Câu 37 Đoạn mã sau dòng sai? Private Sub Form_Load() Text1.Left = Text.Top = Text1.Width = Me.Width - x Text1.Height = Me.Height - y End Sub A Dßng thø B Dßng thø C Dßng thø D Dßng thø E Dßng thø 3* - Câu 38 Đoạn mã sau sai loại nào? Private Sub Form_Load() Dim i, j For i = To For j = To vArray(i, j) = Int((Rnd(10) + Rnd(10) * 10) * 10) Next i Next j A Sai ngữ pháp B Sai liệu C Sai vỊ cÊu lóc lƯnh For* D Sai vỊ m¶ng Trang 166 E Sai vỊ tõ kho¸ - Câu 39 Đoạn mã sau sai loại nµo? If Check1.Value = vbChecked Then vArray(1, 4) = vbNull Else vArray(1, 4) = End If A Sai vÒ ngữ pháp B Sai liệu C Đúng* D Sai mảng E Sai từ khoá - Câu 40 Đoạn mã sau sai loại nào? With DataGrid ColumnLabelCount = ColumnLabel(1, 1) = "abc" ColumnLabel(2, 1) = "xyz" RowLabelCount = RowLabel(1, 1) = "Jan" RowLabel(2, 1) = "Feb" RowLabel(3, 1) = "Mar" RowLabel(4, 1) = "Apr" RowLabel(5, 1) = "May" RowLabel(6, 1) = "Jun" End With A Sai ngữ pháp B Sai liệu C Đúng* D Sai mảng E Sai từ khoá - Câu 41 Đoạn mã sau sai dòng ? Private Sub Form_Load() Trang 167 Set MyConn = New rdoConnection MyConn.Connect = gstrConnect MyConn.CursorDriver = rdUseOdbc MyConn.EstablishConnection rdDriverNoPrompt, _ False, rdAsyncEnable cmdOpenResultset Enabled = False Caption = "Opening Connection " End Sub A Dßng thø B Dßng thø C Dßng thø D Dßng thø E Dßng thø 5* F Dßng thø - C©u 42 Đoạn mã sau sai dòng ? Private Sub MyConn_QueryComplete(ByVal Query As RDO.rdoQuery,ByVal ErrorOccurred As Boolean) IF ErrorOccured Then Caption = "Error Occurred!" Else Caption = "Query Complete!" cmdOpenResultset.Enabled = True End IF End Sub A Dßng thø 1* B Dßng thø C Dßng thø D Dßng thø E Dßng thø F Dßng thø - Câu 43 Đoạn mã sau sai dòng ? Public Sub Hook() If IsHooked Then MsgBox "Don't hook it twice without " & _ "unhooking, or you will be unable to unhook it." Else lpPrevWndProc = SetWindowLong(gHW, GWL_WNDPROC, _ AddressOf WindowProc) IsHooked = “yes” End If End Sub Trang 168 A Dßng thø B Dßng thø C Dßng thø D Dßng thø E Dßng thø 5* F Dßng thø - Câu 44 Đoạn mã sau sai dòng ? Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode Integer) If IsHooked Then Cancel = MsgBox "Unhook before closing, or the IDE will crash." End If End Sub A Dßng thø 1* B Dßng thø C Dßng thø D Dßng thø E Dßng thø - Câu 45 Đoạn mã sau sai dòng nµo ? Sub Form_Load() List1.Save List1.AddItem List1.AddItem List1.AddItem List1.AddItem End Sub "Apples" "Banana" "Bread" "Break" A Dßng thø 1* B Dßng thø C Dßng thø D Dßng thø E Dßng thø - Câu 46 Đoạn mã sau sai dòng ? Command1.Caption = "" Command3.Caption = "Connect" Trang 169 Command4.Caption = "Send" Command5.Caption = "Close Session" A Dßng thø B Dßng thø C Dßng thø D Dòng thứ E Dòng thứ F Đúng toµn bé * - C©u 47 Đoạn mã sau sai dòng ? Private Sub Form_Load() Set en = rdoEnvironments(0) en.CursorDriver = rdUseClientbatch Set cn = cn.OpenConnection(dsName:="mymachine", _ Prompt:=rdDriverNoPrompt, _ Connect:="uid=sa;pwd=;database=PUBS;") Command1.Caption = "resultset" Command2.Caption = "edit " Command3.Caption = "update" Command4.Caption = "quit" End Sub A Dßng thø B Dßng thø 2* C Dßng thø D Dßng thø E Dßng thø F Dßng thø - Câu 47 Đoạn mã sau sai dòng ? Private Sub Form_Load() Dim MyFileSystem As FileSystemObject Dim ADrive As Drive Show For Each ADrive In MyFileSystem.Drives If Drive.IsReady Then FormatNumber(ADrive.TotalSize, bytes" End If Next 0) & " Trang 170 End Sub A Dßng thø B Dßng thø 2* C Dßng thø D Dßng thø E Dßng thø F Dßng thø - Câu 48 Đoạn mã sau sai dòng ? Set xlsApp = New Excel.Application Set xlsWorkBook = xlsApp.Workbooks xlsApp.Visible = True xlsWorkBook.Open "c:\thao.xls" Set xlsWorksheet = xlsApp.Sheets("sheet1") xlsWorksheet.Cells(1 3).Formula = "=sum(A1:B1)" A Dßng thø B Dßng thø C Dßng thø D Dßng thø E Dßng thø F Dßng thø * Câu 49 Đoạn mã sau sai dòng lệnh ? Private Sub Command1_Click() RichTextBox1.SelHangingIndent = -300 s = RichTextBox1.TextRTF End Sub Private Sub Command2_Click() RichTextBox.TextRTF = s End Sub Private Sub Form_Load() RichTextBox1.SelIndent = 1000 End Sub A Dßng thø B Dßng thø C Dßng thø D Dßng thø E Dßng thø 3* Trang 171 F Dòng thứ Câu 50 Đoạn mã sau sai dòng lƯnh nµo ? Private Sub Command1_click() Dim hostname$, HostLen& HostLen& = 256 hostname$ = Space$(HostLen&) If gethostname(hostname$, HostLen&) = SOCKET_ERROR Then MsgBox "Windows Sockets error" & Str(WSAGetLastError()) Else hostname$ = Tri$(hostname$) hostname$ = Left$(hostname$, Len(hostname$) - 1) MsgBox "Host name = " & hostname$ End If SocketsCleanup End Sub A Dßng thø B Dßng thø C Dßng thø D Dßng thø 4* E Dßng thø F Dßng thø ... Me.Print Format(123.4 56, ""##.##"") trả lại giá trị bao nhiêu?" TA( 16, 1) = " 123. 46" TA( 16, 2) = " 123.4 56" TA( 16, 3) = " 12.45" TA( 16, 4) = " 1 20. 45" DA( 16) = SA( 16) = DiemA( 16) = Trang ... C©u : 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) = SA (6) = Trang DiemA (6) = ... BorderStyle = Height = 300 Left = Top = AutoSize = True Caption = "Ch¬ng tr×nh Test!" End With With B Visible = True Width = 200 0 Trang 27 Height = 300 Left = 10 Top = A.Height + 100 FontName = ".vnTime"