关闭

关闭

关闭

封号提示

内容

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

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

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

上传者: bhrmlbb 2010-08-20 评分 0 0 0 0 0 0 暂无简介 简介 举报

简介:本文档为《2007年4月全国计算机等级考试二级VB笔试试卷doc》,可适用于考试题库领域,主题内容包含年月全国计算机等级考试二级VB笔试试卷(含解答评析)一、 选择题(第小题分,共分)下列各题A)、B)、C)、D)四个选项中只有一个选项是正确的。请将符等。

年月全国计算机等级考试二级VB笔试试卷(含解答评析)一、 选择题(第小题分,共分)下列各题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                        CD                   E         F                  X     Y                         Z进行前序遍历的结果为A)DYBEAFCZX                B)YDEBFZXCAC)ABDYECFXZ                D)ABCDEFXYZ()某二叉树中有n个度为的结点,则该二叉树中的叶子结点数为 A)n        B)n            C)n         D)n()在下列关系运算中,不改变关系表中的属性个数但能减少元组个数的是 A)并           B)交          C)投影       D)笛卡儿乘积()在ER图中,用来表示实体之间联系的图形是 A)矩形          B)椭圆形       C)菱形        D)平行四边形()下列叙述中错误的是 A)在数据库系统中,数据的物理结构必须与逻辑结构一致B)数据库技术的根本目标是解决数据共享问题C)数据库技术是指己有数据管理系统的基础上建立数据库D)数据库系统需要操作系统的支持()下面可以正确定义个整型变量和个字符串变量的语句是A)DimnmAsIntegersAsStringB)Dimab$cAsStringC)DimaAsIntegerbcAsStringD)DimxyAsIntegerzAsString考核知识点:()变量的声明答案:D分析:请参阅书上~页。格式在定义变量时指定其数据类型:Dim变量名As数据类型格式用类型说明符定义变量:Dim变量名类型说明符若As数据类型或类型说明符缺省表示声明该变量为变体类型数据类型关键字类型说明符字节型Byte无整型Integer长整型Long单精度型Single!双精度型Double#货币型Currency字符串型String$()下列表达式中不能判断x是否为偶数的是A)x=Int(x)B)xMod=C)Fix(x)=xD)x=考核知识点:()条件表达式的构造()运算符和函数的理解和应用答案:D分析:请参阅书上~页。判断x是否为偶数的条件是:x对取余为或x能被整除而选项D仅表示x对整除商为()设在名称为Myform的窗体上只有个名称C的命令按钮下面叙述中正确的是A)窗体的Click事件过程的过程名是MyformClickB)命令按钮的Click事件过程的过程名是CClickC)命令按钮的Click事件过程的过程名是CommandClickD)上述种过程名称都是错误的考核知识点:()事件过程名答案:B分析:采用书上页。窗体事件过程的一般形式如下:PrivateSubForm事件名(参数列表)局部变量和常数声明语句块EndSub控件事件过程的一般形式如下:PrivateSub控件名事件名(参数列表)局部变量和常数声明语句块EndSub所以此处名称为Myform的窗体的Click事件过程的过程名是FormClickC命令按钮的Click事件过程的过程名是CClick()设窗体上有个滚动条要求单击滚动条右端的按钮一次滚动块移动一定的刻度值决定此刻度值的属性是A)MaxB)MinC)SmallChangeD)LargeChange考核知识点:()滚动条的常用属性的功能答案:C分析:()Max和Min属性:用于设置滑块滚动的数值范围。()SmallChange和LargeChange属性:用于设置滑块滚动的增量值对于单击滚动条两端箭头可用SmallChange而单击滚动条空白处则可用LargeChange指定其移动量。()个二维数组可以存放个矩阵。在程序开始有语句OptionBase则下面定义的数组中正好可以存放个矩阵(即只有个元素)的是A)Dima(To,)AsIntegerB)Dima(,)AsIntegerC)Dima(,)AsIntegerD)Dima(To,To)AsInteger考核知识点:()数组的声明定义(下标的设置)数组大小的计算()OptionBase的作用答案:B分析:请参阅书上~页。数组声明格式中下标的格式为:下界To上界其中下界和上界分别表示该维的最小和最大的下标值下界To可以缺省若程序没有特别声明默认的下标取值从开始。数组中数组元素的个数称为数组的长度(大小)数组元素的多少受内存的制约。数组的大小(元素的个数)=第一维大小*第二维大小*……维的大小=维上界维下界OptionBase表示数组下标从开始。A选项Dima(To,)AsInteger表示声明了整形数组B选项Dima(,)AsInteger表示声明了整形数组C选项Dima(,)AsInteger表示声明了整形数组D选项Dima(To,To)AsInteger存在语法错误下标中的下界应小于上界。()若设置了文本框的属性PasswordChar="$"则运行程序时向文本框中输入个任意字符后文本框中显示的是A)个"$"B)个"$"C)个"*"D)无内容考核知识点:()文本框的属性PasswordChar的作用答案:A分析:请参阅书上页。PasswordChar:口令属性。本属性的缺省值为空字符串表示用户可以看到输入的字符如果该属性的值为某个字符(例如:*)则表示本文本框用于输入口令用户输入的内容仍保存在Text属性中但输入的每个字符将被代换为PasswordChar属性设定的字符显示在文本框中所以若设置了文本框的属性PasswordChar="$"则运行程序时向文本框中输入个任意字符后文本框中显示的是个"$"()设在窗体上有个名称为Combo的组合框含有个项目要删除最后一项正确的语句是A)ComboRemoveItemComboTextB)ComboRemoveItemC)ComboRemoveItemComboListCountD)ComboRemoveItem考核知识点:()组合框的常用属性()RemoveItem方法的调用格式答案:B分析:请参阅书上~页。其中列表项序号是为列表项进行的位置编号从上至下依次为、、ListCount:运行态属性表示当前列表框中列表项的数目常通过ListCount得到最后一个列表项的序号Text:运行态属性其值为当前最后选中的列表项的内容与List(对象名ListIndex)相同。对于组合框Text属性值可表示用户直接在编辑区输入的文本或列表框中最后选中的列表项内容用户可通过代码编辑器窗口直接对Text属性进行设置修改。RemoveItem用于删除列表框和组合框中指定位置序号的列表项该方法一次删除一个列表项。调用格式:对象名RemoveItem删除项的序号此处窗体上的Combo的组合框含有个项目要删除最后一项即删除序号为的列表项所以应使用ComboRemoveItem()工程中有个窗体名称分别为Form、FormForm为启动窗体该窗体上有命令按钮Command。要求程序运行后单击该命令按钮时显示Form则按钮的Click事件过程应该是A)PrivateSubCommandClick()FormShowEndSubB)PrivateSubCommandClick()FormVisibleEndSubC)PrivateSubCommandClick()LoadFormEndSubD)PrivateSubCommandClick()FormLoadEndSub考核知识点:()窗体的常见事件和方法答案:A分析:请参阅书上~页。Show用于显示窗体。调用格式:窗体名ShowLoad(装载)事件:VB把窗体从磁盘或从磁盘缓冲区读入内存时触发本事件。Load事件往往用于在启动程序时对属性和变量进行初始化VB程序在执行时会自动装载启动窗体在使用Show方法显示窗体时也会自动将尚未载入内存的窗体装入内存并引发窗体的Load事件。若想将窗体(或其他对象)载入内存但并不显示它则可以使用装载语句装载语句的格式:Load对象名()若在某窗体中有如下事件过程:PrivateSubCommandClick(IndexAdInteger)……EndSub则以下叙述中正确的是A)此事件过程与不带参数的事件过程没有区别B)有个名称为Command的窗体单击此窗体则执行此事件过程C)有个名称为Command的控件数组数组中有多个不同类型控件D)有个名称为Command的控件数组数组中有多个相同类型控件考核知识点:()窗体事件过程的框架()控件数组答案:D分析:采用书上~页。窗体事件过程的一般形式如下:PrivateSubForm事件名(参数列表)局部变量和常数声明语句块EndSub控件事件过程的一般形式如下:PrivateSub控件名事件名(参数列表)局部变量和常数声明语句块EndSub控件数组是由一组相同类型的控件组成使用相同的名称具有基本相同的属性执行不同的功能。根据建立时的顺序系统给每个控件元素赋予相同的名称和一个唯一的索引号(Index)即下标下标从开始。这些控件元素将使用相同的事件过程为了区分是哪个控件数组元素触发的事件VB会把它的下标值传送给事件过程的Index参数然后在事件过程中根据Index参数的值来判断()下面循环语句中在任何情况下都至少执行一次循环体的是A)DoWhile<条件>循环体LoopB)While<条件>循环体WendC)Do循环体LoopUntil<条件>D)DoUntil<条件>循环体Loop考核知识点:()循环格式和执行流程答案:C分析:参阅课本~页。格式:DoWhile循环条件循环体Loop格式:Do循环体LoopWhile循环条件两种格式的循环结构的区别是:格式是每一次进入循环总是先进行判断循环条件是否为“True”然后再决定是否进入执行循环体而格式则是先执行一次循环体再进行判别循环条件是否为真“True”以决定是否再次进入执行循环体。即格式的循环形式有可能一次也没进入循环体执行而格式则是不管循环条件是否为真至少执行一次循环体。格式:DoUntil循环条件循环体Loop格式:Do循环体LoopUntil循环条件Until直到型循环与While当型循环的区别仅在于:前者当循环条件为“False”时反复执行循环体后者是当循环条件为“True”时反复执行循环体。格式的循环形式有可能一次也没进入循环体执行而格式则是不管循环条件是否为真至少执行一次循环体。格式:While循环条件循环体Wend说明:这种结构使用完全类似于DoLoop的当型循环(格式)表示当循环条件为True时反复执行循环体直到循环条件为False为止。()在窗体上有个名为Cd的通用对话框为了在运行程序时打开保存文件对话框则在程序中应使用的语句是A)CdAction=B)CdAction=C)CdShowSave=TrueD)CdShowSave=考核知识点:()通用对话框的Action属性和ShowSave方法的使用答案:A分析:参阅课本~页。Action功能属性该属性直接决定打开何种类型的对话框。None:无对话框显示。Open:打开文件对话框。SaveAs:另存为对话框。Color:颜色对话框。Font:字体对话框。Printer:打印机对话框。Help:帮助对话框。该属性不能在属性窗口内设置只能在程序中赋值用于调出相应的对话框。在实际应用中除了可以通过对通用对话框的Action属性设置明确对话框的类型外还可以使用VB提供的一组方法来打开不同类型的通用对话框。这些方法如下。ShowOpen:打开对话框。ShowSave:另存为对话框。ShowColor:颜色对话框。ShowFont:字体对话框。ShowPrinter:打印机对话框。ShowHelp:帮助对话框。如果在程序中有下面的语句:CommondialogShowSave或CommondialogAction=在运行到上面的语句时系统就会调出“另存为”对话框。()下面关于菜单的叙述中错误的是A)各级菜单中的所有菜单项的名称必须唯一B)同一子菜单中的菜单项名称必须唯一但不同子菜单中的菜单项名称可以相同C)弹出式菜单用PopupMenu方法弹出D)弹出式菜单也用菜单编辑器编辑考核知识点:()菜单的设计()菜单的命名答案:B分析:参阅课本P~页弹出式菜单与下拉式菜单一样都是用菜单编辑器进行编辑设计的各级菜单中的所有菜单项的名称必须唯一。()已知有下面过程PrivateSubprocClick(aAsInteger,bAsString,OptionalxAsBoolean)……EndSub正确调用此过程的语句是A)Callproc()B)Callproc,“abc”,FalseC)proc(,“abc”,True)D)proc,“abc”考核知识点:()过程调用的格式()实参和形参的匹配关系()可选参数答案:D分析:子程序过程的调用是一条独立的调用语句有两种形式:一种是把过程名放在Call语句中另一种是将过程名作为一个语句来使用。.用Call语句调用Sub过程调用格式:Call子程序过程名(实参列表).把过程名作为一个语句来使用调用格式:过程名实参实参…与第一种方式相比它有两点不同:()不需要关键字Call()实参列表不需要加括号。通常子程序过程的调用一般要求实参的次序必须与形参的次序相匹配即位置顺序必须一致而且实参和形参的数量必须相同对应位置的参数数据类型要一致。除非子程序过程在定义时用Optional关键字设置了可选参数注意必须设置在形参表的最后此时在调用该过程时可以缺省可选参数所对应的参数。在过程体中可通过IsMissing函数测试调用时是否传送可选参数此题四个选项中前三个不符合子程序过程的调用格式选项D采用的是格式形式传送了必要的前两个实参可选参数对应的第三个实参缺省。()在窗体上有个名称为Text的文本框和个名称为Command的命令按钮要求在程序执行时每单击命令按钮一次文本框向右移动一定距离。下面能够正确实现上述功能的程序是A)PrivateSubCommandClick()TextLeft=EndSubB)PrivateSubCommandClick()TextLeft=TextLeftEndSubC)PrivateSubCommandClick()TextMoveTextLeftEndSubD)PrivateSubCommandClick()TextMoveTextLeftEndSub考核知识点:()公共属性和方法的掌握答案:C分析:Left、Top是可见对象的位置属性:Top表示对象到直接容器上边框的距离Left表示对象到直接容器左边框的距离调用Move方法可以改变对象所在的位置调用格式:对象名Move左边距离,上边距离,宽度,高度题目要求:每单击命令按钮一次文本框向右移动一定距离可以采用两种方法实现:()PrivateSubCommandClick()TextMoveTextLeftEndSub()PrivateSubCommandClick()TextLeft=TextLeftEndSub()某人创建了个工程其中的窗体名称为Form之后又添加了个名为Form的窗体并希望程序执行时先显示Form窗体那么他需要做的工作是A)在工程属性对话框中把“启动对象”设置为FormB)在Form的Load事件过程中加入语句LoadFormC)在Form的Load事件过程中加入语句FormShowD)把Form的TabIndex属性设置为把Form的TabIndex属性设置为考核知识点:()启动对象设置的作用()Load方法和事件、Show方法、TabIndex属性的作用和区别答案:A分析:一个应用程序若具有多个窗体它们多是并列关系。在程序运行过程中首先执行的对象被称为启动对象。缺省情况下第一个创建的窗体被指定为启动对象即启动窗体。要指定其他窗体为启动窗体应使用“工程”菜单中“属性”命令在工程属性对话框中把“启动对象”设置。当一个窗体要显示在屏幕之前该窗体必须先“建立”接着被装入内存(Load)最后显示(Show)在屏幕上load语句该语句把一个窗体装入内存。执行Load语句后可以引用窗体中的控件及各种属性但此时窗体没有显示出来。用Load语句装入窗体其形式如下:Load窗体名在首次用Load语句将窗体调入内存时依次发生Initialize和Load事件。Show方法该方法用来显示一个窗体它兼有加载和显示窗体两种功能。也就是说在执行Show时如果窗体不在内存中则Show自动把窗体装入内存然后再显示出来TabIndex属性决定了按Tab键时对象在其父窗体中得到焦点的顺序。()窗体上有个名称为Text的文本框和个名称为Command的命令按钮。要求程序运行时单击命令按钮就可把文本框中的内容写到文件outtxt中每次写入的内容附加到文件原有内容之后。下面能够正确实现上述功能的程序是A)PrivateSubCommandClick()Open“outtxt”ForInputAs#Print#,TextTextClose#EndSubB)PrivateSubCommandClick()Open“outtxt”ForOutputAs#Print#,TextTextClose#EndSubC)PrivateSubCommandClick()Open“outtxt”ForAppendAs#Print#,TextTextClose#EndSubD)PrivateSubCommandClick()Open“outtxt”ForRandomAs#Print#,TextTextClose#EndSub考核知识点:()顺序文件的基本操作()随机文件的基本操作答案:C分析:根据题目要求程序运行时单击命令按钮就可把文本框中的内容写到文件outtxt中每次写入的内容附加到文件原有内容之后。抓住以上三点确定()应在命令按钮的Click事件中实现以上功能()应以写的方式打开文件()而且是追加写入不是覆盖写入方式对文件操作所以符合要求的只有答案C()为了计算…的值某人编程如下k=s=Whilek<=k=k:s=skWendPrints在调试时发现运行结果有错误需要修改。下列错误原因和修改方案中正确的是A)While…Wend循环语句错误应改为Fork=To…NextkB)循环条件错误应改为Whilek<C)循环前的赋值语句k=错误应改为k=D)循环中两条赋值语句的顺序错误应改为s=sk:k=k考核知识点:()While循环流程()For循环流程答案:D分析:原代码的错误在于在累加过程中由于K初始值为先K变化后S累加所以漏加多加所以选项D将循环中两条赋值语句的顺序调换一下即可解决。若采用方案B循环条件改为Whilek<还不够还需要将S的初始值设置为才行而A方案将While…Wend循环语句改为Fork=To…Nextk是不正确的因为NextK本身包含K=K的变化()下面程序在调试时出现了死循环:PrivateSubCommandClick()n=InputBox(“请输入一个整数”)DoIfnMod=Thenn=nElsen=nEndIfLoopUntiln=EndSub下面关于死循环的叙述中正确的是A)只有输入的n是偶数时才会出现死循环否则不会B)只有输入的n是奇数时才会出现死循环否则不会C)只有输入的n是大于的整数时才会出现死循环否则不会D)输入任何整数都会出现死循环考核知识点:()循环和条件语句执行流程()Mod运算符的应用和作用答案:D分析:条件表达式nMod=是用于判断n是否为偶数的根据循环体中的If语句可以发现:若n为偶数经过一次循环n=n之后就变为奇数而若n为奇数则n=n则始终为奇数。因此循环结束条件n=永远也不会满足所以输入任何整数n都会出现死循环()在窗体上有个名称为CommonDialog的通用对话框和个名称为Command的命令按钮以及其他一些控件。要求在程序运行时单击Command按钮则显示打开文件对话框并在选择或输入了个文件名后就可以打开该文件。以下是CommandClick事件过程的两种算法算法:PrivateSubCommandClick()CommonDialogShowOpenOpenCommonDialogFileNameForInputAs#EndSub算法:PrivateSubCommandClick()CommonDialogShowOpenIfCommonDialogFileName<>“”ThenOpenCommonDialogFileNameForInputAs#EndIfEndSub下面关于这两种算法的叙述中正确的是A)显示打开文件对话框后若未选择或输入任何文件名则算法会出错算法不会B)显示打开文件对话框后若未选择或输入任何文件名则算法会出错算法不会C)两种算法的执行结果完全一样D)算法允许输入的文件名中含有空格而算法不允许考核知识点:()通用对话框FileName属性的作用答案:B分析:通用对话框FileName属性中存放打开对话框用户选定的文件名或保存对话框中用户输入的文件名所以根据执行流程可以看到算法对于打开文件对话框中FileName属性先做判断仅当选择或输入了文件名才打开指定的文件否则什么也不做但算法则没有做判断这样会导致当未选择或输入任何文件名打开操作失败的错误。()窗体上有个名称为List的列表框其中已经输入了若干个项目(如图所示)还有个文本框名称分别为Text、Text个名称为Command的命令按钮并有以下程序PrivateSubCommandClick()DimstrAsString,sAsString,kAsIntegers=Textstr=""Fork=ListListCountToStepIfInStr(ListList(k),s)>Thenstr=strListList(k)""EndIfNextkIfstr=""ThenText="没有匹配的项目"ElseText=strEndIfEndSub程序运行时在Text中输入“京”单击命令按钮则在Text中显示的内容是A)京B)北京南京C)南京北京D)没有匹配的项目考核知识点:()For循环的执行流程()列表框的常用属性以及访问方法()Instr函数的功能答案:C分析:Fork=ListListCountToStepIfInStr(ListList(k),s)>Thenstr=strListList(k)""EndIfNextk上述代码的作用是:逆序访问列表框的每一列表项查找是否存在某个列表项内容包含text中的内容若包含则顺序连接存放在Str中。()在窗体上画个名称为Command的命令按钮并编写如下程序:PrivateSubCommandClick()PrintFUN("ABCDEFG")EndSubFunctionFUN(STAsString)AsStringSTLEN=Len(ST)TEMP=""ForK=ToSTLENTEMP=TEMPMid(ST,K,)Mid(ST,STLENK,)NextKFUN=TEMPEndFunction程序运行时单击命令按钮则在窗体上显示的是A)ABCDEFGB)AGBFCEC)GFEDCBAD)AGBFCED考核知识点:()调用函数过程执行流程()For循环的执行流程()常用字符串函数答案:B分析:ForK=ToSTLENTEMP=TEMPMid(ST,K,)Mid(ST,STLENK,)NextK作用从字符串ST两侧提取一个字符成对连接起来注意此处循环的终值为STLEN即由于K的初值为且步长为所以循环次。()在窗体上先后画个图片框名称分别为Picture和bananabanana中添加了香蕉图片(见图)且将bananaDragMode属性设置为。要求程序运行时可以用鼠标把banana拖曳到Picture中(见图)。能实现此功能的事件过程是A)PrivateSubFormDragDrop(SourceAsControl,XAsSingle,YAsSingle)bananaMovePictureLeftX,PictureTopYEndSubB)PrivateSubbananaDragDrop(SourceAsControl,XAsSingle,YAsSingle)SourceMovePictureLeftX,PictureTopYEndSubC)PrivateSubPictureDragDrop(SourceAsControl,XAsSingle,YAsSingle)SourceMovePictureLeftX,PictureTopYEndSubD)PrivateSubPictureDragDrop(SourceAsControl,XAsSingle,YAsSingle)bananaMovebananaLeftX,bananaTopYEndSub考核知识点:()拖放答案:C分析:DragMode属性:用来设置源对象的拖放模式。当DragMode属性设置为则为自动拖动方式控件不能正常响应鼠标事件。默认设置为表示启用手动拖动方式这时必须在MouseDown事件过程中用Drag方法启动“拖动”确定拖放操作开始常常在MouseUp事件过程中用Drag方法关闭“拖动”确定拖放操作结束。DragDrop事件:在一个完整的拖放动作(即将一个控件source拖动到目标对象object上并释放鼠标按钮)完成PrivateSubobjectDragDrop(indexAsInteger,sourceAsControl,xAsSingle,yAsSingle)……EndSub一般利用DragDrop事件过程用来控制在一个拖动操作完成时将会发生的情况。例如可将源控件移到一个新的位置或将一个文件从一个位置复制到另一个位置。()在窗体上画个名称为Command的命令按钮然后编写如下事件过程OptionBasePrivateSubCommandClick()Dima(,)AsIntegerFori=ToForj=Toa(i,j)=(ij)*NextjNextis=Fori=Tos=sa(i,i)NextiPrintsEndSubA)B)C)D)考核知识点:()数组的基本访问操作()循环的基本流程答案:A分析:Fori=ToForj=Toa(i,j)=(ij)*NextjNexti上述代码是完成给二维数组元素赋值根据赋值公式计算得到a(i,i)=(ii)*=i即a(,)=、a(,)=、a(,)=、a(,)=、a(,)=s=Fori=Tos=sa(i,i)NextiPrints上述代码是完成二维数组中次对角线上元素求和并输出()在窗体上从左到右有Text、Text两个文本框(见图)要求程序运行时在Text中输入个分数后按回车键则判断分数的合法性若分数为~中的个数则光标移到Text中否则光标不动并弹出对话框显示“分数错”。下面程序中正确的是A)PrivateSubTextKeyPress(KeyAsciiAsInteger)IfKeyAscii=Thena=Val(Text)Ifa>=Ora<=ThenTextSetFocusElseTextSetFocus:MsgBox("分数错")EndIfEndIfEndSubB)PrivateSubTextKeyPress(KeyAsciiAsInteger)IfKeyAscii=Thena=Val(Text)Ifa>=Anda<=ThenTextSetFocusElseTextSetFocus:MsgBox("分数错")EndIfEndIfEndSubC)PrivateSubTextKeyPress(KeyAsciiAsInteger)IfKeyAscii=Thena=Val(Text)Ifa<Anda>ThenTextSetFocusElseTextSetFocus:MsgBox("分数错")EndIfEndIfEndSubD)PrivateSubTextKeyPress(KeyAsciiAsInteger)IfKeyAscii=Thena=Val(Text)Ifa>=Anda<=ThenTextSetFocusElseTextSetFocus:MsgBox("分数错")EndIfEndIfEndSub考核知识点:()题目的理解逻辑分析能力()文本框常见的事件、方法和属性的应用()逻辑表达式的准确构造()Msgbox的使用答案:D分析:若分数为~中的个数则光标移到Text中否则光标不动并弹出对话框显示“分数错”。a=Val(Text)Ifa>=Anda<=Then‘分数为~中的个数TextSetFocusElseTextSetFocus:MsgBox("分数错")EndIf()在窗体上画个命令按钮名称分别为Command、Command并编写如下程序Constn=,m=Dima(m,n)PrivateSubCommandClick()k=Fori=TomForj=Tona(i,j)=kk=kNextjNextiEndSubPrivateSubCommandClick()summ=Fori=TomForj=TonIfi=Ori=mThensumm=summa(i,j)ElseIfj=Orj=nThensumm=summa(i,j)EndIfEndIfNextjNextiPrintsummEndSub过程CommandClick()的作用是在二维数组a中存放个m行n列的矩阵过程CommandClick()的作用是A)计算矩阵外围一圈元素的累加和B)计算矩阵除外围一圈以外的所有元素的累加和C)计算矩阵第列和最后一列元素的累加和D)计算矩阵第行和最后一行元素的累加和考核知识点:()数组的基本操作()规律性访问的分析和理解能力答案:A分析:summ=Fori=TomForj=TonIfi=Ori=mThen‘第行或最后行summ=summa(i,j)ElseIfj=Orj=nThen‘第列或最后列summ=summa(i,j)EndIfEndIfNextjNexti二、填空题(每空分共分)请将每一个空的正确答案写在答题纸上~序号的横线上答在试卷上答在试卷上不得分注意:以命令关键字填空的必须写完整()在深度为的满二叉树中度为的结点个数为。()软件测试分为白箱(盒)测试和黑箱(盒)测试等价类划分法属于 测试。()在数据库系统中实现各种数据管理功能的核心软件称为    数据库管理系统()软件生命周期可分为多个阶段一般分为定义阶段、开发阶段和维护阶段。编码和测试属于   阶段。()在结构化分析使用的数据流图(DFD)中利用   对其中的图形元素进行确切解释。()下面程序的功能是从键盘输入个大于的整数m计算并输出满足不等式…n<m的最大的n。请填空。PrivateSubCommandClick()Dims,m,nAsIntegerm=Val(InputBox("请输入一个大于的整数"))n=‘答案为s=DoWhiles<mn=ns=sn*nLoopPrint"满足不等式的最大n是"‘答案为nEndSub考核知识点:()累加算法()分析和推理能力()下面程序的功能是把文件filetxt中重复字符去掉后(即若有多个字符相同则只保留个)写入文件filetxt。请填空。PrivateSubCommandClick()DimincharAsString,tempAsString,outcharAsStringoutchar=""Open"filetxt"ForInputAs#Open"filetxt"ForoutputAs‘答案为#n=LOF()‘答案为inchar=Input$(n,)Fork=Tontemp=Mid(inchar,k,)ifinstr(outchar,temp)=then‘答案为outchar=outchartempEndIfNextkPrint#,‘答案为outcharClose#Close#EndSub考核知识点:()文件的基本操作和常用函数()Instr函数的功能()在窗体上先画个名为Text的文本框和个名为Label的标签再画个名为Op的有个单选按钮的单选按钮数组其Index属性按季度顺序为~(见图)。在文件salestxt中按月份顺序存有某企业某年个月的销售额。要求在程序执行时鼠标单击个单选按钮则Text中显示相应季度的销售总额并把相应的文字显示在标签上。图是单击“第季度”单选按钮所产生的结果。请填空。Dimsales()AsLongPrivateSubFormLoad()Open"salestxt"ForInputAs#Fork=ToInput#,sales(k)NextkClose#EndSubPrivateSub(IndexAsInteger)‘答案为OpClickDimsumAsLong,kAsInteger,monthAsIntegersum=month=index*‘答案为Fork=Tomonth=monthsum=sumsales(month)NextkLabelCaption=Op(Index)"销售总额:"‘答案为CaptionText=sumEndSub考核知识点:()文件的基本操作和常用函数()控件数组的访问()某人编写如下函数来判断a是否为素数若是则函数返回True否则返回FalseFunctionprime(aAsInteger)AsBooleanDimkAsInteger,isprimeAsBooleanIfa<Thenisprime=FalseElseisprime=Truek=

用户评论(0)

0/200

精彩专题

上传我的资料

每篇奖励 +2积分

资料评价:

/20
1下载券 下载 加入VIP, 送下载券

意见
反馈

立即扫码关注

爱问共享资料微信公众号

返回
顶部