国家二级（VB）机试模拟试卷5（共396题）

国家二级（VB）机试模拟试卷5（共9套）（共396题）国家二级（VB）机试模拟试卷第1套一、选择题(本题共40题，每题1.0分，共40分。)1、为把圆周率的近似值3.14159存放在变量pi中，应该把变量pi定义为()。A、DimpiAsIntegerB、Dimpi(7)AsIntegerC、DimpiAsSingleD、DimpiAsLong标准答案：C知识点解析：单精度Single或双精度Double型的变量能够保存浮点型小数，整型Integer和长整型Long的变量只能保存整型数据。本题中圆周率为3.14159，小数，可用定义一个Single或Double型变量来保存。故选C。2、能够存放组合框的所有项目内容的属性是()。A、CaptionB、TextC、ListD、Selected标准答案：C知识点解析：组合框没有Caption属性；Text属性用来设置或返回组合框中当前选项的文本内容；Selected属性是列表框控件的属性，组合框没有Selected属性；List属性用来设置或返回组合框中的各选项，它是一个字符串数组，组合框中各选项内容用List(下标)表示。故A、B、D选项错误，C选项正确。3、工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是：PublicXAsIntegerPrivateYAsInteger窗体文件的程序代码是：DimaAsIntegerPrivateSubForm_Load()DimbAsIntegera=2：b=3：x=10：y=20EndSubPrivateSubCommand1_Click()a=a+5：b=b+5：x：x+5：y=y+5Printa；b；x；yEndSub运行程序，单击窗体上的命令按钮，则在窗体上显示的是()。A、55155B、751525C、78155D、75155标准答案：D知识点解析：程序在模块文件中定义x为整型全局变量，在整个工程中都起作用，而y定义为整型私有变量，只能在本模块文件中起作用。在窗体文件中变量a在本窗体文本中起作用，窗体加载事件中定义的变量b和没有声明的变量y，只在本事件过程起作用。程序窗体加载时，对后边有影响的变量值为a为2，x为10，没有指定初值的变量值默认为0，因此单击命令按钮后，a=a+5=7，b=b+5=5，x=x+5=15，y=y+5=5，结果输出75155。4、在关系代数运算中，有5种基本运算，它们是()。A、并(∪)、差(-)、交(∩)、除(÷)和笛卡儿积(×)B、并(∪)、差(-)、交(∩)、投影(π)和选择(σ)C、并(∪)、交(∩)、投影(π)、选择(σ)和笛卡儿积(×)D、并(∪)、差(-)、投影(π)、选择(σ)和笛卡儿积(×)标准答案：D知识点解析：并、差、笛卡儿积、投影和选择是5种基本的运算，其他运算即交、连接和除，均可以通过5种基本的运算来表达。5、要建立一个随机文件记录学生的信息，如下定义的学生记录类型，由学号、姓名和5门课程成绩(百分制)组成，下列的定义正确的是()。A、TypestunoAsIntegernameAsStringscore(1To5)AsSingleEndTypeB、TypestunoAsIntegernameAsString*10score()AsSingleEndTypeC、TypestunoAsIntegernameAsString*10score(1To5)AsSingleEndTypeD、TypestunoAsIntegernameAsStringscore()AsSingleEndType标准答案：C知识点解析：本题考查自定义类型。自定义类型定义的关键字为Type，自定义类型中的成员类型可以为字符串，但只能是定长字符串；也可以是数组类型，但必须为静态数组。6、执行以下程序后，在窗体上输出的是()。PrivateSubCommand1_Click()Dima(20)Forj=1To20Step2a(j)=jNextjPrinta(1)+a(2)+a(3)EndSubA、4B、5C、6D、7标准答案：A知识点解析：本题考查数组元素的赋值。利用循环对数组a中所有的元素赋值，循环变量的初值为1，步长为2。因此数组a中所有的奇数下标项的值为相应的下标，偶数下标项的值为0。因此a(1)+a(2)+a(3)=1+0+3。7、以下描述中，不是线性表顺序存储结构特征的是()。A、可随机访问B、需要连续的存储空间C、不便于插入和删除D、逻辑相邻的数据物理位置上不相邻标准答案：D知识点解析：线性表的顺序存储是用一片连续的空间来存放数据元素，其特点是逻辑上相邻的元素在物理位置上也相邻。数据元素之间逻辑上的先后关系自动隐含住物理位置的相邻元素之中，因此不需要另外开辟空间来保存元素之间的关系。8、下列是VisualBasic中所允许的形式数是()。A、+25．74B、3．457E-100C、368D、1．87E+50标准答案：C知识点解析：本题考查VB中的数据表示。VB中的实数可以分为单精度和双精度，单精度指数形式为±n；nE±m，表示数据的最大值为3．402823E38；实际在使用的时候，“±”不能同时出现。9、用LineInput语句从顺序文件读出数据时，每次读出一行数据。所谓一行是指遇到()分隔符，即认为一行的结束。A、文件结束符B、回车符C、空格D、Tab字符标准答案：B知识点解析：本题考查行结束标志。文件中用EOF测试是否到达末尾；而用“回车符”确定是否结束一行。10、假定通用对话框的名称为CD1，命令按钮的名称为Command1，则单击命令按钮后，能使打开对话框的标题为“通用对话框"的事件过程是()。A、PfivateSubCommand1_Click()CD1．DialogTitle="通用对话框"CD1．ShowPrinterEndSubB、PrivateSubCommand1_Click()CD1．DialogTitle="通用对话框"CD1．ShowFontEndSubC、PrivateSubCommand1_Click()CD1．DialogTitle="通用对话框"CD1．ShowOpenEndSubD、PrivateSubCommand1_Click()CD1．DialogTitle="通用对话框"CD1．ShowColorEndSub标准答案：C知识点解析：本题考查通用对话框的常见属性。通用对话框的标题属性为DialogTitle，如果要打开“打开”对话框可以设置CD1的Action属性为1或者使用ShowOpen方法。11、在软件开发中，需求分析阶段产生的主要文档是()。A、软件集成测试计划B、软件详细设计说明书C、用户手册D、软件需求规格说明书标准答案：D知识点解析：需求分析阶段的工作可以概括为：需求获取、需求分析、编写需求规格说明书、需求评审四个方面。所以选择D。12、设一棵满二叉树共有15个结点，则在该满二叉树中的叶子结点数为()。A、7B、8C、9D、10标准答案：B知识点解析：在具有n个结点的满二叉树，其非叶子结点数为int(n／2)，而叶子结点数等于总结点数减去非叶子结点数。n=15，故非叶子结点数等于int(15／2)=7，叶子结点数等于15-7=8。13、定义无符号整数类为UInt，下面可以作为类UInt实例化值的是()。A、一369B、369C、0．369D、整数集合{1，2，3，4，5}标准答案：B知识点解析：只有B选项369可以用无符号整数来表示和存储。A选项一369有负号，选项C0．369是小数，都不能用无符号整数类存储。选项D是一个整数集合，得用数组来存储。14、为组合框Combol增加一个列表项”电脑”，下列语句正确的是()。A、Combol．Text=“电脑”B、Combol．Lisflndex=“电脑”C、Combol．Addltem”电脑”D、Combol．I,ListCount=“电脑”标准答案：C知识点解析：考查组合框。可以通过Addltem方法给组合框添加列表项。15、在标准模块中用Public关键字定义的变量，其作用域为()。A、本模块所有过程B、整个工程C、所有窗体D、所有标准模块标准答案：B知识点解析：在标准模块中用Public定义的变量是公用的、全局变量，在整个工程中的所有窗口、模块中都能引用，作用域是整个工程。故B选项正确。16、某系统总体结构图如下图所示：该系统总体结构图的深度是()。A、7B、6C、3D、2标准答案：C知识点解析：根据总体结构图可以看出该树的深度为3，比如：XY系统——功能2——功能2．1，就是最深的度数的一个表现。17、现有如下一段程序：PrivateSubCommand1_Chck()x=UCase(InputBox("输入："))SelectCasexCase"A"To”C"Print"考核通过!"Case"D"Print"考核不通过!"CaseElsePrint"输入数据不合法!"EndSelectEndSub执行程序，在输入框中输入字母“B”，则以下叙述中正确的是()。A、程序运行错B、在窗体上显示“考核通过!”C、在窗体上显示“考核不通过!”D、在窗体上显示“输入数据不合法!”标准答案：B知识点解析：程序中Ucase函数将输入的字母转换为大写，然后通过Select多分支控制语句选择输出不同信息，当输入字母在“A”到“C”之间时，显示“考核通过!”，输入的是“D”时显示“考核不通过!”，如果输入的是“A”到“D”之外的其他字符则显示“输入数据不合法!”。程序中输入字母“B”，因此会显示“考核通过!”。18、设窗体上有一个名称为Text1的文本框，程序运行时，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是()。A、Text1．Enabled=FlaseB、Text1．Locked=FalseC、Text1．Visible=FlaseD、Text1．Width=0标准答案：A知识点解析：文本框的Enabled属性设置为False，表示该文本框控件处于不可用状态，即不能向文本框中输入信息，但是文本框可以输出内容，即A选项正确。本题选择A选项。19、在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程：PrivateSubCommand1_Click()Dimarr(10)Fori＝6To10arr(i)＝i－5NextiLabel1.Caption＝arr(0)＋arr(arr(10)/arr(6))EndSub运行程序，单击命令按钮，则在标签中显示的是()。A、0B、1C、2D、3标准答案：A知识点解析：程序为使用For语句为数组中部分元素赋值，没显示赋值的数组元素的值默认为0，因此arr(0)＝0，arr(10)＝10－5＝5，arr(6)＝6－5＝1，arr(arr(10)/arr(6))即，arr(5/1)＝arr(5)＝0，arr(0)＋arr(5)＝0＋0＝0。因此标签中显示为0。20、窗体上有一个名称为Command1的命令按钮，有程序如下：OptionBase1PrivateSubCommand1_Click()Dima(10)AsInteger’第1个ForFori=1To10a(i)=Int(Rnd*100+100)Printa(i);Nextx=a(i)y=x’第2个ForFori=1To10Ifx<a(i)Thenx=a(i)Ify>a(i)Theny=a(i)s=s+a(i)NextPrintx,y,sEndSub关于上述程序的叙述中，正确的是A、程序运行出错，第1个For循环之后的x=a(i)赋值语句错B、程序正常运行，x是10个随机数中的最大值C、程序正常运行，s是10个随机数的和D、程序正常运行，10个随机数的范围是100-200标准答案：A知识点解析：第一个For循环中缺省Step，步长为1，退出循环时下标为10，第1个For循环之后的x=a(i)赋值语句下标越界，出错。选A）。21、下面关于VB应用程序的叙述中正确的是A、VB应用程序只能解释运行B、VB应用程序只能编译运行C、VB应用程序既能解释运行，也能编译运行D、VB应用程序必须先编译，然后解释运行标准答案：C知识点解析：VB程序有两种运行方式，即解释方式与编译方式。22、设Label1、Command1、Text1、Check1分别为标签、命令按钮、文本框、复选框的名称，则以下属性设置语句中，运行时不会出错的是A、Label1.BackStyle=2B、Command1.Style=1C、Text1.ScrollBars=4D、Check1.Value=2标准答案：D知识点解析：标签的BackStyle属性只有0、1两个属性值；命令按钮的Style属性是只读属性，必须在属性窗口设置；文本框的ScrollBars属性只有0、1、2、3四个属性值，并且必须在属性窗口设置。23、对长度为10的线性表进行冒泡排序，最坏情况下需要比较的次数为A、9B、10C、45D、90标准答案：C知识点解析：冒泡法是在扫描过程中逐次比较相邻两个元素的大小，最坏的情况是每次比较都要将相邻的两个元素互换，需要互换的次数为9+8+7+6+5+4+3+2+1=45，选C。24、命令按钮不支持的事件为A、ClickB、DblClickC、GotFocusD、MouseMove标准答案：B知识点解析：命令按钮支持的事件有Click，GotFocus和MouseMove，不支持DblClick事件，故选B）。25、以下能正确定义数据类型TelBook的代码是A、TypeTelBookNameAsString*10TelNumAsIntegerEndTypeB、TypeTelBookNameAsString*10TelNumAsIntegerEndTelBookC、TypeTelBookNameString*10TelNumIntegerEndTypeTelBookD、TypedefTelBookNameString*10TelNumIntegerEndType标准答案：A知识点解析：用户定义数据类型可以用Type语句来定义。格式是：Type数据类型名数据类型元素名AS类型名数据类型元素名AS类型名....EndType。选项中符合上面格式的，只有A项，其余项都错误。26、某二叉树共有13个结点，其中有4个度为1的结点，则叶子结点数为A、5B、4C、3D、2标准答案：A知识点解析：在树结构中，一个节点所拥有的后件个数称为该节点的度。对任何一棵二叉树，度为0的节点（即叶子节点）总是比度为2的节点多一个。二叉树中有13个节点，设叶子节点个数为n0，度为1的节点个数为4，设度为2的节点个数为n2。13=n0+4+n2且n0=n2+1，则n0=5，n2=4。A选项正确。27、为了改变文本框中所显示文本的颜色，需设置的属性为A、FontColorB、BackColorC、ForeColorD、FillColor标准答案：C知识点解析：ForeColor属性用来改变文本框中文本颜色，故选择C。28、以下不能作为容器使用的控件是A、图像框B、框架C、图片框D、窗体标准答案：A知识点解析：容器是包含其它对象的对象。图像框控件主要作用显示图片，不能放其他控件，故A不能做容器。框架是一个容器控件,用于将屏幕上的对象分组，不同的对象可以放在一个框架中；图片框是一个完整的图形控件，可以作为其他对象的容器。选项B、C和D都可以作为容器使用。故选A。29、要使图片框P1中显示当前路径下的图片文件img1.jpg，则应使用的语句是A、P1.Picture="img1.jpg"B、P1.Image="img1.jpg"C、P1.Picture=LoadPicture("img1.jpg")D、LoadPicture("img1.jpg")标准答案：C知识点解析：在程序代码中可以使用LoadPicture函数把图形文件装入图片框或图像框中。[格式][对象.]Picture=LoadPicture("文件名")；可知选项A，B，D均错误。本题正确答案为C选项。30、下列叙述中正确的是A、不同的对象可以具有相同名称的方法B、’abcd’是一个合法的字符串常量C、语句Dima(1To6,-2To4)AsInteger定义数组时出错D、向随机文件中写数据时，既可用Write#语句也可用Put#语句标准答案：A知识点解析：字符串常量由字符组成，可以是双引号和回车符以外的任何ASCII字符，选项B中应该用一对双引号括起来。选项C所定义的数组正确，Write#语句的功能是向顺序文件写入记录，Put#语句的功能是把"变量"的内容写入由"文件"号所指定的磁盘文件中，故本题正确选项为A。31、下面控件中，没有Caption属性的是()。A、复选框B、单选按钮C、组合框D、框架标准答案：C知识点解析：Caption属性是设置或返回控件的标题。组合框没有Caption属性。故选C。32、在长度为n的有序线性表中进行二分查找，最坏情况下需要比较的次数是()。A、O(n)B、O(n2)C、O(log2n)D、O(nlog2n)标准答案：C知识点解析：当有序线性表为顺序存储时才能用二分法查找。可以证明的是对于长度为n的有序线性表，在最坏情况下，二分法查找只需要比较log2n次，而顺序查找需要比较n次。33、设a＝2，b＝3，c＝4，d＝5，表达式Nota<＝cOr4*c＝b^2Andb<>a＋c的值是()。A、－1B、1C、TrueD、False标准答案：D知识点解析：计算表达式的值，先计算算术运算符，再计算关系运算符，然后计算逻辑运算符(优先级从高到低为NotAndOr)，最后结果为Fasle。故D选项正确。34、算法的有穷性是指()。A、算法程序的运行时间是有限的B、算法程序所处理的数据量是有限的C、算法程序的长度是有限的D、算法只能被有限的用户使用标准答案：A知识点解析：算法原则上能够精确地运行，而且人们用笔和纸做有限次运算后即可完成。有穷性是指算法程序的运行时间是有限的。35、窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下：PrivateSubText1_KeyUp(KeyCodeAsInteger，ShiftAsInteger)DimcAsStringc＝UCase(Chr(KeyCode))Text2.Text＝Chr(Asc(c)＋2)EndSub当向文本框Text1中输入小写字母a时，文本框Text2中显示的是()。A、AB、aC、CD、c标准答案：C知识点解析：KeyDown和KeyUp事件的KeyCode参数返回的是"键"，即按字母"A"和"a"时得到的KeyCode的值是相同的，都是&H41。因此程序中对输入"a"时得到的KeyCode，经Chr函数转为字符后为"A"，经Ucase函数转换仍为"A"，所以变量c中的字符为"A"。Asc(c)将返回变量c中的第一个字符的ASCII，加2后，再由Chr函数转为字符即为"A"后面的第2个字符，即"C"。所以答案应为选项C。36、下列排序方法中，最坏情况下比较次数最少的是()。A、冒泡排序B、简单选择排序C、直接插入排序D、堆排序标准答案：D知识点解析：冒泡排序与简单插入排序与简单选择排序法在最坏情况下均需要比较n(n－1)/2次，而堆排序在最坏情况下需要比较的次数是nlog2n。37、窗体上有Command1、Command2两个命令按钮。现编写以下程序：OptionBase0Dima()AsInteger，mAsIntegerPrivateSubCommand1_Click()m＝InputBox("请输入一个正整数")ReDima(m)EndSubPrivateSubCommand2_Click()m＝InputBox("请输入一个正整数")ReDima(m)EndSub运行程序时，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中元素的个数是()。A、5B、6C、10D、11标准答案：B知识点解析：程序中OptionBase0表示指定数组的下标默认下界为0。ReDim语句用来重新定义动态数组，按定义的上下界重新分配存储单元。在一个程序中，可以多次用ReDim语句定义同一个数组，随时修改数组中元素的个数。程序中先执行ReDima(10)，然后执行了ReDima(5)，因此数组a的下界为0，上界为5，共有6个元素。38、设：a＝12，b＝5，c＝7，表达式x＝(a\c＋aModb)＋Int(13/5)的值是()。A、5B、6C、7D、9标准答案：A知识点解析：按算术运算符优先级从高到低顺序依次计算：/、\、Mod，结果为5，故选A。39、在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是()。A、PrivateSubText1_Change()Label1．Caption=Str(Len(Text1．Text))EndSubB、PrivateSubText1_Click()Label1．Caption=Str(Len(Text1．Text))EndSubC、PrivateSubText1_Change()Labell．Caption=Textl．TextEndSubD、PrivateSubLabel1_Change()Label1．Caption=Str(Len(Text1．Text))EndSub标准答案：A知识点解析：根据题意可知，在文本框中输入字符这个动作使标签上显示的内容发生变化，说明是文本框触发了某事件，排除D选项；文本框中每输入一个字符，标签中立即就会发生变化，故是Change事件，排除B选项；标签中显示的是文本框中字符的个数，不是输入的内容，排除C选项。故A选项正确。40、软件生存周期中，解决软件“怎么做”的阶段是()。A、软件设计B、需求分析C、软件测试D、可行性研究标准答案：A知识点解析：软件设计是软件工程的重要阶段，是一个把软件需求转换为软件表示的过程。软件设计的基本目标是用比较抽象概括的方式确定目标系统如何完成预定的任务，即解决软件“怎么做”的问题。故本题答案为A选项。二、基本操作题(本题共2题，每题1.0分，共2分。)请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。41、在名称为Form1的窗体上画一个名称为CD1的通用对话框，通过属性窗口设置CD1的初始路径为C：＼，默认的文件名为None，标题为“保存等级考试”，如图2所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。标准答案：[操作步骤]步骤1：新建一个“标准。EXE”工程，选择[工程]→[部件]命令，在弹出的“部件”对话框的列表中选中“MicroSoftCommonDiMogControl6．0”项目，单击“确定”按钮。步骤2：在窗体Form1上画一个通用对话框，其相关属性设置如表12—7所示。步骤3：编写Form1的Iroad事件，加入下面的代码：CD1．ShowSave步骤4：按要求将文件保存至考生文件夹中。知识点解析：通用对话框的InitDir属性用于为打开或另存为对话指定初始的目录，如果此属性没有指定，则使用当前目录。通用对话框的初始路径由InitDir属性设置，默认文件名由FileName属性设置，标题由DialogTitle属性设置。42、在名称为Form1的窗体上设计一个菜单。要求在窗体上添加名为menu0，标题为“菜单命令”的主菜单，再添加两个名称分别为“menu1”、“menu2”，标题分别为“不可用菜单项”、“上一菜单项可用”的子菜单，并且使程序运行时，menu1子菜单不可用，menu2子菜单已经选中(运行时的效果如图3所示)。再编写适当的事件过程，使得程序运行时，单击“上一菜单项可用”，则“不可用菜单项”变为黑色(可用)。要求程序中不得使用变量，且只有一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为sit2．vbp，窗体文件名为sit2．Frm。标准答案：[操作步骤]步骤1：新建一个“标准EXE”工程，打开VB菜单设计器设计菜单，各菜单项及属性设置如表12—8所示。步骤2：打开代码编辑窗口，编写“上一菜单项可用”命令的Click事件过程。参考代码：PrivateSubmenu2_Click()menu1．Enabled=TrueEndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：①VB中的菜单是通过菜单编辑器来设计的。菜单编辑器中的基本设置项有：“标题”项，对应出现在菜单中的显示内容；“名称”项，系统识别菜单项的唯一关键字(不能重复)；“索引”项，用于设置菜单数组中各元素的索引号；“快捷键”项，是一个下拉列表框，用于设置菜单项的快捷键；“帮助上下文”项，设置当鼠标移动到某菜单项上按＜Fl＞键时显示的帮助信息在帮助文件中的对应位置；Visible(可见)项，用于设置控件或菜单项在程序运行时是否可见，值为True表示可见，值为False表示不可见；Enabled(有效)项，用于设置控件或菜单项在程序运行时是否有效，值为True时表示有效，值为False时表示无效(显示为灰色)。通过编辑按钮区的七个按钮可对菜单进行添加、插入、删除、提升(设置为上一级菜单)、缩进(设置为下一级菜单)、上移、下移等操作。②文本框的Text属性用于设置或返回其显示的文本内容。本题原程序设计思路：在“上一菜单项可用”命令的单击事件过程中，通过语句设置“不可用菜单项”命令的Enabled属性值为True。三、简单应用题(本题共1题，每题1.0分，共1分。)43、(1)在考生文件夹下有一个工程文件sjt3．vbp，相应的窗体文件为sjt3．frm。在窗体上有一个命令按钮，其名称为Command1，标题为“添加”；有一个文本框，名称为Textl，初始内容为空白；有一个列表框，名称为List1。程序运行后，在文本框中输入一个英文句子(由多个单词组成，各单词之间用一个空格分开)，然后单击“添加”按钮，程序将把该英文句子分解为单词，并把每个单词作为一个项目添加到列表框中，如图3—195所示。该程序不完整，请补充完整。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sit4．vbp，其中的窗体中有一个组合框和一个命令按钮(如图3一196所示)。程序的功能是在运行时，如果在组合框中输入一个项目并单击“添加”按钮，则搜索组合框中的项目，如果没有此项，则把此项添加到列表中；如果有此项，则弹出提示“已有此项”，然后清除输入的内容。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原来的文件名存盘。标准答案：第1小题【操作步骤】步骤1：打开考生文件夹下的工程文件sjt3．vbp。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：S1=Textl．TextDoWhileMid(S1，11，1)<>””And11<=Len(S1)LiStl．AddItemS2S2=“”步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件下的本题工程文件sit4．vbp。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：Fori=0ToCbl．LiStCount一1IfCbl．List(i)=Cbl．TextThenCbl．AddItemCbl．Text知识点解析：暂无解析四、综合应用题(本题共1题，每题1.0分，共1分。)44、在考生文件夹下有一个工程文件sjt5．vbp，其窗体上有两个标题分别为“读数据”和“统计”的命令按钮。请添加两个标签，其名称分别是Labell和Label2，标题分别为“单词的平均长度为”和“最长单词的长度为”；再添加两个名称分别为Textl和Text2，Text属性为空的文本框，如图所示。程序功能如下：①如果单击“读数据”命令按钮，则将考生文件夹下in5．dat文件的内容读到变量s中(此过程已给出)；②如果单击“统计”按钮，则自动统汁变量s(s中仅含有字母和空格，而空格是用来分隔不同单词的)中每个单词的长度，并将所有单词的平均长度(四舍五入取整)在Textl文本框内显示，将最长单词的长度在Text2文本框内显示。“读数据”命令按钮的click事件过程已经给出，请为“统计”命令按钮编写适当的事件过程，实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序之前，必须进行统计，且必须通过单击窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。标准答案：单击“读数据”按钮，将考生文件夹下in5．dat文件的内容读到变量s中；单击“统计”按钮，通过SelectCase语句判断是否为空格或是字母(文件中仅含有字母和空格，空格用来分隔不同单词)，通过Len函数得出最长单词的长度，并通过比较把最长单词赋值给变量B，将该单词的长度显示在Textl文本框内，并将该单词的平均长度显示在Text2文本框内。Left(s，i)表示取字符串S左边的i个字符。Right(s，J-i)表示字符串s右边的J-i个字符。R=Split(S，“-”)表示将字符串s按“-”分割成字符数组。步骤1：打开本题工程文件，添加两个名称分别是Labell和Label2，标题分别为“单词的平均长度为”和“最长单词的长度为”的标，以及标题分别为Textl和Text2，初始内容都为空的文本框。步骤2：分析并编写程序代码。程序提代码OptionBase1DimsAsStringPrivateSubCommandl＿Click()OpenApp．Path＆”＼in5．dat“ForInputAs#ls=Input(LOF(1)，＃1)Close#lEndSubPrivateSubCommand2＿Click()“需考生编写”EndSubPrivateSubForm＿Unload(CancelAsInteger)OpenApp．Path＆“＼out5．dat”ForOutputAs#1Print#1．Textl．Text．Text2．TextClose#1EndSub程序结束PrivateSubCommand2＿Click()Fori=1ToLen(s)J=Asc(Mid(S，i，1))SelectCaseJCase48To57，65To90，97To122CaseElseMid(s，i，1)=“-”EndSelectNextiJ=Len(s)-1Fori=1ToJIfMid(S，i，1)=”-”AndMid(s，i+1，1)=“-”ThenS=Left(S，i)+Right(s，J-i)J=J=1i=i-lEndIfNextiS=Left(s，Len(S)-1)R=Split(s，“-”)B=R(0)Fori＝1ToUBound(R)IfLen(B知识点解析：暂无解析国家二级（VB）机试模拟试卷第2套一、选择题(本题共40题，每题1.0分，共40分。)1、有三个关系R、S和T如下：则由关系R、S得到关系T的操作是()。A、交B、投影C、自然连接D、并标准答案：C知识点解析：交：R∩s结果是既属于R又属于S的记录组成的集合。并：R∩S是将S中的记录追加到R后面。上述两种操作中，关系R与S要求有相同的结构，故A、D选项错误。投影是指从关系模式中指定若干个属性组成新的关系，由于T中含有R中不存在的属性，明显不可能由R向S投影得到T，故B选项错误。自然连接：去掉重复属性的等值连接。R与S重复属性是A，等值元组为a和c，进行自然连接得到的两个元组按照属性，ABCD的顺序为c3f4与a1n5，正好为题目中关系T，故C选项正确。2、下列程序段不正确的是()。A、DimaAsIntegera=array(1，2，3，4)B、Dima()，b()a=array(1，2，3，)：b=aC、DimaAsVarianta=array(1，"asd"，true)D、Dima()AsVarianta=array(1，2，3，4)标准答案：A知识点解析：本题考查Array函数。利用Array对数组各元素赋值，声明的数组必须是可变数组，并且其类型只能是Variant。也可以对数组进行赋值，但是赋值号左边的数组只能声明为Variant的可变数组或简单变量，同时数组必须有存储空间。3、设有如图所示窗体和以下程序：PrivateSubCommand1_Click()Text1.Text＝"VisualBasic"EndSubPrivateSubText1_LostFocus()IfText1.Text<>"BASIC"ThenText1.Text＝""Text1.SetFocusEndIfEndSub程序运行时，在Text1文本框中输入"Basic"(如图所示)，然后单击Command1按钮，则产生的结果是()。A、文本框中无内容，焦点在文本框中B、文本框中为"Basic"，焦点在文本框中C、文本框中为"Basic"，焦点在按钮上D、文本框中为"VisualBasic"，焦点在按钮上标准答案：A知识点解析：题目程序的功能为，当单击命令按钮时，Text1失去焦点，激发Text1的LostFocus事件，在此事件中，程序判断文本框中字符串是否为"BASIC"，如果是则退出事件过程，继续执行命令按钮的单击事件过程，文本框中显示"VisualBasic"，如果不是则文本框内容置空，焦点返回到文本框中等待输入，不会执行命令按钮的单击事件过程。题目中输入了"Basic"，与"BASIC"不符，因此文本框置空，焦点回到文本框中。4、有两个关系R，S如下：由关系R通过运算得到关系S，则所使用的运算为()。A、选择B、投影C、插入D、连接标准答案：B知识点解析：投影运算是指对于关系内的域指定可引入新的运算。本题中S是在原有关系R的内部进行的，是由R中原有的那些域的列所组成的关系。所以选择B。5、某人编写了向随机文件中写一条记录的程序，代码如下：TypeRTypeNameAsString*10TelAsString*20EndTypePrivateSubCommand1_Click()DimPAsRType[．Name=InputBox("姓名")p．Tel=InputBox("电话号")Open"Books．dat"ForRandomAs#1Put#1，，pClose#1EndSub该程序运行时有错误，修改的方法是()。A、在类型定义“TypeRType”之前加上“Private”B、DimpAsRType必须置于窗体模块的声明部分C、应把Open语句中的ForRandom改为ForOutputD、Put语句应该写为Put#1，p．Name，p．Tel标准答案：A知识点解析：记录类型的定义必须放在模块的声明部分，当在标准模块中定义时，关键字Type前可以有Public(默认)或Private，而如果在窗体模块中定义，则必须在前面加上关键字蹦vate。Open语句中使用ForRandom表示文件以随机方式存取。Put语句的语法为：Put#文件号，[记录号]，变量。其中“变量”是除对象变量和数组变量外的任何变量。6、在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1—Click()x=0doUntilx=-1a=InputBox(“请输入a的值”)a=Val(A)b=InputBox(“请输入b的值”)b=Val(B)x=InputBox(“请输入x的值”)x=Val(x)a=a+b+xLoopPrintaEndSub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1则输出结果是()。A、2B、3C、14D、15标准答案：A知识点解析：本题输出变量a的值，在每次循环时。都对变量a、b、x进行了赋初值，因此只要考虑最后一次循环即可。也就是当输入a=2，b=1，x=-1时的表达式“a=a+b+x”的值，也就是最后a的值为2，所以选项A)正确。7、设a是整型变量，与函数IIf(a>0，-a，a)有相同结果的代数式是()。A、｜a｜B、-｜a｜C、aD、=-a标准答案：B知识点解析：IIf函数可以用来执行简单的条件判断操作，它是“If…Then…Else”结构的简写版本，其格式为：result=IIf(条件，True部分，False部分)。其中“result”是函数的返回值，“条件”是一个逻辑表达式。当“条件”为真时，IIf函数返回“True部分”，否则返回“False部分”。“True部分”或“False部分”可以是表达式、变量或其他函数。本题中IIf函数的作用是如果a>0则返回．a，否则返回a，等价于-｜a｜。8、对于循环队列，下列叙述中正确的是()。A、队头指针是固定不变的B、队头指针一定大于队尾指针C、队头指针一定小于队尾指针D、队头指针可以大于队尾指针，也可以小于队尾指针标准答案：D知识点解析：循环队列的队头指针与队尾指针都不是固定的，随着人队与出队操作要进行变化。因为是循环利用的队列结构所以队头指针有时可能大于队尾指针有时也可能小于队尾指针。9、设窗体的名称为Form1，标题为Win，则窗体的MouseDown事件过程的过程名是()。A、Form1_MouseDownB、Win_MouseDownC、Form_MouseDownD、MouseDown_Form1标准答案：C知识点解析：事件过程名格式是：控件名_事件过程名。Form1是窗体控件的名称，Win是窗体的标题，所以窗体的MouseDown事件过程名是：Form1_MouseDown，故选A。10、在窗体上画一个命令按钮，然后编写如下代码：PrivateSubCommand1_Click()DimMaxSize，NextChar，MyCharOpen"d：＼temp＼female．txt"ForInputAs#1MaxSize=LOF(1)ForNextChar=MaxSizeTo1Step-1Seek#1．NextCharMyChar=Input(1，#1)NextNextCharPrintEOF(1)Close#1EndSub程序运行后，单击命令按钮，其输出结果为()。A、TrueB、FalseC、0D、Null标准答案：B知识点解析：本题考查文件的操作。以读的方式打开文件female．txt，Nextchar表示从文件的最后一个字符开始。程序首先定位到该字符，然后取出一个字符，存放到字符串Mychar中。输出的EOF(1)表示文件指针是否到达文件1的末尾。返回值有True(移动到末尾)和False(没有到末尾)。既然是从后往前读出每个字符，因此操作结束以后，文件指针不可能移动到文件的末尾，所以EOF(1)的值必然为False。11、在窗体上画1个命令按钮，名称为Command1，然后编写如下程序：DimFlagAsBooleanPrivateSubCommand1Click()DimintNumAsIntegerintNum＝InputBox("请输入：")IfFlagThenPrintf(intNum)EndIfEndSubFunctionf(XasInteger)AsIntegerIfX＜10ThenY＝XElseY＝X＋10EndIff＝YEndFunctionPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XasSingle，YAsSingle)Flag＝TrueEndSub运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为()。A、0B、5C、15D、无任何输出标准答案：B知识点解析：本题考查If语句和函数过程的分析。函数过程f的功能是如果X小于10则返回X，否则返回X＋10。窗体的MouseUp事件是松开鼠标时触发的事件。程序运行后，单击窗体，则全局变量Flag的值为True，然后单击命令按钮，在输入对话框中输入5，执行If分支语句，调用f函数，由于5＜10，因此输出X，即输出5。12、一棵二叉树共有25个结点，其中5个是叶子结点，则度为1的结点数为()。A、16B、10C、6D、4标准答案：A知识点解析：根据二叉树的性质3：在任意一棵二叉树中，度为0的叶子结点总是比度为2的结点多一个，所以本题中度为2的结点是5－1＝4个，所以度为1的结点的个数是25－5－4＝16个。13、在名称为Framel的框架中，有两个名称分别为opl、op2的单选按钮，标题分别为“单程”、“往返”，如图所示。以下叙述中，正确的是()。A、若仅把Framel的Enabled属性设为False，则op1、op2仍可用B、对于上图，op1．Value的值为TrueC、对于上图，执行Op1．Value=False命令，则“往返”单选按钮被选中D、对于上图，执行Op1．Value=O命令，程序出错标准答案：B知识点解析：当Framel的Enabled属性设为False后，框架Framel变为不可用，它里面放的两个单选按钮也就变为不可用，故A选项错误；当Opl．Value为False时，“单程”和“往返”单选按钮都处于未选中状态，故C选项错误；Opl．Value的值为0，即为False，语句正确，没有程序错误，故D选项说法错误；根据图可只，“单程”单选按钮处于选中状态，Opl．Value的值为True，故B选项正确。14、某二叉树共有7个结点，其中叶子结点只有1个，则该二叉树的深度为(假设根结点在第1层)()。A、3B、4C、6D、7标准答案：D知识点解析：根据二叉树的基本性质3：在任意一棵二叉树中，度为0的叶子节点总比度为2的节点多一个，所以本题中度为2的节点为1－1＝0个，所以可以知道本题目中的二叉树的每一个节点都有一个分支，所以共7个节点共7层，即深度为7。15、能够产生1到50之间(含1和50)随机整数的表达式是()。A、Int(Rnd*51)B、Int(Rnd(50)＋1)C、Int(Rnd*50)D、Int(Rnd*50＋1)标准答案：D知识点解析：Rnd函数产生0～1之间的随机数，不包括0和1。要产生1～50(包含1和50)之间的随机整数，可以先产生0～50之间的随机整数，然后再这个基础上加1。故D选项正确。16、某系统结构图如下图所示(n≥5)该系统结构图的最大扇出数是()。A、nB、3C、2D、n+1标准答案：A知识点解析：模块的扇出是指本模块的直属下层模块的个数，或者说是由一个模块直接调用的其他模块数。题干中某系统为一个模块，其扇出数目为n(n≥5)，功能2模块扇出数为3，功能n模块扇出数为2，则该系统结构图的最大扇出数是n。故本题答案为A选项。17、在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommandl＿Click()a$=InputBox(“请输入一个二进制数”)n=Len(a$)Fori=1TonDec=Dec*2+(a$，i，1)NextIPrintDeeEndSub程序的功能为：单击命令按钮，将产生一个输入对话框，此时如果在对话框中输入一个二进制数，并单击“确定”按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在“________”处填入的内容是()。A、LeftB、RightC、ValD、Mid标准答案：D知识点解析：将二进制数转换为十进制数需要将二进制数的每一位取出来进行运算，从一个数值字符串中截取一位数字字符要使用Mid函数，因此在程序空缺处该填入Mid。18、以下不属于VB控件的是A、框架B、点C、直线D、形状标准答案：B知识点解析：形状控件(Shape)提供了显示一些规则图形的简易方法，通过设置形状控件Shape属性值，可显示6种图形：0－矩形、1－正方形、2－椭圆、3－圆、4－圆角矩形、5－圆角正方形。19、以下声明数组和给数组赋值的语句中，正确的是()。A、DimxAsVariantx=Array(1，2，3，4，5，6)B、Dimx(6)AsStringx=“ABCDEF”C、Dimx(6)．AsIntegerx=Array(1，2，3，4，5，6)D、Dimx(2)，y(2)AsIntegerx(0)=1：x(1)=2：x(2)=3y=x标准答案：A知识点解析：A选项为定义一个默认数组，数组名为x，然后通过Array函数对数组进行初始化，A选项正确；B选项定义一个一维字符串类型的数组，且将字符串赋值给数组名，这种赋值方式不正确；c选项中，定义了一个一维整型数组，然后试图使用Array函数为一维数组赋值，但是这种赋值方式只适用于变体类型的数组，即定义数组的方式为：“DimxAsVariant”，故c选项错误；D选项中将数组x通过赋值语句赋值给数组y，这种赋值方式是错误的，故本题只有A选项是正确声明和对数组元素进行赋值。本题选择A选项。20、下列叙述中正确的是A、程序执行的效率与数据的存储结构密切相关B、程序执行的效率只取决于程序的控制结构C、程序执行的效率只取决于所处理的数据量D、以上说法均错误标准答案：A知识点解析：程序执行的效率与数据的存储结构、数据的逻辑结构、程序的控制结构、所处理的数据量等有关。21、编写如下程序：PrivateSubCommand1_Click()DimscoreAsIntegerscore=86Ifscore＞85Thenr=1ElseIfscore＞60，Thenr=2Elser=0EndTfPrintrEndSub程序运行后，单击命令按钮Command1，输出结果为()。A、0B、1C、2D、86标准答案：B知识点解析：考查If…ElseIf…Else…EndIf语句。条件判断成立则执行对应分支的语句。86＞85，所以r=1。选B。22、在窗体上画一个文本框，其名称为Text1，然后编写如下程序：OptionBase1PrivateSubForm_Click()DimArr(10)AsIntegerFori=6To10Arr(i)=i-3NextiText1.Text=Str(Arr(6)+Arr(Arr(6)+Arr(10)))EndSub程序运行后，单击窗体，在文本框中显示的内容是A、7B、8C、9D、10标准答案：D知识点解析：For循环对数组Arr的第6个到第10个元素赋值。Arr(6)=3；Arr(10)=7；因此，输出结果是10。选D）。23、有人在属性窗口中通过设置Picture属性为命令按钮装入了图片，但没有显示，其原因是A、命令按钮的Enabled属性为FalseB、命令按钮的Sytle属性为0-StandardC、命令按钮的Default属性为FalseD、没有用DisabledPicture属性为命令按钮装入图片标准答案：B知识点解析：Picture属性可给命令按钮指定一个图片，在Style属性值为1的情况下，Picture的属性才有效，也就是当Style属性为0时，Picture属性无效，故选择B选项。24、关于KeyPress事件，以下叙述中正确的是()。A、在控件数组的控件上按键盘键，不能触发KeyPress事件B、按下键盘上任一个键时，都能触发KeyPress事件C、按字母键时，拥有焦点的控件的KeyPress事件会被触发D、窗体没有KeyPress事件标准答案：C知识点解析：A选项错误原因：在控件数组的任何控件上按键盘键，会触发KeyPress事件；B选项错误原因：只有按键盘上的ASCII字符键时，才能触发KeyPress事件。ASCII字符键包括标准键盘上的字符、数字、标点符号、、和键等，其他键KeyPress事件不能识别。D选项错误原因：窗体也有KeyPresss事件。故C选项正确。25、下列关于数组的叙述中，正确的是A、数组名的命名规则与简单变量相同B、VisualBasic支持数组的隐式定义C、使用Static语句定义任何类型的数组时，都把该数组的全部元素初始化为0D、使用Dim语句定义任何类型的数组时，都将把数组的全部元素初始化为空字符串标准答案：A知识点解析：定义格式中的"数组名"与简单变量相同，可以是VB中任何合法的变量名，故A项正确。数组必须先定义，后使用，不允许使用隐式定义，故B项错误。用Dim定义数组时，并不能任何类型的数组都初始化为空字符串，比如该语句把数值数组中的元素全都初始化为0；故选项D错误。同样，当用Static定义数组时，第一次定义时数组中的元素全都初始化为0；把字符串数组中的元素全都初始化为空字符串；如果没有退出程序，每次引用静态变量的数组后，其值将继续保留，作为下次引用时该变量的初始值，故C错误。26、下面不能作为软件设计工具的是A、PAD图B、程序流程图C、数据流程图(DFD图)D、总体结构图标准答案：C知识点解析：软件设计常用的工具有：图形工具：程序流程图、N-S图、PAD图、HIPO；表格工具：判定表；语言工具：PDL（伪码）。另外，在结构化设计方法中，常用的结构设计工具是结构图，故选择C选项。27、如果希望向一个顺序文件写入数据，但又要保留文件中的原有内容，应采取的文件打开方式是A、AppendB、OutputC、RandomD、Input标准答案：A知识点解析：Input、Output和Append用于设置顺序文件的打开方式，Input表示从打开的文件中读取数据；Output表示向打开的文件中写入数据，文件中原有的数据被覆盖；Append向打开的文件中添加数据，但文件中原有的数据被保留，新的数据以文件为开始进行添加。故正确答案为选项A。28、窗体上有一个名称为Command1的命令按钮，并有如下程序代码：OptionBase1PrivateSubCommand1_Click()Dima%(3,3)Fori=1To3Forj=1To3Ifi>1Andj>1Thena(i,j)=a(a(i-1,j-1),a(i,j-1))+1Elsea(i,j)=i*jEndIfNextNextPrinta(2,2);a(3,3)EndSub运行程序，单击命令按钮，窗体上显示的是A、13B、21C、22D、33标准答案：D知识点解析：a是个整形的二维数组。通过For循环给数组a元素赋值。i>1并且j>1时执行a(i,j)=a(a(i-1,j-1),a(i,j-1))+1语句，否则执行a(i,j)=i*j，因此执行完第一个大循环后，数组a中的元素值分别是：a（1,1）=1，a（1,2）=2，a（1,3）=3。以此类推，可知a（2,2）=3，a（3,3）=3。选D）。29、下列叙述中正确的是A、算法的效率只与问题的规模有关，而与数据的存储结构无关B、算法的时间复杂度是指执行算法所需要的计算工作量C、数据的逻辑结构与存储结构是一一对应的D、算法的时间复杂度与空间复杂度一定相关标准答案：B知识点解析：算法的效率与问题的规模和数据的存储结构都有关，A错误。算法的时间复杂度，是指执行算法所需要的计算工作量，B正确。由于数据元素在计算机存储空间中的位置关系可能与逻辑关系不同，因此数据的逻辑结构和存储结构不是一一对应的，C错误。算法的时间复杂度和空间复杂度没有直接的联系，D错误。30、以下不能触发滚动条Change事件的操作是()。A、拖动滚动框B、单击两端的滚动箭头C、单击滚动框D、单击滚动箭头与滚动框之间的滚动条标准答案：C知识点解析：改变滚动框的位置后会触发Change事件，拖动滚动框、单击滚动箭头、单击滚动箭头与滚动框之间的滚动条都会改变滚动框的位置。31、以下关于菜单的叙述中错误的是A、对于同一窗体中的菜单，各菜单项的名称必须唯一B、对于同一窗体中的菜单，各菜单项的标题必须唯一C、菜单中各菜单项可以是控件数组元素D、弹出式菜单的编辑、定义在菜单编辑器中进行标准答案：B知识点解析：对于同一窗体中的菜单，各菜单项的标题不须唯一。32、VisualBasic中的"启动对象"是指启动VisualBasic应用程序时，被自动加载并首先执行的对象。下列关于VisualBasic"启动对象"的描述中，错误的是()。A、启动对象可以是指定的标准模块B、启动对象可以是指定的窗体C、启动对象可以是SubMain过程D、若没有经过设置，则默认的"启动对象"是第一个被创建的窗体标准答案：A知识点解析：VB中启动对象可以是SubMain过程或窗体，不能是标准模块。故A选项错误。33、有如下通用过程：FunctionFs(ByValnAsLong)AsLongDimkAsLongk=1n=Abs(n)DoWhilenk=k*(nMod10)n=n\10LoopFs=kEndFunction编写如下事件过程：PrivateSubForm_Click()DimaAsLongDimbAsLonga=InputBox("请输入一个数")a=CLng(A)b=Fs(A)PrintbEndSub程序运行后，单击窗体，在输入对话框中输入567，输出结果为A、56B、67C、210D、18标准答案：C知识点解析：A的值为256，调用Fs函数，执行3次循环：第1次，k=7，n=56；第2次，k=7*6=42，n=5；第3次，k=42*5=210，n=0；不满足循环条件，退出循环。故正确答案为选项C。34、以下关于数组的叙述中，错误的是A、Variant类型的数组中各数组元素的类型可以不同B、各数组元素可以是不同类型的控件C、各数组元素通过下标进行区别D、各数组元素具有相同的名称标准答案：B知识点解析：控件数组是由一组相同类型的控件组成。它们共用一个控件名，绝大部分的属性也相同，但有一个属性不同，即Index属性的值不同。当建立控件数组时，系统给每个元素赋一个唯一的索引号(Index)，通过属性窗口的Index属性，可以知道该控件的下标是多少，第1个元素下标是0。35、有如下程序：PrivateSubForm_Click()DimSAsStringS=InputBox("请输入一个字符串：")Fori=1ToLen(S)\2IfMid(S,i,1)<>Mid(S,Len(S)-i+1,1)ThenPrint"No"ExitSubEndIfNextiPrint"Yes"EndSub运行程序，单击窗体，在输入对话框中输入abcscba，则输出结果为A、abcB、YesC、cbaD、No标准答案：B知识点解析：程序实现从输入的字符串中查找前半截和后半截中不同的字符，找到后打印No，并退出过程。如果没有找到，则打印Yes。题目中输入字符串abcscba，则Len（S）=7，For循环的上限是Len(S)\2=3，代入循环变量，当i=1时Mid(S,i,1)=a，Mid(S,Len(S)-i+1,1)=a，以此类推，每个字符都相等。选B）。36、设有如下通用过程：PublicFunctionFun(xStrAsString)AsStringDimtStrAsString，strLAsIntegertStr＝""strL＝Len(xStr)i＝1DoWhilei<＝strL/2tStr＝tStr&Mid(xStr，i，1)&Mid(xStr，strL－i＋1，1)i＝i＋1LoopFun＝tStrEndFunction在窗体上画一个名称为Command1的命令按钮。然后编写如下的事件过程：PrivateSubCommand1_Click()DimS1AsStringS1＝"abcdef"PrintUCase(Fun(S1))EndSub程序运行后，单击命令按钮，输出结果是()。A、ABCDEFB、abcdefC、AFBECDD、DEFABC标准答案：C知识点解析：通用过程Fun的主要功能在于tStr＝tStr&Mid(xStr，i，1)&Mid(xStr，strL－i＋1，1)这一句。其中Mid(xStr，i，1)的意思是从字符串的左边开始依次取一个字符，Mid(xStr，strL－i＋1，1)的意思是从串的右边开始依次取一个字符。整个这条一语句的用意就是从一个字符串两端依次各取一对字符连成一个字符串。因此当Fun过程的参数为"abcdef"时，返回值为"afbecd"，Ucase("afbecd")结果为"AFBECD"，这就是输出结果。37、下列关于二叉树的叙述中，正确的是()。A、叶子结点总是比度为2的结点少一个B、叶子结点总是比度为2的结点多一个C、叶子结点数是度为2的结点数的两倍D、度为2的结点数是度为1的结点数的两倍标准答案：B知识点解析：根据二叉树的基本性质3：在任意一棵二叉树中，度为0的叶子结点总是比度为2的结点多一个。所以选择B38、用来设置文字字体是否斜体的属性是()。A、FontUnderlineB、FontBoldC、FontSlopeD、FontItalic标准答案：D知识点解析：FontUnderline属性设置文字是否有下划线；FontBold属性是设置文字是否加粗；FontItalic属性是设置文字是否斜体；没有FontSlope属性。故选D。39、下面关于标准模块的叙述中错误的是()。A、标准模块中可以声明全局变量B、标准模块中可以包含一个SubMain过程，但此过程不能被设置为启动过程C、标准模块中可以包含一些Public过程D、一个工程中可以含有多个标准模块标准答案：B知识点解析：标准模块中可以包含一个SubMain过程，可以通过"工程属性"对话框中将SubMain过程设置启动对象。故B选项错误。40、工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是：PublicxAsIntegerPrivateyAsInteger窗体文件的程序代码是：DimaAsIntegerPrivateSubForm_Load()DimbAsIntegera＝2：b＝3：x＝10：y＝20EndSubPrivateSubCommand1_Click()a＝a＋5：b＝b＋5：x＝x＋5：y＝y＋5Printa；b；x；yEndSub运行程序，单击窗体上的命令按钮，则在窗体上显示的是()。A、55155B、751525C、78155D、75155标准答案：D知识点解析：程序在模块文件中定义x为整型全局变量，在整个工程中都起作用，而y定义为整型私有变量，只能在本模块文件中起作用。在窗体文件中变量a在本窗体文本中起作用，窗体加载事件中定义的变量b和没有声明的变量y，只在本事件过程起作用。程序窗体加载时，对后边有影响的变量值为a为2，x为10，没有指定初值的变量值默认为0，因此单击命令按钮后，a＝a＋5＝7，b＝b＋5＝5，x＝x＋5＝15，y＝y＋5＝5，结果输出75155。二、基本操作题(本题共2题，每题1.0分，共2分。)请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。41、在名称为Form1的窗体上画一个名称为CD1的通用对话框，通过属性窗口设置CD1的初始路径为C：＼，默认的文件名为None，标题为“保存等级考试”，如图2所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。标准答案：[操作步骤]步骤1：新建一个“标准。EXE”工程，选择[工程]→[部件]命令，在弹出的“部件”对话框的列表中选中“MicroSoftCommonDiMogControl6．0”项目，单击“确定”按钮。步骤2：在窗体Form1上画一个通用对话框，其相关属性设置如表12—7所示。步骤3：编写Form1的Iroad事件，加入下面的代码：CD1．ShowSave步骤4：按要求将文件保存至考生文件夹中。知识点解析：通用对话框的InitDir属性用于为打开或另存为对话指定初始的目录，如果此属性没有指定，则使用当前目录。通用对话框的初始路径由InitDir属性设置，默认文件名由FileName属性设置，标题由DialogTitle属性设置。42、在名称为Form1的窗体上设计一个菜单。要求在窗体上添加名为menu0，标题为“菜单命令”的主菜单，再添加两个名称分别为“menu1”、“menu2”，标题分别为“不可用菜单项”、“上一菜单项可用”的子菜单，并且使程序运行时，menu1子菜单不可用，menu2子菜单已经选中(运行时的效果如图3所示)。再编写适当的事件过程，使得程序运行时，单击“上一菜单项可用”，则“不可用菜单项”变为黑色(可用)。要求程序中不得使用变量，且只有一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为sit2．vbp，窗体文件名为sit2．Frm。标准答案：[操作步骤]步骤1：新建一个“标准EXE”工程，打开VB菜单设计器设计菜单，各菜单项及属性设置如表12—8所示。步骤2：打开代码编辑窗口，编写“上一菜单项可用”命令的Click事件过程。参考代码：PrivateSubmenu2_Click()menu1．Enabled=TrueEndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：①VB中的菜单是通过菜单编辑器来设计的。菜单编辑器中的基本设置项有：“标题”项，对应出现在菜单中的显示内容；“名称”项，系统识别菜单项的唯一关键字(不能重复)