vb測(cè)試題練習(xí)

1、第一章 測(cè) 試 題一、 選擇題 1VisualBasic是一種面向?qū)ο蟮目梢暬绦蛟O(shè)計(jì)語(yǔ)言，采取了（A ）的編程機(jī)制。(A)事件驅(qū)動(dòng)(B)按過(guò)程順序執(zhí)行(C)從主程序開(kāi)始執(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ì)語(yǔ)言，（A ）不是面向?qū)ο笙到y(tǒng)所包含的三要素。(A)變量 (B)事件 (C)屬性 (D)方法6VisualBasic的一個(gè)應(yīng)用程序至少包含一個(gè)（C ）文件，該文件存儲(chǔ)窗體上使用的所有控件對(duì)象和有關(guān)的（ ）、對(duì)象相應(yīng)的（ ）過(guò)程和（ ）代碼。(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)試通過(guò)的工程經(jīng)“文件”菜單的“生成exe文件”編譯成exe后，將該可執(zhí)行文件拿到其他機(jī)器上不能運(yùn)行的主要原因是（B ） 。(A)運(yùn)行的機(jī)器上無(wú)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文本框沒(méi)有(B )屬性。(A)Enabled (B)Visible (C)BackColor (D)Caption16不論何控件，共同具有的是( D )屬性。(A)Text (B)Name (C)ForeColor (D)Caption17要使Forml窗體的標(biāo)題欄顯示“6歡迎使用VB'，以下( A )語(yǔ)句是正確(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í)不可改變窗體的大小和沒(méi)有最大化和最小化按鈕，只要對(duì)下列(B )屬性設(shè)置就有效。(A)MaxButton (B)BorderStyle (C)Width (D)MinButton20當(dāng)運(yùn)行程序時(shí)，系統(tǒng)自動(dòng)執(zhí)行啟動(dòng)窗體的( A )事件過(guò)程。(A)Load (B)Click (C)UnLoad (D)GotFocus21當(dāng)文本框的ScrollBars屬性設(shè)置了非零值，卻沒(méi)有效果，原因是( B) 。(A)文本框中沒(méi)有內(nèi)容 (B)文本框的MultiLine屬性

7、為False(C)文本框的MuhiLine屬性為T(mén)me (D)文本框的Locked屬性為T(mén)ree22要判斷在文本框是否按了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ù)庫(kù)訪問(wèn)技術(shù)，即（ DBMS ），通過(guò)該技術(shù)，能方便地訪問(wèn)多種數(shù)據(jù)庫(kù)中的數(shù)據(jù)。2當(dāng)進(jìn)入VB集成環(huán)境，發(fā)現(xiàn)沒(méi)有顯示"工具箱”窗口時(shí)，應(yīng)選擇（視圖 ）菜單的（工具箱 ） 選項(xiàng)，使"工具箱”窗口顯示。3要使新建工程時(shí)，在模塊的“通用聲明”段中自動(dòng)加入Option Explicit語(yǔ)句，應(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ù)或特有的過(guò)程。 ）。6在剛建立工程時(shí)，使窗體上的所有控件具有相同的字體格式，應(yīng)對(duì) （ 字體 ） 的（ Font ）屬性進(jìn)行設(shè)置。7當(dāng)對(duì)文本框的ScrollBar的屬性設(shè)置為2(有垂直滾動(dòng)條)，但沒(méi)有垂直滾動(dòng)條顯示時(shí)，是沒(méi)有把（ Enabled ）屬性設(shè)置為T(mén)rue的原因。8在代碼窗口對(duì)窗體的BorderStyle、MaxButton屬性進(jìn)行了設(shè)置，但運(yùn)行后沒(méi)有效果，原因是（ ）這些屬性（ ）。9當(dāng)對(duì)命令按鈕的Picture屬性裝

10、入bmp圖形文件后，選項(xiàng)按鈕上并沒(méi)有顯示所需的圖形，原因是沒(méi)有對(duì)（ ）屬性設(shè)置為1(Graphical)。10若已建立了Forml、Form2兩個(gè)窗體，默認(rèn)啟動(dòng)窗體為Forml。通過(guò)（ ） 菜單的（ ）的（ ）選項(xiàng)卡，可將啟動(dòng)窗體設(shè)置為Form2。在程序中若要顯示Forml窗體，則執(zhí)行（ ） 語(yǔ)句。11在文本框中，通過(guò) （ ） 屬性能獲得當(dāng)前插入點(diǎn)所在的位置。12要對(duì)文本框中已有的內(nèi)容進(jìn)行編輯，按下鍵盤(pán)上的按鍵，就是不起作用，原因是設(shè)置（ ）的屬性為T(mén)rue。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所示的圖形。第二章 測(cè) 試 題一、 選擇題1在一個(gè)語(yǔ)句內(nèi)寫(xiě)多條語(yǔ)句時(shí)，每個(gè)語(yǔ)句之間用（ ）符號(hào)分隔。 (A)， (B)： (C)、 (D)；2一句語(yǔ)句要在下一行繼續(xù)寫(xiě)，用（ ） 符號(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#)語(yǔ)句顯示的結(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下面正確的賦值語(yǔ)句是（ ） 。(A)x+y=30 (B)y=*r*r (C)y=x+30 (D)3y=x20為了給x, y，z三個(gè)變量賦初值1，下面正確的賦值語(yǔ)句是（ ）。(A)x=1：y=l: Z=1 (B)x=-1，y=l，z=l (C)x=y=z=1 (D)xyz=121賦值語(yǔ)句：a=123+MID(“123456”，3，2)執(zhí)行后，a變量中的值是（ ）。(A)”12334” (B)123 (C)12334 (D)15722賦值語(yǔ)句：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ù)分別表示 （ ） 、（ ） 、（ ） 、（ ） 類(lèi)型。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字符變量是字母字符(大小寫(xiě)

18、字母不區(qū)分)的邏輯表達(dá)式為 （ ） 。三、 編程題1利用InputBox輸入三角形三條邊的長(zhǎng)度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。第三章 測(cè) 試 題一、 選擇題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)、過(guò)程結(jié)構(gòu)、順序結(jié)構(gòu)(C)過(guò)程結(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)過(guò)程結(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語(yǔ)句If x=l Then y=1，下列說(shuō)法正確的是（ ）。(A)x=l和y=l均為賦值語(yǔ)句 (B)x=l和y=l均為關(guān)系表達(dá)式(C)x=l為關(guān)系表達(dá)式，y=l為賦值語(yǔ)句 (D)x=l為賦值語(yǔ)句，y=l為關(guān)系表達(dá)式5用If語(yǔ)句表示分段函數(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)通過(guò) (D)不通過(guò)Print ”良好”Case 3Print ”通過(guò)”Case ElsePrint ”不通過(guò)“ End Select8下面If語(yǔ)句統(tǒng)計(jì)滿足性別為男、職稱(chēng)為副教授以上、年齡小于40歲條件的人數(shù)，不正確的語(yǔ)句是（ ） (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下面語(yǔ)句執(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ì)，以輸入回車(chē)符作為表達(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é)果，大小寫(xiě)不區(qū)分。其中CountY中放元音字母?jìng)€(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é)測(cè)試計(jì)分情況為：數(shù)學(xué)(math)滿分50分；計(jì)算機(jī)(computer)滿分100分；外語(yǔ)6級(jí)(1ans6)為“優(yōu)秀”加15分、“通過(guò)”加8分，外語(yǔ)4級(jí)(1ane4)為“合格”加6分，外語(yǔ)只能計(jì)一次最高的分?jǐn)?shù)。利用InputBox輸入一個(gè)學(xué)生的對(duì)應(yīng)課程的成績(jī)，編寫(xiě)計(jì)算考試總分(sum)的程序段。注：括號(hào)內(nèi)為對(duì)應(yīng)課程的變量名。第四章 測(cè) 試 題一、 選擇題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)語(yǔ)句能正常結(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語(yǔ)句循環(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ù) 組 測(cè) 試 題一、 選擇題 1如下數(shù)組聲明語(yǔ)句，（ ）正確。 (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ù)組聲明語(yǔ)句（營(yíng) ） 來(lái)實(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ù)組聲明語(yǔ)句中，數(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、提示從最外層開(kāi)始往里層填充數(shù)，里面層覆蓋外面已填過(guò)的數(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第六章 過(guò)程測(cè)試題一、 選擇題1在過(guò)程定義中用（ ）表示形參的傳值。(A)Var (B)ByDef (C)ByVal (D)Value2若已編寫(xiě)了一個(gè)Sort子過(guò)程，在該工程中有多個(gè)窗體，為了方便地調(diào)用Sort子過(guò)程，應(yīng)該將過(guò)程放在()中。 (A)窗體模塊 (B)標(biāo)準(zhǔn)模塊 (C)類(lèi)模塊 (D)工程3在過(guò)程中定義的變量，若希望在離

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

40、er (C)Function f1(f1) (D)Function f1(ByVal n)6要想從子過(guò)程調(diào)用后返回兩個(gè)結(jié)果，下面子過(guò)程語(yǔ)句說(shuō)明合法的是( )。 (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下面過(guò)程運(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ù)過(guò)程的功能是（ ）。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ù)過(guò)程的功能( )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，稱(chēng)此對(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第七章 常用控件測(cè)試題一、選擇題1下列控件中，沒(méi)有Caption屬性的是（ ）。(A)框架 (B)列表框 (C)復(fù)選框 (D)單選按鈕2復(fù)選框的Value屬性為1時(shí)，表示（ ）。(A)復(fù)選框未被選中(B)復(fù)選框被選中(C)復(fù)選框內(nèi)有灰色的勾 (D)復(fù)選框操作有錯(cuò)誤3用來(lái)設(shè)置粗體字的屬性是（ ）。 (A)FontItalic (B)FontName (C)FontBold (D)FontSize4將數(shù)據(jù)項(xiàng)"China"添加到列表框(Listl)中成為第一項(xiàng)應(yīng)使用（ ）語(yǔ)句。(A)Listl.Addltem “China”，0 (B)Listl.Addltem “China"，1(C)Listl.Addltem 0，”Chinar” (D)Listl.Addltem 1，"C