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

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