2023年安徽省計(jì)算機(jī)二級VB筆試權(quán)威模擬試題及答案

全國高等學(xué)校（安徽考區(qū)）計(jì)算機(jī)水平考試試卷（二級VisualBasic語言）一、單項(xiàng)選擇題（每題1分，共40分）1．計(jì)算機(jī)硬件系統(tǒng)中最核心的部件是C。 A）內(nèi)存儲器 B）輸入/輸出設(shè)備 C）CPU D）硬盤2．計(jì)算機(jī)最早的應(yīng)用領(lǐng)域是A。 A）科學(xué)計(jì)算 B）圖形解決 C）過程控制 D）人工智能3．下列屬于文字解決軟件的是B。 A）Windows B）Word C）PowerPoint D）Excel4．在計(jì)算機(jī)系統(tǒng)內(nèi)部，所有數(shù)據(jù)都是采用D表達(dá)。 A）十六進(jìn)制 B）十進(jìn)制 C）八進(jìn)制 D）二進(jìn)制5．在Windows系統(tǒng)中，下面文獻(xiàn)命名合法的是B。 A）A*.DOC B）AB.DOC C）A?.DOC D）A>.DOC6．計(jì)算機(jī)可以播放DVD等音像制品,重要運(yùn)用的是6技術(shù)。 A）多媒體 B）人工智能 C）數(shù)據(jù)庫 D）數(shù)據(jù)挖掘7．將文獻(xiàn)從FTP服務(wù)器傳輸?shù)奖镜赜?jì)算機(jī)的過程稱為D A）上傳 B）瀏覽 C）查找 D）下載8．下列IP地址中，錯(cuò)誤的是C。 A）55 B） C）219.260.20.12 D）9．下列關(guān)于計(jì)算機(jī)病毒的敘述中，對的的是C。 A）加密文獻(xiàn)不會(huì)感染計(jì)算機(jī)病毒 B）系統(tǒng)軟件不會(huì)感染計(jì)算機(jī)病毒 C）有防火墻的計(jì)算機(jī)系統(tǒng)也會(huì)感染病毒 D）壓縮的文獻(xiàn)不會(huì)感染計(jì)算機(jī)病毒10．計(jì)算機(jī)能直接運(yùn)營的是B。 A）目的程序 B）機(jī)器語言程序 C）匯編語言程序 D）高級語言程序11．下列選項(xiàng)中是VisualBasic的合法變量名的是C。 A）1_abc B）abc-1 C）abc_1 D）abc.112．對正整數(shù)X、Y，有下列表達(dá)式，不能判斷X能被Y整除的是C。 A）X/Y=Int(X/Y) B）XModY=0 C）X\Y=Fix(X/Y) D）X\Y=X/Y13．下面可以對的定義2個(gè)整形變量和一個(gè)字符型變量的語句是B。 A）Dimx,yAsInteger,nAsString B)Dimx%,yAsInteger,nAsString C)Dimx%,y$,nAsString D)DimxAsInteger,y,nAsString14．下面表達(dá)式中，A的運(yùn)算結(jié)果與其他三個(gè)不同。 A）Exp(-3.5) B）Int(-3.5)+0.5 C）-Abs(-3.5) D）Sgn(-3.5)-2.515．將任意一個(gè)正的兩位整數(shù)N的個(gè)位數(shù)與十位數(shù)對換的表達(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í)行語句s=Mid("VisualBasic",1,6)后，s的值是A。 A)Visual B)Basic C)6 D)1117．表達(dá)式5Mod3+3\5*2的值是B。 A）0 B）2 C）4 D）618．選拔性別S是女，身高T超過1.6米且體重W小于62.5公斤的人，表達(dá)該條件的表達(dá)式為C。 A)S="女"AndT>=1.6AndW<=62.5 B)S="女"OrT>1.7OrW<62.5 C)S="女"AndT>1.6AndW<62.5 D)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ù)組聲明語句：DimA(2,-2to2,3)，則數(shù)組A包含D個(gè)元素。 A)200 B)120 C)75 D)6021．已設(shè)立數(shù)組元素下標(biāo)從1開始，下列程序段運(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ù)組沒定義，不能直接賦值 C）第五行，數(shù)組元素a(i)下標(biāo)越界 D）第二行，循環(huán)語句格式不對22．下列語句不合法的是D。 A）x=1:y=2 B）Printx;y; C）Printx,y, D）x=1;y=223．當(dāng)0<x<10時(shí)，將x賦值給y，應(yīng)使用語句C。 A)If0<x<10Theny=x B)If0<xOrx<10Theny=x C)If0<xAndx<10theny=x D)If0<xXorx<10Theny=x24．以下敘述中對的的是A。 A)窗體的Name屬性指定窗體的名稱，用來標(biāo)記一個(gè)窗體 B)窗體的Name屬性值是顯示在窗體標(biāo)題欄中的文本 C)可以在運(yùn)營期間改變對象的Name屬性值 D)對象的Name屬性值可認(rèn)為空25．當(dāng)啟動(dòng)程序時(shí)，系統(tǒng)自動(dòng)執(zhí)行啟動(dòng)窗體的A事件過程。 A)Load B)Unload C)Click D)DblClick26．將數(shù)據(jù)項(xiàng)"China"添加到列表框List1中成為第3項(xiàng)，應(yīng)使用B語句。 A）List1.AddItem"China"，3 B）List1.AddItem"China"，2 C）List1.AddItem3，"China" D）List1.AddItem2，"China"27．若要使標(biāo)簽框的大小自動(dòng)與所顯示的文本相適應(yīng)，則可通過設(shè)立其A屬性值為True來實(shí)現(xiàn)。 A）AutoSize B）Alignment C）Appearance D）Visible28．復(fù)選框或單選按鈕的當(dāng)前狀態(tài)通過A屬性來設(shè)立或訪問。 A)Value B)Checked C)Selected D)Caption29．要將列表框List1中當(dāng)前選中的一項(xiàng)刪除，應(yīng)執(zhí)行的語句是D。 A)List1.Clear B)list1.ClearList1.ListIndex C)List1.DeleteList1.ListIndex D)List1.RemoveItemList1.ListIndex30．下列控件可以用作其他控件容器的有D。 A)窗體，標(biāo)簽，圖片框 B)窗體，框架，文本框 C)窗體，圖像，列表框 D)窗體，框架，圖片框31．因修改文本框的內(nèi)容而觸發(fā)的事件是A。 A)Change B)GotFocus C)LostFocus D)SetFocus32．假如每秒觸發(fā)10次計(jì)時(shí)器的Timer事件，那么計(jì)時(shí)器的Interval屬性應(yīng)設(shè)為C。 A)1 B)10 C)100 D)100033．下列對象中不能獲得焦點(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）1 B）-1 C）True D）False35．在設(shè)計(jì)階段，雙擊窗體Form1的空白處，則在代碼窗口打開B事件過程代碼。A）Form_ClickB）Form_LoadC）Form_DblClickD）Form_Unload36．如下有一段不完整的程序段，若規(guī)定該程序執(zhí)行3次循環(huán)，則在程序中的空白處填入A。X=1Dox=x+3:PrintxLoopUntilA）x>=8 B）x<=8 C）x>=7 D）x<=737．執(zhí)行語句Open"D:\RandFile.dat"ForOutputAs#1后，對文獻(xiàn)“D:\RandFile.dat”可以進(jìn)行的操作是B。 A）只能讀不能寫 B）只能寫不能讀 C）既可以寫，也可以讀 D）既不能讀，也不能寫38．要在運(yùn)營時(shí)暫時(shí)關(guān)閉計(jì)時(shí)器，可通過賦值語句使計(jì)時(shí)器的C屬性值為False。A）Index B）Tag C）Enable D）Interval39．VisualBasic中數(shù)據(jù)庫的訪問技術(shù)不涉及D。 A）ADO B）DAO C）RDO D）DBMS40．下列關(guān)于菜單的論述中，錯(cuò)誤的是DA）菜單項(xiàng)是控件，也具有屬性B）菜單項(xiàng)只有Click事件C）不能在頂層菜單加快捷鍵D）在程序運(yùn)營過程中，不能通過賦值語句設(shè)立菜單項(xiàng)的屬性 二、填空題（每空2分，共20分）1.數(shù)學(xué)表達(dá)式的VisualBasic表達(dá)式是：(1)。2.關(guān)系式-7.5≤x≤7.5所相應(yīng)的邏輯表達(dá)式是：(2)。3.以下程序用于判斷輸入的年份是否閏年，假如年份能被4整除但不能被100整除,或者年份能被400整除，則該年是閏年，否則不是閏年，請?zhí)羁胀晟瞥绦?。PrivateSubCommand1_Click()y=Val(InputBox("請輸入一個(gè)年份"))If(3)OryMod400=0ThenPrintStr(y)&"年是閏年！"ElsePrintStr(y)&"年不是閏年！"EndIfEndSub4.運(yùn)用隨機(jī)函數(shù)產(chǎn)生20個(gè)[10,90]之間的隨機(jī)整數(shù)，每行輸出4個(gè)整數(shù)。填空完畢以下程序。PrivateSubForm_Click()DimsumAsInteger,xAsIntegerRandomizeFori=1To20x=(4) '用隨機(jī)函數(shù)產(chǎn)生[10~90]之間的整數(shù)Printx;If(5)ThenPrint '滿足換行條件時(shí)換行NextiEndSub5.下列程序的功能是在數(shù)組中找出數(shù)值最大的元素，請?zhí)羁胀晟瞥绦颉rivateSubCommand1_Click()Dimarr1asVariant,MaxAsIntegerarr1=Array(12,34,10,78,4,89,45)Max=arr1(0)Fori=1To(6)Ifarr1(i)>MaxThenMax=(7)EndifNextiPrint"最大值是：";MaxEndSub6.下列程序的功能是計(jì)算（N是偶數(shù)），試填空完畢以下程序。PrivateSubCommand2_Click()DimSAsDoubleDimIAsInteger,NAsIntegerDimCAsIntegerS=0:I=1:C=1N=Val(InputBox("請輸入大于零的偶數(shù)N："))DoS=S+C*I*IC=(8) '正負(fù)號切換I=(9) '循環(huán)變量增長LoopWhile(10) '循環(huán)結(jié)束條件EndSub三、閱讀理解題（每小題4分，共20分）1．執(zhí)行下列程序后，輸出的結(jié)果是：(1)PrivateSubForm_Click()DimxAsIntegerx=10SelectCasexCaseIs>=10Printx&xCase7,8,9Printx+xCase0To6PrintxEndSelectEndSub2．執(zhí)行下列程序后，輸出的結(jié)果是：(2)PrivateSubForm_Click()DimiAsIntegerDimtAsStringst=""Fori=1To12 '字符串逐字符解決IfiMod3=0Thenst=Mid("VisualBasic",i,1)+stEndIfNextiPrintstEndSub3．執(zhí)行下列程序后，輸出的結(jié)果是：(3)PrivateSubForm_Click()DimsAsInteger,nAsIntegers=0n=1Dos=s+n*nIfs>50ThenExitDo '強(qiáng)制跳出循環(huán)EndIfn=n+1 '循環(huán)變量自增LoopUntiln>6PrintsEndSub4．執(zhí)行下列程序后，輸出的結(jié)果是：(4)OptionBase1PrivateSubForm_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盤下tdata.txt文獻(xiàn)中的內(nèi)容是：(5)PrivateSubForm_Click()Fori=1To5s=s+fun(i)NextiOpen"e:\tdata.txt"ForOutputAs#1 '打開順序文獻(xiàn)Print#1,sClose#1EndSubPrivateFunctionfun(ByValiAsInteger)AsIntegerStaticaa=a+1fun=a*iEndFunction四、編程題（共20分）1．編寫一個(gè)Function函數(shù)fun，求解如下分段函數(shù)的值（x為實(shí)型變量的函數(shù)形參）（6分）Y=Y=-xx<0x20≤x≤10100x>102．編寫程序，運(yùn)用隨機(jī)函數(shù)產(chǎn)生10個(gè)[10，100]之間的整數(shù)，并存入數(shù)組中，求出該數(shù)組中最大數(shù)與最小數(shù)之差并在窗體上輸出結(jié)果。（7分）3．假定在E盤下有一文獻(xiàn)data.dat，其內(nèi)容為三個(gè)點(diǎn)的坐標(biāo)，內(nèi)容樣式如下4,84,82,63,8每一行的前1個(gè)數(shù)據(jù)表達(dá)點(diǎn)的橫坐標(biāo)x，后一個(gè)數(shù)據(jù)表達(dá)點(diǎn)的縱坐標(biāo)y。編寫程序讀取文獻(xiàn)中的數(shù)據(jù)，并判斷該三點(diǎn)能否構(gòu)成三角形。（7分）提醒：運(yùn)用任意兩邊之和大于第三邊來鑒定三角形。邊長L=，其中（x1,y1）及（x2,y2）為兩點(diǎn)坐標(biāo)。《VisualBASIC程序設(shè)計(jì)（語種代號：211）》（B）卷參考答案及評分標(biāo)準(zhǔn)一、單項(xiàng)選擇題（每題1分，共40分）1-5CABDB6-10ADCCB11-15CCBAA16-20ABCDD21-25CDCAA26-30BAADD31-35ACBDB36-40ABCDD二、填空題（每空2分，共20分）1(x+y)^3*(t+u)^2/t/(x-y)662x<=7.5andx>=-7.57arr1(i)3ymod4=0andymod100<>08-1*C4Int(81*rnd)+109I+15imod4=010I<=N說明：不區(qū)分大小寫，其他答案只要對的參照給分。三、閱讀理解題（每小題4分，共20分）序號參考答案評分標(biāo)準(zhǔn)110102cals3554102530注：其他情況酌情給分

四、編程題（共20分）序號參考程序評分標(biāo)準(zhǔn)1參考程序1：PrivateFunctionFUN(ByValxAsSingle)AsSingleDimyAsSingleIfx<0Theny=-xElseIfx<=10Theny=x*xElsey=100EndIfFUN=yEndFunction2參考程序1：Dima(9)AsIntegerDimiAsInteger,maxAsInteger,minAsIntegerFori=0To9a(i)=Int(Rnd*91)+10Nextimax=-1：min=999Fori=0To9Ifmax<a(i)Thenmax=a(i)Ifmin>a(i)Thenmin=a(i)NextiPrint"最大及最小數(shù)之差為";m