二级VB笔试模拟试题及答案2

全国高等学校（安徽考区）计算机水平考试试卷B（二级VisualBasic语言）一、单项选择题（每题1分，共40分）1．计算机硬件系统中最核心的部件是1。A）内存储器B）输入/输出设备C）CPUD）硬盘2．计算机最早的应用领域是2。A）科学计算B）图形处理C）过程控制D）人工智能3．下列属于文字处理软件的是3。A）WindowsB）WordC）PowerPointD）Excel4．在计算机系统内部，所有数据都是采用4表示。A）十六进制B）十进制C）八进制D）二进制5．在Windows系统中，下面文件命名合法的是5。A）A*.DOCB）AB.DOCC）A?.DOCD）A.DOC6．计算机可以播放DVD等音像制品,主要运用的是6技术。A）多媒体B）人工智能C）数据库D）数据挖掘7．将文件从FTP服务器传输到本地计算机的过程称为7。A）上传B）浏览C）查找D）下载8．下列IP地址中，错误的是8。A）219.231.10.155B）192.168.5.1C）219.260.20.12D）192.10.6.79．下列关于计算机病毒的叙述中，正确的是9。A）加密文件不会感染计算机病毒B）系统软件不会感染计算机病毒C）有防火墙的计算机系统也会感染病毒D）压缩的文件不会感染计算机病毒10．计算机能直接运行的是10。A）目标程序B）机器语言程序C）汇编语言程序D）高级语言程序11．下列选项中是VisualBasic的合法变量名的是C。A）1_abcB）abc-1C）abc_1D）abc.112．对正整数X、Y，有下列表达式，不能判断X能被Y整除的是C。A）X/Y=Int(X/Y)B）XModY=0C）X\Y=Fix(X/Y)D）X\Y=X/Y13．下面可以正确定义2个整形变量和一个字符型变量的语句是B。A）Dimx,yAsInteger,nAsStringB)Dimx%,yAsInteger,nAsStringC)Dimx%,y$,nAsStringD)DimxAsInteger,y,nAsString14．下面表达式中，A的运算结果与其他三个不同。A）Exp(-3.5)B）Int(-3.5)+0.5C）-Abs(-3.5)D）Sgn(-3.5)-2.515．将任意一个正的两位整数N的个位数与十位数对换的表达式为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．执行语句s=Mid(VisualBasic,1,6)后，s的值是A。A)VisualB)BasicC)6D)1117．表达式5Mod3+3\5*2的值是B。A）0B）2C）4D）618．选拔性别S是女，身高T超过1.6米且体重W小于62.5公斤的人，表示该条件的表达式为C。A)S=女AndT=1.6AndW=62.5B)S=女OrT1.7OrW62.5C)S=女AndT1.6AndW62.5D)S=女OrT=1.7OrW=62.519．可以强行中断程序运行的操作是DA)按Ctrl+C键B)按Ctrl+Z键C)按Ctrl+V键D)按Ctrl+Break键20．在默认条件下有数组声明语句：DimA(2,-2to2,3)，则数组A包含D个元素。A)200B)120C)75D)6021．已设置数组元素下标从1开始，下列程序段运行时会提示出错，出错的原因是C。a=Array(1,2,3,4)Fori=4To1Step-1Printa(i)NextiPrinta(i)A）第三行，数组元素a(i)下标越界B）第一行，数组没定义，不能直接赋值C）第五行，数组元素a(i)下标越界D）第二行，循环语句格式不对22．下列语句不合法的是D。A）x=1:y=2B）Printx;y;C）Printx,y,D）x=1;y=223．当0x10时，将x赋值给y，应使用语句C。A)If0x10Theny=xB)If0xOrx10Theny=xC)If0xAndx10theny=xD)If0xXorx10Theny=x24．以下叙述中正确的是A。A)窗体的Name属性指定窗体的名称，用来标识一个窗体B)窗体的Name属性值是显示在窗体标题栏中的文本C)可以在运行期间改变对象的Name属性值D)对象的Name属性值可以为空25．当启动程序时，系统自动执行启动窗体的A事件过程。A)LoadB)UnloadC)ClickD)DblClick26．将数据项China添加到列表框List1中成为第3项，应使用B语句。A）List1.AddItemChina，3B）List1.AddItemChina，2C）List1.AddItem3，ChinaD）List1.AddItem2，China27．若要使标签框的大小自动与所显示的文本相适应，则可通过设置其A属性值为True来实现。A）AutoSizeB）AlignmentC）AppearanceD）Visible28．复选框或单选按钮的当前状态通过A属性来设置或访问。A)ValueB)CheckedC)SelectedD)Caption29．要将列表框List1中当前选中的一项删除，应执行的语句是D。A)List1.ClearB)list1.ClearList1.ListIndexC)List1.DeleteList1.ListIndexD)List1.RemoveItemList1.ListIndex30．下列控件可以用作其他控件容器的有D。A)窗体，标签，图片框B)窗体，框架，文本框C)窗体，图像，列表框D)窗体，框架，图片框31．因修改文本框的内容而触发的事件是A。A)ChangeB)GotFocusC)LostFocusD)SetFocus32．如果每秒触发10次计时器的Timer事件，那么计时器的Interval属性应设为C。A)1B)10C)100D)100033．下列对象中不能获得焦点的是B。A）命令按钮控件B）标签控件C）文本框控件D）单选按钮控件34．设x=4，y=8，z=7，表达式xyAnd(Notyz)Orzx的值是D。A）1B）-1C）TrueD）False35．在设计阶段，双击窗体Form1的空白处，则在代码窗口打开B事件过程代码。A）Form_ClickB）Form_LoadC）Form_DblClickD）Form_Unload36．如下有一段不完整的程序段，若要求该程序执行3次循环，则在程序中的空白处填入A。X=1Dox=x+3:PrintxLoopUntilA）x=8B）x=8C）x=7D）x=737．执行语句OpenD:\RandFile.datForOutputAs#1后，对文件“D:\RandFile.dat”能够进行的操作是B。A）只能读不能写B）只能写不能读C）既可以写，也可以读D）既不能读，也不能写38．要在运行时暂时关闭计时器，可通过赋值语句使计时器的C属性值为False。A）IndexB）TagC）EnableD）Interval39．VisualBasic中数据库的访问技术不包括D。A）ADOB）DAOC）RDOD）DBMS40．下列关于菜单的论述中，错误的是DA）菜单项是控件，也具有属性B）菜单项只有Click事件C）不能在顶层菜单加快捷键D）在程序运行过程中，不能通过赋值语句设置菜单项的属性二、填空题（每空2分，共20分）1.数学表达式32()()()xytutxy的VisualBasic表达式是：(1)。2.关系式-7.5≤x≤7.5所对应的逻辑表达式是：(2)。3.以下程序用于判断输入的年份是否闰年，如果年份能被4整除但不能被100整除,或者年份能被400整除，则该年是闰年，否则不是闰年，请填空完善程序。PrivateSubCommand1_Click()y=Val(InputBox(请输入一个年份))If(3)OryMod400=0ThenPrintStr(y)&年是闰年！ElsePrintStr(y)&年不是闰年！EndIfEndSub4.利用随机函数产生20个[10,90]之间的随机整数，每行输出4个整数。填空完成以下程序。PrivateSubForm_Click()DimsumAsInteger,xAsIntegerRandomizeFori=1To20x=(4)'用随机函数产生[10~90]之间的整数Printx;If(5)ThenPrint'满足换行条件时换行NextiEndSub5.下列程序的功能是在数组中找出数值最大的元素，请填空完善程序。PrivateSubCommand1_Click()Dimarr1asVariant,MaxAsIntegerarr1=Array(12,34,10,78,4,89,45)Max=arr1(0)Fori=1To(6)Ifarr1(i)MaxThenMax=(7)EndifNextiPrint最大值是：;MaxEndSub6.下列程序的功能是计算22222123(1)sumNN（N是偶数），试填空完成以下程序。PrivateSubCommand2_Click()DimSAsDoubleDimIAsInteger,NAsIntegerDimCAsIntegerS=0:I=1:C=1N=Val(InputBox(请输入大于零的偶数N：))DoS=S+C*I*IC=(8)'正负号切换I=(9)'循环变量增加LoopWhile(10)'循环结束条件EndSub三、阅读理解题（每小题4分，共20分）1．执行下列程序后，输出的结果是：(1)PrivateSubForm_Click()DimxAsIntegerx=10SelectCasexCaseIs=10Printx&xCase7,8,9Printx+xCase0To6PrintxEndSelectEndSub2．执行下列程序后，输出的结果是：(2)PrivateSubForm_Click()DimiAsIntegerDimtAsStringst=Fori=1To12'字符串逐字符处理IfiMod3=0Thenst=Mid(VisualBasic,i,1)+stEndIfNextiPrintstEndSub3．执行下列程序后，输出的结果是：(3)PrivateSubForm_Click()DimsAsInteger,nAsIntegers=0n=1Dos=s+n*nIfs50ThenExitDo'强制跳出循环EndIfn=n+1'循环变量自增LoopUntiln6PrintsEndSub4．执行下列程序后，输出的结果是：(4)OptionBase1PrivateSubForm_Click()Dima(4,4)AsIntegerDimiAsInteger,jAsIntegerDimcountAsInteger,sAsIntegercount=1Fori=1To4'给二维数组赋值并累加特殊位置的元素值Forj=1To4a(i,j)=countcount=count+1Ifi=1Ori=4Orj=1Orj=4Thens=s+a(i,j)EndIfNextjNextiPrintsEndSub5．执行下列程序后，E盘下tdata.txt文件中的内容是：(5)PrivateSubForm_Click()Fori=1To5s=s+fun(i)NextiOpene:\tdata.txtForOutputAs#1'打开顺序文件Print#1,sClose#1EndSubPrivateFunctionfun(ByValiAsInteger)AsIntegerStaticaa=a+1fun=a*iEndFunction四、编程题（共20分）1．编写一个Function函数fun，求解如下分段函数的值（x为实型变量的函数形参）（6分）2．编写程序，利用随机函数产生10个[10，100]之间