VB二级历年真题.pdf

上传人:无*** 文档编号:90865822 上传时间:2023-05-18 格式:PDF 页数:29 大小:6.14MB
返回 下载 相关 举报
VB二级历年真题.pdf_第1页
第1页 / 共29页
VB二级历年真题.pdf_第2页
第2页 / 共29页
点击查看更多>>
资源描述

《VB二级历年真题.pdf》由会员分享,可在线阅读,更多相关《VB二级历年真题.pdf(29页珍藏版)》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、2009年 3 月二级VB语言笔试真题及答案一、选择题(每题2 分,共计70分)(1)下列叙述中正确的是A)栈是先进先出的线性表B)队列是 先进后出 的线性表C)循环队列是非线性结构D)有序线性表即可以采用顺序存储结构,也可以采用链式存储结构(2)支持子程序调用的数据结构是A)栈 B)树C)队列 D)二叉树(3)某二叉树有5 个读为2 的结点,则该二叉树中的叶子结点数是A)10 B)8 C)6 D)4(4)下列排序方法中,最坏情况下比较次数最少的是A)冒泡排序 B)简单选择排序C)直接插入排序 D)堆排序(5)软件按功能可以分为:应用软件、系统软件和支撑软件(或工具软件)。下列属于应用软件的是

2、A)编译程序 B)操作系统C)教务管理系统 D)汇编程序(6)下面叙述中错误的是A)软件测试的R的是发现错误并改正错误B)对被调试程序进行“错误定位 是程序调试的必要步骤C)程序调试也成为DebugD)软件测试应严格执行测试计划,排除测试的随意性(7)耦合性和内聚性是对模块独立性度量的两个标准。卜列叙述中正确的是A)提高耦合性降低内聚性有利于提高模块的独、7?性B)降低耦合性提高内聚性有利于提高模块的独立性C)耦合性是指个模块内部各个元素间彼此结合的紧密程度D)内聚性是指模块间互相连接的紧密程度(8)数据库应用系统中的核心问题是A)数据库设计 B)数据库系统设计由关系R 通过运算得到关系S,则

3、所使用的运算为A)选择 B)投影 C)插入 D)连接(10)将E-R图转换为关系模式时,实体和联系都可以表示为A)属性 B)键 C)关系 D)域(11)执行语句 Dim X,Y As Integer 后,A)X和Y 均被定义为整型变量B)X和 丫均被定义为变体类型变量C)X被定义为整型变量,丫被定义为变体变量D)X被定义为变体类型变量,丫被定义为整型变量(12)以下关系表达式中,其值为True的是A)XYZXYzB)VisualBasicvisualbasicC)the=thereD)lntegerl 目回区|改变文字字体 然 体 黑 体 厂 粗 体A)Option1.Value=FalseC

4、heck1.Value=TrueB)Option1.Value=TrueCheck1.Value=0C)Option2.Value=FalseCheck1.Value=2D)Option1.Value=TrueCheck1.Value=117)在 窗 体 上 画”个名称为Commandl的命令按钮,然后编写如卜事件过程:Private Sub Command1_Click()c=1234c1=Trim(Str(c)For i=1 To 4Print _NextEnd Sub程序运行后,单击命令按钮,要求在窗体上显示如下内容:1121231234则在横线处应填入的内容为A)Right(c1,i)

5、B)Left(c1J)C)Mid(c1,i,1)D)Mid(c1,i,1)18)假定有一下程序段For i=1 To 3For j=5 To 1 Step-1Print i*jNext jNext i则语句Print i*j的执行次数是A)15 B)16 C)17 D)1819)在窗体上画两个文本框(名称分别为T e x tl和Text2)和一个命令按钮(名称为Commandl),然后编写如下事件过程:Private Sub Command1_Click()x=0Do While x50 x=(x+2)*(x+3)n=n+1LoopTextl.Text=Str(n)Text2.Text=Str

6、(x)End Sub程序运行后,单击命令按钮,在两个文本框中显示的值分别为A)1 和 0 B)2 和 72C)3 和 50 D)4 和 16820)阅读程序:Private Sub Command 1_Click()a=0For j=1 To 15a=a+j Mod 3Next jPrint aEnd Sub程序运行后,单击窗体,输出结果是A)105 B)1 C)120 D)1521)以下说法中正确的是A)当焦点在某个控件上时,按下一个字母键,就会执行该控件的KeyPress事件过程B)因为窗体不接受焦点,所以窗体不存在自己的KeyPress事件过程C)若按下的键相同,KeyPress事件过程

7、中的KeyAscii参数与KeyDown事件过程中的 KeyCode参数的值也相同D)在 KeyPress事件过程中,KeyAscii参数可以省略22)语句 Dim a(-3 To 4,3 To 6)As Integer 定义的数组的元素个数是A)18 B)28 C)21 D)3223)在窗体上画一个命令按钮,其名称为Commandl,然后编写如下代码:Option Base 1Private Sub Command1_Click()Dim aa=Array(1,2,3,4)j=1For i=4 To 1 Step-1s=s+a(i)*jj=j*10Next iPrint sEnd Sub程序

8、运行后,单击命令按钮,其输出结果是A)4321 B)1234 C)34 D)1224)假定通过复制,粘贴操作建立了一个命令按钮数组Commandl,以下说法中错误的是A)数组中每个命令按钮的名称(Nam e属性)均为CommandlB)若未做修改,数组中每个命令按钮的大小都一样C)数组中各个命令按钮使用同个Click事件过程D)数组中每个命令按钮的Index属性值都相同25)在窗体上画一个命令按钮,名称为Commandl然后编写如下代码:Option Base 0Private Sub Command1_Click()Dim A1(4)As Integer,A2(4)AsIntegerFor

9、k=0 To 2A1(k+1)=lnputBox(请输入一个整数。A2(3-k)=A1(k+1)Next kPrint A2(k)End Sub程序运行后,单击命令按钮,在输入对话框中依次输入2、4、6 则输出结果为A)0 B)1 C)2 D)3(26)以下关于函数过程的叙述中,正确的是A)函数过程形参的类型与函数返回值的类型没有关系B)在函数过程中,过程的返回值可以有多个C)当数组作为函数过程的参数是,既能以传值方式传递,也能以传址方式传递D)如果不指明函数过程参数的类型,则该参数没有数据类型27)在窗体上画两个标签按钮和个命令按钮,其名称分别为 Labell、Label2 和 Comman

10、dl,然后编写如下程序:Private Sub func(L As Label)L.Caption=1234”End SubPrivate Sub Form_Load()Labell.Caption=HABCDELabel2.Caption=10End SubPrivate Sub Command1_Click()a=Val(Label2.Caption)Call func(Labell)Label2.Caption=aEnd Sub程序运行后,单击命令按钮,则在两个标签中显示的内容分别为A)ABCD 和 10 B)1234 和 100C)ABCD 和 100 D)1234 和 1028)在窗

11、体上画一个命令按钮(名称为Commandl),并编写如下代码:Function fun1(ByVal a As Integer,b AsInteger)As IntegerDim t As Integert=a-bb=t+afun1=t+bEnd FunctionPrivate Sub Command 1_Click()Dim x As Integerx=10Print fun1(fun1(x,(fun1(x,x-1),x-1)End Sub程序运行后,单击命令按钮,输出结果是A)10 B)0 C)11 D)2129.29)以下关于过程及过程参数的描述中,错误的是A)过程的参数可以是控件名称B

12、)调用过程时使用的实参的个数应与过程形参的个数相同C)只有函数过程能够将过程中处理的信息返回到调用程序中D)窗体可以作为过程的参数30)设有如卜通用过程Public Function Fun(xStr As String)AsStringDim tStr As String,strL As IntegertStr=strL=Len(xStr)i=strL/2Do While i 7 ThenImagel.Left=8 -100End IfEnd Sub(7)设窗体上有一个名称为C om bol的组合框,并有以下程序:Private Sub Combol_KeyPress(KeyAscii As

13、 Integer)If 9 =13ThenFor k=0 To Combol.ListCount-1If Combol.Text=Combol.List(k)ThenCombol.Text=Exit ForEnd IfNext kIf Combol.Text ThenCombol.Add Item 10End IfEnd IfEnd Sub程序的功能是:在组合框的编辑区中输入文本后按回车键,则检查列表中有无与此文本相同的项目,若有,则把编辑区中的文本删除,否则把编辑区中的文本添加到列表的尾部。请填空。(8)在当前目录下有一个名为myfile.txt的文本文件,其中有若干行文木。下而程序的功能是

14、读入此文件中的所有文本行,按行计算每行字符的ASCII码之和,并显示在窗体上。请填空Private Sub Command1_Click()Dim ch$,ascii As IntegerOpen myfile.txt For 11 As#1While Not EOF(1)Line Input#1,chascii=toascii(1 2)Print asciiWendClose#1End SubPrivate Function toascii(mystr$)As Integern=0For k=1 To 13n=n+Asc(Mid(mystr,k,1)Next ktoascii=nEnd Fu

15、nction(9)本程序实现文本加密。先给定序列:a1,a2,.,an,它们的取值范围是1n,而且互不相同。加密算法是:把原文本中第k个字符放到加密后文本的第a k个位置处。若原文本长度大于n,则只对前面n个字符加密,后面的字符不变;若原文本长度小于n,则在后面补字符*使文本长度为n后再加密。例如:若给定序列a1,a2,.a7分别为2,5,37,6,1,4当文本为“PROGRAM时,加密后的文本为APOMRRG当 文 本 为THANK时,加 密 后 的 文 本 为*TA*HKN卜面的过程code实现这一算法。其中参数数组a()中存放给定序列(个数与数组a的元素个数相等)a1,a2,a3的值,要

16、加密的文本放在参数变量mystr中,过程执行完毕,加密后的文本仍然放在变量mystr中。请填空。Option Base 1Private Sub code(a()As Integer,mystr AsString)Dim ch As String,c1 As Stringn=UBound(a)-Len(mystr)If n 0 Thenmystr=mystr&String$(n,)End Ifch=mystrFor k=14 To UBound(a)c1=Mid(mystr,k,1)n=15Mid(ch,n)=c1Next kmystr=chEnd Sub2008年 9 月计算机二级VB语言真

17、题一、选择题(每题2 分,共计70分)1.一个栈的初始状态为空。现将元素1、2、3、4、5、A、B、C、D、E依次入栈,然后再依次出栈,则元素出栈的顺序是A)12345ABCDEB)EDCBA54321C)ABCDE12345D)54321EDCBA2.下列叙述中正确的是A)循环队列有队头和队尾两个指针,因此,循环队列是非线性结构B)在循环队列中,只需要队头指针就能反映队列中元素的动态变化情况C)在循环队列中,只需要队尾指针就能反映队列中元素的动态变化情况D)循环队列中元素的个数是由队头指针和队尾指针共同决定3.在长度为n的有序线性表中进行二分查找,最坏情况下需要比较的次数是A)O(n)B)O

18、(n2)C)O(log2n)D)O(nlog2n)4.下列叙述中正确的是A)顺序存储结构的存储一定是连续的,链式存储结构的存储空间不一定是连续的B)顺序存储结构只针对线性结构,链式存储结构只针对非线性结构C)顺序存储结构能存储有续表,链式存储结构不能存储有序表D)链式存储结构比顺序存储结构行省存储空间5.数据流图中带有箭头的线段表示的是A)控制流 B)事件驱动C)模块调用 D)数据流6.在软件开发中,需求分析阶段可以使用的同居是A)N-S 图 B)DFD 图C)PAD图 D)程序流程图7.在面向对象方法中,不属于“对象”基本特点的是A)一致性 B)分类性 C)多态性 D)标识唯一性8.一间宿舍

19、可以住多个学生,则实体宿舍和学生之间的联系是A)一对一 B)一对多 C)多对一 D)多对多9.在数据管理技术发展的三个阶段中,数据共享最好的是A)人工管理阶段 B)文件系统阶段C)数据库系统阶段 D)三个阶段相同10.有三个关系R、S、和T如下:R S T系R和S通过运算得到关系T,则所使用的运算为A)笛卡尔积 B)交 C)并D)自然连接11.在设计窗体时双击窗体的任何地方,可以打开的窗口是A)代码窗口 B)属性窗口C)工程资源管理器窗口 D)工具箱窗口12.若变量a未实现定义而直接使用(例如:a=0),则变量a的类型是A)lnteger B)String C)BooleanD)Variant

20、13.把圆周率的近似值3.14159存放在变量p i中,应该把变量p i定义为A)Dim pi As Integer B)Dim pi(7)As IntegerC)Dim pi As Single D)Dim pi As Long14.表达式2*32-4*2/2+32的值是A)30 B)31C)49 D)4815似卜不能输出Program的语句是A)Print mid(VBProgram3,7)B)Print Right(VBProgram,7)C)Print Mid(VBProgram,3)D)Print Left(VBProgram,7)16.窗体上有一个名称为F ram el的框架(如图

21、),若要把框架匕显示的Framel改为汉字“框架”,下面正确的语句是A)Frame1.Name=框 架B)Frame1.Caption=框架C)Frame1.Text=框架 D)Frame1.Value=框架17.以下叙述中错误的是A)在通用过程中,多个形式参数之间可以用逗号作为分隔符B)在Print方法中,多个输出项之间可以用逗号作为分隔符C)在Dim语句中,所定义的多个变量可以用逗号作为分隔符D)当一行中有多个语句时,可以用逗号作为分隔符18.设窗体上有一个列表框控件List),含有若干列表项。以下能表示当前被选中的列表项内容的是A)List1.List B)List1.Listindex

22、C)List1.Text D)List1.Index19.设 a=4,b=5,c=6,拟l行语句 Print ab And b 10 Then Exit ForNextTextl.Text=Str(n)End Sub程序运行后,单击命令按钮,在文本框中显示的值是A)2 B)3 C)4 D)528.假定有以下循环结构Do U n til条件表达式循环体Loop则以下正确的描述是A)如果“条件表达式”的值是0,则一次循环体也不执行B)如果“条件表达式”的值不是0,则至少执行一次循环体C)不论“条件表达式”的值是否为“真”,至少要执行一次循环体D)如果“条件表达式”的值恒为0,则无限次执行循环体29

23、.在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim I,NumRandomizeDoFor I=1 To 1000Num=lnt(Rnd*100)Print NumSelect CaseNumCase 12Exit ForCase 58Exit DoCase 65,68,92EndEnd SelectNext ILoopEnd Sub上述事件过程执行后,下列描述中正确的是A)Do循环执行的次数为1000此B)在 F o r循环中产生的随机数小于或等于100C)当所产生的随机数为12时结束所有循环D)当所产生的随机数为65,68或 92

24、时窗体关闭、程序结束30.在窗体上画一个名为Commandl的命令按钮,然后编写如下代码:Option Base 1Private Sub Command1_Click()Dim aa=Array(1,2,3,4)j=1For I=4 To 1 Step-1s=s+a(l)*j=j*10Next IPrint sEnd Sub运行上面的程序,其输出结果是A)1234 B)12C)34 D)432131.设有如下通用过程Public Function Fun(xStr As String)AsStringDim tStr As String,strL AsIntegertStr=strL=Len

25、(xStr)I=1Do While I 0)Print n Mod 10;n=n 10WendPrintEnd Sub但调试时发现只输出了前2 行(即 2 个数的反序),而未输出第3 行(即2 个数之和的反序),程序需要修改。卜面的修改方案中正确的是A)把 过 程 p ro 的 形 式 参 数 n As In te g e r改为ByV ai n As IntegerB 已 Call pro(a+b)改为 pro a+bC)把 n=n10 改为 n=n/10D)在 pro b 语句之后增加语句c%=a+b,再 把 Callpro(a+b)改为 pro c二、填空题(每空2 分,共计30分)1

26、,对下列二叉树进行中序遍历的结果是 1】2.按照软件测试的一般步骤,继承测试应在【2】测试之后进行。3.软件工程三要素包括方法、工具和过程,其中,【3】支持软件开发的各个环节的控制和管理。4.数据库设计包括概念设计、【4】和物理设计。5.在二维表中,元组的【5】不能再分成更小的数据项。6.在窗体上画一个文本框、一个标签和个命令按钮,其名称分别为Textl Label 1 和Commandl,然后编写如下两个事件过程:Private Sub Command1_Click()S$=lnputBox(请输入一个字符串”)Textl.Text=S$End SubPrivate Sub Text1_Ch

27、ange()Labell.Caption=UCase(Mid(Text1.Text,7)End Sub程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串HVisualBasicH,则在标签中显示的内容是 6L7.在窗体上画一个命令按钮,其名称为 Commandl,然后编写如下事件过程:Private Sub Command1_Click()a$=National Computer RankExaminationn=Len(a$)S=0For I=1 To nb$=Mid(a$,I,1)If b$=,nt,ThenS=S+1End IfNext IPrint SEnd S

28、ub程序运行后,单击命令按钮,输出结果是7】。8.为了在运行时把d:pic文件夹下的图形文件a.jpg装入图片框Picturel,所使用的语句为【8】9.设有如下程序:Private Sub Form_Click()Cisa$=ABCDFGFor I=1 To 6Print Tab(12-I);9 Next IEnd Sub程序运行后,单击窗体,结果如图所示,请填空。10.在窗体上画一个命令按钮,其名称为Commandl,然后编写如下代码:Option Base 1Private Sub Command1_Click()Dim ArrArr=Array(43,68,-25,65,-78,12,

29、-79,43,-94,72)pos=0neg=0Fork=1 To10If Arr(k)0 Then10Else11End IfNext kPrint pos,negEnd Sub以上程序的功能是,计算并输出数组A rr中10个数的正数之和pos与负数之和neg,请填空12.在窗体上画一个名为Commandl的命令按钮,然后编写如下程序:Private Sub Command1_Click()Dim i As IntegerSum=0n=lnputBox(Enter a number)n=Val(n)For i=1 To nSum=12Next iPrint SumEnd SubFunctio

30、n fun(t As Integer)As Longp=1For i=1 To tP=P*iNext i13End Function以上程序的功能是,计算1!+2!+3!+.+n!,其中n从键盘输入,请填空。14.在窗体上画一个文本框,名称为Text),然后编写如下程序:Private Sub Form_Load()Open d:tempdat.txt For OutputAs#1Textl.Text=m,End SubPrivate Sub Text1_KeyPress(KeyAscii AsInteger)If KeyAscii=13 ThenIf UCase(Text1.T e x t)

31、=14 ThenClose#1EndElseWrite#1,15Textl.Text=End IfEnd IfEnd Sub2008年 4 月计算机二级考试VB笔试试题一、选择题(每题2分,共计70分)1.程序流程图中带有箭头的线段表示的是A)图元关系 B)数据流 C)控制流 D)调用关系2.结构化程序设计的基本原则不包括A)多态性 B)自顶向下 C)模块化 D)逐步求精3.软件设计中模块划分应遵循的准则是A)低内聚低耦合 B)高内聚低耦合C)低内聚高耦合 D)高内聚高耦合4.在软件开发中,需求分析阶段产生的主要文档是A)可行性分析报告 B)软件需求规格说明书C)概要设计说明书 D)集成测试计

32、划5.算法的有穷性是指A)算法程序运行的时间是有限B)算法程序所处理的数据是有限的C)算法程序的长度是有限的 D)算法只能被有限的用户使用6.-对长度为n的线性表排序,在最坏的情况下,比较次数不是n(n-1)/2的排序算法是A)快速排序 B)冒泡排序C)直接插入排序 D)堆排序7.卜,列关于栈的叙述正确的是A)栈按“先进先出”组织数据 B)栈按“现金后出”组织数据C)只能在栈底插入数据 D)不能删除数据8.在数据库设计中,将E-R图转换成关系数据模型的过程属于A)需求分析阶段 B)概念设计阶段C)逻辑设计阶段 C)物理设计阶段9.有一个关系R.S和T如下由关系R和S通过运算得到关系T,则使用的

33、运算为A)并 B)自然连接 C)笛卡尔积 D)交10.设有表示学生选课的三张表,学生S(学号,姓名,性别,年龄,身份证号),课程C(课号,课名),选课SC(学号,课号,成绩),则表示SC的关键字(键或码)为A)课号,成绩 B)学号,成绩C)学号,课号 D)学号,姓名,成绩11)以下叙述中错误的是()=A)标准模块文件的扩展名是.basB)标准模块文件是纯代码文件C)在标准模块中声明的全局变量可以在整个工程中使用D)在标准模块中不能定义过程1 2)在 Viusal Basic 中,表达式 3*25 Mod 3 的值 是()。A)1 B)0 C)3 D)出现错误提示(1 3)以下选项中,不合法的V

34、isual Basic的变量名 是()。A)a56 B)_xyz C)a_b D)andif(1 4)以下数组定义语句中,错误的是(A)Static a(10)As Integer B)Dim c(3,1 To 4)C)Dim d(-10)D)Dim b(0 To 5,1 To 3)As Integer15)现有语句:y=llf(x0,x Mod 3,0),设 x=10,则y的值是()。A)0 B)1 C)3 D)语句有错1 6)为了使文本框同时具有垂直和水平滚动条,应先把MultiLine属性设置为T ru e,然后再把ScrollBars属性设置为()。A)0 B)1 C)2 D)31 7

35、)文本框Text)的KeyDown事件过程如下:Private Sub Text1_KeyDown(KeyCode AsInteger,Shift As Integer)End Sub其 中 参 数KeyCode的值表示的是发生此事件时()oA)是否按下了 A lt键或Ctrl键 B)按下的是哪个数字键C)所按的键盘键的键码 D)按下的是哪个鼠标键1 8)窗体上有个名称为HscrolH的滚动条,程序运行后,当单击滚动条两端的箭头时,立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是()。A)Private Sub HscrolH_Change()Print Hscrol

36、H.ValueEnd SubB)Private Sub Hscroll1_Change()PrintHscrolH.SmallChangeEnd SubC)PrivateSub Hscroll1_Scroll()PrintHscrolH.ValueEnd SubD)PrivateSub Hscroll1_ ScrollPrintHscrolH.SmallChangeEnd Sub19)若已把个命令按钮的Default属性设置为True,则卜面可导致按钮的C lick事件过程被调用的操作是()。A)用鼠标右键单击此按钮 B)按键盘上的Esc键C)按键盘上的回车键 D)用鼠标右键双击此按钮20)要

37、使两个单选按钮属于同一个框架,正确的操作 是()。A)先画一个框架,再在框架中画两个单选按钮B)先画一个框架,再在框架外画两个单选按钮,然后把单选按钮拖到框架中C)先画两个单选按钮,再用框架将单选按钮框起来D)以上三种方法都正确21)能够存放组合框的所有项目内容的属性是()A)Caption B)Text C)List D)Selected22)设窗体上有一个标签Label和一个计时器Timeri,Tim eri的Interval属性被设置为1000,Enabled属性被设置为True。要求程序运行时每秒在标签中显示-次系统当前时间。以卜可以实现上述要求的事件过程是()oA)Private S

38、ub Timer1_Timer()Labell.Caption=TrueEnd SubB)Private Sub Timer1_Timer()Labell.Caption=Time$End SubC)Private Sub Timeri_Timer()Labell.Interval=1End SubD)Private Sub Timer1_Timer()For k=1 To Timeri.IntervalLabell.Caption=TimerNext kEnd Sub2 3)设有如图所示窗体和以下程序:Private Sub Command1_Click()Textl.Text=Visual

39、 Basic*End SubPrivate Sub Text1_LostFocus()If Textl.Text BASIC ThenTextl.Text=Textl.SetFocusEnd IfEnd Sub程序运行时,在Textl文本框中输入“Basic”(如图所示),然后单击Commandl按钮,则产生的结果是()oA)文本框中无内容,焦点在文本框中B)文本框中为“Basic”,焦点在文本框中C)文本框中为“Basic”,焦点在按钮上D)文本框中为“Visual Basic”,焦点在按钮上2 4)窗体上有一个名称为Commandl的命令按钮,其事件过程如下:Private Sub Com

40、mand1_Click()x=VisualBasicProgramminga=Right(x,11)b=Mid(x,7,5)c=MsgBox(a,b)End Sub运行程序后单击命令按钮,以下叙述中错误的是()oA)信息框的标题是BasicB)信息框中的提示信息是ProgrammingC)c 的值是函数的返回值 D)MsgBox的使用格式有错25)设工程文件包含两个窗体文件Forml.frm、Form2.frm及个标准模块文件Module1.baso两个窗体上分别只有一个名称为Commandl的命令按钮。Form l的代码如下:Public x As IntegerPrivate Sub Co

41、mmand1_Click()Form2.ShowEnd SubPrivate Sub Form_Load()x=1Y=5End SubForm2的代码如下:Private Sub Command1_Click()Print Form 1.x,yEnd SubModulel的代码如下:Public y As Integer运行以上程序,单击Form l的命令按钮Commandl,则 显 示 Form2;再 单 击 Form 2上的命令按钮Commandl,则窗体上显示的是()。A)1 5 B)0 5 C)0 0D)程序有错2 6)窗体上有一个名称为Text)的文本框,一个名称为 Commandl

42、的命令按钮。窗体文件的程序如下:Private Type xa As Integerb As IntegerEnd TypePrivate Sub Command1_Click()Dim y As xy.a=lnputBox(,m)If y.a 2=y.a/2 Theny.b=y.a*y.aElsey.b=Fix(y.a/2)End IfTextl.Text=y.bEnd Sub对以上程序,下列叙述中错误的是()。A)x 是用户定义的类型B)InputBox函数弹出的对话框中没有提示信息C)若输入的是偶数,y.b的值为该偶数的平方D)Fix(y.a/2)ffi y.a/2的小数部分四舍五入,转

43、换为整数返回27)窗体上有一个名称为CD 1的通用对话框控件和由四个命令按钮组成的控件数组Commandl,其下标从左到右分别为0、1、2、3,窗体外观如图所示。命令按钮的事件过程如下:PrivateSubCommand1_Click(lndexAsInteger)Select CaseIndexCase 0:CD 1.Action=1Case 1:CD1.ShowSaveCase 2:CD 1.Action=5Case 3:EndEnd SelectEnd Sub对上述程序,下列描述中错误的是()oA)单击“打开”按钮,显示打开文件的对话框B)单击“保存”按钮,显示保存文件的对话框C)单击“

44、打印”按钮,能够设置打印选项,并执行打印操作D)单击“退出”按钮,结束程序的运行28)窗体上有两个水平滚动条HV、H T,还有个文本 框T e x tl和 一 个 标 题 为“计 算”的命令按钮Com m andl,并编写以下程序:Private Sub Command1_Click()Call cale(HV.Value,HT.Value)End SubPublic Sub cale(x As Integer,y AsInteger)Textl.Text=x*yEnd Sub运行程序,单击“计算”按钮,可根据速度与时间计算出距离,并显示计算结果。对以上程序,下列叙述中正确的是()。A)过程调

45、用语句不对,应为cale(HV,HT)B)过程定义语句的形式参数不对,应为Sub cale(xAs Control,y As Control)C)计算结果在文本框中显示出来D)程序不能正确运行29)现有如下程序:Private Sub Command1_Click()s=0For i=1 To 5s=s+f(5+i)NextPrint sEnd SubPublic Function f(x As Integer)If x=10 Thent=x+1Elset=x+2End Iff=tEnd Function运行程序,则窗体上显示的是()。A)38 B)49 C)61 D)7030)窗体上有一个用

46、菜单编辑器设计的菜单。运行程序,并在窗体上单击鼠标右键,则弹出一个快捷菜单。如图所示。以下叙述中错误的是()oA)在设计“粘贴”菜单项时,在菜单编辑器窗口中设置了“有效”属 性(有W)B)菜单中的横线是在该菜单项的标题输入框中输入了 一 个(减号)字符C)在设计“选中”菜单项时,在菜单编辑器窗口中设置“复选”属 性(有W)D)在设计该弹出菜单的主菜单项时,在菜单编辑器窗口中去掉“可见”前面的“才31)窗体上有一个名称为Picturel的图片框控件,一个名称为Labell的标签控件,如图所示。现有如下程序:Public Sub display(x As Control)If TypeOf x I

47、s Label Thenx.Caption=计算机等级考试”Elsex.Picture=LoadPicture(npic.jpg)End IfEnd SubPrivate Sub Label1_Click()Call display(Labell)End SubPrivate Sub Picture1_Click()Call display(Picture1)End Sub对以上程序,下列叙述中错误的是()0A)程序运行时会出错 B)单击图片框,在图片框中显示一幅图片C)过程中的x是控件变量 D)单击标签,在标签中显示一串文字32)窗体上有两个名称分别为Textl、Text2的文本框。T ex

48、tl的Keyllp事件过程如下:Private Sub Text1_KeyUp(KeyCode AsInteger,Shift As Integer)Dim c As Integerc=UCase(Chr(KeyCode)Text2.Text=Chr(Asc(c)+2)End Sub当向文本框T extl中输入小写字母a时,文本框Text2中显示的是()。A)A B)a C)C D)c运行程序时发现,当输入1 0个整数时,可以得到正确结果,但输入1 0个负数时结果是错误的。程序需要修改,下面的修改中可以得到正确运行结果的是()oA)把 If a(k)max Then 改为 If a(k)max

49、 Thenmax=a(k)End IfNext kPrint maxEnd SubOption Base 1Private Sub Command l_CIick()Dim sum As Integersum=0For i=1 To 4For j=1 To 3sum=sum+sore(i,j)Next jNext iEnd Sub运行程序时发现,除 第 1 个人的总分计算正确外,其他人的总分都是错误的。程序需 要 修 改。以下修改方案中正确的是()oA)把外层循环语句For i=1 To 4改为 For j=1 To 3内层循环语句For j=1 To 3 改为For i=1 To 4B)把

50、sum=0 移 至(J For i=1 To4 和 For j=1 To 3 之间C)把 sum=sum+sore(i,j)改为sum=sum+sore(j,i)D)把 sum=sum+sore(i,j)改为sum=sore(j,i)二、填空题(每空2 分,共计30分)1)测试用例包括输入值集和 11 值集。2)深度为5的满二叉树有【2】叶子结点。3)设某循环队列的容量为5 0,头指针front=5(指向队头元素的前一位置),尾指针rear=29(指向队尾元素),则该循环队列中共有【3】个元素。4)在关系数据库中,用来表示实体之间联系的是4 5)在数据库管理性系统提供的数据定义语言、数据操纵语

展开阅读全文
相关资源
相关搜索

当前位置:首页 > 教育专区 > 教案示例

本站为文档C TO C交易模式,本站只提供存储空间、用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。本站仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知淘文阁网,我们立即给予删除!客服QQ:136780468 微信:18945177775 电话:18904686070

工信部备案号:黑ICP备15003705号© 2020-2023 www.taowenge.com 淘文阁