2012江苏省计算机二级vb全真模拟八套

江苏省高等学校非计算机专业学生计算机基础及应用能力等级考试试卷二级VisualBasic全真模拟试卷（本试卷包括计算机基础知识部分和程序设计部分,考试时间共120分钟）说明:.本试卷满分为60分,分选择题和填空题,试卷不分A、B类型。.选择题用答题卡答题。每ー项有A、B、C、D四个可供选择的答案,请选择其中一个你认为正确的答案,用HB铅笔涂写在答题卡的相应答题号内.每选对ー项得1分,不选或选错不得分.3,填空题用答题纸答题。请将答案填写在答题纸的相应答题号内,每个答案只占一行,不得换行.每填对ー个答案得1分,不填或填错不得分..请认真填写并仔细核对答题卡和答题纸上的学校名称、准考证号和姓名是否填写正确。第一部分计算机基础知识1.在下列关于信息系统的叙述中,错误的是1 。A.广播/电视是ー种双向的、点到多点的信息交互系统B.网络聊天是一种双向的、以信息交互为主要目的的系统C,电话是ー种双向的、点对点的、以信息交互为主要目的的系统D.Internet是ー种踏越全球的多功能信息系统.下面关于集成电路（IC）的叙述中正确的是 2。A.集成电路是20世纪60年代出现的B.按用途可分为通用和专用两大类,微处理器和存储器芯片都属于专用集成电路C.现代微电子技术已经用碑化银取代了硅D.集成电路的工作速度与组成逻辑门电路的晶体管尺寸有密切关系.交换技术是指使用交换设备实现多对终端设备之间的互连，以满足多用户通信的需要，下面对于交换技术的说法中，正确的是 3 。A.交换技术只有电路交换和分组交换两种类型B,分组交换方式的线路利用率很低C,电路交换采用存储转发方式传输数据D.目前广域网中普遍采用的交换技术是分组交换.计算机中的数值信息分成整数和实数（浮点数）。实数之所以能表示很大或很小的数,是由于使用了 4 。A.阶码 B,反码C.补码D.BCD码5.下列存储器中,速度最快的是 5 。A.内存 B,寄存器B,外存D.高速缓存6.下列关于USB接口的叙述中，错误的是6〇A.利用“USB集线器”,一个USB接口能连接多个设备B.USB的中文含义是通用串行总线C.鼠标器这样的慢速设备不能使用USB接口D.USB接口有两种规格,2.0版的数据传输速率要比1.1版快得多.数码相机的镜头和快门与传统相机基本相同，不同之处是它不使用光敏卤化银胶片成像,而是将影像聚焦在成像芯片（ 7或CMOS）±,并由成像芯片转换成电信号,再经模数转换变成数字图像。A.BIOS B.NBC C.CCD D.ABC.下列关于打印机的叙述，错误的是8 。A.喷墨打印机属于非击打式打印机,它的优点是能输出彩色图像、经济、低噪音、打印效果好等B.目前激光打印机分为黑白和彩色两种C.针式打印机属于击打式打印机,由于打印质量不高,噪音大,现已逐渐退出市场,但其独特的平推式进纸技术,在打印存折和票据方面具有不可替代的优势D.打印精度也就是打印机的分辨率,它用CPS来表示.下面几种说法中正确的是 9 。CD-RW为可多次读但只可写1次的光盘CD-R和CD-ROM类似，都只能读不能写CD盘记录数据的原理为:在盘上压制凹坑，凹坑边缘表“。”，凹坑和非凹坑的平坦部分表示“1”DVD采用了更有效的纠错编码和信号调制方式，比CD可靠性更高.面向电子出版的最流行的软件是ー^公司的Acrobat,它使用PDF格式将文字、字型、格式、颜色、图形、图像、超文本连接、声音和视频等信息都封装在ー个文件中,不仅适合于网络和电子出版,也适合于印刷出版，实现了纸张印刷和网络出版的统ー。A.Microsoft B.MacromediaC.Adobe D.IBMH.下列关于操作系统任务管理的说法,错误的是ーII〇Windows操作系统支持多任务处理B.分时是指将CPU时间划分成时间片，轮流为多个程序服务C.并行处理可以让多个处理器同时工作，提高计算机系统的效率D,分时处理要求计算机必须配有多个CPU.下面有关PCI总线的叙述中,错误的是 12 。PCI总线是ー种!/O总线PC1总线的速度比ISA总线快PCI总线的宽度为32位，不能扩充到64位PCI总线能与其他1/O总线共存于PC系统中TOC\o"1-5"\h\z.程序中的控制成分是提供一个基本框架,从而将数据和对数据的运算组合成程序。这个框架都可以用三种基本控制结构来描述,三种结构不包括 利。A.多分支结构 B.顺序结构C.重复结构 D.选择结构.Internet的三项主要服务项目是英文缩写是 14 。A.E-mail,FTP,WWW B. Web, LAN, HTMLC.ISP,HUB,BBS D.TCP/IP,FTP,PPP/SLIP.下面对于广域网接入技术说法中，错误的是15 。A.电话拨号接入一定要“猫”才行FTTx+ETTH上网速度最快C.目前ADSL是接入因特网的主要方式之一D.CableMODEM上网不仅速度快而且数据传输速率稳定. 16 把相距遥远的许多局域网和计算机用户互相连接在ー起,它的作用范围通常可以从几十公里到几千公里,甚至更大的范围，也称为远程网。A.公司网 B.WAN C.LAN D.小型网.数据库管理系统提供给用户的接口是 17 。A.宿主语言 B.过程化语言C.数据库语言 D.面向对象语言.是“江苏省高等学校计算机等级考试中心’’的网址。其中,“http"是指 !8〇A."超文本传输协议 B.文件传输协议C.计算机主机域名 D.TCP/IP协议.信息系统是多种多样的,从信息处理的深度进行划分,决策支持系统属于19。A.业务信息处理系统 B.信息检索系统C.信息分析系统 D,专家系统.下面对MierosfbtExeel(97及以后版本)的说法中，错误的是20 。A.Exeel的单元格中可以是文字、数字或公式等B.当打开ー个Exeel工作簿时,只是包含有数据的工作表被打开Exeel工作表最多有65536行Excel工作表可以保存为文本文件第二部分VisualBasic程序设计ー、选择题(用答题卡答题,答案依次填在21〜30答题号内).x,y是整数型变量，z产生一个范围在［y,xl之间的随机整数的语句是 21A.z=Int(Rnd*(y-x+1))+x B.z=Int(Rnd*y)+xC.z=Int(Rnd*x)+y D.z=Int(Rnd*(y-x))+x.默认Value属性的控件是22 。A.单选框 B.文本框 C.标签框 D.列表框.在图1中，要在窗体Forml上部有“程序示例''字样,窗体属性应设置为23图1A.Forml.Name="程序示例" B.Forml.Enabled="程序示例"C.Forml.Caption="程序示例" D.Forml.Show="程序示例".设整型变量a、b的当前取值分别为200与20,以下赋值与句中不能正确执行的是24=A.Textl=a/b*a B.Textl=a*a/bC.Textl="200"*a/b D.Textl=a&b&a.在数据文件中，Reset语句的功能是 25 0A.重新设置文件的文件号 B.关闭所有用Open语句打开的文件C,更改将要打开文件的类型 D.文件指针复位.运行下列程序:PrivateSubfonn_Click()x=8:y=2Callfiin1((x),y)

Printx,yEndSubPrivateSubfun1(x,y)s=xx=s/yy=sModyEndSub単击窗体后,则在窗体上显示的结果是ーA.42 B.82260C.80D.2427.运行下列程序:PrivateSubForm_Click()DimyAsInteger,xAsIntegerDoUntilx>20x=x+10y=y+xIfx>20ThenExitDoLoopPrintx,yEndSub单击窗体后,则在窗体上显示的结果是ー27A.1020 B.30 60C.1030D.20 6028.运行下列程序:PrivateSubForm_Click()Fori=1To20Iffunl(i)Thens=s+1EndIfNextiPrintsEndSubPrivateFunctionfun1(y)AsBooleanIfyMod2〇0Thenfunl=FalseElsefunl=TrueEndIfEndFunction单击窗体后,则在窗体上显示的结果是ー280A.110 B.10C.0D.2029.运行下列程序:PrivateSubForm_Click()DimaAsIntegera=1Fori=1To5Callfun1(a)NextiPrintaEndSubPrivateSubfunl(x)y=2Dox=x+yLoopUntilx>10EndSub单击窗体后,则在窗体上显示的结果是^^^。A.5 B.12345C.19 D.730.运行下列程序:DimbPrivateSubForm_Click（）a=1:b=1Callfun1（a）PrintHX=M;a;",Y="；bEndSubPrivateSubfun1（a）b=2*aa=3*bEndSub单击窗体后,则在窗体上显示的结果是ー30 0A.X=1,Y=1 B.X=2,Y=6C.X=6,Y=2 D.X=6,Y=1二、填空题（请将答案填写在答题纸的相应答题号内,每个答案只占一行）（每空1分,共30分）.VB6.0的赋值语句为变量或属性赋值,为对象引用赋值必须使用 （1） 0.设Label控件的边框样式,可用的属性是.（2） 0.标签控件中,要更改文字对齐方式的属性项是.若要求从文本框中输入密码时在文本框中只显示“*”号,则应当在此文本框的属性窗口中设置」（4） 属性值为"け.运行下列程序:PrivateSubForm_Click（）DimsiAsString,s2AsStringxl=T:x2="2"x3="3“：x4="4"=xl+x3=x2+x4Debug.Printsl;Val（s2）EndSub单击窗体后,则在立即窗口上输出的结果是ー（5）。6.下列程序运行时,单击Command1命令按钮,在窗体上打印的结果是」PrivateSubCommand1_Click（）DimaAsInteger,iAsInteger,cAsIntegera=1c=38Fori=1To2SelectCasec\10Case0c=a*10+cCase1To9c=a*100+cCase10To99c=a*1000+cEndSelectNextiPrintcEndSub.下列程序运行时,单击Command1命令按钮,在窗体上打印的结果是 （7）〇PrivateSubCommandl_Click()DimaAsInteger,bAsInteger,rAsIntegera=45:b=18Printfiinl(a,b)EndSubPrivateFunctionfiinl(xAsInteger,yAsInteger)AsIntegerDimrAsIntegerr=xModyDoWhiler<>0x=y:y=rr=xModyLoopfunl=yEndFunction.下列程序运行时,单击Command1命令按钮,在窗体上打印结果的第一行、第二行和第三行分别是 (8)ヽ(9)和(10)。PrivateSubCommand1_C1ick()a=2b=3Doa=a+bPrintab=b+1Ifa>=10ThenExitDoEndIfLoopWhileb<=10EndSub.执行下面的程序后,单击按钮Commandl后,在窗体上显示的结果为 (11)〇当把子函数中A语句和B语句的位置交换以后,则在窗体上显示的结果又为 (12)。OptionExplicitDimtAsIntegerPrivateSubCommandI_Click()DimxAsInteger,yAsIntegerx=1:y=1Fort=1To5IftMod2=0Theny=fun(t,x)+xElsex=fun(t,y)+yEndIfNexttDebug.Printt;x;yEndSubPrivateFunctionfun(nAsInteger,mAsInteger)AsIntegerm=n-1+1 语句n=m+n-t 4B语句fiin=m*nEndFunction.下列程序的功能是:由系统产生10个10〜99之间的无序数,在图片框Picturel中显示出来。对其去掉一个最大数和最小数,然后求其平均值,在文本框中Textl中显示出来。运行后如图2所示,给定的程序不完整,将程序补充完整。OptionBase1PrivateSubForm_Click()DimiAsInteger,MaxAsInteger,MinAsIntegerDima(l0)AsInteger,sumAsIntegerRandomizeFori=1ToUBound(a)a(i)= (13)Picture1.Printa(i);NextiMax=a(l):Min=a(l):sum=a(l)Fori=2ToUBound(a)IfMax<a(i)ThenMax=a(i)IfMin>a(i)ThenMin=a(i)sum=sum+a(i)Nextisum=sum-Max-MinTextI.Text="去掉最大数和最小数后的平均值="& (⑷EndSub•求平均数10954211516364803660去掉最大数和最小数后的平均值二59.125图2.下列程序的功能是:用对话框分别输入三个正整数后,在图片框Piel中显示三个由大到小排序的数据。给定的程序不完整,将程序补充完整。PrivateSubForm_Click()DimaAsInteger,bAsInteger,cAsIntegera=InputBox("请输入ー个正整数a”)b=InputBox,请输入ー个正整数b”)c=InputBox。请输入ー个正整数e”)If(15)Thent=aa=bb=tEndIfIf(16)Thent=bb=cc=tEndIfIf(17)Thent=aa=bb=tEndIfPiel.Printa;b;cEndSub.在下列程序中,数组s为某门课程的分数,程序功能是统计各个分数段的人数,统

计后结果如图3所示。给定的程序不完整,將程序补充完整。•分数茨计9〇〜1。〇分的人数カ〇80〜90分的人数为270〜8。分的人数为460〜ア0分的人数为35a〜6。分的人数为140〜50分的人数为1退出ー3G〜4。分的人数为1退出ー20〜30分的人数为〇10〜2。分的人数为00〜10分的人数为〇OptionBase1PrivateSubCommand1_Click()DimageAsIntegerDima(10)AsIntegerDimn,ss=Array(75,86,63,87,94,51,72,93,82,70,45,88)Fori=1ToUBound(s)a(s(i)\10)= (18)NextiFori=UBound(a)To1Step-1”分的人数为“&(21) ,a(3,List1,AdditemStr((i-1)*10)&””分的人数为“&(21) ,a(3,NextiEndSubPrivateSubCommand2_C1ick()UnloadMeEndSub.下列程序执行结束后,a(l,1)的侑是ー(20) ,a(2,2)的值是.3)的值是ー(22) 0OptionBase1PrivateSubForm_Click()DimiAsInteger,jAsIntegerDima()AsInteger,nAsIntegern=3ReDima(n,n)Fori=1TonForj=1Tona(i,j)=i+jNextjNextiCallSubl(a,n)EndSubPrivateSubSubl(y()AsInteger,nAsInteger)DimiAsInteger,jAsIntegerDimtAsIntegerFori=1TonForj=1Tont=y(i,j)y(i,j)=y(n+1-j,n+1-j)y(n+1-j,n+1-j)=tNextj

NextiEndSub.下列程序的功能是,随机产生6x6个具有两位数的矩阵,并找出每行最大数,如图4所示。给定的程序不完整，将程序补充完整。PrivateSubCommand1_C1ick()Dima(6,6)AsIntegerRandomizeFori=1To6Forj=ITo6a(i,j)=Int(90*Rnd)+10NextjNextiFori=1To6Max= (23)pic1.PrintMax;Forj=2To6pic1.Printa(i,j);IfMax<a(i,j)Then (24)Nextjpic1.PrintH|M;MaxNextiEndSub.英国大数学家哈代(GH.Hardy,1877〜1947)曾经发现过ー种有趣的现象:153=13+53+33 371=33+73+13 37O=33+73+O3 407=43+03+73它们都是三位数且等于各位数字的三次幕之和,被称为3次竊回归数。下列程序是验证改现象的结果,如图5所示。给定的程序不完整,将程序补充完整。•Forml33335770++•Forml33335770++++3333301715373740+1丐+3A3+3へ3+4”3OptionBase1PrivateSubCommand1_Click()Dimb(3)AsIntegerFori= (25)Callfunl(b,i)s=b(l)人3+b(2)人3+b(3)人3Ifs=iThenPiel.Printi;"="；b(l);MA3+”;b(2);MA3+“；b(3);“A3”EndIfNextiEndSubPublicSubfun1(b, (26))Fori=1To3b(i)=0Nextik=1Dob(k)=xMod10x=x\10(27)LoopWhilex>0EndSub16.下列程序的功能是:找出2〜100之间所有的既是素数,又是降序数,并在列表框Listl中输出,所谓降序数是指低位数字小于高位数字的数。例如31、4I均是降序数,17不是降序数,程序执行后如图6所示。给定的程序不完整,将程序补充完整。•求降序数的素数11314143536171PrivateSubForm_Click()DimnAsLong,mAsLong,kAsIntegerForn=2To100Iffiinl(n)=TrueThenflg=1(28)a=mMod10DoWhilem〇0m=m\10b=mMod10Ifb<aAndm〇0Thenfig=0: (29)a=bLoopIffig=1ThenListl.AdditemnEndIfNextnEndSubPrivateFunctionfunl(nAsLong)AsBooleanDimmAsIntegerForm=2ToSqr(n)IfnModm=0ThenExitFunctionNextm(30)EndFunction二级VisualBasic全真模拟试卷ー参考答案ー、选择题:ADDABCCDDCDCAADBCACBAACBBCBBCC二、填空题:Set语句BorderstyleAlignmentpasswordchar132411389591487561017017lnt(Rnd*90)+10Str(sum/8)a<bb<ca<ba(s(i)\10)+lStr(a(i))455a(i,l)Max=a(i,j)100To999ByVaixk=k+lm=nExitDofunl=True江苏省高等学校非计算机专业学生计算机基础及应用能力等级考试试卷二级VisualBasic全真模拟试卷二（本试卷包括计算机基础知识部分和程序设计部分,考试时间共120分钟）说明:.本试卷满分为60分,分选择题和填空题,试卷不分A、B类型。.选择题用答题卡答题。每ー项有A、B、C、D四个可供选择的答案,请选择其中一个你认为正确的答案,用HB铅笔涂写在答题卡的相应答题号内.每选对ー项得1分,不选或选错不得分。.填空题用答题纸答题。请将答案填写在答题纸的相应答题号内,毎个答案只占一行,不得换行。每填对ー个答案得1分,不填或填错不得分。.请认真填写并仔细核对答题卡和答题纸上的学校名称、准考证号和姓名是否填写正确。第一部分计算机基础知识1.数据通信中的数据传输速率是最重要的性能指标之一,它指单位时间传送的二进位数目,下面是ー些计量单位Kb/s(2)MB/s(3)Mb/s(4)Gb/s其中常用的是1 。(1) B.(2)和(4)C.(1)、(2)、(3)和(4) D.(1)、(3)和(4)2.下面有关于微电子技术的说法,错误的是2 0A.集成电路将永远遵循Moore定律IC卡是“集成电路卡”的缩写C.现代PC机所使用的电子元件都是超大规模和极大规模集成电路D.现代集成电路使用的半导体材料通常是硅(Si).下列关于PC机主板的叙述中,错误的是 3 。A.CPU和RAM存储器均通过相应的插座安装在主板上B,芯片组是主板的重要组成部分，所有控制功能几乎都集成在芯片组内C,软盘驱动器也安装在主板上D.为便于安装，主板的物理尺寸已标准化TOC\o"1-5"\h\z.已知X的补码为10011000,其原码为4 。A.11101000 B.11100111 C.10011000 D.11100110. 5 是ー种新型的非易失性存储器,但又像RAMー样能快速方便地写入信息。A.DRAM B.FlashRAM C.SRAM D.CACHE.下列4项中，错误的IP地址是 6 。A.0 B.60.268.24.128 C.9D.9.一幅1280*1024的24位真彩色图像，如果未经压缩，则它的数据量为7 。A.3.75MB B.768KB C.24KB D.1.44MB.目前许多外部设备(如打印机、数码相机、扫描仪等)采用了USB接口。下面关于USB的叙述中,错误的是8 。A.USB接口有两种规格，2.0版的数据传输速度要比1.1版快得多B,主机不能通过USB连接器引脚向外设供电C.利用“USB集线器”，一个USB接口能连接多个设备D.USB属于ー种串行接口.下列说法中，错误的是9 。A.硬盘安装在机箱内，属于主机的组成部分B.硬盘驱动器和盘片是密封在ー起的，不能随意更换盘片的C,硬盘是多张盘片组成的盘片组D.硬盘的技术指标除容量外,另ー个是转速.下列属于应用软件的是是。①Word ©WindowsXP ③Linux©VisualBasic ⑤MSNMessenger7.5 ⑥图书管理系统A.①③④⑤ B.@©©@C.@<D(6) D.①⑥.在下列有关Windows98/2000/XP操作系统的叙述中，错误的是 11。A,它们都支持即插即用(PnP)功能B.它们都支持支持FAT32文件系统C,优盘中被删除的文件可从“回收站”中回复出来D.它们都是32位操作系统.下列各条中，对计算机操作系统的作用完整描述的是 完。A.它是用户与计算机的界面B,它对用户存储的文件进行管理,方便用户C.它管理计算机系统的全部软、硬件资源,合理组织计算机的工作流程,以达到充分发挥计算机资源的效率,为用户提供使用计算机的友好界面D.它执行用户键入的各类命令.比较算法和程序,以下说法中正确的是 13 。A.程序中的指令和算法中的运算语句都必须用高级语言表示B.算法和程序都必须满足有穷性C.算法可采用“伪代码”或流程图等方式来描述D.算法就是程序. 14 由两部分组成,第一部分指出客户端希望得到主机提供的哪ー种服务，第二部分是主机名和网页在主机上的位置。A.HTTP B.TELNET C.URL D.WWWTOC\o"1-5"\h\z15，在数据库系统中，最常用的ー种基本数据模型是关系数据模型。在这种模型中，表示实体集及实体集之间联系的结构是 15 。A.网络 B.图 C.二维表 D.树.发送邮件时，邮件传送程序必须与远程的邮件服务器建立TCP连接，并按照16协议传输邮件。如果接受方邮箱在服务器上确实存在,オ进行邮件的发送,以确保邮件不会丢失。A.POP3 B.TCP C.SMTP D.IP.在中文Windows98/2000/XP环境下,设有一段文本，该文本中有4个汉字和2个西文字符，则这段文字的内码，最有可能是 17 。A.CBF5DOB450 B.9B95909450438A87D6B8C.CB45DOB45043CAC746B8 D.CBF5DOB45043CAC7D6B8.在下列有关声卡的描述中,错误的是18 。A.声卡的主要功能是控制波形声音和MIDI声音的输入输出B.波形声音的质量与量化位数、采样频率有关C,声卡中数字信号处理器在完成数字声音的解码及编辑操作中起着重要作用D.声卡所要求的数据率不高，用!SA总线进行传输.信息分析系统是一种高层次的信息系统,为管理决策人员掌握企事业单位运行规律和趋势、制订规划、进行决策的辅助系统，可分为19和经理支持系统。A.信息处理系统 B.决策支持系统C.学生信息系统 D.图书管理系统.在使用Excel97/2000/2003处理数据时，下列叙述中不正确的是 20 。A.在Excel中提供了许多内置函数,函数范围包括数据库、数学和三角函数、查询与引用函数等B.在默认情况下,每ー个工作簿文件会打开3个工作表文件,分别以Sheetl、Sheet2、Sheet3来命名C,每个工作表中的行和列数量是没有限制的D.在Excel中，输入公式前要先输入一个等号‘'="オ行第二部分VisualBasic程序设计ー、选择题（用答题卡答题,答案依次填在21〜30答题号内）,a+b+ -21.代数式!の对应的visualBasic6.0表达式是 21 。21.A.sqr((1+(s+t)/(x+y))/log(s)) B.(1+(s+t)/(x+y))/log(s)/2C.sqr((1+(s+t)/(x+y))/ln(s)) D.sqr((1+s+t/x+y)/log(s)).设变量D为Date型、A为!nteger型、S为String型、L为Long型,下面赋值语句中不能执行的是 22 0A.D=#11:30:00PM# B.A="182"*182C.S=Date D.L="5487D4".在窗体上有一个框架框（名称为Framel）,一个计时器（名称为Timerl）,计时器的时间间隔属性Interval100（在图片框中有一个复选按钮（名称为Checkl）和一个命令按钮（名称为Command1）,用户界面如图1所示。其中,计时器有Timerl_Timer事件过程如下:PrivateSubTimerl_Timer（）IfFrame1.Left>=Form1.WidthThenFrame1.Left=0Frame1.MoveFrame1.Left+50EndSub运行后，窗体中的现象是 23 。A.仅框架框移动B.框架框携带复选按钮和命令按钮同时移动C.框架框携带复选按钮同时移动D.框架框携带命令按钮同时移动.Loc函数作用是，返回一个 作。Long型数据,在已打开的文件中指定当前读/写位置Long型数据,计算其文件长度Integer型数据,表示文件号的范围Long型数据,表示用Open语句打开的文件的大小.文件操作的一般顺序是 25 0A.操作一关闭文件B.打开文件一操作T关闭文件C.打开文件一操作D.打开文件一关闭文件一操作.运行下列程序:PrivateSubForm_Click（）Fori=0To2PrintTab（4-i）;String（i*2+1,"A"）NextiPrintEndSub单击窗体后，则在窗体上显示的结果是26 。A.AAA B.AAAAAA AAAAAA AAAC.A D.AAAAAA AAAAAAAA AAA.运行下列程序:PrivateSubfbrm_Click()x=InputBox("请输入ー个数:“)SelectCasexCaseIs>0:y=x+l:x=y+1CaseIs=0:y=x+2:x=y+2CaseElse:y=x+3:x=y+3EndSelectPrintx;yEndSub从键盘输入1,输一的结果是27 0A.32 B.23 C.22 D.14.在当前窗体有一个文本框Textl,在D盘的根目录存在数据文件data.txt,数据文件的内容是abc102030efg405060若运行程序,要在文本框中显示的内容是ー^PrivateSubForm_Click()Open"d:\data.txt"ForInputAs#10DoUntilEOF(IO)LineInput#10,linesText1.Text=Text1.Text+Mid(lines,5,2)LoopClose#10EndSubA.abc B.1040 C.efg D.1020.运行下列程序:PrivateSubfbrm_Click()Dimxx=0DoWhilex<10x=x+3LoopMsgBoxxEndSub单击窗体后,则在窗体上显示的结果是 29 0A.0 B.3 C.10 D.1230.运行下列程序:PrivateSubform_Click()s=InputBo]”请输入一个字符A：”)SelectCaseAsc(s)CaseIs>65n=String(3,UCase(s))CaseIs=65n=String(3,LCase(s))CaseElsen=sEndSelectPrintnEndSub从键盘输入A,输出的结果是30 。A.aaa B.AAA C.65 D.a二、填空题（请將答案填写在答题纸的相应答题号内,每个答案只占一行）（每空1分,共30分）TOC\o"1-5"\h\z.由VisualBasic系统中,引发事件的对象叫做 (1) ..在VB6.0中,CIM34)的函数值是 (2) ..Stretch的属性只使用于 (3) 控件。.在用Open语句打开文件时,设定为二进制访问模式是 (4) 0.指示复选框处于选定、未选定或禁止状态(暗淡的)中的属性是一(止。.下列程序运行时,单击鼠标的右键时,窗体上打印出的数值是 (6) 0PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)CisPrintButtonEndSub.下列程序运行后,输出的图形是ー个 (7) .PrivateSubFonn_Click()DimCx,CyCx=ScaleWidth/2Cy=ScaleHeight/2Line(Cx,0)-(Cx,ScaleHeight)Line(0,Cy)-(ScaleWidth,Cy)EndSub.运行下列程序,单击Commandl命令按钮后,则在窗体上显示第一行和第二行的结果分别是ー(8)和(9) 0PrivateSubCommand1_Click()t=1:x=2:y=3:z=4Ift>0Ort=xAndx〇yOry>zThent=ftinl(t,z)PrinttElset=funl(x,y)PrinttEndIfPrintxPrintyEndSubFunctionfun1(ByVaixAsInteger,ByVaiyAsInteger)AsIntegerDoWhiley〇0t=x\yx=yy=tLoopfunl=xEndFunction.当下列程序运行,单击窗体后,分别输入72和24,信息框上显示的结果是(10)。PrivateSubForm_CIick()DimxAsInteger,yAsIntegerx=VaI(InputBox(”输入整数72"))y=Val(InpulBox("输入整数24"))z=funl(x,y)MsgBoxStr⑵EndSubPrivateFunctionfun1(ByVaiaAsInteger,ByVaibAsInteger)AsIntegerDor=aModba=bb=rLoopUntilr=0funl=aEndFunction.运行下列程序,单击窗体后,则在窗体上显示第一行和第二行的结果分别是ー0。和(12) 0PrivateSubFonn_Click()x=3:y=7:z=2:t=5Doy=y+xx=x+yCallsubl(x,y,z,t)Printx;z;tLoopWhilex<54EndSubPrivateSubsubl(x,y,z,ByVaiw)z=xy=zw=x+y+zx=wEndSub.下列程序运行后,在窗口显示结果的第二行和第三行分别是(13)和(14)。OptionBase1PrivateSubCommand1_Click()Dimaa=Array(l,2,3,4,5)Callsubl(a,3)Fori=1To5Printa(i)NextiEndSubPublicSubsubl(x,n)Ifn>1Thent=x(l)x(l)=x(n-1)x(n-1)=tCallsubl(x,n-1)EndIfEndSub.下列程序的窗口上有一个列表框Listl,程序运行单击窗体后列表框最后一行的值为(15) ,Listl.ListCount的值为(16) 0OptionBase1PrivateSubfbrm_Click()Fori=1To10List1.AdditemiNextiSum=0Fori=0ToList1.ListCount-1Sum=Sum+Listl.List(i)NextiList1.AdditemSumEndSub.下列程序运行后,在对话框内输入4后,结果如图2所示。给定的程序不完整,将程序补充完整。PrivateSubfbrm_Click()Dims()t=Val(InputBox(”请输入整数4"))k=2*t(17)Fori=0To2*tSelectCaseiCaseIs=0,2*ts(i)=String(2*t,"M)+ (18)CaseIs<ts(i)=String(k,M