VB期末考試題A卷

1、 VB期末考試題A卷一、選擇題 每題2分，共50分（1）以下敘述中錯(cuò)誤的是 （） A）Visual Basic 是事件驅(qū)動(dòng)型可視 化編程工具 B）Visual Basic 應(yīng)用程序不具有明顯的開(kāi)始和結(jié)束語(yǔ)句 C）Visual Basic 工具箱中的所有控件都具有寬度（Width）和高度（Height）屬性 D）Visual Basic 中控件的某些屬性只能在運(yùn)行時(shí)設(shè)置（2）下列可作為 Visual Basic 變量名的是（）A)A#A B)4A C)?xY D)constA（3）無(wú)論何控件，都具有一個(gè)共同屬性。這個(gè)屬性是（） A)Text B)Font C)Name D)Caption（4）表

2、達(dá)式 32*2+3 MOD 104 的值是（） A)18 B)1 C)19 D)0（5）設(shè)有如下變量聲明 Dim time1 As Date ,為變量time1正確賦值的表達(dá)式是（）A)time1 = #11:34:04 # B)time1 = Format(Time,yy:mm:dd) C)time1 = #11:34:04# D)time1 = Format(hh:mm:ss,Time)（6）在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，編寫(xiě)以列程序：Private Sub Command1_Click( )Dim a As IntegerStatic b As Integera = a

3、 + bb = b + 4Print a,bEnd Sub程序運(yùn)行后，單擊該命令按鈕三次，屏幕上顯示的值是（） A)4 12 B)0 4 C)4 8 D)8 12（7）Visual Basic 是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言，構(gòu)成對(duì)象的三要素是（） A)屬性、控件和方法 B)屬性、事件和方法 C)窗體、控件和過(guò)程 D)控件、過(guò)程和模塊（8）下列程序段錯(cuò)誤的是（） A)Dim a As Integera = array(1,2,3,4) B)Dim a(),b()a = array(1,2,3,4):b = a C)Dim a As Varianta = array(1,asd,true) D)D

4、im a() As Varianta = array(1,2,3,4)（9）引用列表框（List1）最后一個(gè)數(shù)據(jù)項(xiàng)應(yīng)使用的表達(dá)式是（） A)List1.List(List1.ListCount) B)List1.List(List1.ListCount-1) C)List1.List(ListCount) D)List1.List(ListCount-1)（10）在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，編寫(xiě)如下程序：Private Sub Command1_Click()Print pl(3,7)End SubPublic Function pl(x As Single,n As In

5、teger) As SingleIf n=0 Thenpl=1ElseIf n Mod 2=1 Thenpl=x*x+nElseP1=x*x-n End IfEnd IfEnd Function程序運(yùn)行后，單擊該命令按鈕，屏幕上顯示的結(jié)果是（） A)2 B)1 C)0 D)16（11）執(zhí)行如下語(yǔ)句：ainutBox(”Today”，”TomorroW，”Yesterday”,Day before yesterday ,5) 將顯示一個(gè)輸入對(duì)話框，在對(duì)話框的輸入?yún)^(qū)中顯示的信息是A)Today B)Tomorrow C)Yesterday D)Day before yesterday(12)設(shè)有語(yǔ)

6、句open c：TestDat For OutPut則以下錯(cuò)誤的敘述是 （）A)該語(yǔ)句打開(kāi)C盤(pán)根目錄下一個(gè)己存在的文件TestDa B)該語(yǔ)句在C盤(pán)根目錄下建立一個(gè)名為T(mén)estDat的文 C)該語(yǔ)句建立的文件的文件號(hào)為1 D)執(zhí)行該語(yǔ)句后，就可以通過(guò)Print#語(yǔ)句向文件TestDat中寫(xiě)入信息(13) Sub過(guò)程與Function過(guò)程最根本的區(qū)別是（）A) Sub過(guò)程可以用Call語(yǔ)句直接使用過(guò)程名調(diào)用，而Function過(guò)程不可以B) Function過(guò)程可以有形參，Sub過(guò)程不可以C) Sub過(guò)程不能返回值，而Function過(guò)程能返回值D) 兩種過(guò)程參數(shù)的傳遞方式不同(14)下列關(guān)于過(guò)

7、程敘述不正確的是（）A)過(guò)程的傳值調(diào)用是將實(shí)參的具體值傳值遞給形參B)過(guò)程的傳址調(diào)用是將實(shí)參在內(nèi)存的地址傳遞給形參C)過(guò)程的傳值調(diào)用參數(shù)是單向傳遞的，過(guò)程的傳址調(diào)用參數(shù)是雙向傳遞的D)無(wú)論過(guò)程傳值調(diào)用還是過(guò)程傳址調(diào)用，參數(shù)傳遞都是雙向的（15）設(shè)組合框Combo1中有3個(gè)項(xiàng)目，則以下能刪除最后一項(xiàng)的語(yǔ)句是（）A）Combo1.RemoveItem TextB）Combo1.RemoveItem2 C）Combo1.RemoveItem 3D）Combo1.RemoveItemCombo1.Listcount（16）下列敘述中正確的是（）A) 在窗體的Form_Load事件過(guò)程中定義的變量是全局

8、變量B) 局部變量的作用域可以超出所定義的過(guò)程C) 在某個(gè)Sub過(guò)程中定義的局部變量作用域只限于該過(guò)程可以與其它事件過(guò)程中定義的局部變量同名，但其D) 在調(diào)用過(guò)程時(shí)，所有局部變量被系統(tǒng)初始化為0或空字符串(17) 以下敘述中錯(cuò)誤的是（）A) 在同一窗體的菜單項(xiàng)中，不允許出現(xiàn)標(biāo)題相同的菜單項(xiàng)B) 在菜單的標(biāo)題欄中，“&”所引導(dǎo)的字母指明了訪問(wèn)該菜單項(xiàng)的訪問(wèn)鍵C) 程序運(yùn)行過(guò)程中，可以重新設(shè)置菜單的Visible屬性D) 彈出式菜單也在菜單編輯器中定義(18) 以下敘述中錯(cuò)誤的是（）A) 在程序運(yùn)行時(shí)，通用對(duì)話框控件是不可見(jiàn)的B) 在同一個(gè)程序中，用不同的方法(不同的作用如ShowOpen或Sho

9、wSave等）打開(kāi)的通用對(duì)話框具有C) 調(diào)用通用對(duì)話框控件的ShowOpen方法，可以直接打開(kāi)在該通用對(duì)話框中指定的文件D) 調(diào)用通用對(duì)話框控件的ShowColor方法，可以打開(kāi)顏色對(duì)話框（19）設(shè)S=“中華人民共和國(guó)”，表達(dá)式Left（S,1）+Right（S,1）+Mid（S,3,2）的值為（） A) “中華民國(guó)” B) “中國(guó)人民” C) “中共人民” D) “人民共和”(20) 在Visual Basic中，要將一個(gè)窗體加載到內(nèi)存進(jìn)行預(yù)處理但不顯示，應(yīng)使用的語(yǔ)句是（） A) Load B) Show C) Hide D) Unload(21)以下能夠正確計(jì)算n!的程序是 A) Priv

10、ate Sub Commandl_ClicK() n5:x1 Do X=x*1 ii十1 Loop While in Print x End Sub B) Private Sub Commandl_Click() n5: x1：i=1 Do XX*1 ii十1 Loop While in Print x End Sub C)Private Sub Commandl_Click() n=5：x1：i1 Do X=X*1 ii十1 Loop while i=n Print x End Sub D)Private Sub Commandl_C1ick() n5：x1：i=1 Do X=X*l i=i

11、十1 loop While in Print x End Sub（22）執(zhí)行了下面程序后，組合框中數(shù)據(jù)項(xiàng)的值是（）Private Sub Form_Click()For i=1 to 6Combo1.AddItem iNext iFor i= 1 to 3Combo1.RemoveItem iNext iEnd Sub A)1 5 6 B)1 3 5 C)4 5 6 D)2 4 6(23) 下列程序的執(zhí)行結(jié)果為Private Sub Command1_Click() Dim FirStr As StringFirSt=abcdefPrint Pat(FirStr) End SubPrivate

12、 Function Pat(xStr As String) As StringDim tempStr As String, strLen As IntegertempStr=strLen=Len(xStr) i=1Do While i=Len(xStr) -3tempStr=tempStr+Mid(xStr, i, 1) +Mid(xStr, strLen -i+1, 1) i=i+1LoopPat=tempStrEnd Function A) abcdef B) afbecd C) fedcba D) defabc（24）下面關(guān)于多重窗體的敘述中，正確的是（） A)作為啟動(dòng)對(duì)象的Main 子

13、過(guò)程只能放在窗體模塊內(nèi) B)如果啟動(dòng)對(duì)象是Main 子過(guò)程，則程序啟動(dòng)時(shí)不加載任何窗體，以后由該過(guò)程根據(jù)不同情況決定是否加載窗體或加載哪一個(gè)窗體 C)沒(méi)有啟動(dòng)窗體，程序不能執(zhí)行 D)以上都不對(duì)(25)在窗體上畫(huà)一個(gè)名稱為CommonDialogl的通用對(duì)話框，一個(gè)名稱為Commandl的命令按鈕。要求單擊命令按鈕時(shí)，打開(kāi)一個(gè)保存文件的通用對(duì)話框。該窗口的標(biāo)題為Save，缺省文件名為“SaveFile ”，在“文件類(lèi)型”欄中顯示*.txt。則能夠滿足上述要求的程序是 （）A) Private Sub Command_C1ick() CommondialoglFileName=“Savefile”

14、Commondialogl.filterAll Files|*.*|(*.txt)|*.txt|(*.doc)|*.docCommonDialoglFilterindex=2 CommonDialoglDial0gtitleSave CommonDialoglAction2 End SubB) Private Sub CommandlClick() CommonDialoglFileNameSaveFile CommonDiaLoglFilterA11 Files|*.*|(*.txt)|*.txt|*doc|*docC0mmonDialoglFilterIndex1 CommonDialog

15、lDialogTitleSaveCommonDialoglAction2 End Sub C) Private Sub Cmmandl_C1ick() COmmonDialoglFileNameSave CommonDialoglFiLterA11Files|*.*|(*.txt)|*.txt|(*.doc)|*.docCommonDialoglFilterindex2 C0mmonDialoglDialogTitleSaveFileCommonDialoglAction2 End SubD) Private Sub Commandl_C1ick() CommonDialoglFileName

16、SaveFile CommonDialoglFilterAll Files|*.*|(*.txt)|*.txt|(*.doc)|*.docCommonDialoglFilterIndex=1 CommonDialoglDialogTitle=“Save”CommonDialoglAction1 End Sub二、填空：每空2分，共20分。（1）visual Basic中有一種控件組合了文本框和列表框的特性，這種控件是【1】_; Visual Basic提供的對(duì)數(shù)據(jù)文件問(wèn)的三種訪問(wèn)方式為隨機(jī)訪問(wèn)方式【2】_ 和二進(jìn)制訪問(wèn)方式;為了在運(yùn)行時(shí)把d:pic文件夾下的圖形文件a.jpg裝入圖片框Pict

17、urel，所使用的句為【3】_。 （2）VB 變量聲明格式： Public | Dim 變量名 As 類(lèi)型，用【4】_關(guān)鍵字聲明的變量在整個(gè)應(yīng)用程序中有效，用【5】_關(guān)鍵字聲明的變量過(guò)程結(jié)束則消失。 （3）在剛建立工程時(shí)，使窗體上的所有控件具有區(qū)別于默認(rèn)值的相同的字體格式，應(yīng)對(duì)【6】_的【7】_屬性進(jìn)行設(shè)置。（4）執(zhí)行下面的程序段后，i的值為【8】_ ，s的值為【9】_ 。s = 2For i = 3.2 To 4.9 Step 0.8s = s + 1Next i（5）提供【10】_函數(shù)用于將字符型轉(zhuǎn)換成數(shù)值。三、程序閱讀題：每題5分，共10分。（1）下面是一個(gè)歌手大賽評(píng)分程序。10位評(píng)委，

18、除去一個(gè)最高分和一個(gè)最低分，計(jì)算平均分(設(shè)滿分為10分)。請(qǐng)?jiān)?、2、和3處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。Private Sub Form_Click()Max= 0Min= 10For i = 1 To 10 x=Val(InputBox(請(qǐng)輸入分?jǐn)?shù))If1_ Then Max=xIf2_ Then Min=xs =s + xNext i s =3_p = s/8Print 最高分；Max,最低分；MinPrint 最后得分；pEnd Sub （2）Dim As String a= 123456789For i 1 To 5 Print Space(6i)；Mid$3(a，6i，2*i1)

19、 Nexti End Sub 程序運(yùn)行后，窗體上顯示的輸出結(jié)果為四、程序設(shè)計(jì)題：每題10分，共10分。程序要求如下：1、程序運(yùn)行后，窗體初始化時(shí)，在左邊列表框1(名稱為L(zhǎng)ist1)中列出當(dāng)前屏幕對(duì)象（Screen）的所有字體，screen對(duì)象的fonts屬性（fonts屬性是一個(gè)數(shù)組）能夠得到屏幕使用的所有字體，F(xiàn)ontCount屬性能夠得到字體的數(shù)量，利用一個(gè)循環(huán)，將Screen對(duì)象的每個(gè)Fonts(i)添加到列表框1中； 2、窗體初始化時(shí)，在右邊的列表框2(名稱為L(zhǎng)ist2)中列出8、10、12、1472的數(shù)字，表示字號(hào)。 3、當(dāng)用戶在列表框1中單擊選中某種字體名時(shí)，或在列表框2中單擊選中

20、某一字號(hào)時(shí)，使窗體下半部的標(biāo)簽框（名稱為L(zhǎng)abel1）中文字設(shè)置為相應(yīng)字體與字號(hào)，實(shí)現(xiàn)字體字號(hào)預(yù)覽。 3、張小嫻說(shuō)：當(dāng)時(shí)間過(guò)去，我們忘記了我們?cè)?jīng)義無(wú)反顧地愛(ài)過(guò)一個(gè)人，忘記了他的溫柔，忘記了他為我做的一切。我對(duì)他再?zèng)]有感覺(jué)，我不再愛(ài)他了。為甚么會(huì)這樣？原來(lái)我們的愛(ài)情敗給了歲月。首先是愛(ài)情使你忘記時(shí)間，然后是時(shí)間使你忘記愛(ài)情。4、張小嫻說(shuō)：思念一個(gè)人，不必天天見(jiàn)，不必互相擁有或相互毀滅，不是朝思暮想，而是一天總想起他幾次。聽(tīng)不到他的聲音時(shí)，會(huì)擔(dān)心他。一個(gè)人在外地時(shí)，會(huì)想念和他一起的時(shí)光。5、張小嫻說(shuō)：愛(ài)情，原來(lái)是含笑飲毒酒。6、張小嫻說(shuō)：不被人珍視的愛(ài)情，就只是個(gè)羞恥的笑話。7、張小嫻說(shuō)：寂寞的

21、人，感冒會(huì)拖得特別的久，因?yàn)樗约阂膊幌肴?、張小嫻：女人放棄一個(gè)跟不上她的男人，是有志氣。男人放棄一個(gè)跟不上他的女人，則是無(wú)義。9、張小嫻說(shuō)：清醒一點(diǎn)吧，世上沒(méi)有未完的事，只有未死的心。10、張小嫻說(shuō)：遺憾，也是一種幸福。因?yàn)檫€有令你遺憾的事情。11、張小嫻說(shuō)：失望，有時(shí)候也是一種幸福。因?yàn)橛兴诖?，所以才?huì)失望。因?yàn)橛袗?ài)，才會(huì)有期待。所以縱使失望也是一種幸福，雖然這種幸福有點(diǎn)痛。12、張小嫻說(shuō)：突然覺(jué)得很委屈。我對(duì)你微笑，轉(zhuǎn)身的剎那，終于難過(guò)成你不知道的樣子。13、張小嫻說(shuō)：做一個(gè)誠(chéng)實(shí)的孩子。喜歡一個(gè)人，不到一定程度，不要輕易去說(shuō)喜歡。因?yàn)槟愕囊痪漭p浮的話，很可能悲傷另一個(gè)人一段時(shí)光。

22、也有的，將會(huì)是，一生。14、張小嫻說(shuō)：如果沒(méi)有很大把握，又或者沒(méi)有堅(jiān)定地信念，請(qǐng)不要說(shuō)太長(zhǎng)久的承諾。相愛(ài)時(shí)叫承諾，不愛(ài)的時(shí)候呢？也不是謊言吧。畢竟愛(ài)著的時(shí)候就算說(shuō)了地久天長(zhǎng)，相信也是出自真心。只不過(guò)后來(lái)的離開(kāi)，不是自己能把握的。15、張小嫻說(shuō)：如果愛(ài)的足夠深，又或者是用情深的人，那個(gè)曾經(jīng)傷害過(guò)TA的人有天肯回頭了，TA還是會(huì)很沒(méi)骨氣很沒(méi)出息地接受。因?yàn)閻?ài)，因?yàn)橥涣恕?6、張小嫻說(shuō)：愛(ài)情結(jié)束后，請(qǐng)選擇“沉默”.你可以喊三兩最好的朋友去K歌，使勁吼，就唱那首“其實(shí)不想走，其實(shí)我想留”,然后在某個(gè)時(shí)間點(diǎn)突然嚎啕大哭。就算你是男生，也沒(méi)什么丟人的，不難過(guò)只能說(shuō)你沒(méi)有真心愛(ài)過(guò)。17、張小嫻說(shuō)：不要在愛(ài)情結(jié)束后，把那個(gè)你曾經(jīng)愛(ài)過(guò)的人到處指責(zé)，將TA說(shuō)的一無(wú)是處。沒(méi)必要的，既然留不住心，不如留下那份感情的純潔度，蒙了塵，也就減損了回憶的價(jià)值。18、張小嫻說(shuō)：你以為不可失去的人，原來(lái)并非不可失去，你流干了眼淚，自有另一個(gè)人逗你歡笑，你傷心欲絕，然后發(fā)現(xiàn)不愛(ài)你的人，根本不值得你為之傷心，今天回首，何嘗不是一個(gè)喜?。壳楸M時(shí)，自有另一番新境界，所有的悲哀也不過(guò)是歷史。19、張小嫻說(shuō)：愛(ài)情總是想象比現(xiàn)實(shí)美麗，相逢如是，告別亦如是。我們以為愛(ài)得很深、很深，來(lái)日歲月，會(huì)讓你知道，它不過(guò)很淺、很淺。最深最重的愛(ài)