江蘇省高等學(xué)校非計(jì)算機(jī)專業(yè)學(xué)1

江蘇省高等學(xué)校非計(jì)算機(jī)專業(yè)學(xué)生計(jì)算機(jī)基礎(chǔ)及應(yīng)用能力等級考試試卷二級VisualBasic實(shí)戰(zhàn)模擬試卷（本試卷筆試時(shí)間為120分鐘）說明：1．本試卷包括計(jì)算機(jī)基礎(chǔ)知識部分和程序設(shè)計(jì)部分。2．本試卷滿分為60分，分選擇題和填空題，試卷不分A、B類型。3．計(jì)算機(jī)基礎(chǔ)知識全部是選擇題（20分），程序設(shè)計(jì)部分分為選擇題（10分）和填空題（30分）兩種。4．選擇題用答題卡答題。每一項(xiàng)有A、B、C、D四個(gè)可供選擇的答案，請選擇其中一個(gè)你認(rèn)為正確的答案，用HB鉛筆或2B鉛筆涂寫在答題卡的相應(yīng)答題號內(nèi)。每選對一項(xiàng)得1分，不選或選錯(cuò)不得分。5．填空題用答題紙答題。請將答案用藍(lán)色或黑色筆填寫在答題紙的相應(yīng)答題號內(nèi)，每個(gè)答案只占一行,不得換行。每填對一個(gè)答案得1分，不填或填錯(cuò)不得分。6．請認(rèn)真填寫并仔細(xì)核對答題卡和答題紙上的學(xué)校名稱、準(zhǔn)考證號和姓名。7．考試結(jié)束時(shí)將試卷、答題卡和答題紙放在桌上，不得帶走。待監(jiān)考人員收畢清點(diǎn)后，方可離場。第一部分計(jì)算機(jī)基礎(chǔ)知識1．下列關(guān)于信息系統(tǒng)的敘述中錯(cuò)誤的是。（A）雷達(dá)是一種以信息交流為主要目的的系統(tǒng)（B）電視系統(tǒng)是一種單向的、點(diǎn)到多點(diǎn)（面）的以信息傳遞為主要目的的系統(tǒng)（C）信息系統(tǒng)可以有人工的，也可以有自動的（D）信息系統(tǒng)是人們進(jìn)行信息獲取、傳遞、存儲、加工處理、控制及顯示的綜合使用各種信息技術(shù)的系統(tǒng)2．下列關(guān)于集成電路的敘述錯(cuò)誤的是。（A）微電子技術(shù)以集成電路為核心（B）現(xiàn)代集成電路使用的半導(dǎo)體材料通常是硅或砷化鎵（C）集成電路根據(jù)它所包含的晶體管數(shù)目可分為小規(guī)模、中規(guī)模、大規(guī)模、超大規(guī)模和極大規(guī)模集成電路（D）按集成電路的用途來分，可分為數(shù)字集成電路和模擬集成電路3．無線電波有四種，分別是中波、短波、超短波和微波，下面敘述中錯(cuò)誤的是。（A）短波具有較強(qiáng)的電離層反射能力，適用于環(huán)球通信（B）微波傳輸技術(shù)廣泛應(yīng)用于移動通信和數(shù)字高清晰度電視的信號傳輸?shù)龋–）中波適用于廣播和海上通信（D）超短波沿地面?zhèn)鞑?，易穿過建筑物4．已知有表達(dá)式成立：3+5=10，請問這是幾進(jìn)制數(shù)。（A）八進(jìn)制 （B）十進(jìn)制 （C）七進(jìn)制 （D）十六進(jìn)制5．目前使用較廣泛的打印機(jī)有針式打印機(jī)、激光打印機(jī)和噴墨打印機(jī)。其中，在打印票據(jù)方面具有獨(dú)特的優(yōu)勢，在彩色圖像輸出設(shè)備中占絕對優(yōu)勢。（A）針式打印機(jī)、激光打印機(jī)（B）噴墨打印機(jī)、激光打印機(jī)（C）激光打印機(jī)、噴墨打印機(jī)（D）針式打印機(jī)、噴墨打印機(jī)6．接口是一種新的I/O接口，它是一種可以連接多個(gè)設(shè)備的總線式串行接口，2.0版的數(shù)據(jù)傳輸速率可高達(dá)480Mb/s（60MB/s），最多可以連接127個(gè)設(shè)備。（A）并行 （B）IEEE1394 （C）SCSI （D）USB7．下面幾種說法中不正確的是。（A）CD光盤驅(qū)動器的倍速越大，表示數(shù)據(jù)傳輸速度越快（B）CD-RW光盤刻錄機(jī)可以刻錄CD-RW和CD-R的光盤（C）DVD的英文全名是DigitalVideoDisk，即數(shù)字視頻光盤，僅能存儲數(shù)字音像資料（D）目前所使用的光驅(qū)大多為IDE接口，它可以直接與主板連接8．關(guān)于超媒體的敘述中，下列不正確的是。（A）超媒體不僅可以包含文本，而且可以包含圖像、聲音、動畫和動態(tài)視頻信息等（B）超媒體的信息可以存儲在多臺計(jì)算機(jī)中，并可以通過超鏈接在計(jì)算之間轉(zhuǎn)移（C）超媒體中超級鏈接一般只建立在文本上，而不會建立在圖像、動畫和視頻上（D）超媒體適合組織應(yīng)用程序的幫助系統(tǒng)等的非線性文檔9．互聯(lián)網(wǎng)的主要硬件設(shè)備有中繼器、網(wǎng)橋、網(wǎng)關(guān)和。（A）集線器 （B）網(wǎng)卡 （C）網(wǎng)絡(luò)適配器 （D）路由器10．針對不同具體應(yīng)用問題而專門開發(fā)的軟件屬于。（A）應(yīng)用軟件 （B）系統(tǒng)軟件（C）財(cái)務(wù)軟件 （D）文字處理軟件11．下列操作系統(tǒng)都具有網(wǎng)絡(luò)通信功能，但其中不能作為網(wǎng)絡(luò)服務(wù)器操作系統(tǒng)的是。（A）Windows98 （B）WindowsNTServer（C）Windows2000Server （D）Unix12．操作系統(tǒng)是現(xiàn)代計(jì)算機(jī)必不可少的系統(tǒng)軟件之一。在下列有關(guān)操作系統(tǒng)的敘述中，錯(cuò)誤的是。（A）操作系統(tǒng)有處理器管理、存儲管理、設(shè)備管理、文件管理和作業(yè)管理5大管理功能（B）目前PC機(jī)上只能安裝Windows操作系統(tǒng)（C）和Windows操作系統(tǒng)相比，UNIX操作系統(tǒng)有一個(gè)最顯著特色就是開放性（D）Linux系統(tǒng)的源代碼向世人公開13．算法的空間復(fù)雜度是指。（A）算法程序的長度（B）算法程序在執(zhí)行過程中所需要的存儲空間（C）算法程序的指令條數(shù)（D）算法程序所占存儲空間14．作為現(xiàn)行微機(jī)的主要系統(tǒng)總線是。（A）ISA總線 （B）EISA總線 （C）PCI總線 （D）以上均不是15．MP3是網(wǎng)絡(luò)流行的一種數(shù)字音樂的格式，MP3的含義是。（A）MPEG-1audioLevel3 （B）MPEG-3audio（C）MPEG-2audio3 （D）MPEGDolbyAC-316．電子郵件是Internet最主要的和最常用的功能，下列關(guān)于電子郵件的描述不正確的是。（A）電子郵件的傳遞速度非?？?，可以做到及時(shí)傳遞（B）電子郵件系統(tǒng)遵從C/S模式（C）電子郵件是一種節(jié)省的通信手段，它的費(fèi)用比傳真和長途電話低很多（D）可以發(fā)送包括文字和聲音信息，但不能發(fā)送圖像信息17．下面關(guān)于漢字編碼標(biāo)準(zhǔn)的敘述中，正確的是。（A）Unicode中包含拉丁字母和音節(jié)符號（B）Unicode收錄了一萬多個(gè)漢字及符號（C）Unicode是我國最新發(fā)布的也是收字最多的漢字編碼國家標(biāo)準(zhǔn)（D）同一個(gè)漢字的不同造型（如宋體、楷體等）在計(jì)算機(jī)中的內(nèi)碼不同18．下列地址中是域名。（A）Beijing/Railway/Institute/China （B）（C）0 （D）yhkhf@19．以下選項(xiàng)中，不屬于按照交易的雙方分類的電子商務(wù)類型的是。（A）企業(yè)內(nèi)部的電子商務(wù) （B）企業(yè)與客戶間的電子商務(wù)（C）企業(yè)與政府間的電子商務(wù) （D）政府與客戶間的電子商務(wù)20．在MicrosoftWord97/2000/2003中，修改某一頁的頁眉，則。（A）同一節(jié)所有頁的頁眉不一定都被修改（B）整篇文檔的所有頁頁眉一定都被修改（C）其余頁的頁眉一定不變（D）不能改變該頁的頁眉，因?yàn)轫撁紕?chuàng)建后不能被修改或刪除第二部分VisualBasic程序設(shè)計(jì)一、選擇題（用答題卡答題，答案依次填在21~30答題號內(nèi)）21．以下關(guān)于窗體的描述正確的是。（A）只有用于啟動的窗體可以有菜單（B）窗體事件和其中所有控件事件的代碼都放在窗體文件中（C）窗體的名字和存盤的窗體文件名必須相同（D）開始運(yùn)行時(shí)窗體的位置只能是設(shè)計(jì)階段時(shí)顯示的位置22．以下關(guān)于菜單編輯器中“索引”項(xiàng)的敘述中，錯(cuò)誤的是。（A）“索引”確定了菜單項(xiàng)顯示的順序（B）“索引”是控件數(shù)組的下標(biāo)（C）使用“索引”時(shí)，可有一組菜單項(xiàng)具有相同的“名字”（D）使用“索引”后，在單擊菜單項(xiàng)的事件過程中可以通過“索引”引用菜單項(xiàng)23．以下變量名不合法是的。（A）sad_1 （B）b51 （C）file-1 （D）sd_3_44424．以下關(guān)于變量的類型說明符的使用中，正確的是。（A）Dimaa%=90000 （B）Dimaa=2000%（C）Dimaa&=60000 （D）Dimaa&=true25．下列表達(dá)式中，合法的VisualBasic表達(dá)式有。（A）(-b+Sqr(b*b+4a*c))/2/a （B）Cos(a)^2-Atn(a)（C）Sqr(Y^3+3*(A*A+6B*B)) （D）1/(X+1/Y+5A)26．執(zhí)行以下程序段后，變量c$的值為。a$=“VisualBasicPrograming”b$=“Quick”c$=b$&UCase(Mid$(a$,7,6))&Right$(a$,11)（A）VisualBASICPrograming （B）QuickBasicPrograming（C）QUICKBasicPrograming （D）QuickBASICPrograming27．以下有關(guān)把數(shù)組作為形參的說明中錯(cuò)誤的是。（A）形參數(shù)組只能按地址傳送（B）調(diào)用過程時(shí)，只需要把傳遞的數(shù)組名填入實(shí)參表（C）使用動態(tài)數(shù)組時(shí)，可用ReDim語句改變形參數(shù)組的維界（D）在過程中也可用Dim語句對形參數(shù)組進(jìn)行說明28．對窗體編寫如下事件過程：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingleYAsSingle)IfButton=2ThenPrint"AAAAA"EndIfEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Print"BBBBB"EndSub程序運(yùn)行后，如果單擊鼠標(biāo)右鍵，則輸出結(jié)果為。（A）AAAAA （B）BBBBB （C）AAAAA （D）BBBBBBBBBB AAAAA29．在語句PublicSubSort(iAsInteger)中i是一個(gè)按傳遞的參數(shù)。（A）地址 （B）值 （C）變量 （D）常量30．要對順序文件進(jìn)行寫操作，下列打開文件語句中正確的是。（A）Open"filetxt"ForOutputAs#1 （B）Open"filetxt"ForInputAs#1（C）Open"filetxt"ForRandomAs#1 （D）Open"filetxt"ForBinaryAs#1二、填空題（請將答案填寫在答題紙的相應(yīng)答題號內(nèi)，每個(gè)答案只占一行）1．設(shè)有VisualBasic表達(dá)式Log(Abs((Exp(3.14159)+Sin(x)^3)／(x+y)))，相應(yīng)的代數(shù)式為

（1）。2．執(zhí)行下面的程序段后，s的值為（2）。s=2Fori=10To1Step-2s=s+1Nexti3．下列程序運(yùn)行時(shí)連續(xù)單擊2次窗體，則Form1上輸出的結(jié)果是（3）。PrivateSubForm_Click()StaticaAsIntegerDimbAsIntegera=2*a+1b=a+bForm1.Printa;b;EndSub4．設(shè)計(jì)如圖14-2所示的界面，左邊文本框的名稱為text4，右邊的三個(gè)文本框自上而下分別為text1、text2、text3，并編寫如下事件過程Command1_Click()，若運(yùn)行時(shí)在文本框text4中輸入368，則單擊Command1按鈕后，文本框text1、text2、text3種分別顯示（4）、（5）、（6）。圖14-2填空題4題運(yùn)行界面OptionExplicitPrivateSubCommand1_Click()Dimmsg,x,y,z,lensmsg=Text4.Textlens=Len(msg)x=msg\100y=(msg\10)Mod10z=msgMod10Text1.Text=xText2.Text=yText3.Text=zEndSub5．執(zhí)行下面的程序，運(yùn)行時(shí)在第1個(gè)文本框中輸入4，則第2個(gè)文本框顯示（7）。如圖14-3所示。圖14-3運(yùn)行界面OptionExplicitPrivateSubCommand1_Click()Dimn,i,jDims,mn=Int(Val(Text1.Text))s=0Fori=1Tonm=1Forj=1Toim=j*mNextjs=s+mNextiText2.Text=sEndSub6．在某一窗體上設(shè)置一命令按鈕Command1，并編寫如下程序代碼，執(zhí)行該程序，單擊命令按鈕，則窗體第一行顯示（8），第二行顯示（9）、第二行顯示（10）。OptionExplicitOptionBase1Dima(3,3),b(3,3),c(3,3)AsIntegerPrivateSubCommand1_Click()Dimi,j,kAsIntegerFori=1To3Forj=1To3Fork=1To3c(i,j)=c(i,j)+a(i,k)*b(k,j)NextkNextjNextiFori=1To3Forj=1To3Printc(i,j);"";NextjPrintNextiEndSubPrivateSubForm_Load()Dimi,jAsIntegerFori=1To3Forj=1To3a(i,j)=iNextjNextiFori=1To3Forj=1To3b(i,j)=jNextjNextiEndSub7．閱讀程序：FunctionF(aAsInteger)b=0Staticcb=a+b+1c=b+c+1F=a+b+cEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=3Fori=1To3PrintF(a);NextiEndSub運(yùn)行上面的程序，單擊命令按鈕，輸出結(jié)果為（11）。8．設(shè)工程中包含一個(gè)窗體模塊和一個(gè)標(biāo)準(zhǔn)模塊，在標(biāo)準(zhǔn)模塊中的過程用于求m行n列二維整型數(shù)組a各行元素的和，并將和保存在一維整型數(shù)組b中。窗體模塊中的代碼實(shí)現(xiàn)單擊窗體時(shí)生成0~10之間的隨機(jī)整數(shù)，存于5行6列的二維整型數(shù)組x中，并以5行6列的形式顯示在窗體上，調(diào)用標(biāo)準(zhǔn)模塊中的過程求每行元素的和，并輸出求和結(jié)果。SubHsum(（12）)Fori=1Tomb(i)=0Forj=1Tonb(i)=b(i)+a(i,j)NextjNextiEndSubPrivateSubForm_Click()Dimx(5,6)AsInteger,y(5)AsIntegerFori=1To5Forj=1To6x(i,j)=（13）Printx(i,j);Nextj（14）NextiCallHsum(（15）)Fori=1To5Printy(i)NextiEndSub9．本程序用于驗(yàn)證一個(gè)自然數(shù)N的立方等于N個(gè)連續(xù)的奇數(shù)之和。其中最大的奇數(shù)P=N(N+1)-1。例如，43=19+17+15+13，最大奇數(shù)等于19。圖14-4是本程序的運(yùn)行界面。圖14-4填空題9題運(yùn)行界面DimnAsIntegerPrivateSubCommand1_Click()DimnumAsLong,pAsInteger,xAsStringIfText1.Text<>""Thenn=（16）num=n*n*nText2.Text=（17）p=n*(n+1)-1x=x&Str(p)&"+"ForI=1Ton-2（18）x=x&Str(p)&"+"NextIp=p-2x=（19）Text3.Text=xElsePrintMsgBox("數(shù)據(jù)錯(cuò)誤",48,"VB試題")EndIfEndSubPrivateSubCommand2_Click()IfText1.Text<>""ThenText1.Text=""IfText2.Text<>""ThenText2.Text=""IfText3.Text<>""ThenText3.Text=""EndSubPrivateSubCommand3_Click()EndEndSub10．本程序是一個(gè)可以進(jìn)行多數(shù)制轉(zhuǎn)換的應(yīng)用程序。圖14-5是其運(yùn)行界面。圖14-5填空題9題運(yùn)行界面OptionExplicitDimxAsIntegerPrivateFunctionCovert(xAsInteger)AsStringDimrAsInteger,iAsInteger,nAsIntegerDimcovAsString,cAsStringr=xMod2DoWhile（20）cov=cov&Str(r)（21）r=xMod2LoopFor（22）To1Step-1c=c&Mid(cov,i,1)NextiCovert=cEndFunctionPrivateSubCommand1_Click()IfText2.Text<>""ThenText2.Text=""x=（23）Text2.Text=Covert(x)EndSubPrivateSubCommand2_Click()IfText2.Text<>""ThenText2.Text=""x=Val(Text1.Text)Text2.Text=（24）EndSubPrivateSubCommand3_Click()IfText2.Text<>""ThenText2.Text=""x=Val(Text1.Text)Text2.Text=（25）EndSubPrivateSubCommand4_Click()EndEndSub11．下列程序段首先由隨機(jī)函數(shù)產(chǎn)生10個(gè)互不相同的二位隨機(jī)整數(shù)在窗體中顯示。然后用冒泡法從大到小排序，也在窗體中顯示。PrivateSubForm_Click()Constn=10Dima(1Ton)AsInteger,bAsBooleanDimiAsInteger,jAsInteger,tempAsIntegerForm1.Print"原始數(shù)據(jù)"RandomizeFor（26）b=FalseDoWhileNotba(i)=In