2023年安徽省计算机二级VB笔试权威模拟试题及答案

全国高等学校（安徽考区）计算机水平考试试卷（二级VisualBasic语言）一、单项选择题（每题1分，共40分）1．计算机硬件系统中最核心的部件是C。 A）内存储器 B）输入/输出设备 C）CPU D）硬盘2．计算机最早的应用领域是A。 A）科学计算 B）图形解决 C）过程控制 D）人工智能3．下列属于文字解决软件的是B。 A）Windows B）Word C）PowerPoint D）Excel4．在计算机系统内部，所有数据都是采用D表达。 A）十六进制 B）十进制 C）八进制 D）二进制5．在Windows系统中，下面文献命名合法的是B。 A）A*.DOC B）AB.DOC C）A?.DOC D）A>.DOC6．计算机可以播放DVD等音像制品,重要运用的是6技术。 A）多媒体 B）人工智能 C）数据库 D）数据挖掘7．将文献从FTP服务器传输到本地计算机的过程称为D A）上传 B）浏览 C）查找 D）下载8．下列IP地址中，错误的是C。 A）55 B） C）219.260.20.12 D）9．下列关于计算机病毒的叙述中，对的的是C。 A）加密文献不会感染计算机病毒 B）系统软件不会感染计算机病毒 C）有防火墙的计算机系统也会感染病毒 D）压缩的文献不会感染计算机病毒10．计算机能直接运营的是B。 A）目的程序 B）机器语言程序 C）汇编语言程序 D）高级语言程序11．下列选项中是VisualBasic的合法变量名的是C。 A）1_abc B）abc-1 C）abc_1 D）abc.112．对正整数X、Y，有下列表达式，不能判断X能被Y整除的是C。 A）X/Y=Int(X/Y) B）XModY=0 C）X\Y=Fix(X/Y) D）X\Y=X/Y13．下面可以对的定义2个整形变量和一个字符型变量的语句是B。 A）Dimx,yAsInteger,nAsString B)Dimx%,yAsInteger,nAsString C)Dimx%,y$,nAsString D)DimxAsInteger,y,nAsString14．下面表达式中，A的运算结果与其他三个不同。 A）Exp(-3.5) B）Int(-3.5)+0.5 C）-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)Visual B)Basic C)6 D)1117．表达式5Mod3+3\5*2的值是B。 A）0 B）2 C）4 D）618．选拔性别S是女，身高T超过1.6米且体重W小于62.5公斤的人，表达该条件的表达式为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．可以强行中断程序运营的操作是D A)按Ctrl+C键 B)按Ctrl+Z键 C)按Ctrl+V键 D)按Ctrl+Break键20．在默认条件下有数组声明语句：DimA(2,-2to2,3)，则数组A包含D个元素。 A)200 B)120 C)75 D)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=2 B）Printx;y; C）Printx,y, D）x=1;y=223．当0<x<10时，将x赋值给y，应使用语句C。 A)If0<x<10Theny=x B)If0<xOrx<10Theny=x C)If0<xAndx<10theny=x D)If0<xXorx<10Theny=x24．以下叙述中对的的是A。 A)窗体的Name属性指定窗体的名称，用来标记一个窗体 B)窗体的Name属性值是显示在窗体标题栏中的文本 C)可以在运营期间改变对象的Name属性值 D)对象的Name属性值可认为空25．当启动程序时，系统自动执行启动窗体的A事件过程。 A)Load B)Unload C)Click D)DblClick26．将数据项"China"添加到列表框List1中成为第3项，应使用B语句。 A）List1.AddItem"China"，3 B）List1.AddItem"China"，2 C）List1.AddItem3，"China" D）List1.AddItem2，"China"27．若要使标签框的大小自动与所显示的文本相适应，则可通过设立其A属性值为True来实现。 A）AutoSize B）Alignment C）Appearance D）Visible28．复选框或单选按钮的当前状态通过A属性来设立或访问。 A)Value B)Checked C)Selected D)Caption29．要将列表框List1中当前选中的一项删除，应执行的语句是D。 A)List1.Clear B)list1.ClearList1.ListIndex C)List1.DeleteList1.ListIndex D)List1.RemoveItemList1.ListIndex30．下列控件可以用作其他控件容器的有D。 A)窗体，标签，图片框 B)窗体，框架，文本框 C)窗体，图像，列表框 D)窗体，框架，图片框31．因修改文本框的内容而触发的事件是A。 A)Change B)GotFocus C)LostFocus D)SetFocus32．假如每秒触发10次计时器的Timer事件，那么计时器的Interval属性应设为C。 A)1 B)10 C)100 D)100033．下列对象中不能获得焦点的是B。 A）命令按钮控件 B）标签控件 C）文本框控件 D）单选按钮控件34．设x=4，y=8，z=7，表达式x<yAnd(Noty>z)Orz<x的值是D。A）1 B）-1 C）True D）False35．在设计阶段，双击窗体Form1的空白处，则在代码窗口打开B事件过程代码。A）Form_ClickB）Form_LoadC）Form_DblClickD）Form_Unload36．如下有一段不完整的程序段，若规定该程序执行3次循环，则在程序中的空白处填入A。X=1Dox=x+3:PrintxLoopUntilA）x>=8 B）x<=8 C）x>=7 D）x<=737．执行语句Open"D:\RandFile.dat"ForOutputAs#1后，对文献“D:\RandFile.dat”可以进行的操作是B。 A）只能读不能写 B）只能写不能读 C）既可以写，也可以读 D）既不能读，也不能写38．要在运营时暂时关闭计时器，可通过赋值语句使计时器的C属性值为False。A）Index B）Tag C）Enable D）Interval39．VisualBasic中数据库的访问技术不涉及D。 A）ADO B）DAO C）RDO D）DBMS40．下列关于菜单的论述中，错误的是DA）菜单项是控件，也具有属性B）菜单项只有Click事件C）不能在顶层菜单加快捷键D）在程序运营过程中，不能通过赋值语句设立菜单项的属性 二、填空题（每空2分，共20分）1.数学表达式的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.下列程序的功能是计算（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*nIfs>50ThenExitDo '强制跳出循环EndIfn=n+1 '循环变量自增LoopUntiln>6PrintsEndSub4．执行下列程序后，输出的结果是：(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)NextiOpen"e:\tdata.txt"ForOutputAs#1 '打开顺序文献Print#1,sClose#1EndSubPrivateFunctionfun(ByValiAsInteger)AsIntegerStaticaa=a+1fun=a*iEndFunction四、编程题（共20分）1．编写一个Function函数fun，求解如下分段函数的值（x为实型变量的函数形参）（6分）Y=Y=-xx<0x20≤x≤10100x>102．编写程序，运用随机函数产生10个[10，100]之间的整数，并存入数组中，求出该数组中最大数与最小数之差并在窗体上输出结果。（7分）3．假定在E盘下有一文献data.dat，其内容为三个点的坐标，内容样式如下4,84,82,63,8每一行的前1个数据表达点的横坐标x，后一个数据表达点的纵坐标y。编写程序读取文献中的数据，并判断该三点能否构成三角形。（7分）提醒：运用任意两边之和大于第三边来鉴定三角形。边长L=，其中（x1,y1）及（x2,y2）为两点坐标。《VisualBASIC程序设计（语种代号：211）》（B）卷参考答案及评分标准一、单项选择题（每题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说明：不区分大小写，其他答案只要对的参照给分。三、阅读理解题（每小题4分，共20分）序号参考答案评分标准110102cals3554102530注：其他情况酌情给分

四、编程题（共20分）序号参考程序评分标准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"最大及最小数之差为";m