下载

1下载券

加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 2007年9月全国计算机等级考试二级VB笔试试卷

2007年9月全国计算机等级考试二级VB笔试试卷.doc

2007年9月全国计算机等级考试二级VB笔试试卷

ggpg12
2011-02-14 0人阅读 举报 0 0 0 暂无简介

简介:本文档为《2007年9月全国计算机等级考试二级VB笔试试卷doc》,可适用于考试题库领域

()要使一个文本框可以显示多行文本应设置为True的属性是()年月全国计算机等级考试二级笔试试卷VisualBasic语言程序设计(考试时间分钟满分分)一、选择题(每小题分共分)下列各题A) 、B) 、C) 、D)四个选项中只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上答在试卷上不得分。()软件是指A)程序        B)程序和文档C)算法加数据结构   D)程序、数据与相关文档的完整集合()软件调试的目的是   A)发现错误           B)改正错误   C)改善软件的性能        D)验证软件的正确性()在面向对象方法中实现信息隐蔽是依靠   A)对象的继承             B)对象的多态   C)对象的封装             D)对象的分类()下列叙述中不符合良好程序设计风格要求的是 A)程序的效率第一清晰第二   B)程序的可读性好 C)程序中要有必要的注释     D)输入数据前要有提示信息()下列叙述中正确的是   A)程序执行的效率与数据的存储结构密切相关   B)程序执行的效率只取决于程序的控制结构   C)程序执行的效率只取决于所处理的数据量   D)以上三种说法都不对()下列叙述中正确的是A)数据的逻辑结构与存储结构必定是一一对应的B)由于计算机存储空间是向量式的存储结构因此数据的存储结构一定是线性结构C)程序设计语言中的数组一般是顺序存储结构因此利用数组只能处理线性结构D)以上三种说法都不对()冒泡排序在最坏情况下的比较次数是A)n(n+)B)nlog nC)n(n-)D)n()一棵二叉树中共有个叶子结点与个度为的结点则该二叉树中的总结点数为A)B)C)D)()下列叙述中正确的是A)数据库系统是一个独立的系统不需要操作系统的支持B)数据库技术的根本目标是要解决数据的共享问题C)数据库管理系统就是数据库系统D)以上三种说法都不对()下列叙述中正确的是A)为了建立一个关系首先要构造数据的逻辑关系B)表示关系的二维表中各元组的每一个分量还可以分成若干数据项C)一个关系的属性名表称为关系模式D)一个关系可以包括多个二维表()要使一个文本框可以显示多行文本应设置为True的属性是()AEnabledBMultiLineCMaxLengthDWidth考核知识点:()MultiLine属性的作用答案:B分析:采用书上页MultiLine:多行属性。本属性值若为“True”(真)则可输入和显示多行文本若为“False”(假)则只能输入一行文本。该属性不能在程序中改变。()在窗体上有一个名为Text的文本框。当光标在文本框中时如果按下字母键“A”则被调用的事件过程是()AFormKeyPress()BTextLostFocus()CTextClickDTextChange()答案:D()设在窗体上有一个名称为Command的命令按钮和一个名称为Text的文本框。要求单击Command按钮时可把光标移到文本框中。下面正确的事件过程是()APrivateSubCommandClick()TextGotFocusEndSubBPrivateSubCommandClick()CommandGotFocusEndSubCPrivateSubCommandClick()TextSetFocusEndSubDPrivateSubCommandClick()CommandSetFocusEndSub答案:C()执行以下程序后输出的是PrivateSubCommandClick()CH$="ABCDEFGH"PrintMid(Right(CH$,),Len(Left(CH$,)),)EndSubACDEFGHBABCDCFGDAB答案:C()设在窗体Form上有一个列表框List其中有若干个项目。要求单击列表框中某一项时把该项目显示在窗体上正确的事件过程是APrivateSubListClick()PrintListTextEndSubBPrivateSubFormClick()PrintListTextEndSubCPrivateSubListClick()PrintFormTextEndSubDPrivateSubFormClick()ListPrintListTextEndSub答案:A()若窗体上的图片框中有一个命令按钮则此按钮的Left属性是指A按钮左端到窗体左端的距离B按钮左端到图片框左端的距离C按钮中心点到窗体左端的距离D按钮中心点到图片框左端的距离答案:B考核知识点:Left属性的理解分析:Top和Left属性决定对象在其直接容器的位置Top表示对象到直接容器上边框的距离Left表示对象到直接容器左边框的距离参阅课本~()为使程序运行时通用对话框CD上显示的标题为“对话框窗口”若通过程序设置该标题则应使用的语句是ACDDialogTitle="对话框窗口"BCDAction="对话框窗口"CCDFileName="对话框窗口"DCDFilter="对话框窗口"答案:A()在窗口上有图所示的控件各控件的名称与其标题相同并有如下程序:PrivateSubFormLoad()CommandEnabled=FalseCheckValue=EndSub刚运行程序时看到的窗体外观是ABCD答案:A考核知识点:()Enabled属性的取值对对象状态的影响()Value属性的取值对复选框状态的影响分析:参阅课本,页()Enabled活动属性决定对象是否响应用户或系统事件。缺省值为“True”表示可以响应用户或系统的事件当设置为“False”表示禁止该对象响应事件往往在程序运行时控件对象呈暗淡色()Value属性:决定选项按钮和复选框的选中状态所以经常利用该属性值的判断来了解其状态从而设置对应的效果。复选框的Value的取值有三种:表示未选中表示选中变灰表示暂时不能访问。()设在窗体中有一个名称为List的列表框其中有若干个项目(如图)。要求选中某一项后单击Command按钮就删除选中的项则正确的事件过程是APrivateSubCommandClick()ListClearEndSubBPrivateSubCommandClick()ListClearListListIndexEndSubCPrivateSubCommandClick()ListRemoveItemListListIndexEndSubDPrivateSubCommandClick()ListRemoveItemEndSub答案:C考核知识点:()删除列表项的方法()列表项的引用分析:参阅课本页()Clear删除或清空列表框和组合框中所有的列表项()RemoveItem用于删除列表框和组合框中指定位置序号的列表项该方法一次删除一个列表项。调用格式:对象名RemoveItem删除项的序号()ListIndex:运行态属性其值是最后选中的列表项位置序号()某人设计了如下程序用于计算并输出!(的阶乘)PrivateSubCommandClick()t=Fork=ToStep–t=t*kNextPrinttEndSub执行程序时发现结果是错误的。下面的修改方案中能够得到正确结果的是A把t=改为t=B把Fork=ToStep–改为Fork=ToStep–C把Fork=ToStep–改为Fork=ToD把Next改为Nextk答案:A()若窗体中已经有若干个不同的单选按钮要把它们改为一个单选按钮数组在属性窗口中需要且只需要进行的操作是A把所有单选按钮的Index属性改为相同值B把所有单选按钮的Index属性改为连续的不同值C把所有单选按钮的Caption属性值改为相同D把所有单选按钮的名称改为相同且把它们的值Index属性改为连续的不同值答案:D()窗体上有文本框Text和一个菜单菜单标题、名称如表结构见图。要求程序执行时单击“保存”菜单项则把其标题显示在Text文本框中。下面可实现此功能的事件过程是APrivateSubsaveClick()TextText=filesaveCaptionEndSubBPrivateSubsaveClick()TextText=saveCaptionEndSubCPrivateSubfileClick()TextText=filesaveCaptionEndSubDPrivateSubfileClick()TextText=saveCaptionEndSub答案:B()某人在窗体上画了一个名称为Timer的计时器和一个名称为Label的标签计时器的属性设置为Enabled=TrueInterval=并编程如下。希望在程序运行时可以每秒在标签上显示一次系统当前时间。PrivateSubTimerTimer()LabelCaption=Time$EndSub在程序执行时发现未能实现上述目的那么他应做的修改是A通过属性窗口把计时器的Interval属性设置为B通过属性窗口把计时器的Enabled属性设置为FalseC把事件过程中的LabelCaption=Time$语句改为TimerInterval=Time$D把事件过程中的LabelCaption=Time$语句改为LabelCaption=TimerTime答案:A考核知识点:()计时器控件Interval属性的功能分析:参阅课本页()Interval属性:指定计时器事件之间的间隔时间以ms(毫秒)为单位取值范围为~可以在设计时或在运行时设置Timer控件的Interval属性。取(缺省值)为时使Timer控件无效()形状控件的Shape属性有种取值分别代表种几何图形。下列不属于这种几何图形的是ABCD答案:B考核知识点:形状控件的Shape属性取值代表的几何图形分析:参阅课本页Shape取值为~分别代表矩形、正方形、椭圆、圆、圆角矩形和圆角正方形()下面关于文件的叙述中错误的是A随机文件中各条记录的长度是相同的B打开随机文件时采用的文件存取方式应该是RandomC向随机文件中写数据应使用语句Print#文件号D打开随机文件与打开顺序文件一样都使用Open语句答案:C()设窗体上有一个图片框Picture要在程序运行期间装入当前文件夹下的图形文件Filejpg能实现此功能的语句是APicturePicture="Filejpg"BPicturePicture=LoadPicture("Filejpg")CLoadPicture("Filejpg")DCallLoadPicture("Filejpg")答案:B考核知识点:Picture属性的代码设置方法分析:利用LoadPicture函数加载图片()下面程序执行时在窗体上显示的是PrivateSubCommandClick()Dima()Fork=Toa(k)=–kNextkPrinta(a()a()Moda())EndSubABCD答案:D()为达到把a、b中的值交换后输出的目的某人编程如下:PrivateSubCommandClick()a=:b=Callswap(a,b)Printa,bEndSubPrivateSubswap(ByValaAsInteger,ByValbAsInteger)c=a:a=b:b=cEndSub在运行时发现输出结果错了需要修改。下面列出的错误原因和修改方案中正确的是A调用swap过程的语句错误应改为:CallswapabB输出语句错误应改为:Print"a","b"C过程的形式参数有错应改为:swap(ByRefaAsInteger,ByRefbAsInteger)Dswap中条赋值语句的顺序是错误的应改为:a=b:b=c:c=a答案:C()有如下函数:Functionfun(aAsInteger,nAsInteger)AsIntegerDimmAsIntegerWhilea>=na=anm=mWendfun=mEndFunction该函数的返回值是Aa乘以n的乘积Ba加n的和Ca减n的差Da除以n的商(不含小数部分)答案:D()下面程序的输出结果是PrivateSubCommandClick()ch$="ABCDEF"procchPrintchEndSubPrivateSubproc(chAsString)s=""Fork=Len(ch)ToSteps=sMid(ch,k,)Nextkch=sEndSubAABCDEFBFEDCBACADF答案:B()某人编写了一个能够返回数组a中个数中最大数的函数过程代码如下:FunctionMaxValue(a()AsInteger)AsIntegerDimmaxmax=Fork=ToIfa(k)>a(max)Thenmax=kEndIfNextkMaxValue=maxEndFunction程序运行时发现函数过程的返回值是错的需要修改下面的修改方案中正确的是A语句max=应改为max=a()B语句Fork=To应改为Fork=ToCIf语句中的条件a(k)>a(max)应改为a(k)>maxD语句MaxValue=max应改为应改为MaxValue=a(max)答案:D()在窗体上画一个名称为Command的命令按钮并编写以下程序:PrivateSubCommandClick()Dimn,b,tt=:b=:n=Dob=b*nt=tbn=nLoopUntiln>PrinttEndSub此程序计算并输出一个表达式的值该表达式是A!B!C!!…!D!!…!考核知识点:Do的执行流程答案:C分析:采用迭代法实现n!的计算()有一个名称为Form的窗体上面没有控件设有以下程序(其中方法Pset(X,Y)的功能是在坐标X,Y处画一个点):DimcmdmaveAsBooleanPrivateSubFormMouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)cmdmave=TrueEndSubPrivateSubFormMouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfcmdmaveThenFormPset(X,Y)EndIfEndSubPrivateSubFormMouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)cmdmove=FalseEndSub此程序的功能是。A每按下鼠标键一次在鼠标所指位置画一个点B按下鼠标键则在鼠标所指位置画一个点放开鼠标键则此点消失C不按鼠标键而拖动鼠标则沿鼠标拖动的轨迹画一条线D按下鼠标键并拖动鼠标则沿鼠标拖动的轨迹画一条线放开鼠标键则结束画线答案:D考核知识点:鼠标事件触发的时机、参数的含义逻辑变量的初始取值分析:逻辑变量cmdmove的初始值为False当按下鼠标键触发MouseDown事件的执行逻辑变量cmdmove的值变为True拖动鼠标触发MouseMove事件的执行由于cmdmove值为True所以执行FormPset(X,Y)沿鼠标拖动的轨迹画一条线放开鼠标键触发MouseUp事件的执行改变逻辑变量cmdmove的值变为False。()某人设计了下面的函数fun功能是返回参数a中数值的位数Functionfun(aAsInteger)AsIntegerDimnn=Whilea>=n=na=aWendfun=nEndFunction在调用该函数时发现返回的结果不正确函数需要修改下面的修改方案中正确的是A把语句n=改为n=B把循环条件a>=改为a>C把语句a=a改为a=aModD把语句fun=n改为fun=a答案:B()在窗体上有一个名称为Check的复选框数组(含个复选框)还有一个名称为Text的文本框初始内容为空。程序运行时单击任何复选框则把所有选中的复选框后面的文字罗列在文本框中(见图)。下面能实现此功能的事件过程是APrivateSubCheckClick(IndexAsInteger)TextText=""Fork=ToIfCheck(k)Value=ThenTextText=TextTextCheck(k)Caption""EndIfNextkEndSubBPrivateSubCheckClick(IndexAsInteger)Fork=ToIfCheck(k)Value=ThenTextText=TextTextCheck(k)Caption""EndIfNextkEndSubCPrivateSubCheckClick(IndexAsInteger)TextText=""Fork=ToIfCheck(Index)Value=ThenTextText=TextTextCheck(Index)Caption""EndIfNextkEndSubDPrivateSubCheckClick(IndexAsInteger)TextText=""Fork=ToIfCheck(k)Value=ThenTextText=TextTextCheck(k)Caption""ExitForEndIfNextkEndSub答案:A填空题请将每空的正确答案写在答题卡~序号的横线上答在试卷上不得分。()软件需求规格说明书应具有完整性无岐义性、正确性、可验证性、可修改性等特征其中最重要的是【】。()在两种基本测试方法中【】测试的原则之一是保证所测模块中每一个独立路径至少执行一次。()线性表的存储结构主要分为顺序存储结构和链式存储结构。队列是一种特殊的线性表循环队列是队列的【】存储结构。()对下列二叉树进行中序遍历的结果为【】。()在ER图中矩形表示【】。()窗体上有一个组合框其中已输入了若干个项目。程序运行时单击其中一项即可把该项与最上面的一项交换。例如:单击图中的“重庆”则与“北京”交换得到图的结果。下面是可实现此功能的程序请填空。PrivateSubComboClick()Dimtemptemp=ComboText=ComboList()‘ComboList(ComboListIndex)ComboList()=tempEndSub考核知识点:组合框ComboText属性和ComboList(ComboListIndex)属性的作用和区别组合框ComboText属性是指文本编辑区的内容而ComboList(ComboListIndex)中存放是最近选中的列表项的内容()设窗体上有一个名称为Hscroll的水平滚动条要求当滚动块移动位置后能够在窗体上输出移动的距离(即新位置与原位置的刻度值之差向右移动为正数向左移动为负数)。下面是可实现此功能的程序请填空。DimposAsIntegerPrivateSubFormLoad()pos=HScrollValueEndSubPrivateSubHScrollChange()PrintHScrollValuepospos=HScrollValueEndSub()设窗体上有一个名称为CD的通用对话框、一个名称为Text的文本框和一个名称为Command的命令按钮。程序执行时单击Command按钮则显示打开文件对话框操作者从中选择一个文本框并单击对话框上的“打开”按钮后则可打开该文本文件并读入一行文本显示在Text中。下面是实现此功能的事件过横请填空。PrivateSubCommandClick()CDFilter="文本文件|*txt|Word文档|*doc"CDFilterIndex=CDShowOpenIfCDFileName<>""ThenOpenCDFileNameForInputAs#LineInput#,ch$Close#TextText=ch$EndIfEndSub()下面的程序执行时可以从键盘输入一个正整数然后把该数的每位数字按逆序输出。例如:输入则输出输入则输出。请填空。PrivateSubCommandClick()DimxAsIntegerx=InputBox("请输入一个正整数")Whilex>PrintxModx=xWendPrintxEndSub()有如图所示的窗体。程序执行时先在Text文本框中输入编号当焦点试图离开Text时程序检查编号的合法性若编号合法则焦点可以离开Text文本框否则显示相应错误信息并自动选中错误的字符且焦点不能离开Text文本框(见图)。合法编号的组成是:前个字符是大写英文字母第个字符是“”后面是数字字符(至少个)。下面程序可实现此功能请填空。PrivateSubTextLostFocus()Dimk,nn=Len(Text)Fork=ToIIf(n>,n,)c=Mid(TextText,k,)SelectCasekCase,Ifc<"A"Orc>"Z"ThenMsgBox("第"k"个字符必须是大写字母!")SetPositionkExitForEndIfCaseIfc<>""ThenMsgBox("第"k"个字符必须是字符""""")SetPositionkExitForEndIfCaseElseIfc<""Orc>""ThenMsgBox("第"k"个字符必须是数字!")SetPositionkExitForEndIfEndSelectNextkEndSubPublicSubSetPosition(posAsInteger)TextSelStart=posTextSelLength=TextSetFocusEndSub年月全国计算机等级考试二级VB参考答案一、选择题   DBCAA  CCABA BDCCA BAACA DBABC BDCDB DCDBA 二、填空题、无歧义性、白盒测试、顺序、ACBDFEHGP、实体集、CombolList(CombolListIndex)、pos、HScrollvalue、CDFileName、ch、、x、TextText、、SetFocus

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

评分:

/11

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利