Afmqpnh考試中心安徽省計(jì)算機(jī)二級(jí)VB筆試權(quán)威模擬試題及答案2-IT168文庫(kù)

生命是永恒不斷的創(chuàng)造，因?yàn)樵谒鼉?nèi)部蘊(yùn)含著過(guò)剩的精力，它不斷流溢，越出時(shí)間和空間的界限，它不停地追求，以形形色色的自我表現(xiàn)的形式表現(xiàn)出來(lái)。－－泰戈?duì)柸珖?guó)高等學(xué)校（安徽考區(qū)）計(jì)算機(jī)水平考試試卷B（二級(jí) VisualBasic語(yǔ)言）一、單項(xiàng)選擇題（每題 1分，共40分）1．計(jì)算機(jī)硬件系統(tǒng)中最核心的部件是 C 。--A）內(nèi)存儲(chǔ)器 B ）輸入/輸出設(shè)備 C）CPU D ）硬盤(pán)2．計(jì)算機(jī)最早的應(yīng)用領(lǐng)域是 A 。A）科學(xué)計(jì)算 B ）圖形處理 C ）過(guò)程控制 D ）人工智能3．下列屬于文字處理軟件的是 B 。A）Windows B）Word C）PowerPoint D）Excel4．在計(jì)算機(jī)系統(tǒng)內(nèi)部，所有數(shù)據(jù)都是采用 D 表示。A）十六進(jìn)制 B ）十進(jìn)制 C ）八進(jìn)制 D）二進(jìn)制5．在Windows系統(tǒng)中，下面文件命名合法的是 B 。A）A*.DOC B）AB.DOC C ）A?.DOC D ）A>.DOC6．計(jì)算機(jī)可以播放 DVD等音像制品, 主要運(yùn)用的是 A 技術(shù)。A）多媒體 B ）人工智能 C ）數(shù)據(jù)庫(kù) D ）數(shù)據(jù)挖掘7．將文件從FTP服務(wù)器傳輸?shù)奖镜赜?jì)算機(jī)的過(guò)程稱(chēng)為 D 。A）上傳 B ）瀏覽 C ）查找 D）下載8．下列IP地址中，錯(cuò)誤的是 C 。A） B）C） D）9．下列關(guān)于計(jì)算機(jī)病毒的敘述中，正確的是 C 。A）加密文件不會(huì)感染計(jì)算機(jī)病毒B）系統(tǒng)軟件不會(huì)感染計(jì)算機(jī)病毒C）有防火墻的計(jì)算機(jī)系統(tǒng)也會(huì)感染病毒D）壓縮的文件不會(huì)感染計(jì)算機(jī)病毒10．計(jì)算機(jī)能直接運(yùn)行的是 B 。A）目標(biāo)程序 B）機(jī)器語(yǔ)言程序 C）匯編語(yǔ)言程序 D）高級(jí)語(yǔ)言程序11．下列選項(xiàng)中是 VisualBasic 的合法變量名的是 C。A）1_abc B）abc-1 C）abc_1 D）abc.112．對(duì)正整數(shù)X、Y，有下列表達(dá)式，不能判斷 X能被Y整除的是 C 。A）X/Y=Int(X/Y)B）XModY=0C）X\Y=Fix(X/Y)D）X\Y=X/Y13．下面可以正確定義2個(gè)整形變量和一個(gè)字符型變量的語(yǔ)句是B。A）Dimx,yAsInteger,nAsStringB)Dimx%,yAsInteger,nAsStringC)Dimx%,y$,nAsStringD)DimxAsInteger,y,nAsString14．下面表達(dá)式中，A的運(yùn)算結(jié)果與其他三個(gè)不同。A）Exp(-3.5)B）Int(-3.5)+0.5C）-Abs(-3.5)D）Sgn(-3.5)-2.515．將任意一個(gè)正的兩位整數(shù)N的個(gè)位數(shù)與十位數(shù)對(duì)換的表達(dá)式為A。A）（N-Int(N/10)*10）*10+Int(N/10)B）N-Int(N)/10*10+Int(N)/10C）Int(N/10)+(N-Int(N/10))D）(N-Int(N/10))*10+Int(N/10)16．執(zhí)行語(yǔ)句s=Mid("VisualBasic",1,6)后，s的值是A。A)VisualB)BasicC)6D)1117．表達(dá)式5Mod3+3\5*2的值是B。A）0B）2C）4D）618．選拔性別S是女，身高T超過(guò)1.6米且體重W小于62.5公斤的人，表示該條件的表達(dá)式為C。A)S="女"AndT>=1.6AndW<=62.5B)S="女"OrT>1.7OrW<62.5C)S="女"AndT>1.6AndW<62.5D)S="女"OrT<=1.7OrW>=62.519．可以強(qiáng)行中斷程序運(yùn)行的操作是D。A)按Ctrl+C鍵B)按Ctrl+Z鍵C)按Ctrl+V鍵D)按Ctrl+Break鍵20．在默認(rèn)條件下有數(shù)組聲明語(yǔ)句：DimA(2,-2to2,3)，則數(shù)組A包含D個(gè)元素。A)200B)120C)75D)6021．已設(shè)置數(shù)組元素下標(biāo)從1開(kāi)始，下列程序段運(yùn)行時(shí)會(huì)提示出錯(cuò)，出錯(cuò)的原因是C。a=Array(1,2,3,4)Fori=4To1Step-1Printa(i)NextiPrinta(i)A）第三行，數(shù)組元素a(i)下標(biāo)越界B）第一行，數(shù)組沒(méi)定義，不能直接賦值C）第五行，數(shù)組元素a(i)下標(biāo)越界D）第二行，循環(huán)語(yǔ)句格式不對(duì)22．下列語(yǔ)句不合法的是D。A）x=1:y=2B）Printx;y;C）Printx,y,D）x=1;y=223．當(dāng)0<x<10時(shí)，將x賦值給y，應(yīng)使用語(yǔ)句C。A)If0<x<10Theny=xB)If0<xOrx<10Theny=xIf0<xAndx<10theny=xD)If0<xXorx<10Theny=x24．以下敘述中正確的是A。窗體的Name屬性指定窗體的名稱(chēng)，用來(lái)標(biāo)識(shí)一個(gè)窗體窗體的Name屬性值是顯示在窗體標(biāo)題欄中的文本可以在運(yùn)行期間改變對(duì)象的Name屬性值對(duì)象的Name屬性值可以為空25．當(dāng)啟動(dòng)程序時(shí)，系統(tǒng)自動(dòng)執(zhí)行啟動(dòng)窗體的 A 事件過(guò)程。A)LoadB)UnloadC)ClickD)DblClick26．將數(shù)據(jù)項(xiàng)"China"添加到列表框List1中成為第3項(xiàng)，應(yīng)使用B語(yǔ)句。A）List1.AddItem"China"，3B）List1.AddItem"China"，2C）List1.AddItem3，"China"D）List1.AddItem2，"China"27．若要使標(biāo)簽框的大小自動(dòng)與所顯示的文本相適應(yīng)，則可通過(guò)設(shè)置其A屬性值為T(mén)rue來(lái)實(shí)現(xiàn)。A）AutoSizeB）AlignmentC）AppearanceD）Visible28．復(fù)選框或單選按鈕的當(dāng)前狀態(tài)通過(guò)

A 屬性來(lái)設(shè)置或訪問(wèn)。A)Value

B)Checked

C)Selected

D)Caption29．要將列表框

List1

中當(dāng)前選中的一項(xiàng)刪除，應(yīng)執(zhí)行的語(yǔ)句是

D 。List1.Clearlist1.ClearList1.ListIndexList1.DeleteList1.ListIndexList1.RemoveItemList1.ListIndex30．下列控件可以用作其他控件容器的有D。A)窗體，標(biāo)簽，圖片框B)窗體，框架，文本框C)窗體，圖像，列表框D)窗體，框架，圖片框31．因修改文本框的內(nèi)容而觸發(fā)的事件是A。A)ChangeB)GotFocusC)LostFocusD)SetFocus32．如果每秒觸發(fā)10次計(jì)時(shí)器的Timer事件，那么計(jì)時(shí)器的Interval屬性應(yīng)設(shè)為C。A)1B)10C)100D)100033．下列對(duì)象中不能獲得焦點(diǎn)的是B。A）命令按鈕控件B）標(biāo)簽控件C）文本框控件D）單選按鈕控件34．設(shè)x=4，y=8，z=7，表達(dá)式x<yAnd(Noty>z)Orz<x的值是D。A）1B）-1C）TrueD）False35．在設(shè)計(jì)階段，雙擊窗體Form1的空白處，則在代碼窗口打開(kāi)B事件過(guò)程代碼。A）Form_ClickB）Form_LoadC）Form_DblClickD）Form_Unload36．如下有一段不完整的程序段，若要求該程序執(zhí)行3次循環(huán)，則在程序中的空白處填入A。X=1Dox=x+3:PrintxLoopUntilA）x>=8B）x<=8C）x>=7D）x<=737．執(zhí)行語(yǔ)句Open"D:\RandFile.dat"ForOutputAs#1后，對(duì)文件“D:\RandFile.dat”能夠進(jìn)行的操作是B。A）只能讀不能寫(xiě)B(tài)）只能寫(xiě)不能讀C）既可以寫(xiě)，也可以讀D）既不能讀，也不能寫(xiě)38．要在運(yùn)行時(shí)暫時(shí)關(guān)閉計(jì)時(shí)器，可通過(guò)賦值語(yǔ)句使計(jì)時(shí)器的

C 屬性值為

False。A）Index

B）Tag

C ）Enable

D ）Interval39．VisualBasic

中數(shù)據(jù)庫(kù)的訪問(wèn)技術(shù)不包括

D 。A）ADO

B）DAO

C）RDO

D）DBMS40．下列關(guān)于菜單的論述中，錯(cuò)誤的是

D 。A）菜單項(xiàng)是控件，也具有屬性B）菜單項(xiàng)只有 Click 事件C）不能在頂層菜單加快捷鍵D）在程序運(yùn)行過(guò)程中，不能通過(guò)賦值語(yǔ)句設(shè)置菜單項(xiàng)的屬性二、填空題（每空 2分，共20分）1.(xy)3(tu)2表達(dá)式是：(x+y)^3*(t+u)^2/t/(x-y)。數(shù)學(xué)表達(dá)式的VisualBasict(xy)2.關(guān)系式-7.5≤x≤7.5所對(duì)應(yīng)的邏輯表達(dá)式是：x<=7.5andx>=-7.5。以下程序用于判斷輸入的年份是否閏年，如果年份能被4整除但不能被100整除,或者年份能被400整除，則該年是閏年，否則不是閏年，請(qǐng)?zhí)羁胀晟瞥绦颉rivateSubCommand1_Click()y=Val(InputBox(" 請(qǐng)輸入一個(gè)年份"))If ymod4=0andymod100<>0 OryMod400=0ThenPrintStr(y)&" 年是閏年！"ElsePrintStr(y)&" 年不是閏年！"EndIfEndSub4.利用隨機(jī)函數(shù)產(chǎn)生 20個(gè)[10,90]

之間的隨機(jī)整數(shù)，每行輸出

4個(gè)整數(shù)。填空完成以下程序。PrivateSubForm_Click()DimsumAsInteger,xAsIntegerRandomizeFori=1To20x= Int(81*rnd)+10

'用隨機(jī)函數(shù)產(chǎn)生

[10~90]之間的整數(shù)Printx;If

imod4=0

ThenPrint

'滿(mǎn)足換行條件時(shí)換行NextiEndSub下列程序的功能是在數(shù)組中找出數(shù)值最大的元素，請(qǐng)?zhí)羁胀晟瞥绦?。PrivateSubCommand1_Click()Dimarr1asVariant,MaxAsIntegerarr1=Array(12,34,10,78,4,89,45)Max=arr1(0)Fori=1To6Ifarr1(i)>MaxThenMax=arr1(i)EndifNextiPrint"最大值是：";MaxEndSub6.下列程序的功能是計(jì)算sum122232(N1)2N2（N是偶數(shù)），試填空完成以下程序。PrivateSubCommand2_Click()DimSAsDoubleDimIAsInteger,NAsIntegerDimCAsIntegerS=0:I=1:C=1N=Val(InputBox("請(qǐng)輸入大于零的偶數(shù)N："))DoS=S+C*I*IC=-1*C'正負(fù)號(hào)切換I=I+1'循環(huán)變量增加LoopWhileI<=N'循環(huán)結(jié)束條件EndSub三、閱讀理解題（每小題4分，共20分）1．執(zhí)行下列程序后，輸出的結(jié)果是：1010PrivateSubForm_Click()DimxAsIntegerx=10SelectCasexCaseIs>=10Printx&xCase7,8,9Printx+xCase0To6PrintxEndSelectEndSub2．執(zhí)行下列程序后，輸出的結(jié)果是： calsPrivateSubForm_Click()DimiAsIntegerDimtAsStringst=""Fori=1To12IfiMod3=0Thenst=Mid("VisualBasic",i,1)+stEndIfNextiPrintstEndSub

'字符串逐字符處理3．執(zhí)行下列程序后，輸出的結(jié)果是： 55PrivateSubForm_Click()DimsAsInteger,nAsIntegers=0n=1Dos=s+n*nIfs>50ThenExitDo

'強(qiáng)制跳出循環(huán)EndIfn=n+1LoopUntiln>6PrintsEndSub

'循環(huán)變量自增4．執(zhí)行下列程序后，輸出的結(jié)果是： 102OptionBase1PrivateSubForm_Click()Dima(4,4)AsIntegerDimiAsInteger,jAsIntegerDimcountAsInteger,sAsIntegercount=1Fori=1To4 '給二維數(shù)組賦值并累加特殊位置的元素值Forj=1To4a(i,j)=countcount=count+1Ifi=1Ori=4Orj=1Orj=4Thens=s+a(i,j)EndIfNextjNextiPrintsEndSub5．執(zhí)行下列程序后， E盤(pán)下tdata.txt文件中的內(nèi)容是：PrivateSubForm_Click()Fori=1To5s=s+fun(i)Nexti

30Open"e:\tdata.txt"ForOutputAs#1Print#1,sClose#1EndSub

'打開(kāi)順序文件PrivateFunctionfun(ByValiAsInteger)AsIntegerStaticaa=a+1fun=a*iEndFunction四、編程題（共 20分）1．編寫(xiě)一個(gè)Function函數(shù)fun，求解如下分段函數(shù)的值（ x為實(shí)型變量的函數(shù)形參）（6分）-x x<0Y= x2 0≤x≤10100 x>10答：PrivateFunctionFUN(ByValxAsSingle)AsSingleDimyAsSingleIfx<0Theny=-xElseIfx<=10Theny=x*xElsey=100EndIfFUN=yEndFunction2．編寫(xiě)程序，利用隨機(jī)函數(shù)產(chǎn)生 10個(gè)[10，100]之間的整數(shù)，并存入數(shù)組中，求出該數(shù)組中最大數(shù)與最小數(shù)之差并在窗體上輸出結(jié)果。（7分）答：Dima(9)AsIntegerDimiAsInteger,maxAsInteger,minAsIntegerFori=0To9a(i)=Int(Rnd*91)+10Nextimax=-1：min=999Fori=0To9Ifmax<a(i)ThenIfmin>a(i)Then

max=a(i)min=a(i)NextiPrint"最大及最小數(shù)之差為 ";max-min參考程序2：（排序計(jì)算）Dima(9)AsIntegerDimiAsInteger,maxAsInteger,minAsIntegerFori=0To9a(i)=Int(Rnd*91)+10NextiFori=0To8Forj=i+1To9Ifa(i)<a(j)Thentem=a(i)：a(i)=a(j)：a(j)=temEndIfNextjNextiPrint"最大及最小數(shù)之差為 ";a(0)-a(9)3．假定在E盤(pán)下有一文件 data.dat，其內(nèi)容為三個(gè)點(diǎn)的坐標(biāo)，內(nèi)容樣式如下4,82,63,8每一行的前1個(gè)數(shù)據(jù)表示點(diǎn)的橫坐標(biāo)x，后一個(gè)數(shù)據(jù)表示點(diǎn)的縱坐標(biāo)y。編寫(xiě)程序讀取文件中的數(shù)據(jù)，并判斷該三點(diǎn)能否構(gòu)成三角形。（7分）提示：利用任意兩邊之和大于第三邊來(lái)判定三角形。2 2邊長(zhǎng)L= (x1 x2) (y1 y2)，其中（x1,y1）及（x2,y2）為兩點(diǎn)坐標(biāo)。參考程序1：Dims(2,1)AsIntegerDiml1AsSingle,l2AsSingle,l3AsSingleOpen"e:\a.txt"ForInputAs#1Fori=0To2Input#1,s(i,0),s(i,1)NextiClose#1l1=Sqr((s(0,0)-s(1,0))^2+(s(0,1)-s(1,1))^2)l2=Sqr((s(0,0)-s(2,0))^2+(s(0,1)-s(2,1))^2)l3=Sqr((s(1,0)-s(2,0))^2+(s(1,1)-s(2,1))^2)Ifl1+l2>l3Andl2+l3>l1Andl1+l3>l2ThenMsgBox("文件中三點(diǎn)能構(gòu)成三角形 ")Else