下载

1下载券

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

上传资料

关闭

关闭

关闭

封号提示

内容

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

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

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

bhrmlbb
2010-08-20 0人阅读 举报 0 0 0 暂无简介

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

年月全国计算机等级考试二级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)PDL(过程设计语言)B)PAD图C)NS图D)DFD图()下列叙述中正确的是A)软件交付使用后还需要进行维护B)软件一旦交付使用就不需要再进行维护C)软件交付使用后其生命周期就结束D)软件维护是指修复程序中被破坏的指令()数据库设计的根本目标是要解决A)数据共享问题B)数据安全问题C)大量数据存储问题D)简化数据维护()设有如下关系表:RSTABCABCABC则下列操作中正确的是A)T=R∩SB)T=R∪SC)T=R×SD)T=RS()数据库系统的核心是A)数据模型B)数据库管理系统C)数据库D)数据库管理员()假定一个VisualBasic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序以下正确的操作是A)只保存窗体模块文件B)分别保存窗体模块、标准模块和工程文件C)只保存窗体模块和标准模块文件D)只保存工程文件考核知识点:()VB应用程序的保存()VB中常见文件保存的内容()VB应用程序的构成答案:B分析:一个VB应用程序至少包含一个容器工程文件vbp和一个窗体文件frm题目告诉我们此应用程序还包括标准模块bas所以保存时会依次保存应用程序中所有的标准模块、窗体模块和工程文件。()为了清除窗体上的一个控件下列正确的操作是A)按回车键B)按Esc键C)选择(单击)要清除的控件然后按Del键D)选择(单击)要清除的控件然后按回车键考核知识点:()VB应用程序界面设计的基本操作:创建、删除、选中、格式设置、属性设置等答案:C分析:为了清除窗体上的一个控件,选择(单击)要清除的控件然后按Del键或者使用剪切操作()以下叙述中错误的是A)打开一个工程文件时系统自动装入与该工程有关的窗体、标准模块等文件B)当程序运行时双击一个窗体则触发该窗体的DblClick事件C)VisualBasic应用程序只能以解释方式执行D)事件可以由用户引发也可以由系统引发考核知识点:()VB中常见文件保存的内容()事件驱动原理常见事件的触发时机()VB应用程序的工作方式答案:C分析:VisualBasic应用程序能以解释和编译两种方式执行()设a=,b=,c=,d=,下列表达式的值是Nota<=cOr*c=b^Andb<>acA)B)C)TrueD)False考核知识点:()表达式的计算:表达式的类型(值)运算符的使用运算符的运算优先级Nota<=cOr*c=b^Andb<>ac答案:D()设a=b=则执行c=Int((ba)*Rnda)后c值的范围为A)~B)~C)~D)~考核知识点:()赋值语句的执行()表达式的计算()常见函数的使用()指定范围ab内随机整数的生成公式:Int((ba)*Rnda)答案:C分析:随机整数的生成公式Int((ba)*Rnda)产生的是ab区间的随机整数(间隔是)此处题目Int((ba)*Rnda)=Int(((b)–a)*Rnda)表示产生的是ab区间的随机整数Int((ba)*Rnda)表示产生的是ab区间的随机整数即c值的范围为()在窗体上画一个命令按钮名称为Command然后编写如下事件过程:PrivateSubCommandClick()a$="softwareandhardware"b$=Right(a$,)c$=Mid(a$,,)MsgBoxa$,,b$,c$,EndSub运行程序单击命令按钮则在弹出的信息框的标题栏中显示的是A)softwareandhardwareB)softwareC)hardwareD)考核知识点:()常见函数的使用:Right和Mid函数的使用MsgBox的调用格式(参数)答案:C分析:根据课本MsgBox的过程调用格式此处题目中MsgBoxa$,,b$,c$,第一个参数a$表示提示信息“softwareandhardware”此处表示按钮、数量和图标信息第二个参数缺省第三个参数b$表示消息框中标题内容“hardware”()在窗体上画一个命令按钮和一个文本框其名称分别为Command和Text把文本框的Text属性设置为空白然后编写如下事件过程:PrivateSubCommandClick()a=InputBox("Enteraninteger")b=InputBox("Enteraninteger")TextText=baEndSub程序运行后单击命令按钮如果在输入对话框中分别输入和则文本框中显示的内容是A)B)C)D)出错考核知识点:()InputBox函数返回值的类型()与的功能和区别()常用控件对象常见属性类型答案:A分析:InputBox函数默认返回值的类型是字符串类型除非按Esc键或单击“取消”或“Cancel”按钮则返回值或空串。要求两旁的操作数应均为字符型才完成字符串的连接运算否则作求和运算。连接符两旁的操作数不管是字符型还是数值型,进行连接操作前系统先将操作数转换成字符型,然后再连接题目中表达式ba中加号两旁的操作数均为字符型,即完成的是数据字符串的连接运算文本框的Text属性是字符串类型与赋值等号右边的表达式类型一致,所以A选项是答案()在窗体上画两个文本框其名称分别为Text和Text然后编写如下程序:PrivateSubFormLoad()ShowTextText=""TextText=""TextSetFocusEndSubPrivateSubTextChange()TextText=Mid(TextText,)EndSub程序运行后如果在文本框Text中输入BeijingChina则在文本框Text中显示的内容是A)BeijingChinaB)ChinaC)BeijingD)BeijingC考核知识点:()常见事件的触发时机()常见字符串函数的功能:Mid答案:B分析:Mid(x,n,n)函数的功能是从字符串x左边第n个字符开始连续取其中的n个字符组成新字符串返回若缺省第三个参数n表示从字符串x左边第n个字符开始到字符串尾连续取字符组成新字符串返回题目中Mid(TextText,)表示从目前文本框Text中的第个字符位置开始取字符到末尾组成新字符串返回。文本框的Change事件是在文本框内容(Text)发生改变时触发的所以在文本框Text中每输入一个字符就会触发一次Change事件所以B选项是答案()在窗体上画一个列表框和一个命令按钮其名称分别为List和Command然后编写如下事件过程:PrivateSubFormLoad()ListAddItem"Item"ListAddItem"Item"ListAddItem"Item"EndSubPrivateSubCommandClick()ListList(ListListCount)="AAAA"EndSub程序运行后单击命令按钮其结果为A)把字符串“AAAA”添加到列表框中但位置不能确定B)把字符串“AAAA”添加到列表框的最后(即“Item”的后面)C)把列表框中原有的最后一项改为“AAAA”D)把字符串“AAAA”插入到列表框的最前面(即“Item”的前面)考核知识点:()列表框常见属性、方法的含义和使用答案:B分析:语句ListList(列表项索引编号)="AAAA"的含义是将指定索引编号列表项内容更改为新的内容"AAAA"若列表项索引编号超过列表框内已有的列表项索引编号则表示在列表框的最后添加新的列表项(内容为"AAAA")此处ListListCount=最后列表项索引编号所以B选项是答案()假定有如下事件过程:PrivateSubFormClick()循环次数xnDimxAsInteger,nAsIntegerx=n=DoWhilex<x=x*n=nLoopPrintx,nEndSub程序运行后单击窗体输出结果是A)B)C)D)考核知识点:()基本语句流程:赋值循环()Print方法的功能和格式答案:A循环次数CheckCounter空空True……False分析:语句DoWhile循环当循环条件x<成立时执行循环一旦x>=结束。Print方法表示在当前窗体上输出信息注意当输出项之间用分号分隔时输出采用的是标准格式。具体可以列表分析整个运行过程确定答案A选项是答案()有如下程序:PrivateSubFormClick()DimCheck,CounterCheck=TrueCounter=DoDoWhileCounter<Counter=CounterIfCounter=ThenCheck=FalseExitDoEndIfLoopLoopUntilCheck=FalsePrintCounter,CheckEndSub程序运行后单击窗体输出结果为A)B)C)TrueD)False考核知识点:()基本语句流程:赋值分支循环()循环语句DoWhile与DoUntil的区别()Print方法的功能和格式答案:D分析:语句DoWhile循环当循环条件Counter<成立时执行循环一旦Counter>=结束语句DoUntil循环当循环条件Check=False不成立时执行循环直到循环条件Check=False成立结束循环。ExitDo表示跳出最内的一层Do循环。Print方法表示在当前窗体上输出信息注意当输出项之间用分号分隔时输出采用的是标准格式。具体可以列表分析整个运行过程确定答案A选项是答案()有如下程序:循环次数isumPrivateSubFormClick()DimiAsInteger,sumAsIntegersum=Fori=ToIfiMod<>AndiMod=Thensum=sumiEndIfNextiPrintsumEndSub程序运行后单击窗体输出结果为A)B)C)D)考核知识点:()基本语句流程:赋值分支循环()Print方法的功能和格式答案:A分析:语句For循环当循环变量的值<=终值时执行循环一旦循环变量的值>终值时结束缺省步长表示步长为Print方法表示在当前窗体上输出信息。具体可以列表分析整个运行过程确定答案A选项是答案()在窗体上画一个名称为Text的文本框和一个名称为Command的命令按钮然后编写如下事件过程:PrivateSubCommandClick()外循环i内循环jArray(i,j)Array(,)=Array(,)=Array(,)=Array(,)=Array(,)=Array(,)=Array(,)=Array(,)=Array(,)=Dimarray(,)AsIntegerDimiAsInteger,jAsIntegerFori=ToForj=Toarray(i,j)=ijNextjNextiTextText=array(,)array(,)‘将数组元素array(,)和array(,)累加的结果显示在文本框中EndSub程序运行后单击命令按钮在文本框中显示的值是A)B)C)D)考核知识点:()数组的基本操作:数组元素的访问(给数组元素赋值读取数组元素)()For循环的执行流程(双重循环)()的功能()常用控件对象常见属性类型答案:A外循环i内循环jArray(i,j)a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=a(,)=…分析:数组操作经常与For循环配合使用对二维数组元素的有规律的访问是通过双重For循环实现的。具体可以列表分析整个运行过程确定答案A选项是答案()在窗体上画一个命令按钮其名称为Command然后编写如下事件过程:PrivateSubCommandClick()Dima(,),a(,)Fori=ToForj=Toa(i,j)=ija(i,j)=a(i,j)ijNextjNextiPrinta(,)a(,)EndSub程序运行后单击命令按钮在窗体上输出的是A)B)C)D)考核知识点:()数组的基本操作:数组元素的访问(给数组元素赋值读取数组元素)()For循环的执行流程(双重循环)()Print方法的功能(注意输出格式)答案:D分析:数组操作经常与For循环配合使用对二维数组元素的有规律的访问是通过双重For循环实现的。具体可以列表分析整个运行过程确定答案D选项是答案。当然也可以从循环体中找出规律:a(i,j)=ija(i,j)=a(i,j)ij=*(ij)a(,)==a(,)=*()=()有如下程序:OptionBase‘注意设置数组下标从开始PrivateSubFormClick()Dimarr,SumSum=arr=Array(,,,,,,,,,)‘使用Array函数进行数组arr整体赋值,前提arr定义为变体型变量Fori=ToIfarr(i)=arr(i)ThenSum=Sumarr(i)EndIfNextiPrintSumEndSub程序运行后单击窗体输出结果为A)B)C)D)考核知识点:()数组的基本操作:Array函数的功能和使用数组元素的访问(给数组元素赋值读取数组元素)()For循环和If语句的执行流程()依据已知算法经验学会分析程序的功能()Print方法的功能(注意输出格式)答案:C分析:()综观代码可以看出是一个累加求和问题()分析If语句的条件arr(i)=arr(i)可以看出累加求和是针对能被整除的数组元素进行的因此求和结果是=答案是C()在窗体上画一个命令按钮然后编写如下事件过程:PrivateSubCommandClick()Dima()AsStringFori=Toa(i)=Chr(Asc("A")(i))循环ia(i)a()=Chr(Asc("A")())="A"a()=Chr(Asc("A")())="B"a()=Chr(Asc("A")())="C"a()=Chr(Asc("A")())="D"a()=Chr(Asc("A")())="E"NextiForEachbInaPrintbNextEndSub程序运行后单击命令按钮输出结果是A)ABCDEB)C)abcdeD)出错信息考核知识点:()数组的基本操作:数组元素的访问(给数组元素赋值读取数组元素)()专门用于访问数组元素的ForEach循环的功能和执行流程()常用Chr和Asc函数的功能()Print方法的功能(注意输出格式)答案:A分析:()Chr(Asc("A")偏移量△C)返回相对于"A"偏移△C的字符()ForEachbIna‘表示通过For循环依次输出a数组中的每个Printb‘数组元素(此处用b表示数组中的元素)Next()以下关于函数过程的叙述中正确的是A)如果不指明函数过程参数的类型则该参数没有数据类型B)函数过程的返回值可以有多个C)当数组作为函数过程的参数时既能以传值方式传递也能以引用方式传递D)函数过程形参的类型与函数返回值的类型没有关系考核知识点:()函数过程参数的类型定义要求、传递方式()函数过程返回值的类型和数量情况答案:D分析:A)如果不指明函数过程参数的类型则该参数的数据类型为变体型B)函数过程的返回值有且只有一个C)当数组作为函数过程的参数时只能以引用方式传递()函数过程F的功能是:如果参数b为奇数则返回值为否则返回值为。以下能正确实现上述功能的代码是A)FunctionF(bAsInteger)IfbMod=ThenReturnElseReturnEndIfEndFunctionB)FunctionF(bAsInteger)IfbMod=ThenF=ElseF=EndIfEndFunctionC)FunctionF(bAsInteger)IfbMod=ThenF=ElseF=EndIfEndFunctionD)FunctionF(bAsInteger)IfbMod<>ThenReturnElseReturnEndIfEndFunction考核知识点:()函数过程的定义格式答案:B分析:()若期望函数过程返回值函数过程体中必须要有一条给函数名赋值的语句所以排除使用Return格式选项A)D)()根据题目逻辑:要求b为奇数则返回值为否则返回值为所以符合的选项只有B(选项C的逻辑恰好相反)()以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是A)KeyAscii参数是所按键的ASCII码B)KeyAscii参数的数据类型为字符串C)KeyAscii参数可以省略D)KeyAscii参数是所按键上标注的字符考核知识点:()KeyPress事件过程中参数KeyAscii的格式、类型和含义的理解答案:A分析:KeyAscii参数是所按键的ASCII码(类型是Integer)KeyPress事件过程中参数KeyAscii是不能省略的()设窗体上有一个名为Text的文本框并编写如下程序:PrivateSubFormLoad()ShowTextText=""TextSetFocusEndSubPrivateSubFormMouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Print"程序设计"EndSubPrivateSubTextKeyDown(KeyCodeAsInteger,ShiftAsInteger)Print"VisualBasic"EndSub程序运行后如果在文本框中输入字母“a”然后单击窗体则在窗体上显示的内容是A)VisualBasicB)程序设计C)VisualBasic程序设计D)a程序设计考核知识点:()常见事件(鼠标、键盘事件)的触发时机()Print方法的功能(注意输出格式)答案:C分析:在文本框中输入字母“a”就会触发文本框的键盘KeyDown事件所以会在窗体上打印显示“VisualBasic”而后鼠标单击窗体必然会触发窗体的鼠标MouseUp事件所以会继续在窗体上打印显示“程序设计”。根据Print方法输出格式中使用的具体情况分析应选择答案C()假定有下表所列的菜单结构:标题名称层次显示appear(主菜单)大图标bigicon(子菜单)小图标smallicon(子菜单)要求程序运行后如果单击菜单项“大图标”则在该菜单项前添加一个“√”。以下正确的事件过程是A)PrivateSubbigiconClick()bigiconChecked=FalseEndSubB)PrivateSubbigiconClick()MeappearbigiconChecked=TrueEndSubC)PrivateSubbigiconClick()bigiconChecked=TrueEndSubD)PrivateSubbigiconClick()appearbigiconChecked=TrueEndSub考核知识点:()事件驱动原理()菜单对象的常见属性设置答案:C分析:()题目要求单击菜单项“大图标”在该菜单项前添加一个“√”因此需要为“大图标”对象编写它的单击事件过程()效果:菜单项“大图标”前添加一个“√”。已知菜单项的Checked复选属性决定是否在对象前显示“√”(True显示False不显示)因此在大图标的单击事件过程中应编写设置该对象Checked属性为True的赋值语句选择答案C()假定通用对话框的名称为CommonDialog命令按钮的名称为Command则单击命令按钮后能使打开的对话框的标题为“NewTitle”的事件过程是A)PrivateSubCommandClick()CommonDialogDialogTitle="NewTitle"CommonDialogShowPrinterEndSubB)PrivateSubCommandClick()CommonDialogDialogTitle="NewTitle"CommonDialogShowFontEndSubC)PrivateSubCommandClick()CommonDialogDialogTitle="NewTitle"CommonDialogShowOpenEndSubD)PrivateSubCommandClick()CommonDialogDialogTitle="NewTitle"CommonDialogShowColorEndSub考核知识点:()通用对话框(CommonDialog)控件的常用属性和方法(不同种类对话框的特殊属性)答案:C分析:利用通用对话框(CommonDialog)控件在窗体上创建种标准对话框(打开(Open)、另存为(SaveAs)、颜色(Color)、字体(Font)、打印机(Printer)和帮助(Help)对话框)。CommonDialog的DialogTitle属性仅对打开(Open)、另存为(SaveAs)对话框有效所以选择能调出打开对话框(CommonDialogShowOpen)的选项C()如果一个工程含有多个窗体及标准模块则以下叙述中错误的是A)任何时刻最多只有一个窗体是活动窗体B)不能把标准模块设置为启动模块C)用Hide方法只是隐藏一个窗体不能从内存中清除该窗体D)如果工程中含有SubMain过程则程序一定首先执行该过程考核知识点:()启动对象的种类和设置()Hide方法的执行效果答案:D分析:()只有窗体和SubMain过程才能作为启动对象而且必须通过设置“工程属性”中的启动对象才有效否则默认情况下将第一个创建的窗体作为启动窗体运行。()用Hide方法只是隐藏一个窗体相当于设置该窗体的Visible属性为False,它不能从内存中清除该窗体()假定在工程文件中有一个标准模块其中定义了如下记录类型TypeBooksNameAsString*TelNumAsString*EndType要求当执行事件过程CommandClick时在顺序文件Persontxt中写入一条记录。下列能够完成该操作的事件过程是A)PrivateSubCommandClick()DimBAsBooksOpen"c:Persontxt"ForOutputAs#BName=InputBox("输入姓名")BTelNum=InputBox("输入电话号码")Write#,BName,BTelNumClose#EndSubB)PrivateSubCommandClick()DimBAsBooksOpen"c:Persontxt"ForInputAs#BName=InputBox("输入姓名")BTelNum=InputBox("输入电话号码")Print#,BName,BTelNumClose#EndSubC)PrivateSubCommandClick()DimBAsBooksOpen"c:Persontxt"ForOutputAs#Name=InputBox("输入姓名")TelNum=InputBox("输入电话号码")Write#,BClose#EndSubD)PrivateSubCommandClick()DimBAsBookOpen"c:Persontxt"ForInputAs#Name=InputBox("输入姓名")TelNum=InputBox("输入电话号码")Print#,BName,BTelNumClose#EndSub考核知识点:()顺序文件的访问答案:A分析:()在顺序文件中写入信息,首先应以写的顺序访问方式(OutPut或Append)打开文件()写入记录信息:由于不是采用随机文件访问方式,所以不能将记录作为一个整体顺序方式写入文件,只能将记录信息以数据成员为单位分别写入记录中数据成员的访问格式:记录变量名数据成员名顺序文件写的方式有两种选择:Print或Write()目录列表框的Path属性的作用是A)显示当前驱动器或指定驱动器上的某目录下的文件名B)显示当前驱动器或指定驱动器上的目录结构C)显示根目录下的文件名D)显示指定路径下的文件考核知识点:()目录列表框的Path属性的作用答案:B分析:目录列表框也包含有一个隐式属性Path属性用来设置或返回目录列表框中突出显示的目录名(当前打开的文件夹当前路径)二、填空题(每空分共分)请将每空的正确答案写在答题卡【】~【】序号的横线上答在试卷上不得分。()数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段其中数据独立性最高的阶段是【】。()算法复杂度主要包括时间复杂度和【】复杂度。()在进行模块测试时要为每个被测试的模块另外设计两类模块:驱动模块和承接模块(桩模块)。其中【】的作用是将测试数据传送给被测试的模块并显示被测试模块所产生的结果。()一棵二叉树第六层(根结点为第一层)的结点数最多为【】个。()数据结构分为逻辑结构和存储结构循环队列属于【】结构。()设有以下函数过程:Functionfun(mAsInteger)AsIntegerDimkAsInteger,sumAsIntegersum=Fork=mToStepsum=sumkNextkfun=sumEndFunction若在程序中用语句s=fun()调用此函数则s的值为【】。考核知识点:()函数调用的执行流程()For循环的执行流程答案:分析:()在调用程序中程序执行到调用函数过程的语句后系统就会将控制转移到被调用的函数过程的定义部分。同时实参和形参结合将实参传递给对应的形参m形参m替代实参执行Fun函数过程在被调用的函数过程中从第一条Function语句开始依次执行其中的所有语句当执行到EndFunction语句后函数名带着返回值返回到主调程序的断点并从断点处继续程序的执行。调用函数过程的执行流程图如下所示s=fun()Functionfun(mAsInteger)AsIntegerDimkAsInteger,sumAsIntegersum=Fork=mToStep循环次数sumksum=sumkNextkfun=sumEndFunction()()在窗体上画一个命令按钮和一个文本框然后编写命令按钮的Click事件过程。程序运行后在文本框中输入一串英文字母(不区分大小写)单击命令按钮程序可找出未在文本框中输入的其他所有英文字母并以大写方式降序显示到Text中。例如若在Text中输入的是abDfdb则单击Command按钮后Text中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。PrivateSubCommandClick()DimstrAsString,sAsString,cAsStringstr=UCase(Text)s=""c="Z"Whilec>="A"IfInStr(str,c)=Then‘将未在文本框内容str中出现英文字母c累加连接入s中s=【】scEndIf‘根据题目要求逆序取英文字符c的下一个英文字母c=Chr$(Asc(c)【】)WendIfs<>""ThenText=sEndIfEndSub()在n个运动员中选出任意r个人参加比赛有很多种不同的选法选法的个数可以用公式计算。下图窗体中个文本框的名称依次是Text、Text、Text。程序运行时在Text、Text中分别输入n和r的值单击Command按钮即可求出选法的个数并显示在Text文本框中(见下图)。请填空。PrivateSubCommandClick()DimrAsInteger,nAsIntegern=Text‘文本框中读取运动员总人数,存入变量n中r=Text‘文本框中读取选取的参加人数,存入变量r中Text=fun(n)fun(【】nr)fun(r)‘根据公式调用fun函数,完成计算EndSubFunctionfun(nAsInteger)aslong‘根据对累乘n!算法的了解和题目的功能要求,确认Fun函数完成n!的计算DimtAsLong【】t=‘设置累乘器的初值为Fork=Tont=t*k‘分析出t是累乘器,推导出填空的答案Nextfun=tEndFunction()以下是一个比赛评分程序。在窗体上建立一个名为Text的文本框数组然后画一个名为Text的文本框和名为Command的命令按钮。运行时在文本框数组中输入个分数单击“计算得分”命令按钮则最后得分显示在Text文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分)如图所示。请填空。PrivateSubCommandClick()DimkAsIntegerDimsumAsSingle,maxAsSingle,minAsSinglesum=Text()max=Text()min=【】Text()Fork=【】ToIfmax<Text(k)Thenmax=Text(k)EndIfIfmin>Text(k)Thenmin=Text(k)EndIfsum=sumText(k)NextkText=(【】summaxmin)EndSub()如图所示在列表框List中已经有若干人的简单信息运行时在Text文本框(即“查找对象”右边的文本框)输入一个姓或姓名单击“查找”按钮则在列表框中进行查找若找到则把该人的信息显示在Text文本框中。若有多个匹配的列表项则只显示第个匹配项若未找到则在Text中显示“查无此人”。请填空。PrivateSubCommandClick()DimkAsInteger,nAsInteger,foundAsBoolean‘设置查找成功标志变量found初始值为False表示没有查找到found=Falsen=Len(【】TextText或Text)k=Whilek<ListListCountAndNotfoundIfText=Left$(ListList(k),n)Then‘若查找到‘将查找到的详细信息列表项信息通过文本框显示Text=【】ListList(k)found=True‘设置标志变量found为True表示查找成功EndIfk=kWendIfNotfoundThen‘分析出:found的值为False表示没有查找到Text="查无此人"EndIfEndSub年月全国计算机等级考试二级VB笔试试卷(含参考答案)选择题【】CACDC【】DAABB【】BCCDC【】CABBA【】DAADC【】ADBAC【】CCDAB填空题【】数据库系统【】空间【】驱动模块【】【】存储结构【】【】sc【】【】nr【】t=【】text()【】【】(summaxmin)【】texttext【】listlist(k)②①①②③�EMBEDWordPicture����EMBEDWordPicture���unknowndocdoc

用户评价(0)

关闭

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

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

提示

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

评分:

/17

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利