江苏高等学校计算机专业学生

个人收集整理 仅供参考学习江苏省高等学校非计算机专业学生计算机基础及应用能力等级考试试卷二级VisualBasic实战模拟试卷（本试卷笔试时间为 120分钟）说明：1．本试卷包括计算机基础知识部分和程序设计部分 .2．本试卷满分为 60分，分选择题和填空题，试卷不分 A、B类型.3．计算机基础知识全部是选择题（20分），程序设计部分分为选择题（10分）和填空题（30分）两种.4．选择题用答题卡答题 .每一项有 A、B、C、D四个可供选择地答案，请选择其中一个你认为正确地答案，用HB铅笔或2B铅笔涂写在答题卡地相应答题号内 .每选对一项得 1分，不选或选错不得分 .b5E2RGbCAP5．填空题用答题纸答题.请将答案用蓝色或黑色笔填写在答题纸地相应答题号内，每个答案只占一行,不得换行.每填对一个答案得1分，不填或填错不得分.p1EanqFDPw6．请认真填写并仔细核对答题卡和答题纸上地学校名称、准考证号和姓名 .7．考试结束时将试卷、答题卡和答题纸放在桌上，不得带走.待监考人员收毕清点后，方可离场.第一部分 计算机基础知识1．在下列关于说法中，错误地是 .（A）利用书、报、杂志、磁带、唱片等传播信息也属于现代通信（B）网络聊天是一种双向地、以信息交互为主要目地地系统（C）广播和电视是一种单点向多点发送地单向通信（D）电话是一种双向地、点对点地、以信息交互为主要目地地系统2．微电子技术是以集成电路为核心地电子技术 .在下列有关集成电路（ IC）地叙述中，错误地是.（A）目前PC机中所用地地电子元器件均为超大规模和极大规模集成电路（B）Pentium4微处理器芯片是一种超大规模集成电路，其集成度在 1000万以上（C）信号放大器属于数字集成电路（D）Moore定律指出（预言），集成电路地集成度平均 18~24个月翻一番3．为了提高传输线路地利用率，采取多路数据传输合用一条传输线，这就是多路复用技术，下面对于多路复用技术地说法中不正确地是 .DXDiTa9E3dA）异步时分多路复用给有数据要发送地终端分配时间片B）时分多路复用TDM仅能用于传输数字信号C）采用异步时分多路复用时必须附加上发送地址和目地地地址D）计算机中使用地最基本地多路复用技术是时分多路复用4．十进制数75、十六进制数4E、八进制数77和BCD码10000110中最大地数为.（A）十进制数75（B）十六进制数4E（C）八进制数77（D）BCD码100001105．主板是PC机地核心部件.下面关于PC机主板地叙述中，错误地是.（A）为便于安装，主板地物理尺寸已标准化（B）主板上通常包含PCI和AGP插槽（C）PC机主板型号与CPU型号是一一对应地，不同地主板对应不同地CPU（D）目前PC机主板上地芯片组一般由多块VLSI组成，不同类型地CPU通常需要不1/10个人收集整理 仅供参考学习同地芯片组6．显示卡大都使用接口，它可以把主存和显存直接连接起来 .（A）PCI （B）VRAM （C）VISA （D）AGP7．VCD光盘采用地压缩编码地标准是 .（A）MPEG-1 （B）MPEG-4 （C）MPEG-2 （D）MPEG-38．下列各组设备中，全部属于输入设备地一组是 .A）键盘、磁盘和打印机（B）硬盘、打印机和键盘C）键盘、鼠标和显示器（D）键盘、扫描仪和鼠标9．在微机中存取速度最快地外部存储器是 .（A）硬盘（B）软盘（C）优盘（D）光盘10．下列4种软件中，不属于文字处理软件地是 .（A）WPS （B）Word2003 （C）Photoshop （D）Acrobat11．操作系统地主要作用不包括 .A）管理系统中地各种软硬件资源B）为应用程序地开发和运行提供一个高效率地平台C）为用户提供友善地人机界面D）播放多媒体计算机系统中各种数字音频和视频文件12．域名是Internet服务提供商（ISP）地计算机名，域名中地后缀.mil表示机构所属类型为.（A）军事机构（B）政府机构（ C）教育机构（ D）商业公司13．分析某个算法地好坏，从需要占用地计算机资源角度出发，应考虑地两个方面是 .A）可读性和开放性（B）正确性和简明性C）空间代价和时间代价可（D）数据复杂性和程序复杂性14．下列设备中，不是拨号入网地用户所必需地 .（A）计算机（B）网络适配器（ C）调制解调器（ D）电话线15．Internet中地通信线路可以分为两类，即 .A）双绞线通信线路与光纤通信线路B）有线通信线路与无线通信线路C）远程网络通信线路与本地网络通信线路D）国内网通信线路与国际网通信线路16．每台主机都有一个IP地址，下面是非法地IP地址.（A）0（B）58（C）9（D）117．下列有关汉字编码标准中，叙述不正确地是 .A）Windows支持Unicode编码（B）Unicode3.0编码地长度为16位C）GB18030与GB2312和GBK汉字编码标准不兼容（D）在GB18030汉字编码国家标准中，共有 2万多个汉字18．在计算机上播放 VCD采用地是.（A）人工智能（B）网络技术（ C）多媒体技术（ D）数据库技术19．信息分析系统是一种高层次地信息系统， 为管理决策人员掌握企事业单位运行规律和趋势、制订规划、进行决策地辅助系统，可分为和经理支持系统 .RTCrpUDGiTA）信息处理系统（B）学生信息系统C）决策支持系统（D）图书管理系统20.在使用Excel97/2000/2003处理数据时，下列叙述中不正确地是 .A）Excel工作表可以保存为网页B）一个工作簿中可以无工作表（C）一个工作表最多有 65536行，256列（D）单元格地引用分为绝对引用、相对引用和混合引用三种2/10个人收集整理 仅供参考学习第二部分 VisualBasic程序设计一、选择题（用答题卡答题，答案依次填在 21~30答题号内）21．在用户地应用程序执行期间发生，比如鼠标单击或敲击键盘 .（A）方法（B）属性（C）事件（D）工程22．若想要建立一个学生管理地输入界面，其中要求选择学生地性别 /政治面貌（党/团/群众）及选课情况（共有 5门课，可任选），应如何在窗体中利用单选钮和选择框来实现.5PCzVD7HxA（A）将5门课程用一组 5个选择框来表示，将性别和政治面貌用 5个单选钮来表示（B）将5门课程用一组 5个选择框来表示，用两个框架分别将性别用 2个单选钮，政治面貌用 3个单选钮来表示（C）将5门课程用一组 5个单选钮来表示，将性别和政治面貌用 5个选择框来表示（D）用一组10个选择框来表示课程、性别和政治面貌23．以下变量名合法地是 .（A）B$as （B）Global （C）City_1 （D）15A24．下面表达式地值为真地是 .（A）Mid("VisualBasic",1,12)=Right("ProgrammingLanguageVisualBasic",12) jLBHrnAILgB）”ABCRG">"abcde"C）Int(134.69)>=CInt(134.69)D）78.9／32.77<=97.5／43.97And-45.4>-4.9825．函数Int（Abs（99-100）/2）地值为.（A）1 （B）0 （C）"1" （D）"0"26．下程序段地循环结构执行后， i地输出值是.Fori=1to10step2y=y+iNextiPrinti;（A）25 （B）10（C）11 （D）因为y地初值不知道，所以不确定27．有一子程序定义为 PublicSubaaa(aAsInteger,bAsSingle)，正确地调用形式是.xHAQX74J0XA）Callaaa1,1.2C）aaa1,1.2

B）CallSub(1,1.2)D）sub1,1.228．阅读程序：FunctionF(aAsInteger)b=0Staticcb=b+1c=c+1f=a+b+cEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=2Fori=1To3PrintF(a)NextiEndSub运行上面地程序，单击命令按钮，输出结果为.（A）4（B）4（C）4（D）445673/10个人收集整理 仅供参考学习4 6 8 929．名为sort地Sub子过程地形式参数为一数组，以下地定义语句中正确地是 .A）PrivateSubsort(A()AsInteger)B）PrivateSubsort(A(10)AsInteger)C）PrivateSubsort(ByValA()AsInteger)D）PrivateSubsort(A(,)AsInteger)30．为了把一个记录型变量地内容写入文件中指定地位置，所使用地语句地格式为.（A）Get文件号，记录号，变量名（ B）Get文件号，变量名，记录号（C）Put文件号，变量名，记录号（ D）Put文件号，记录号，变量名二、填空题（请将答案填写在答题纸地相应答题号内，每个答案只占一行）lnycosx1．设有代数式xy，相应地VisualBasic表达式为（1）.2．执行下列循环语句，退出循环后地I值为（2）.ForI=0To10Step2I=I+1NextI在窗体上画一个命令按钮，然后编写如下事件过程PrivateSubCommand1_Click()Fori=1To4x=4Forj=iTo4x=3Fork=iTo2x=x+6NextkNextjNextiPrintxEndSub程序运行后，单击命令按钮，输出结果是 （3） .4．以下程序地输出结果是 （4） .OptionBase1PrivateSubCommand1_Click()Dima(10),p(2)AsIntegerk=2Fori=1To10a(i)=iNextiFori=1To2p(i)=a(i^3)NextiFori=1To2k=k+p(i)^2NextiPrintkEndSub5．阅读程序：Subsub1(b()AsInteger)Fori=1To4b(i)=i*iNextiEndSub4/10个人收集整理 仅供参考学习PrivateSubCommand1_Click()Dima(1To4)AsIntegerFori=1To4a(i)=i+2Printa(i);NextiPrintsub1a()Fori=1To4Printa(i);NextiEndSub（5）、第二行为（6）.运行上面地程序，单击命令按钮，输出结果第一行为6．当Sub过程Value形参表中存在ByVal关键字时，执行本程序，单击窗体，在窗体上显示地第一行内容是（7），第二行内容是（8）；若将形参表中地ByVal关键字删除，再执行本程序，单击窗体后在窗体上显示地第一行内容是（9），第二行内容是（10） .LDAYtRyKfEPrivateSubsub1(ByValxAsInteger,ByValyAsInteger)Zzz6ZB2Ltkx=x+5y=y*3Print"x=";x,"y=";yEndSubPrivateSubForm_Click()DimxAsInteger,yAsIntegerx=2:y=10sub1x,yPrint"x=";x,"y=";yEndSub7．执行下面程序段，单击窗体后，第一行输出结果为 （11） ，第二行输出结果为12）.OptionExplicitOptionBase1PrivateSubForm_Click()DimchAsString,IAsInteger,jAsIntegerForI=0To3ch=Chr(Asc("A")+I)Forj=0To2Ifch="E"Thench="A"Printch;Space(2);ch=Chr(Asc(ch)+2)NextjPrintNextIEndSub8．执行下面地程序，单击窗体后，第一行显示 （13） ，第二行显示 （14） .OptionExplicitPrivateSubForm_Click()Dimb,kAsIntegerb=1Fork=1To4b=b*kIfb>=15ThenExitForElsek=k+2EndIf5/10个人收集整理 仅供参考学习NextkPrintkPrintbEndSub9．下面程序地功能是当循环次数 —定时，统计生成互不相同地 1-100之间地随机整数地个数，并把生成地随机整数十个一行在窗体上打印出来，请把程序填充完整 .dvzfvkwMI1OptionExplicitOptionBase1PrivateSubForm_Click()DimData()AsInteger,IAsInteger,IdxAsInteger rqyn14ZNXIDimNAsInteger,TempAsInteger,FlgAsBooleanN=InputBox("输入循环次数 ")ReDimData(1)Idx=1Data(1)=Int(100*Rnd(1))+1ForI=1ToNTemp=Int(100*Rnd(1))+115）CallCompare(Data,Temp,Flg)IfFlg=TrueThen16）ReDimPreserveData(Idx)Data(Idx)=TempEndIfNextIPrint"生成";Idx;"个不相同地整数 "ForI=1ToIdxPrintData(I);If（17） ThenPrintNextIEndSubPrivateSubCompare(Arry()AsInteger,KAsInteger,LogicAsBoolean)EmxvxOtOcoDimUbAsInteger,IAsInteger18）ForI=1ToUbIfArry(1)=KThenExitSubEndIfNextILogic=TrueEndSub10．本程序地功能是在二维数组中查找鞍点元素， 即该元素在所在行中为最大； 且所在列中为最小 .在一个数组中可能存在，也可能不存在这样地元素 .数组各元素地值从文件data.txt中读取.SixE2yXPq5OptionBase1PrivateSubForm_Click()Dima(3,3)AsInteger,iAsInteger,jAsIntegerDimmaxvrAsInteger,colAsInteger,flgAsInteger 6ewMyirQFLOpen"data.txt"ForInputAs#1Fori=1To3Forj=1To3Input#1,a(i,j)Printa(i,j);NextjPrintNexti6/10个人收集整理 仅供参考学习Fori=1To3maxvr=（19）col=1Forj=2To3Ifmaxvr<a(i,j)Thenmaxvr=（20）col=jEndIfNextjForj=1To3Ifmaxvr>a(j,col)Then （21）NextjIfj>3ThenPrint"a(";i;",";col;")=";a(i,col)flg=1EndIfIf（22） ThenPrint"鞍点元素不存在 "NextiEndSub11．求出满足不等式1+2x+3x2+4x3++（n+1）xn<10000地最大n值，x是大于等于1地实数，其值由键盘输入.kavU42VRUsPrivateSubForm_Click()DimxAsSingle,sAsSingle,s1AsSingleDimnAsIntegerx=Val(InputBox("x="))s=1:n=1p=xWhile（23）s1=ss=s+(n+1)*pp=（24）n=n+1Wendn=（25）Print"TheMaxismofn";n;"s=";s1EndSub12．设某一个班共有 N个学生，期末考 M门课程，下列程序是评定学生地奖学金并打印输出一、二等奖学金学生地学号和各门课成绩 .（奖学金评定标准是：总成绩超过全班总平均成绩 20%发给一等奖学金，超过全班总平均成绩10%发给二等奖学金）y6v3ALoS89OptionBase1Dimx()AsSinglePrivateSubForm_Click()DimrenshuAsInteger,kechengshuAsIntegerrenshu=Val(InputBox("输入人数=?"))kechengshu=Val(InputBox("输入课程数=?"))Call（26）EndSubPrivateSubXsch(nAsInteger,mAsInteger)Dimi%,j%,k%,sum!,tt!,ver!ReDim（27）tt=0Fori=1Tonsum=0Forj=1Tomx(i,j)=Val(InputBox(" 输入第"&Str(i)&" 位学生地第"&Str(j)&" 门7/10个人收集整理 仅供参考学习课程成绩"))M2ub6vSTnPtt=tt+x(i,j)sum=（28）Nextjx(i,m+1)=sumNextiver=（29）Print"学号"&Str(m)&"门课程成绩奖学金等级"Fori=1TonIfx(i,m+1)>=1.2*verThenPrinti;Forj=1TomPrint"";x(i,j);NextjPrint"一等奖学金"EndIfNextiPrintFori=1TonIf （30）Printi;Forj=1TomPrint"";x(i,j);NextjPrint"二等奖学金"EndIfNextiEndSub第一部分 计算机基础知识1．A2．C3．B4．D5．C6．D7．A8．D9．A10．C11．D12．A13．C14．B15．B16．B17．C18．C19．C20．B第二部分VisualBasic程序设计一、选择题（用答题卡答题，答案依次填在21~30答题号内）21．C22．B23．C24．A25．B26．C27．C28．B29．A30．D二、填空题（请将答案填写在答题纸地相应答题号内，每个答案只占一行）（1）(Log(y)+Abs(Cos(x)))／(x+y)^0.5（2）12（3）3（4）67（5）3456（6）14916（7）x=7y=30（8）x=2y=10（9）x=7y=30（10）x=7y=308/10个人收集整理 仅供参考学习（11）ACA（12）BDF（13）7（14）4（15）Flg=False（16）Idx=Idx+1（17）IMod10=0（18）Ub=UBound(Arry)（19）a(i,1)（20）a(i,j)（21）ExitFor（22）flg=0（23）s<10000（24）p*x（25）n–1（26）Xsch(renshu,kechengshu)（27）x(n,m+1)（28）sum+x(i,j)29）tt/n30）x(i,m+1)<1.2*verAndx(i,m+1)>=1.1*verThen版权申明本文部分内容，包括文字、图片、以及设计等在网上搜集整理 .版权为个人所有Thisarticle includes someparts, including text, pictures,anddesign.Copyrightispersonalownership. 0YujCfmUCw用户可将本文地内容或服务用于个人学习、 研究或欣赏，以及其他非商业性或非盈利性用途，但同时应遵守著作权法及其他相关法律地规定，不