2001年(春)二级VB笔试答案

《2001年(春)二级VB笔试答案》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

2001年（春）二级VB笔试答案第一部分计算机基础知识●A类以WINDOWS95/98为平台1.为了清除计算机中的病毒，要求用无病毒的软盘重新启动计算机，其目的是清除________中的病毒。A.RAMB.ROMC.CPUD.硬盘2.32位字长的最大正整数是2147483647，而最小负整数是-2147483648，即负整数比正整数多一个，其原因是_______。A.机内整数采用原码表示B.机内整数采用反码表示C.机内整数采用补码表示D.公认的约定3.已知521+555=1406,则此种加法是在___3____下完成的。A.七进制B.八进制C.九进制D.十进制4.PC机、APPLE机，SUN工作站等计算机，其指令系统通常有所不同，这主要取决于___4____。A.所用的操作系统B.所用的CPUC.系统的总线结构D.所用的语言处理程序5.下列关于机器语言与高级语言的说法中，正确的是___5____。A.机器语言比高级语言执行慢B.机器语言程序比高级语言程序可移植性强C.机器语言程序比高级语言程序可移植性差C.有了高级语言，机器语言就无存在的必要了6.实现计算机系统中软件安全的核心是___6___。A.硬件的安全性B.操作系统的安全性C.语言处理系统的安全性D.应用软件的安全性7.下列有关Unicode汉字编码标准（字符集）中，叙述不正确的是___7___。A.Unicode编码的长度为16位B.Windows95/98支持Unicode编码C.Unicode收录了一万多个汉字D.Unicode与ASCII码不兼容8.作为信息处理热点技术之一的“多媒体技术”，强调的是___8___。A.存储媒体B.表现媒体C.传输媒体D.感觉媒体 9.软件测试是软件开发过程中的一个重要环节。软件产品在交付前必须经历三种测试，它们是___9___。A.模块测试、集成测试和验收测试B.过程测试、功能测试和数据测试C.逻辑测试、物理测试和验收测试D.模块测试、集成测试和功能测试10.局域网按其拓扑结构可以分为多种类型，目前较为流行的以太网从逻辑上看应属于___10___。A.星型网B.环行网C.总线网D.混合网11.WWW服务器称3W网中，三个“W”指的是___11___。A.When,Where,WhatB.WorldWiredWebC.WorldWirelessWebD.WorldWideWeb12.在Windows95/98中，用鼠标双击应用程序窗口的标题栏，其作用是___12___。A.关闭应用程序B.最大化或还原应用程序窗口C.最小化或还原应用程序窗口D.最小化或最大化应用程序窗口13.下列操作中，被删除后不能通过回收站恢复的是___13___。A.A盘上的文件B.C盘上的文件C.C盘上的文件夹D.系统文件14.用IE浏览某个网页时，屏幕上出现乱码，最常见的原因是___14___。A.该网页脚本有错误B.计算机可能已被某种病毒感染C.计算机内存可能不够D.系统不支持或未配置相应的字符15.在中文版Windows95/98环境下，下列文件名中不正确的是___15___。A.xyz.abc.bakB.昨天今天明天.docC.myfile>new.txtD.file1+file216.在Windows95/98的“文件夹选项”对话框中，不可以完成的功能是___16___。A.查看当前注册的文件类型B.修改当前注册的文件类型C.更改各类文件的图标D.设置各类文件的属性17.使用WINDOES95/98的“画笔”应用程序绘制正方形、圆、水平线、垂直线或与水平方向成45度角的直线，拖放鼠标时必须按住__17___键。A.CtrlB.ShiftC.AltD.Esc18.在WINDOES95/98环境下，将“MS-DOS”方式从全屏幕状态切换到窗口状态的方法是按___18___组合键。 A.Esc+EnterB.Shift+EnterC.Ctrl+EnterD.Alt+Enter19.在WORD窗口的“文件”下拉菜单的下部，通常会列出许多文件，这些文件是___19___。A.目前处于打开状态的文件B.目前正排队等待打印的文件C.最近由Word处理过的文件D.当前目录中扩展名为.DOC的文件20.在Word中，设第一段的行间距为2倍行距、第二段的行距为单倍行距。现删除第一段后的回车符，使第一段与第二段合并为一段，则合并后的段落的行距为___20___。A.2倍行距B.单倍行距C.1.5倍行距D.可能为单倍行距也可能为2倍行距第二部分VisualBasic程序设计（2001年春季）一、选择题（用答题卡答题，答案依次填在21-30答题号内）21.在VisualBasic中最基本的对象是___21___，它是应用程序的基石，也是其他控件的容器。A.文本框B.命令按纽C.窗体D.标签22.应用程序窗体的名称属性为Frm1，窗体上有一个命令按纽，其名称属性为Cmd1，窗体和命令按纽的Click事件过程名分别为___22___。A.Form_Click()Command1_Click()B.Frm1_Click()Command1_Click()C.Form_Click()Cmd1_Click()D.Frm1_Click()Cmd1_Click()23.多窗体程序由多个窗体组成。在缺省情况下，VB在执行应用程序时，总是把___23___指定为启动窗口。A.不包含任何控件的窗口B.设计时的第一个窗体C.命名为Frm1的窗体D.包含控件最多的窗体24.使用___24___方法可将新的列表项添加到列表框中。A.PrintB.AdditemC.ClearD.RemoveItem 25.若希望在离开某过程后，还能保存该过程中局部变量的值，则应使用___25___关键字在该过程中定义局部变量。A.DimB.PrivateC.PublicD.Static26.下列表达式中，值为True的是___26___。A.Ucase("ABCD">="abcd")B.14/23<10Mod4C.Mid("ABCD",2,2)>Left("ABCD",2)D.Not(Spr(4)-3>=-2)27.下列___27___说法是不正确的。A.当程序正常结束时，所有没用Close语句关闭的文件都会自动关闭B.在关闭文件或程序结束之前，可以不用Unlock语句对已锁定的记录解锁C.可以用不同的文件号同时打开一个随机文件D.用Output模式打开一个顺序文件，即使不对它进行写操作，原来内容也被清除28.代数表达式，对应VisualBasic表达式是___28___。A.Sqr((x+Log(x))/(a+b))+Exp(-2*t)+Sin((x+y)/2)B.Sqr(x+Log(x)/(a+b))+Exp(-2*t)+Sin((x+y)/2)C.Sqr((x+Ln(x))/(a+b))+Exp(-2*t)+Sin((x+y)/2)D.Sqr((x+Log(x))/(a+b))+Exp(-2*t)+Sin(x+y/2)29.在程序中可以通过复选框和单选按纽的___29___属性值来判断它们的当前状态。A.CaptionB.ValueC.CheckedD.Selected30.在使用菜单编辑器创建菜单时，可在菜单名称中某字母前插入___30___符号，那么在运行程序时按Alt键和该字母键就可以打开该命令菜单。A.下划线B.&C.$D.@31.在一个多窗口程序中，可以在标准模块或某个窗体模块的通用声明处，分别用___31___语句定义一个在所有窗体模块都可以引用的变量IntA。A.PrivateIntAAsInteger,PublicIntAAsInteger B.PublicIntAAsInteger,PrivateIntAAsIntegeC.PublicIntAAsInteger,PublicIntAAsIntegeD.PrivateIntAAsInteger,PrivateIntAAsInteger32.在应用程序中用"PrivateFunctionFun(XAsInteger,YAsInteger)"定义了函数Fun.调用函数Fun的过程中的变量I,J均定义为Integer型，能正确引用函数Fun的是___32___。①Fun(I,J)②CallFun(I,3.65)③Fun(3.14,234)④Fun("245","231.5")A.①③B.②③④C.①②③D.①②③④33.若在应用程序的标准模块、窗体模块和过程Sub1的说明部分，分别用"PublicGAsIntege"、"PrivateGAsIntege"和"DimGAsIntege"语句说明了三个同名变量G。如果在过程Sub1中使用赋值语句“G=3596”，则该语句给在___33___说明部分定义的变量G赋值。A.标准模块B.过程Sub1C.窗体模块D.标准模块、窗体模块和过程Sub134.有程序代码：Text1.Text="VisualBasic"其中的Text1、Text和"VisualBasic"分别代表___34___。A.对象、值、属性B.对象、方法、属性C.对象、属性、值D.属性、对象、值35.执行下面的程序，单击窗体后在窗体上显示的结果是___35___。PrivateSubForm_Click()DimStr1AsString,Str2AsStringDimStr3AsString,IAsStringStr1="e"ForI=1To2Str2=UCase(Str1)Str1=Str2&Str1Str3=Str3&Str1 Str1=Chr(Asc(Str1)+I)NextIPrintStr3EndSub A.EeFFB.eEFFC.EEFFD.eeFF二、填空题（请把答案填写在答题纸的相应答题号内，每个答题只占一行）1.根据题中给出的窗体，填写下表中的相关内容，"X"表示对象无该属性对象名称(Name)标题（Caption）口令字符（Passwordchar）窗体Form1(验证口令)X标签Label1(请输入口令)X文本框Text1X(*)命令按纽Command1验证X2.执行下面的程序，第一行输出结果是___(3)___，第二行输出结果是___（-18）___。OPtionExplicitPrivateSubForm_Click()DimMAsInteger,NAsInteger,KAsIntegerN=-3ForM=6To1StepNM=M+1 N=N-MK=K+1NextMPrintKPrintNEndSub3.执行下面的程序，第一行输出结果是___(626)___，第三行输出结果是___（-298）___。PrivateSubForm_Click()DimNAsInteger,IAsIntegerN=2ForI=9To1Step-1CallSub2(I,N)PrintI,NNextIEndSubPrivateSubSub2(XAsInteger,YAsInteger)StaticNAsIntegerDimIAsIntegerForI=3To1Step-1N=N+XX=X-1EndSub4.执行下面程序后，A（1，3）的值是___(1)___，A（2，2）的值是___(5)___，A（3，1）的值是___(9)___。 OptionExplicitPrivateSubForm_Click()DimA(3,3)AsInteger,IAsIntegerDimJAsInteger,KAsInteher,NAsIntegerN=9ForK=5To1Step-1IfK>=3ThenForI=1To6-KA(K-3+I,I)=NN=N-1NextIElseForI=1ToKA(K-I+1,3-I+1)=NN=N-1NextIEndIfNextKForK=1To3ForI=1To3PrintA(K,I);NextIPrintNextK EndSub5.执行下面的程序，第一行输出结果是___(23)___，第二行输出结果是___（47）___。OptionExplicitPrivateSubForm_Click()DimAAsIntegerA=2CallSub1(A)EndSubPrivateSubSub1(XAsInteger)X=X*2+1IfX<10ThenCallSub1(A)EndIfX=X*2+1PrintXEndSub6.本程序用于验证任何一个大于6的偶数均可表示为两个素数之和。例如，14=3+11、14=7+7。待验证的偶数从文本框TxtInput输入，所有满足上述条件的素数对都显示在窗体上。OptionExplicitPrivateSubForm_Click()DimNAsInteger，IAsInteger，JAsIntegerN=___(Val(TxtInput)或Val(TxtInput.Text))___ForI=3ToN-2Step2If___(Prime(I))___Then IfN-I>=IAndPrime(N-1)ThenPrintN;"=";I;"+";N-1EndIfEndIfNextIEndSubPrivateFunctionPrime(NAsInteger)AsBooleanDimIAsInteger，JAsInteger，FlgAsBooleanPrime=FalseForI=2ToSqr(N)IfNMODI=0Then___(ExitFor或EndFunction)___NextIIf___(I>Sqr(N))___ThenPrime=TrueEndFunction7.下面程序是把给定的16进制正整数转换为10进制数。提示：一个16进制正整数转换为10进制数的方法是直接用下面的幂级数展开运算而得。（anan-1…a1）16=an*16n-1+an-1*16n-2+…+a1*160OptionExplicitPrivateSubForm_Click()DimStAsInteger，DemAsLongSt=InputBox("输入一个十六进制数")Dem=Convert(St)PrintSt;">=";DemEndSub  PrivateFunctionConvert(SAsString)AsLongDimNAsInteger，IAsInteger，SubstringAsString*1DimPAslong，KAsLong，Asc1AsIntegerN=___(Len(s))___P=16^NForI=1ToNP=p/16Substring=___(Mid(S,I,1))___SelectCaseSubstringCase"0"To"9"K=K+P*Val(Substring)Case___("A"To"F"或Else)___Asc1=Asc(Substring)-Asc("A")+10___(K=K+P*Asc1)___EndSelectNextI___(Convert=K)___EndFunction8.下面程序得功能是将无序数组中相同得数只保留一个，其余得删除，并输出经过删除后的数组元素，删除相同数是通过将该数组元素后面的元素在数组内依次前移替换前一个元素的值实现的。数组各元素的值从文件data.txt中读取。OptionExplictOptionBase1PrivateSubForm_Click() DimIAsInteger,JAsInteger,KAsIntegerDimA()AsInteger,TAsInteger,MAsIntegerOpen"c:mydocuments2000testdata.txt"ForInputAs#1DoWhile___(NotEof(1))__I=I+1RedimPreserveA(I)Input#1,A(I)LoopM=1:T=___(I或Ubound(A))__DoWhileM