2008年12月份试卷及其参考答案

2008年12月1全国高等学校（安徽考区）计算机水平考试试卷（二级VisualBasic语言）一、单项选择题（每题1分，共40分）1.计算机能直接执行由编写的源程序。A）机器语言B）汇编语言C）C语言D）FORTRAN语言2.在计算机内存中，每个存储单元都有一个唯一的编号，该编号被成为。A）标号B）记录号C）容量D）地址3.将十进制数93转换成八进制数为。A）（107）8B）（127）8C）（135）8D）（140）84.Cache（高速缓存）能提高计算机的运行速度，主要原因是。A）它扩展了内存的容量B）它缩短了CPU的存取时间C）它扩展了外存的容量D）它提高了计算机的主频5.下面关于控制面板的描述中，错误的是。A）控制面板可以管理硬件，但不可以管理软件B）控制面板可以添加、删除程序C）控制面板可以添加、删除硬件D）控制面板可以更改系统的时间和日期6.是多媒体计算机系统必备的设备。A）网卡B）扫描仪C）声卡D）打印机7.下列属于网络拓扑结构的是。A）动态型B）静态型C）交叉型D）总线型8.若要浏览某个网页，则需要在浏览器的中输入网址。A）地址栏B）标题栏C）任务栏D）状态栏9.使用杀毒软件可以。A）查出任何已感染的病毒B）查出并清除任何病毒C）清除部分病毒D）清楚已感染的任何病毒10.计算机操作系统的主要功能是。A）进行网络连接B）管理计算机资源，方便用户使用C）实现数据共享D）把高级语言的源程序代码转换为目标代码11.在VisualBasic集成开发环境中，如果工具箱关闭，可在菜单中操作使它可见。2008年12月2A）视图B）窗口C）文件D）编辑12.VisualBasic过程的编写是在中进行的。A）窗体窗口B）工程资源管理器窗口C）属性窗口D）代码编辑窗口13.在VisualBasic中，声明全局变量应该用关键字。A）DimB)PrivateC)StaticD)Public14.符合“见名知义”命名规则的“年龄”变量名是。A）PMONTHB)PAGEC)PBIRTHD)PNUM15.仅删除字符串尾部空格的函数是。A）Ltrim()B)Trim()C)Rtrim()D)Mid()16.下列关于数据类型转换的描述，正确的是。A）所有数据的类型都可以相互转换B）一些数据的类型可以自动转换C）字符串可以完整转换为数值D）字符只能转换成ASCII码17.在VisualBasic表达式中，运算符的运算顺序为。A）算术运算符→字符运算符→关系运算符→逻辑运算符B）逻辑运算符→关系运算符→字符运算符→算术运算符C）字符运算符→算术运算符→关系运算符→逻辑运算符D）关系运算符→逻辑运算符→算术运算符→字符运算符18.能产生1到7之间随机整数（包括1和7）的表达式为。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矩阵的数组定义语句是。2008年12月3A）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.若要改变窗体的标题内容，应设置该窗体属性的值。2008年12月4A）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.WidthThen2008年12月5ElseEndIfEndSub9.以下程序的功能是：把当前目录下的顺序文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=1To102008年12月6Forj=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)EndSub2008年12月7FunctionPd(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四、编程题2008年12月81．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&用户