2012年最新網(wǎng)上農(nóng)大VB語言程序設計課程作業(yè)答案(4套).doc

VB語言程序設計窗體頂端第1套您已經(jīng)通過該套作業(yè),請參看正確答案1、與傳統(tǒng)的程序設計語言相比，Visual Basic語言最突出的特點是（）。A結構化程序設計B程序開發(fā)環(huán)境C事件驅動編程機制D程序調試技術 參考答案：C 您的答案：C 2、Visual Basic集成環(huán)境的主窗口中不包括（）。A標題欄B菜單欄C狀態(tài)欄D工具欄 參考答案：C 您的答案：C 3、Visual Basic窗體設計器的主要功能是（）。A建立用戶界面B編寫源程序代碼C畫圖D顯示文字 參考答案：A 您的答案：A 4、下列敘述中正確的是（）。A只有窗體才是VB中的對象B只有控件才是VB中的對象C控件和窗體都是VB中的對象D控件和窗體都不是VB中的對象 參考答案：C 您的答案：C 5、為了把窗體上的某個控件變?yōu)榛顒拥?，應?zhí)行的操作是（）。A單擊窗體的邊框B單擊該控件的內部C雙擊該控件D雙擊窗體 參考答案：B 您的答案：B 6、確定一個控件在窗體上的位置的屬性是（）。AWidth或HeightBWidth和HeightCTop或LeftDTop和Left 參考答案：D 您的答案：D 7、在窗體上面畫一個名稱為Text1的文本框，然后編寫如下的事件過程：Private Sub Text1_KeyPress(KeyAscii As Integer).End Sub若焦點位于文本框中，則能夠觸發(fā)KeyPress事件的操作是（）。A單擊鼠標B雙擊文本框C鼠標滑過文本框D按下鍵盤上的某個鍵 參考答案：D 您的答案：D 8、為了裝入一個VB應用程序，應當（）。A只裝入窗體文件(.frm) B只裝入工程文件(.vbp)C分別裝入工程文件和標準模塊文件(.bas)D分別裝入工程文件、窗體文件和標準模塊文件 參考答案：B 您的答案：B 9、當窗體最小化時縮小為一個圖標，設置這個圖標的屬性是（）。AMouseIcon BIconCPictureDMousePoint 參考答案：B 您的答案：B 10、為了取消窗體的最大化功能，需要把它的一個屬性設置為False，這個屬性是（）。AControlBox BMinButtonCEnabledDMaxButton 參考答案：D 您的答案：D 11、決定窗體有無控制菜單的屬性是（）。AControlBox BMinButtonCEnabledDMaxButton 參考答案：A 您的答案：A 12、下列操作中不能向工程中添加窗體的是（）。A執(zhí)行“工程”菜單中的“添加窗體”命令 B單擊工具欄上的“添加窗體”按鈕C右擊窗體，在彈出的菜單中選擇“添加窗體”命令D右擊工程資源管理器，在彈出的菜單中選擇“添加”命令，然后在下一級菜單中選擇“添加窗體”命令 參考答案：C 您的答案：C 13、當一個工程含有多個窗體時，其中的啟動窗體是（）。A啟動Visual Basic時建立的窗體 B第一個添加的窗體C最后一個添加的窗體D在“工程屬性”對話框中指定的窗體 參考答案：D 您的答案：D 14、為了在按下Esc鍵時執(zhí)行某個命令按鈕的事件過程，需要把該按鈕的哪個屬性設為True（）。AValue BDefaultCCancel DEnabled 參考答案：C 您的答案：C 15、用菜單編輯器創(chuàng)建菜單時，如果要在菜單中添加一條分隔線，正確的操作是（）。A在標題輸入框中輸入“-”（減號）B在名稱輸入框中輸入“-”（減號）C在標題輸入框中輸入“_”（下劃線） D在名稱輸入框中輸入“_”（下劃線） 參考答案：A 您的答案：A 16、在顯示菜單時，菜單的哪個屬性為True時將用灰色顯示該菜單項標題（）。ACaptionBCheckedCEnabled DVisible 參考答案：C 您的答案：C 17、使文本框獲得焦點的方法是（）。AChangeBGotFocusCSetFocus DLostFocus 參考答案：C 您的答案：C 18、為了使標簽框控件覆蓋背景，應把BackStyle屬性設置為（）。A0B1CTrue DFalse 參考答案：B 您的答案：B 19、在窗體上畫兩個文本框（Name屬性分別為Text1和Text2）和一個命令按鈕（Name屬性為Command1），然后編寫如下兩個事件過程：Private Sub Command1_Click()a = Text1.Text+Text2.TextPrint aEnd SubPrivate Sub Form_Load()Text1.Text = Text2.Text = End Sub程序運行后，在Text1和Text2中分別輸入123和321，然后單擊命令按鈕，則輸出結果為（）。A444 B321123C123321 D132231 參考答案：C 您的答案：C 20、當拖動滾動條中的滾動塊時，將觸發(fā)滾動條的事件是（）。AMoveBChange CScroll DSetFocus 參考答案：C 您的答案：C VB語言程序設計第2套您已經(jīng)通過該套作業(yè),請參看正確答案1、以下語句Print 3 + 4 5 * 6 / 7 Mod 8的輸出結果是（）。A3B4C5D6 參考答案：B 您的答案：B 2、下面不是VB的數(shù)據(jù)類型的是（）。ACurrencyBBool CObjectDSingle 參考答案：B 您的答案：B 3、下列可作為VB的變量名的是（）。A3*DeltaBBool CObjectDSingle 參考答案：B 您的答案：B 4、下面的數(shù)2.65358979335278E-06寫成普通的十進制數(shù)是（）。A0.0000265358979335278B0.00000265358979335278 C0.000265358979335278D0.000000265358979335278 參考答案：B 您的答案：B 5、下面的數(shù)1.21576654590569E+19寫成普通的十進制數(shù)是（）。A12157665459056900B121576654590569000 C1215766545905690000D12157665459056900000 參考答案：D 您的答案：D 6、設a = 2，b = 3，c = 4，d = 5，下列表達式Not a = c Or 4 * c = b2 And b a + c的值是（）。A-1B1 CTrue DFalse 參考答案：D 您的答案：D 7、語句Print 5 * 5 5 / 5的輸出結果是（）。A5B25 C0 D1 參考答案：B 您的答案：B 8、語句Print Sgn(-62) + Int(-62) + Int(62)的輸出結果是（）。A-36 B1 C-1 D-72 參考答案：C 您的答案：C 9、以下語句的輸出結果是（）。a = Sqr(3)Print Format(a, $#.#)A$1.732 B$1.732 C$1732 D$0001.732 參考答案：B 您的答案：B 10、以下程序段的輸出結果是（）。a = Sqr(3)b = Sqr(2)c = a bPrint cA$1.732 B$1.732 C$1732 D$0001.732 參考答案：D 您的答案：D 11、表達式4 + 5 6 * 7 / 8 Mod 9的值是（）。A4 B5 C6 D7 參考答案：B 您的答案：B 12、一個語句如果在下一行繼續(xù)寫，應在本行尾部加符號（）。A, B: C_ D; 參考答案：C 您的答案：C 13、假定Picture1和Text1分別為圖片框和文本框的名稱，下列不正確的語句是（）。APrint 25 BPicture1.Print 25 CText1.Print 25 DDebug.Print 25參考答案：C 您的答案：C 14、以下語句的輸出結果是（）。 (表示空格)a = 27b = 65Print a; bA27 65 B 27 65 C27 65 D27 65參考答案：D 您的答案：D 15、在窗體上畫一個命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()Dim a As Integer, b As Integera = InputBox(Enter the First integer)b = InputBox(Enter the Second integer)Print b + aEnd Sub程序運行后，單擊命令按鈕，先后在輸入對話框中輸入456和123，則輸出結果是（ ）。A579 B123 C456 D123456參考答案：A 您的答案：A 16、執(zhí)行下面的語句后，所產(chǎn)生的消息框的標題是（ ）。a = MsgBox(AAAA, , BBBB, , 5)ABBBB B空 CAAAA D實時錯誤，不能產(chǎn)生消息框參考答案：A 您的答案：A 17、對用MsgBox顯示的消息框，以下敘述中錯誤的是（ ）。a = MsgBox(AAAA, , BBBB, , 5)A可以有一個按鈕 B可以有兩個按鈕 C可以有三個按鈕 D可以有任意多個按鈕參考答案：D 您的答案：D 18、假定有如下的窗體事件過程：Private Sub Command1_Click()a = Visual Basic程序設計b = Left(a, 6)c = Mid(a, 8)MsgBox b, 34, cEnd Sub程序運行后，單擊命令按鈕，則在彈出的消息框的標題欄中顯示的信息是（ ）。A可以有一個按鈕 B可以有兩個按鈕 C可以有三個按鈕 D可以有任意多個按鈕參考答案：C 您的答案：C 19、設有語句x = InputBox(輸入數(shù)值, 示例, 20)程序運行后，如果從鍵盤上輸入數(shù)值10并按回車鍵，則下列敘述中正確的是（ ）。A變量x的值是數(shù)值型數(shù)據(jù)10 B變量x的值是字符串型數(shù)據(jù)10 C10是默認值 D在InputBox對話框標題欄中顯示的是“輸入數(shù)值”參考答案：B 您的答案：B 20、設a = 6，則執(zhí)行x = IIf(a 5, -1, 0)后，x的值為（ ）。A5 B6 C0 D-1參考答案：D 您的答案：DVB語言程序設計第3套您已經(jīng)通過該套作業(yè),請參看正確答案1、設有函數(shù)則下列能正確計算該函數(shù)值的語句是（）。AIf x 0 Thenr = 2End IfBIf x 0 Thenr = 2End IfCIf x 0 Thenr = 1Elser = 2End IfDr = If(x 0y = x + 1Case Is = 0y = x + 2Case Elsey = x + 3End SelectLabel1.Caption = xLabel2.Caption = yEnd Sub程序運行后，單擊窗體，標簽Label1和Label2中顯示的內容分別是（ ）。A-5和-2B-5和-4C-5和-3 D-5和-5 參考答案：A 您的答案：A 3、設置復選框或單選按鈕標題對齊方式的屬性是（ ）。AAlign BAlignmentCSorted DValue 參考答案：B 您的答案：B 4、下列程序段的執(zhí)行結果為（ ）。x = 2: y = 1If x * y 0ATrue BFalseC-1 D1 參考答案：B 您的答案：B 5、下列程序段的執(zhí)行結果為（ ）。x = 3: y = 4If x 0 Then a = 1If x 10 Then a = 2If x 20 Then a = 3If x 30 Then a = 4Print aA1B2C3 D4 參考答案：B 您的答案：B 7、通過改變單選按鈕控件的什么屬性值，可以改變單選按鈕的選取狀態(tài)（ ）。AValueBStyle CAppearance DCaption 參考答案：A 您的答案：A 8、在窗體上畫兩個單選按鈕，名稱分別為Option1和Option2，標題分別為“宋體”和“黑體”；一個復選框，名稱為Check1，標題為“粗體”；一個文本框，名稱為Text1，Text屬性為“改變文字字體”。要求程序運行時，“宋體”單選按鈕和“粗體”復選框被選中，則能夠實現(xiàn)上述要求的語句序列是（ ）。AOption1.Value = True Check1.Value = FalseBOption1.Value = True Check1.Value = True COption2.Value = False Check1.Value = True DOption1.Value = True Check1.Value = 1參考答案：D 您的答案：D 9、下面控件中，用于將對象分組的是（ ）。A窗體 B文本框 C復選框 D框架參考答案：D 您的答案：D 10、下列代碼的運行結果是（ ）。If 3 - 2 Thena = 10ElseIf (10 / 2) = 6 Thena = 20Elsea = 30End IfPrint aA10B20 C30 D不確定參考答案：A 您的答案：A 11、閱讀下面的程序：Private Sub Form_Click()Dim m, n As Integerm = InputBox(請輸入 M 的值)m = Val(m)m1 = mn = InputBox(請輸入 N 的值)n = Val(n)n1 = nDo While n 0remin = m Mod nm = nn = reminLoopPrint m1, n1, mEnd Sub程序運行后，單擊窗體，在輸入對話框中分別輸入16和24，在程序在窗體上的輸出結果為（）。A16244B16248C24166 D24168參考答案：B 您的答案：B 12、閱讀下面的程序：Private Sub Form_Click()Dim Check, CounterCheck = TrueCounter = 0DoDo While Counter 20Counter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until Check = FalsePrint Counter, CheckEnd Sub程序運行后，單擊窗體，標簽Label1和Label2中顯示的內容分別是（ ）。A150 B20-1C10True D10False 參考答案：D 您的答案：D 13、假定有以下循環(huán)結構Do Until 條件循環(huán)體Loop則正確的描述是（ ）。A如果“條件”是一個為0的常數(shù)，則一次循環(huán)體也不執(zhí)行 B如果“條件”是一個為0的常數(shù)，則無限次執(zhí)行循環(huán)體C如果“條件”是一個不為0的常數(shù)，則至少執(zhí)行一次循環(huán)體 D不論“條件”是否為“真”，至少要執(zhí)行一次循環(huán)體 參考答案：B 您的答案：B 14、執(zhí)行下面的程序段后，x的值為（ ）。x = 5For i = 1 To 20 Step 2x = x + i 5Next iA20B21C24 D25參考答案：B 您的答案：B 15、在窗體上畫一個命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()For i = 1 To 4x = 4For j = 1 To 3x = 3For k = 1 To 2x = x + 6Next kNext jNext iPrint xEnd Sub程序運行后，單擊命令按鈕，輸出結果是（ ）。A7B15C157 D538 參考答案：B 您的答案：B 16、在窗體上畫兩個文本框（其Name屬性分別為Text1和Text2）和一個命令按鈕（其Name屬性為Command1），然后編寫如下事件過程：Private Sub Command1_Click()x = 0Do While x 50x = (x + 2) * (x + 3)n = n + 1LoopText1.Text = Str(n)Text2.Text = Str(x)End Sub程序運行后，單擊命令按鈕，在兩個文本框中顯示的值分別為（ ）。A1和0B2和72C3和50 D4和168 參考答案：B 您的答案：B 17、在窗體上畫一個命令按鈕，名稱為Command1。然后編寫如下程序：Private Sub Command1_Click()For i = 1 To 4For j = 0 To iPrint Chr$(65 + i);Next jPrintNext iEnd Sub程序運行后，如果單擊命令按鈕，則在窗體上顯示的內容是（ ）。ABCD 參考答案：A 您的答案：A 18、閱讀下面的程序：Option Base 1Private Sub Form_Click()Dim Arr(4, 4) As IntegerFor i = 1 To 4For j = 1 To 4Arr(i, j) = (i - 1) * 2 + jNext jNext iFor i = 3 To 4For j = 3 To 4Print Arr(j, i);Next jPrintNext iEnd Sub程序運行后，單擊窗體，輸出結果是（ ）。 A57 68 B68 79 C79 810 D810 811 參考答案：C 您的答案：C 19、用下面的語句所定義的數(shù)組的元素個數(shù)是（ ）。Dim arr(3 To 5, -2 To 2)A8B12C15 D24 參考答案：C 您的答案：C 20、在窗體上畫一個命令按鈕，Name屬性為Command1，然后編寫如下代碼：Option Base 1Private Sub Command1_Click()Dim Arr(3) As IntegerFor i = 1 To 3For j = 1 To 3Arr(j) = Arr(i) + 1Next jNext iPrint Arr(3)End Sub程序運行后，單擊命令按鈕，輸出結果是（ ）。A7B6C5D4參考答案：C 您的答案：CVB語言程序設計窗體頂端第4套您已經(jīng)通過該套作業(yè),請參看正確答案1、在窗體上畫一個名稱為List1的列表框，一個名稱為Label1的標簽框。列表框中顯示若干城市的名稱，當單擊列表框中的某一城市名時，在標簽中顯示選中城市的名稱。下列能正確實現(xiàn)上述功能的程序是（ ）。APrivate Sub List1_Click()Lbel1.Caption = List1.ListIndex End SubBPrivate Sub List1_Click()Label1.Name = List1.ListIndex End SubCPrivate Sub List1_Click()Label1.Name = List1.Text End Sub DPrivate Sub List1_Click()Label1.Caption = List1.Text End Sub 參考答案：D 您的答案：D 2、刪除列表框中指定的項目所使用的方法為（）。AMoveBRemoveCMoveItemDRemoveItem 參考答案：D 您的答案：D 3、可唯一標志控件數(shù)組中某一個控件的屬性是（）。ANameBIndexCCaptionDTabIndex 參考答案：B 您的答案：B 4、閱讀下面的程序：Function Func(x As Integer, y As Integer) As IntegerDim n As IntegerDo While n = 4x = x + yn = n + 1LoopFunc = xEnd FunctionPrivate Sub Command1_Click()Dim x As Integer, y As Integer, n As Integer, z As Integerx = 1: y = 1For n = 1 To 6z = Func(x, y)Next nPrint zEnd Sub程序運行后，單擊命令按鈕，輸出結果是（ ）。A16B21C26 D31 參考答案：D 您的答案：D 5、閱讀下面的程序：Function F(a As Integer)Static cb = 0b = b + 1c = c + 1F = a + b + cEnd FunctionPrivate Sub Command1_Click()Dim a As Integera = 2For i = 1 To 3Print F(a)Next iEnd SubA444B456C468D479 參考答案：B 您的答案：B 6、閱讀下面的程序：Sub subP(b() As Integer)For i = 1 To 4b(i) = 2 * iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1) = 5: a(2) = 6: a(3) = 7: a(4) = 8subP a()For i = 1 To 4Print a(i)Next iEnd SubA444B456C468D479 參考答案：A 您的答案：A 7、閱讀下面的程序：Function func(n As Integer) As IntegerSum = 0For i = 1 To nSum = Sum + (i + 1) * iNext ifunc = SumEnd FunctionPrivate Sub Command1_Click()Dim a As Integera = 5s = func(a)Print sEnd Sub程序運行后，單擊命令按鈕，輸出結果為（ ）。 A80B60C70D15 參考答案：C 您的答案：C 8、使用通用對話框控件時，要在打開的對話框的標題欄上顯示“保存文件”，應把這4個漢字賦給的屬性變量是（ ）。ADialogTitleBFileName CFileTitle DFontName 參考答案：A 您的答案：A 9、用Write和Print語句向文件中寫入多個數(shù)據(jù)的差別在于（ ）。AWrite語句不會自動在數(shù)據(jù)項之間插入逗號BPrint語句自動在數(shù)據(jù)項之間插入逗號 CWrite語句寫入字符串會自動給字符串加上雙引號；寫入的正數(shù)前面沒有空格DPrint語句寫入字符串會自動給字符串加上雙引號；寫入的正數(shù)前面沒有空格 參考答案：C 您的答案：C 10、以下能判斷是否到達文件尾的函數(shù)是（ ）。ABOFBLoc CLOFDEOF 參考答案：D 您的答案：D 11、下面關于順序文件的描述正確的是（ ）。A每條記錄的長度必須相同B可通過編程對文件中的某條記錄方便地修改 C數(shù)據(jù)以ASCII碼形式存放在文件中，所以可通過文本編輯軟件顯示D文件的組織結構復