2008年06月份安徽省二级VB试卷及其参考答案

2oo8.6全国高等学校（安徽考区）计算机水平考试试卷（二级VisualBasic语言）一、单项选择题（每题1分，共40分）1.计算机能自动工作，主要是因为采用了。A）二进制数制B）大规模集成电路C）程序设计语言D）存储程序控制原理2下列数值中最大的是。A）(10110)2B）(120)8C）(70)10D）(3A)163.在计算机指令系统中，一条指令通常由组成。A）数据和字符B）操作码和操作数C）运算符和数据D）被运算数和结果4.运算器主要由组成A）算术逻辑单元B）微处理器C）控制器D）存储器5.下列关于Windows“回收站”的叙述中，不正确的是。A）“回收站”中的信息可以删除B）“回收站”中的信息可以还原C）“回收站”的大小可以设置D）“回收站”不占用硬盘空间6.多媒体信息不包括。A）文字、图形B）音频、视频C）光驱、声卡D）影像、动画7.学校机房的若干台计算机连接而成的网络通常属于。A）WANB）LANC）MAND）GPS8.FTP是。A）发送电子邮件的软件B）浏览网页的工具C）文件传输协议D）聊天工具9.下列关于计算机病毒的叙述中，不正确的是。A）计算机病毒制破坏硬件不破坏软件B）计算机病毒是人为编写的一种程序C）计算机病毒能通过磁盘、网络等媒介传播、扩散D）计算机病毒具有潜伏性、传染性和破坏性10.下列关于算法的叙述中，正确的是。A）算法就是对特定问题求解步骤的描述B）算法就是程序C）算法就是软件D）算法没有优劣之分11.VB的标准化控件位于IDE(集成开发环境)中的窗口内。A）工具栏B）工具箱C）对象浏览器D）窗体设计器12.以下关于事件的说法，正确的是。A）用户可以根据需要建立新的事件B）事件的名称是可以改变的，由用户预先定义C）不同类型的对象所能识别的事件一定不相同D）事件是由系统预先定义好的能够被对象识别的动作13.下列符号中，可以用作VB变量名的是。A）x.y.zB)3xyzC)x_yzD)Integer14.下列属于非法调用的函数是。A）sqr(-5)B)Sgn(-5)C)Exp(-5)D)Int(-5)15.已知f=“12345678”，则表达式val(Left(f,3))+val(Mid(f,4,2))的值是。A）168B)12345C)123D)4516.执行语句：Msgbox“北京欢迎您！”,1,“2008”，所产生的消息对话框的标题是。A）北京欢迎您！B）2008C）0D）117.数学关系5≤y10表示成正确的VB表达式为。A）5=y10B）5≤yandy10C）5=yandy10D）5=yory1018.表达式。A）Rnd*7B)Int(Rnd*8)+1C)Rnd*8+1D)Int(Rnd*7+1)19.若X为实数，下列函数调用可能产生错误的是。A）Exp(x)B)Sgn(x)C)Sqr(x)D)Int(x)20.下列正确的赋值语句是。A）Z=B*B-4*CB）S/=R*RC）X-Y=2.17D）4Z=Y+3821．不能使用Print方法输出信息的对象是。A）文本框B）图片框C）窗体D）打印机22.下列能够正确输出“a=8”形式的语句是。A）Printa=3+5B)Print“a=”;3+5C)Print“a=3+5”D)Printa=;3+5”23.在OptionBase1语句后，正好可以存放1个4*3矩阵的数组定义语句是。A）Dima(-2To0,2)AsIntegerB)Dima(3,2)AsIntegerC)Dima(4,3)AsIntegerD)Dima(-1To-4,-1To-3)AsInteger24.在程序运行时，可实现信息输入的控件是。A）窗口B）单项按钮C）图片框D）标签25.确定控件在窗体上位置的属性是。A）Width和HeightB)Width和TopC)Top和LeftD)Top和Height26.要使文本框可以显示多行文本，需设置属性为True.A)EnabledB)MultilineC)MaxLengthD)Locked27.要把一个命令按钮设置成不可见，应设置其Visible属性值为。A）TrueB)FalseC)DefaultD)Cancel28.窗体上有一个列表框控件Listl，其中含有若干列表项，则能表示当前被选中的列表项内容。A）Listl.ListB)Listl.ListIndexC)Listl.IndexD)Listl.Text29.若要取消窗体的最大化按钮，需要设置它的属性值为False.A)AutoRedrawB)MinButtonC)EnabledD)MaxButton30.若要求在单行文本框中输入密码时只显示*号，则应在该文本框的属性窗口中设置。A）Text属性值为*B）Caption属性值为*C)PasswordChar属性值为*D)PasswordChar属性值为True31.要清除PictureBox控件中的图形，可用语句。A）Picture1.Picture=LoadPicture()B)Picturel.Picture=””C)Picture1.Picture=LoadPicture(“”)D)KillPicturel.Picture32.若要使命令按钮具有快捷键的功能，应在Caption属性值的快捷字符前添加字符。A）#B）@C)&D)*33.在VisualBasic的控件数组中，用于标识控件数组各个元素的参数是。A）TagB)IndexC)ListIndexD)Name34.下列控件中，不能改变大小的控件是。A）TextBoxB)LabelC)FrameD)Timer35.若要改变窗体的标题内容，应设置该窗体属性的值。A）CaptionB)FontC)NameD)Text36.在VisualBasic中，菜单控件只有事件。A）MouseUpB)MouseDownC)ClickD)DblClick37.如果要在菜单中添加一个分隔线，则应将其“标题”设置为。A）=B）*C）&D)-38.下列不能直接通过VisualBasic语句访问的数据文件是。A）顺序文件B）随机文件C）数据库文件D）二进制文件39.下列不属于VisualBasic数据库访问技术的是。A）DAOB）SQLC）RDOD）ADO40.下列叙述中错误的是。A）注释语句是非执行语句，仅对程序的有关内容起注释作用，它不被解释或编译B）注释语句可以放在代码中的任何位置C）注释语句不能放在续行符的后面D）代码中加入注释语句的目的是提高程序的可读性二、填空题（每空2分，共20分）1.VisualBasic工程文件的扩展名是。2.VisualBasic的三种工作模式是设计、运行和。3.表达式Abs(-34)+Sqr(100)*Int(-3.4)的值为。4.代数式abba的VisualBasic表达式是。5.在VisualBasic中所有的控件对象必须建立在上，它是所有控件的容量。6.Label控件的Caption和默认的属性值相同。7.在VisualBasic中，若数组作为被调用过程的参数，则只能通过方式进行传递。8.以下程序实现每次单击按钮Command1时，标签Label1在窗体Form1中向右移动100个标准单位；当标签移出窗体右边界时，再次单击Command1，标签Label1回到窗体的左边界。PrivateSubCommand1Click()IfLabel1.LeftForm1.WidthThenElseEndIfEndSub9.以下程序的功能是：把当前目录下的顺序文smtext.txt的内容读入内存，并在文本框Text1中显示出来。PrivateSubCommand1Click()DiminDataAsStringText1.Text=””Open”smtext.txt”ForInputAs#1DoWhile。Input#1,inDataText1.Text=Text1.Text&inDataLoopClose#1EndSub三、阅读理解题（每小题4分，共20分）1.执行下面过程后，窗体上显示的是。PrivateSubFormClick()DimxAsIntegerX=2SelectCasexCase1,3Print”分支1”CaseIs4Print”分支2”CaseElsePrint“Else分支”EndSelectEndSub2.执行下面过程后，窗体上显示的是。PrivateSubFormClick()Dimxa(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=1To10Forj=1To10a(i,j)=i*jNextjNextiPrinta(2,2)+a(3,3)EndSub3.执行下面过程后，窗体上显示的是。OptionBase1PrivateSubFormClick()DimaAsVariantDimiAsInteger,sumAsInteger,xAsSinglea=Array(1,2,3,4,5)Sum=0Fori=1To5Sum=Sum+a(i)Nextix=Sum/5Fori=1To5Ifa(i)xThenPrinta(i)NextiEndSub4.程序运行后，单击两次Command1按钮后，窗体上显示的是。PrivateSubCommand1Click()StaticxAsIntegerDimiAsInteger,yAsIntegerClsFori=1To2y=y+xx=x+2NextiPrintx,yEndSub5.执行下面过程后，窗体上显示的是。PrivateSubFormClick()PrintPd(4)EndSubFunctionPd(ByValyAsInteger)AsLongIfy=1ThenPd=1ElsePd=y*Pd(y-1)EndIfEndFunction四、编程题（共20分）1.编写程序，分别用InputBox函数接收两个整数，在窗体中输出其中的较大数。（6分）2.编写一个通用（或子程序）过程area,以实型变量r作为形参，计算并在过程中输出圆的面积。（7分）3.电力公司为合理调配某社区用电高峰，拟对该社区的居民户每月用电情况进行统计。设定每隔50度用量为一个统计区间，当大于等于500度时为一个统计区间（即0-49、50-99、100-149、…..、450-499、500以上）。试编程统计每个用电区间的居民户数。（7分）要求：1）输入的用电量为整数；2）输入负数时结束数据输入。参考答案：一、选择题：1—5：ADCBA;6—10：CDACB;11—15：ADDBC;16—20：BADCA;21—25：ABCBC;26—30：BBDDC;31—35：ACBDA;36—40：CDCBB二、填空题：1．*.vbp2．中断模式3．－64．abd(a+b)/(a*b)5．窗体6．名称7．传址8．Label1.left=0;Label1.left=Label1.left+1009．Noteof(1)三、阅读理解题：1．Else分支2．133．454．8105．24四、编程题1．PrivateSubForm_Load()DimxAsInteger,yAsIntegerx=Val(InputBox(请输入第一个整数：))y=Val(InputBox(请输入第二个整数：))Ifx=yThenPrintxElsePrintyEndIfEndSub2．Privatesubarea(rassingle)Print3.14159*r^2Endsub3.PrivateSubCommand1_Click()DimxAsInteger,kAsIntegerDima(11)AsIntegerx=0:k=0DoWhilex=0k=k+1x=Val(InputBox(请输入第&k&用户用电数))SelectCasexCase0To49a(1)=a(1)+1Case50To99a(2)=a(2)+1Case100To149a(3)=a(3)+1Case150To199a(4)=a(