vb測試題練習(xí)

1、第一章 測 試 題一、 選擇題 1VisualBasic是一種面向?qū)ο蟮目梢暬绦蛟O(shè)計(jì)語言，采取了（A ）的編程機(jī)制。(A)事件驅(qū)動(dòng)(B)按過程順序執(zhí)行(C)從主程序開始執(zhí)行(D)按模塊順序執(zhí)行2在VisualBasic中最基本的對(duì)象是（C ），它是應(yīng)用程序的基石，是其他控件的容器。(A)文本框 (B)命令按鈕 (C)窗體(D)標(biāo)簽3多窗體程序是由多個(gè)窗體組成。在缺省情況下，VB在應(yīng)用程序執(zhí)行時(shí)，總是把（ B ）指定為啟動(dòng)窗體。(A)不包含任何控件的窗體(B)設(shè)計(jì)時(shí)的第一個(gè)窗體 (C)包含控件最多的(D)命名為Frml的窗體4有程序代碼如下：TextlText=“Visual Basic“則：

2、Textl，Text=”VisualBasic”分別代表 （ C ）(A)對(duì)象，值，屬性 (B)對(duì)象，方法，屬性 (C)對(duì)象，屬性，值 (D)屬性，對(duì)象，值5Visual Basic是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語言，（A ）不是面向?qū)ο笙到y(tǒng)所包含的三要素。(A)變量 (B)事件 (C)屬性 (D)方法6VisualBasic的一個(gè)應(yīng)用程序至少包含一個(gè)（C ）文件，該文件存儲(chǔ)窗體上使用的所有控件對(duì)象和有關(guān)的（ ）、對(duì)象相應(yīng)的（ ）過程和（ ）代碼。(A)模塊、方法、事件、程序 (B)窗體、屬性、事件、程序(C)窗體、程序、屬性、事件(D)窗體、屬性、事件、模塊7以下不屬于VisualBasic的工作

3、模式是（A ） 模式。(A)編譯 (B)設(shè)計(jì) (C)運(yùn)行 (D)中斷8在VB集成環(huán)境創(chuàng)建VB應(yīng)用程序時(shí)，除了工具箱窗口、窗體中的窗口、屬性窗口外，必不可少的窗口是（C ） 。(A)窗體布局窗口 (B)立即窗口 (C)代碼窗口 (D)監(jiān)視窗口9保存新建的工程時(shí)，默認(rèn)的路徑是（B ） 。(A)MyDocuments (B)VB98 (C) (D)Windows10將調(diào)試通過的工程經(jīng)“文件”菜單的“生成exe文件”編譯成exe后，將該可執(zhí)行文件拿到其他機(jī)器上不能運(yùn)行的主要原因是（B ） 。(A)運(yùn)行的機(jī)器上無VB系統(tǒng)(B)缺少frm窗體文件(C)該可執(zhí)行文件有病毒 (D)以上原因都不對(duì)11對(duì)于窗體，

4、下面（C ）屬性在程序運(yùn)行時(shí)其屬性設(shè)置起作用。 (A)MaxButton (B)BorderStyle (C)Name (D)Left12要使Print方法在Form_load事件中起作用，要對(duì)窗體的 ( B )屬性進(jìn)行設(shè)置。 (A)BackColor (B)ForColor (C)AutoRedraw (D)Caption13若要使標(biāo)簽控件顯示時(shí)不覆蓋其背景內(nèi)容，要對(duì)( D ) 屬性進(jìn)行設(shè)置。 (A)BackColor (B)BorderStyle (C)ForeColor (D)BackStvle14若要使命令按鈕不可操作，要對(duì) ( A )屬性設(shè)置。(A)Enabled (B)Visibl

5、e (C)BackColor (D)Caption15文本框沒有(B )屬性。(A)Enabled (B)Visible (C)BackColor (D)Caption16不論何控件，共同具有的是( D )屬性。(A)Text (B)Name (C)ForeColor (D)Caption17要使Forml窗體的標(biāo)題欄顯示“6歡迎使用VB'，以下( A )語句是正確(A)Form1Captilon= “6歡迎使用VB” (B)FormlCaption=6歡迎使用VB(C)FormlCaption=6歡迎使用VB (D)FormlCaption=”6歡迎使用VB”18要使某控件在運(yùn)行時(shí)不

6、可顯示，應(yīng)對(duì)( B )屬性進(jìn)行設(shè)置。(A)Enabled (B)Visible (C)BackColor (D)Caption19要使窗體在運(yùn)行時(shí)不可改變窗體的大小和沒有最大化和最小化按鈕，只要對(duì)下列(B )屬性設(shè)置就有效。(A)MaxButton (B)BorderStyle (C)Width (D)MinButton20當(dāng)運(yùn)行程序時(shí)，系統(tǒng)自動(dòng)執(zhí)行啟動(dòng)窗體的( A )事件過程。(A)Load (B)Click (C)UnLoad (D)GotFocus21當(dāng)文本框的ScrollBars屬性設(shè)置了非零值，卻沒有效果，原因是( B) 。(A)文本框中沒有內(nèi)容 (B)文本框的MultiLine屬性

7、為False(C)文本框的MuhiLine屬性為Tme (D)文本框的Locked屬性為Tree22要判斷在文本框是否按了Enter鍵，應(yīng)在文本框的(B )事件中判斷。(A)Change (B)KeyDown (C)Click (D)KeyPress23如果文本框的Enabled屬性設(shè)為False，則( D ) 。(A)文本框的文本將變成灰色，并且此時(shí)用戶不能將光標(biāo)置于文本框上(B)文本框的文本將變成灰色，用戶仍然能將光標(biāo)置于文本框上，但是不能改變文本框中的內(nèi)容。(C)文本框的文本將變成灰色，用戶仍然能改變文本框中的內(nèi)容(D)文本框的文本正常顯示，用戶能將光標(biāo)置于文本框上，但是不能改變文本框中

8、的內(nèi)容24當(dāng)需要上下文幫助時(shí)，選擇要幫助的“難題”，然后按 （D ）鍵，就可出現(xiàn)MSDN窗口及顯示所需“難題”的幫助信息。(A)Help(B)F10 (C)Esc (D)F1二、 填空題1.VB 60提供了一種新的數(shù)據(jù)庫訪問技術(shù)，即（ DBMS ），通過該技術(shù)，能方便地訪問多種數(shù)據(jù)庫中的數(shù)據(jù)。2當(dāng)進(jìn)入VB集成環(huán)境，發(fā)現(xiàn)沒有顯示"工具箱”窗口時(shí)，應(yīng)選擇（視圖 ）菜單的（工具箱 ） 選項(xiàng)，使"工具箱”窗口顯示。3要使新建工程時(shí)，在模塊的“通用聲明”段中自動(dòng)加入Option Explicit語句，應(yīng)對(duì)（ 工程 ）菜單的（ 工程屬性 ） 的 （ 工程1-工程屬性 ）選項(xiàng)卡進(jìn)行相應(yīng)選

9、項(xiàng)的選擇。4對(duì)象的屬性是指 （ 反映一個(gè)“對(duì)象”的基本特征，本質(zhì)特征以及外觀等方面的具體數(shù)據(jù)的集合。 ）。5對(duì)象的方法是指（ 對(duì)象本身所具有的，反映該對(duì)象功能的內(nèi)部函數(shù)或特有的過程。 ）。6在剛建立工程時(shí)，使窗體上的所有控件具有相同的字體格式，應(yīng)對(duì) （ 字體 ） 的（ Font ）屬性進(jìn)行設(shè)置。7當(dāng)對(duì)文本框的ScrollBar的屬性設(shè)置為2(有垂直滾動(dòng)條)，但沒有垂直滾動(dòng)條顯示時(shí)，是沒有把（ Enabled ）屬性設(shè)置為True的原因。8在代碼窗口對(duì)窗體的BorderStyle、MaxButton屬性進(jìn)行了設(shè)置，但運(yùn)行后沒有效果，原因是（ ）這些屬性（ ）。9當(dāng)對(duì)命令按鈕的Picture屬性裝

10、入bmp圖形文件后，選項(xiàng)按鈕上并沒有顯示所需的圖形，原因是沒有對(duì)（ ）屬性設(shè)置為1(Graphical)。10若已建立了Forml、Form2兩個(gè)窗體，默認(rèn)啟動(dòng)窗體為Forml。通過（ ） 菜單的（ ）的（ ）選項(xiàng)卡，可將啟動(dòng)窗體設(shè)置為Form2。在程序中若要顯示Forml窗體，則執(zhí)行（ ） 語句。11在文本框中，通過 （ ） 屬性能獲得當(dāng)前插入點(diǎn)所在的位置。12要對(duì)文本框中已有的內(nèi)容進(jìn)行編輯，按下鍵盤上的按鍵，就是不起作用，原因是設(shè)置（ ）的屬性為True。13在窗體上已建立多個(gè)控件如Textl、Labell、Commandl，若要使程序一運(yùn)行焦點(diǎn)就定位在Commandl控件上，應(yīng)把Comm

11、andl控件的 （ ） 屬性的值設(shè)置為 （ ）。三、 編程題 1.在Print方法中利用Tab函數(shù)和String函數(shù)及Form窗體的AutoRedraw屬性在From _Load事件中，顯示如圖17所示的圖形。第二章 測 試 題一、 選擇題1在一個(gè)語句內(nèi)寫多條語句時(shí)，每個(gè)語句之間用（ ）符號(hào)分隔。 (A)， (B)： (C)、 (D)；2一句語句要在下一行繼續(xù)寫，用（ ） 符號(hào)作為續(xù)行符。(A) + (B) 一 (C) (D)一3下面（ ）是合法的變量名。(A)X_yz (B)123abc (C)integer (D)X-Y4下面（ ）是不合法的整常數(shù)。(A)100 (B)&0100

12、(C)&H100 (D)1005下面（ ）是合法的字符常數(shù)。(A)ABC$ (B)”ABC” (C)ABC (D)ABC6下面（ ） 是合法的單精度型變量。(A)num! (B)sum (C)xinte$ (D)mm#7下面（ ） 是不合法的單精度常數(shù)。(A)1001 (B)1000 (C)1E+2 (D)1000D+28表達(dá)式164-25* 84MOD 52的值為（ ）。(A)14 (B)4 (C)20 (D)29數(shù)學(xué)關(guān)系3x<10表示成正確的VB表達(dá)式為 。(A)3<=x<10 (B)3<=xANDx<10 (C)x>=3 ORx<10 (

13、D)3<=xAND<1010、/、Mod、*四個(gè)算術(shù)運(yùn)算符中，優(yōu)先級(jí)別最低的是（ ）。(A) (B) (C)Mod (D)x11與數(shù)學(xué)表達(dá)式ab/3cd對(duì)應(yīng)，VB的不正確表達(dá)式是（ ） 。 (A)a*b(3*C*d) (B)a3*bcd (C)a*b3cd (D)a*b3*c*d12Rnd函數(shù)不可能為下列（ ） 值。(A)0 (B)1 (C)01234 (D)0000513Int(198555100+05)100的值（ ） 。(A)198 (B)1996 (C)19856 (D)20014已知A$="12345678"，則表達(dá)式Val(Left$(A$，4)+M

14、id$(A$，4，2)的值為 (A)123456 (B)123445 (C)8 (D)615PrintDateAdd(“m”，1，#1302000#)語句顯示的結(jié)果是（ ） 。(A)00-2-29 (B)00-2-28 (C)00-2-30 (D)00-1-3116表達(dá)式DateDiff(”y”，#12301999#，#1132000#)的結(jié)果是（ ） 。(A)1 (B)11 (C)14 (D)9917表達(dá)式Len(”123程序設(shè)計(jì)ABC”)的值是（ ） 。(A)10 (B)14 (C)20 (D)1718表達(dá)式LenB(”123程序設(shè)計(jì)ABC”)的值是（ ） 。(A)10， (B)14 (C

15、)20 (D)1719下面正確的賦值語句是（ ） 。(A)x+y=30 (B)y=*r*r (C)y=x+30 (D)3y=x20為了給x, y，z三個(gè)變量賦初值1，下面正確的賦值語句是（ ）。(A)x=1：y=l: Z=1 (B)x=-1，y=l，z=l (C)x=y=z=1 (D)xyz=121賦值語句：a=123+MID(“123456”，3，2)執(zhí)行后，a變量中的值是（ ）。(A)”12334” (B)123 (C)12334 (D)15722賦值語句：a=123&MID(“123456”，3，2)執(zhí)行后，a變量中的值是（ ） 。(A)”12334” (B)123 (C)123

16、34 (D)157二、填空題1在VB中，1234、123456&、12346E+5、12346D+5四個(gè)常數(shù)分別表示 （ ） 、（ ） 、（ ） 、（ ） 類型。2整型變量x中存放了一個(gè)兩位數(shù)，要將兩位數(shù)交換位置，例如13變成31，實(shí)現(xiàn)的表達(dá)式是（ ）。3數(shù)學(xué)表達(dá)式sinl5。-ln(3x)的VB算術(shù)表達(dá)式為 （ ） 。4數(shù)學(xué)表達(dá)式3E4+5d的VB算術(shù)表達(dá)式為（ ）5表示z是5的倍數(shù)或是9的倍數(shù)的邏輯表達(dá)式為（ ） 。6已知a=3.5，b=50，c=25，d=True，則表達(dá)式：a>=0 AND a+c>b+3 OR NOT d的值是（ ）。7Int(-35)、Int(3

17、5)、Fix(-35)、Fix(35)、Round(-35)、Round(35)的值分別是 （ ） 、（ ） 、（ ） 、（ ） 、 （ ） 、（ ） 。8表達(dá)式Ucase(Mid(“abcdefgh”，3，4)的值是（ ） 。9在直角坐標(biāo)系中，(x，y)是坐標(biāo)系中任意點(diǎn)的位置，用x與Y表示在第一或第三象限的表達(dá)式是（ ） 。10要以X X X X年X X月X X日形式顯示當(dāng)前機(jī)器內(nèi)日期的Format函數(shù)表達(dá)式為（ ）11計(jì)算已進(jìn)入21世紀(jì)有多少天的函數(shù)表達(dá)式是 （ ） 。12計(jì)算離你畢業(yè)(假定畢業(yè)年月為2004年7月3日)還有多少個(gè)星期的函數(shù)表達(dá)式是（ ）13表示s字符變量是字母字符(大小寫

18、字母不區(qū)分)的邏輯表達(dá)式為 （ ） 。三、 編程題1利用InputBox輸入三角形三條邊的長度a，b，c，計(jì)算并顯示三角形的面積。2.用InputBox輸入一個(gè)正實(shí)數(shù)，用Print方法在一行上顯示出它的平方和平方根、立方和立方根，每個(gè)數(shù)保留三位小數(shù)，之間有間隔。3.隨機(jī)產(chǎn)生一個(gè)三位正整數(shù)，然后逆序輸出，產(chǎn)生的數(shù)與逆序數(shù)同時(shí)顯示。例如，產(chǎn)生246，輸出是642。第三章 測 試 題一、 選擇題1VB提供了結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)，三種基本結(jié)構(gòu)是（ ）。(A)遞歸結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu) (B)選擇結(jié)構(gòu)、過程結(jié)構(gòu)、順序結(jié)構(gòu)(C)過程結(jié)構(gòu)、輸入、輸出結(jié)構(gòu)、轉(zhuǎn)向結(jié)構(gòu) (D)選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、順序結(jié)

19、構(gòu)2結(jié)構(gòu)化程序由三種基本結(jié)構(gòu)組成，下面屬于三種基本結(jié)構(gòu)之一的是（ ）。(A)遞歸結(jié)構(gòu) (B)選擇結(jié)構(gòu) (C)過程結(jié)構(gòu) (D)輸入、輸出結(jié)構(gòu)3下面程序段運(yùn)行后，顯示的結(jié)果是（ ） 。Dim xIf x then print x Else print x+1(A)1 (B)0 (C)(1 (D)顯示出錯(cuò)信息4語句If x=l Then y=1，下列說法正確的是（ ）。(A)x=l和y=l均為賦值語句 (B)x=l和y=l均為關(guān)系表達(dá)式(C)x=l為關(guān)系表達(dá)式，y=l為賦值語句 (D)x=l為賦值語句，y=l為關(guān)系表達(dá)式5用If語句表示分段函數(shù)x2+4 (x>=1)f(x)=- x3-3 (x

20、<1) 下列不正確的程序段是（ ） 。(A)If x>=1 Then f=x*x+4 (B)Ifx >=1 Then f=sqr(x+1) =x*x*x-3 If x<1 Then f=x*x+3(C)Ifx>=1 Then f=sqr(x+1)+4 (D)If x<1 Then f=xx+3 Elsef=3x -3 Else f=sqr(x+1)6計(jì)算分段函數(shù)的值。Y=0 x<0F(x)= Y=1 0=x<1Y=2 1=X2Y=3 >=2下面程序段中正確的是（ ）。(C)Ifx<0Then (D)Ifx>=2Theny=0 y

21、=3 Elselfx>0 Then Elselfx>=1 Theny=l y=2Elselfx>1 Then Elselfx>=0 Theny=2 y=lElse Elsey=3 y=0End lf End lf(A)fix<0Theny=0 (B)Ifx>=2Theny=3If x<1 Then y=l lfx>=1 Then y=21fx<2 Then y=2 1fx>0 Then y=llfx>=2 Then y=3 1fx<0 Then y=07下面程序段，顯示的結(jié)果是（ ）。Dim xX=Int(Rnd)十5Se

22、lect Case xCase 5 Print ”優(yōu)秀”Case 4(A)優(yōu)秀 (B)良好 (C)通過 (D)不通過Print ”良好”Case 3Print ”通過”Case ElsePrint ”不通過“ End Select8下面If語句統(tǒng)計(jì)滿足性別為男、職稱為副教授以上、年齡小于40歲條件的人數(shù)，不正確的語句是（ ） (A)IF sex=“男”And age<40 And lnStr(duty，“教授”) >0 Then n=n+1 (B)IF sex=”男” And age<40 and (duty=”教授”or duty=“副教授”)Then n=n+1 (C)I

23、f sex=”男And age<40And Right(duty，2)=“教授”Then n：n十1(D)IF sex=“男”And age<40 And duty=“教授”And duty =“副教授”Then n=n+19下面程序段求兩個(gè)數(shù)中的大數(shù)（ ）不正確。(A) Max=IIF(x > y，x，y) (B) If x > y Then Max=x Else Max=y (C) Max=x (D) If y>=x Then Max=yIF y>=x Then Max=y Max=x10下面語句執(zhí)行后，變量W中的值是( )w=Choose(Weekda

24、y(“2000，5，1”)，”Red”，”Green”，”Blue”，”Yellow”)(A)Null(B)”Red” (C)”Green” (D)”Yellow"二、 填空題2下面程序的功能是( )。1下面程序運(yùn)行后輸出的結(jié)果是( ) 。Dim n，m Private Sub Textl_KeyPress(KeyAscii As Integer)IF KeyAscii=13 ThenIF IsNumeric(Textl.Text) thenSelect Case text1.text mod 2Case 0 N=n+TextlTextCase 1M=m+TextlTextEnd S

25、electEnd lfTextlText=”Textl.SetFocusEnd lfEnd Subx=Int(Rnd)+3IF x2>8 Then y=x2+1IF x2=9 Then y=x2-2IF x2<8 Then y=x3 Print y3下面的程序段是檢查輸入的算術(shù)表達(dá)式中圓括號(hào)是否配對(duì)，并顯示相應(yīng)的結(jié)果。本程序在文本框輸入表達(dá)式，邊輸入，邊統(tǒng)計(jì)，以輸入回車符作為表達(dá)式輸入結(jié)束，然后顯示結(jié)果。 Dim countl Private Sub Textl_KeyPress(KeyAscii As Integer) IF ( )=”(“ then Countl=countl+

26、1 ElseIf( ) = ”)”Then ( ) End lf If KeyAscii=13 ThenIf ( ) ThenPrint “左右括號(hào)配對(duì)”Elself ( ) ThenPrint “左括號(hào)多于右括號(hào)”；countl；”個(gè)”ElsePrint”右括號(hào)多于左括號(hào)”；-countl；”個(gè)”End IfEnd IfEnd Sub注意該題中統(tǒng)計(jì)括號(hào)個(gè)數(shù)的變量countl在通用聲明段聲明，若在Textl_KeyPress內(nèi)聲明，程序會(huì)產(chǎn)生什么結(jié)果?4輸入文本框中若干字符，統(tǒng)計(jì)有多少個(gè)元音字母、有多少個(gè)其他字母，直到按Enter鍵結(jié)束，并顯示結(jié)果，大小寫不區(qū)分。其中CountY中放元音字母個(gè)

27、數(shù)，CountC中放其他字符數(shù)。 Dim County，CountC Private SubTextl_KeyPress(KeyAscii As Integer) Dim C$ C=_ If “A”<=C And C<=”Z” Then Select Case _Gase_ County=CountY+1 Case_ CountC=CountC+1 End Select End lf If _Then Print ”元音字母有”；County；”個(gè)” Print ”其他字母有”；CountC；”個(gè)” End If End Sub三、 編程題1輸入三角形的三條邊a，b，c的值，根據(jù)其

28、數(shù)值，判斷能否構(gòu)成三角形。若能，還要顯示三角形的性質(zhì)：等邊三角形、等腰三角形、直角三角形、任意三角形。2輸入一年份，判斷它是否為閏年，并顯示有關(guān)信息。判斷閏年的條件是：年份能被4整除但不能被100整除，或者能被400整除。3已知軟件學(xué)院入學(xué)測試計(jì)分情況為：數(shù)學(xué)(math)滿分50分；計(jì)算機(jī)(computer)滿分100分；外語6級(jí)(1ans6)為“優(yōu)秀”加15分、“通過”加8分，外語4級(jí)(1ane4)為“合格”加6分，外語只能計(jì)一次最高的分?jǐn)?shù)。利用InputBox輸入一個(gè)學(xué)生的對(duì)應(yīng)課程的成績，編寫計(jì)算考試總分(sum)的程序段。注：括號(hào)內(nèi)為對(duì)應(yīng)課程的變量名。第四章 測 試 題一、 選擇題1以下

29、（ ）是正確的ForNext結(jié)構(gòu)。(A)For x=1 To Step 10 (B)For x=3 To -3 Step-3 .Next x Next x(C)For x=l To 10 (D)Fo rx=3 T0 10 Step 3re: . . Next x Next yIf i=10 then Goto re 2下列循環(huán)語句能正常結(jié)束循環(huán)的是（ ） 。(C)I©I=10 (D)i=6 Do Do I=i-1 i=i-2L Loop Until i<0 Loop Undl i=1(A)i=5 (B)i=1 Do Do I=i+1 i=i+2 Loop Until i<

30、0 L00p Until i=10 3下面程序段的運(yùn)行結(jié)果為（ ）。 For i=3 To 1 SIep -1Print Spc(5-i)； For j=1 To 2* i-1 Print “*”；Next j Print Next i (A) * (B) * * * * * (C) * * * * * (D) * * * * * * * * * * * * * * * * * * * * * * * * * 4下列程序當(dāng)在文本框輸入“ABCD”四個(gè)字符時(shí)，窗體上顯示的是（ ）。Private Sub Textl_Change( )print TextlText；End Sub (A) ABC

31、D (B) A (C) AABABCABCD(D) A B ABC ABCD ABCD 5哪個(gè)程序段不能分別正確顯示1!、2!、3!、4!的值（ ）。(C)n=l (D)n=l For j=l T0 4 j=1n=n*j Do While j<=4Next j Print n J=j+l Loop(A)For i=1 To 4 (B)Fori=1 T04 n=1 For j=1 To i For j=1 To i n=1 N=n*j n=n*j Next j Next j Print n Print n Next i Next i 二、 填空題 1要使下列For語句循環(huán)執(zhí)行20次，循環(huán)變

32、量的初值應(yīng)當(dāng)是：3.下列第40句共執(zhí)行了_次，第41句共執(zhí)行了_次。 30 For j=1 to 12 Step 340 For k=6 To 2 Step-2 41 Print j，k 42 next k 43 Next j For k_To -5 Step -2 2下面程序段顯示_個(gè)“*”。 For i=1 To 5 For j=2 To i Print “*”； Next j Next I4.下列程序運(yùn)行后，si,sj,sk,I,j,k的結(jié)果分別是_、_、_、_、_、_。 Private Sub Commandl_Click() · Si=0：sj=0 For i=1 to 2

33、 For j=1 To i Sk=0 For k= j To 3 Sk=sk+1Next kSj=sj+1Next j Si=si+1Next iPrint si,sj,sk,I,j,k End sub第五章 數(shù) 組 測 試 題一、 選擇題 1如下數(shù)組聲明語句，（ ）正確。 (A)Dim a3，4 As Integer (B)Dim a(3，4) As Integer (C)Dim a(n，n) As Integer， (D)Dim a(3 4) As Integer 2要分配存放3 X 3方陣的數(shù)據(jù)，可使用數(shù)組聲明語句（營 ） 來實(shí)現(xiàn)(不能浪費(fèi)空間)。(A)Dim a(9) As Singl

34、e (B)Dim a(3，3) As Single (C)Dim a(-1 to 1,-5 to -3) As Single ( D) Dim a(-3 to -1,5 to 7) As Single3如下數(shù)組聲明語句中，數(shù)組a包含元素的個(gè)數(shù)為（ ）Dim a(3，-2 to 2，5) (A)120 (B)75 (C)60 (D)134以下程序輸出的結(jié)果是（ ）。 Dim a A=Array(1，2，3，4，5，6，7) For i=Lbound(a)ToUbound(s) A(i)=a(i)* a(i) Next i Print a(i) (A)49 (B)0 (C)不確定 (D)程序出錯(cuò)(

35、A) 1 2 3 (B) 1 2 3 2 3 1 1 2 3 3 2 3 1 2 3 5以下程序輸出的結(jié)果是 ( ) Option Base 1 Private Sub Commandl_Click() Dim a(3，3) For i=1 To 3For j=1 To 3If j>1 And i>1 ThenA(I,j)=a(a(i-1，j-1)，a(i，j-1)+1Elsea(i，j)=i* j(C) 1 2 3 (D)1 1 12 4 6 2 2 2 3 6 9 3 3 3End IfPrint a(I,j);” ”;Next jPrintNext iEnd Sub6以下程序

36、輸出的結(jié)果是( )。Option Base 1Private Sub Commandl_Click()Dim a，b(3，3)=Array(1，2，3，4，5，6，7，8，9)For i=1 To 3for j=1 To 3b(i，j)=a(i*j)If(j>=i) Then Print Tab(j*3)；Format(b(i，j)，”#”)；Next j PrintNext iEnd Sub(A) 1 2 3 (B) 1 (C)1 4 7 (D) 1 2 34 5 6 4 5 2 4 6 4 67 8 9 7 8 9 3 6 9 9二、 填空題1隨機(jī)產(chǎn)生6位學(xué)生的分?jǐn)?shù)(分?jǐn)?shù)范圍1100

37、)，存放在數(shù)組a中，以每2分一個(gè)“*”顯示，如圖55所示。Private Sub Commandl_Click() Dim a(1 to 6)For i=1To 6 a(i)=_Print _Next iEnd Sub2.輸出大小可變的正方形圖案，如圖5。6所示!最外圈是第一層，要求每層上用的數(shù)字與層數(shù)相同。Option Base 1Private Sub Form_Click()Dim a()N=InputBox(“輸入N”) 本例n=9_For i=_ 每一層圖案上要顯示的數(shù)字For j=I To n-i+1 從外到里將數(shù)組中元素存放對(duì)應(yīng)的數(shù)字For k=i To n-i+l_Next k

38、提示從最外層開始往里層填充數(shù)，里面層覆蓋外面已填過的數(shù)據(jù)。也就是當(dāng)i=1時(shí)，填9*9個(gè)1，當(dāng)i=2，填7*7個(gè)2Next jNext iFor i=1 To n For j=l To nPrint Tab(j*3)；a(i，j)；Next j_Next iEnd Sub第六章 過程測試題一、 選擇題1在過程定義中用（ ）表示形參的傳值。(A)Var (B)ByDef (C)ByVal (D)Value2若已編寫了一個(gè)Sort子過程，在該工程中有多個(gè)窗體，為了方便地調(diào)用Sort子過程，應(yīng)該將過程放在()中。 (A)窗體模塊 (B)標(biāo)準(zhǔn)模塊 (C)類模塊 (D)工程3在過程中定義的變量，若希望在離

39、開該過程后，還能保存過程中局部變量的值，則應(yīng)使用關(guān)鍵字在過程中定義局部變量。(A)Dim (B)Private (C)Public (D)Static4設(shè)有如下說明：Public Sub F1(n) n=3*n+4 End Sub Private Sub Commandl_Click() Dim n，m則在Commandl_click事件中有效的調(diào)用語句是( )。(A)F1 n+m (B)F1 m (C)F1 5 (D)F1 m+5 N=3 M=4 調(diào)用F1語句 End Sub5下面子過程語句說明合法的是( )。 (A)Sub F1(ByVal n() (B)Sub f1(n)As Integ

40、er (C)Function f1(f1) (D)Function f1(ByVal n)6要想從子過程調(diào)用后返回兩個(gè)結(jié)果，下面子過程語句說明合法的是( )。 (A)Sub f2(ByVal n，ByVal m) (B)Sub f1(n，ByVal m) (C)Sub f1(n，m) (D)Sub f1(ByVal n，m)7下面過程運(yùn)行后顯示的結(jié)果是( )。 Public Sub F1(n，ByVal m) Private Sub Commandl_Click() n=n Mod 10 Dim x，y m=m10 x=12：y=34 End Sub Call Fl(x，y) Print x，

41、Y End Sub (A)2 34 (B)12 34 (C)2 3 (D)12 38如下程序，運(yùn)行的結(jié)果是( )。 Private Sub Commandl_Click() Print pl(3，7) End Sub Public Function pl!(x!，n) If n=0 Then p1=1 Else If n Mod 2=1 thenp1=x * p1(x，n 2) Else p1=p1(x，n2) x End If End If End FunctiOn (A)18 (B)7 (C)14 (D)17 9如下程序，運(yùn)行的結(jié)果是( ).Private Sub Commandl_Cli

42、ck() A=2 ： b=4 ：c=6 Call Pl(a，b) Print “a=”;a;”b=”;b;”c=”;c Call p2(a，b) Print “a=”;a;”b=”;b;”c=”;c End Sub Dim a，b，c Public Sub pl(x，y) Dim c X=2*x ： y=y+2 ：c=x+y End Sub Public Sub p2(x，ByVal y) Dim c X=2 * x ： y=y+2 ： c=x十y End Sub(C)a=4 b=6 c=6 (D)a=4 b=6 c=14 a=8 b=6 c=6 a=8 b=8 c=6(A)a=2 b=4 c

43、=6 (B)a=4 b=6 c=10 a=4 b=6 c=10 a=8 b=8 c=1610如下程序，運(yùn)行的結(jié)果是( )。Private Sub Commandl_Click() Dim m，i，x(10) For i=0 to 4 ：x(i)=i+1 ：Next i For i=1 To 2 ：Call Proc(x() ：Next i For i=0 T0 4 ：Print x(i) ; ：Next i End Sub Public Sub Proc(a() Static i Do a(i)=a(i)+a(i+1) i=i+1 Loop While i<2 End Sub (A)3

44、4 7 5 6 (B)3 5 7 4 5 (C)2 3 4 4 5 (D)4 5 6 7 8二、填空題1如下程序，運(yùn)行的結(jié)果是（ ），函數(shù)過程的功能是（ ）。Public Funcion f(ByVal n，ByVal r)If n<>0 ThenPrivate Sub COmmandl_Click() Print f(100，8)End Sub F=f(n r，r) Print n MOd r； End If End Function2如下程序，運(yùn)行的結(jié)果是( )，函數(shù)過程的功能( )Private Sub Commandl_click() Print f(24，18) End

45、Sub Public Function f(m，n) DO While m<> n DO While m > n：m=m-n：Loop DO While n> m：n=n-m ：Loop Loop F=m End Function3兩質(zhì)數(shù)的差為2，稱此對(duì)質(zhì)數(shù)為質(zhì)數(shù)對(duì)，下列程序是找出100以內(nèi)質(zhì)數(shù)對(duì)，并成對(duì)顯示結(jié)果。其中，函數(shù)IsP判斷參數(shù)m是否為質(zhì)數(shù)Private Sub Commandl_Ciick()Dim iP1=Isp(3)For i=5 to 100 step 2P2=Isp(i)If_ then print i-2,i P1_Next I : End sub

46、 Public Function lsP(m) As Boolean Dim i _ For i=2 TO Int(sqr(m) If_ Then lsP=False Next i End Function 4下面的程序是將輸入的一個(gè)數(shù)插入到按遞減的有序數(shù)列中，插入后使該序列仍有序。Private Sub Form_Click()Dim a，i，n，mA=Array(19，17，15，13，11，9，7，5，3，1)N=Ubound(a)ReDim_M=val(InputBox(”輸入欲插入的數(shù)”)For i=Ubound(a)-1 To 0 Step -1If m>=a(i) Then

47、 _ If i=0 Then a(i)=m E1se _ Exit For End If Next i Por i=0 To Ubound(a) Print a(i) Next i End Sub第七章 常用控件測試題一、選擇題1下列控件中，沒有Caption屬性的是（ ）。(A)框架 (B)列表框 (C)復(fù)選框 (D)單選按鈕2復(fù)選框的Value屬性為1時(shí)，表示（ ）。(A)復(fù)選框未被選中(B)復(fù)選框被選中(C)復(fù)選框內(nèi)有灰色的勾 (D)復(fù)選框操作有錯(cuò)誤3用來設(shè)置粗體字的屬性是（ ）。 (A)FontItalic (B)FontName (C)FontBold (D)FontSize4將數(shù)據(jù)項(xiàng)"China"添加到列表框(Listl)中成為第一項(xiàng)應(yīng)使用（ ）語句。(A)Listl.Addltem “China”，0 (B)Listl.Addltem “China"，1(C)Listl.Addltem 0，”Chinar” (D)Listl.Addltem 1，"C