国家二级VB机试（上机操作）模拟试卷27（共67题）

国家二级VB机试（上机操作）模拟试卷27（共9套）（共67题）国家二级VB机试（上机操作）模拟试卷第1套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称checkl的复选框数组(Index属性从0开始)，含三个复选框，其标题分别为“语文”、“数学”、“体育”，利用属性窗口设置适当的属性，使“语文”未选，“数学”被选中，“体育”为灰色，再把窗体的标题设置为“选课”，如图2．178所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。(2)在名称为Forml的窗体上画两个文本框，名称分别为Text1、Text2．再画两个命令按钮，名称分别为Command1、Command2，标题分别为“复制”、“删除”。程序运行时，在Text1中输入一串字符，并用鼠标拖拽的方法选择几个字符，然后单击“复制”按钮，则被选中的字符被复制到Text2中(如图2．179所示)。若单击“删除”按钮．则被选择的字符从Textl中被删除。请编写两个命令按钮的Click过程完成上述功能。注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。标准答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程。步骤2：在窗体Forml中加入一个复选框，并用“复制”和“粘贴”的方法，生成包含三个元素的复选框数组。步骤3：分别设置窗体和复选框数组中各元素的相关属性，其属性及值如表3．95所示。步骤4：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Forml中画两个文本框和两个命令按钮，其相关属性设置如表3．96所示。步骤2：在代码编辑窗口，分别编写“复制”和“删除”按钮的单击事件过程。参考代码：PrivateSubCommandl—Click()Text2=Textl．SelTextEndSubPrivateSubCommand2_Click()Forml．Textl．SeiText=’”’EndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有一个工程文件sjt3．vbp，窗体上有一个矩形和一个圆，还有垂直和水甲滚动条各一个。程序运行时，移动某个滚动条的滚动块，可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例，滚动块在最左边时，圆靠在矩形的左边线上，如图2．140(a)所示；滚动块在最右边时，圆靠在矩形的右边线上，如图2．140(b)所示。垂直滚动条的情况与此类似。文件中已经给出了全部控件和稗序，但程序不完整，请去掉程序中的汴释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sit4．vbp。窗体中已经给出了所有控件，如图2．141所示。运行时，单击“发射”按钮，航天飞机图标将向上运动，速度逐渐加快，全部进入云中后则停止，并把飞行距离(用坐标值表示)、所用时问(单位为秒)分别显示在标签Label1和Label2中；单击“保存”按钮，则把飞行距离、所用时间存入考生文件夹下的out4．txt文件中。文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。标准答案：第1小题【操作步骤】步骤1：打开考生文件下的本题工程文件sjt3．vbp，在代码编辑窗口，去掉程序中的注释符“”’，将问号“?”改为正确的内容。参考代码：HScrolll．Max=Shape2．Width+Shape2．Left—Shapel．WidthVScrolll．Max；Shape2．Height+Shape2．Top—Shapel．HeightShapel．Left=HScr0111．ValueShapel.Top=VScr0111步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt4．vbp，在代码编辑窗口，去掉程序中的注释符“”’，将问号“?”改为正确的内容。参考代码：TimeR1．Enabled：TrueTimerl．Enabled=Falsed=d—Imagel．Topt=t+1步骤2：按要求将文件保存至考生文件夹中。步骤3：按键运行程序，先单击“发射”按钮，计算完毕后单击“存盘”按钮，最后单击窗体右上角的关闭按钮结束程序。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、在窗体上画一个文本框，其名称为Text1，初始内容为空白，并设置成多行显示格式；然后再画两个命令按钮，其名称分别为Command1和Command2，标题分别为“显示”和“保存”，如图2．92所示，编写适当的事件过程。程序运行后，如果单击“显示”按钮，则读取考生文件夹下的inS．txt文件，并在文奉框中显示出来，该文件是一个用随机存取方式建立的文件，共有5个记录，要求按记录号顺序显示全部记录，每个记录一行；如果单击“保存”按钮，则把所有记录保存到考生文件夹下的顺序文件out5．txt中。随机文件in5．txt中的每个记录包括三个字段，分别为姓名、性别和年龄，其名称和长度分别为：其类型定义为：PrivateTypeStudInfoNameAsString*8SexAsString*4AgeAsIntegerEndType要求：文件out5．txt以顺序存取方式建立和保存。存盘时必须存放在考生文件夹下，工程文件名为sjt5．vbp，窗体文件名为sit5．frm。标准答案：【操作步骤】步骤1：新建一个“标准EXE”工程，如表3-51在窗体中画出控件并设置其相关属性。步骤2：打开代码编辑窗口，编写相应事件过程。参考代码：PrivateTypeStudlnfoNameAsString*8SexAsString*4AgeAsIntegerEndTypeDimStudAsStudInfoDimRecNumAsLongPrivateSubCommandlC1ick()OpenApp．Path＆”＼in5．txt”ForRandomAs#1Len=Len(Stud)RecNum=1DoWhileNotEOF(1)Get#1，RecNum，StudTextl．Text=Textl．Text＆Stud．NameTextl．Text=Textl．Text＆StudSexTextl．Text=Textl．Text＆Str(Stud．Age)Textl．Text=Textl．Text+vbCrLfRecNum=RecNum+1LoopClose1EndSubPrivateSubCommand2Click()OpenApp．Path＆”＼out5．txt”ForOutputAs#1Print#1，Textl．TextClose1EndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析国家二级VB机试（上机操作）模拟试卷第2套一、选择题(本题共40题，每题1.0分，共40分。)1、线性表常采用的两种存储结构是()。A、散列方法和索引方式B、链表存储结构和数组C、顺序存储结构和链式存储结构D、线性存储结构和非线性存储结构标准答案：C知识点解析：线性表的存储通常要用两种存储结构：顺序存储结构和链式存储结构。2、软件需求分析阶段的工作，可以分为四个方面：需求获取、编写需求规格说明书、需求评审和()。A、阶段性报告B、需求分析C、需求总结D、都不正确标准答案：B知识点解析：软件需求分析阶段的工作，可以概括为四个方面：需求获取、需求分析、编写需求规格说明书和需求评审。需求获取的目的是确定对目标系统的各方面需求。涉及到的主要任务是建立获取用户需求的方法框架，并支持和监控需求获取的过程。需求分析是对获取的需求进行分析和综合，最终给出系统的解决方案和目标系统的逻辑模型。编写需求规格说明书作为需求分析的阶段成果，可以为用户、分析人员和设计人员之间的交流提供方便，可以直接支持目标软件系统的确认，又可以作为控制软件开发进程的依据。需求评审是对需求分析阶段的工作进行复审，验证需求文档的一致性、可行性、完整性和有效性。3、在软件生命周期中，能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是()。A、需求分析B、详细设计C、软件设计D、概要设计标准答案：A知识点解析：软件生命周期的主要活动阶段为：可行性研究和计划制定、需求分析、软件设计、软件实现、软件测试、运行和维护。其中需求分析是对开发软件提出的需求进行分析并给出详细定义，即准确地确定软件系统的功能，编写软件规格说明书及初步的用户手册，提交评审。4、对建立良好的程序设计风格，下面描述正确的是()。A、程序应简单、清晰、可读性好B、符号名的命名只要符合语法C、充分考虑程序的执行效率D、程序的注释可有可无标准答案：A知识点解析：程序设计应该简单易懂，语句结构应该简单直接，不应该为提高效率而把语句复杂化。5、下列工具中，不属于结构化分析的常用工具的是()。A、数据流图B、数据字典C、判定树D、N-S图标准答案：D知识点解析：结构化分析常用工具有数据流图、数据字典、判定树和判定表。6、在软件生产过程中，需求信息的来源是()。A、程序员B、项目经理C、设计人员D、软件用户标准答案：D知识点解析：软件需求是指用户对目标软件系统在功能、性能、设计约束等方面的要求，是由用户提出的。7、对关系S和R进行集合运算，结果中既包含S中的所有元组也包含R中的所有元组，这样的集合运算称为()。A、并运算B、交运算C、差运算D、积运算标准答案：A知识点解析：关系的并运算是指由结构相同的两个关系合并，形成一个新的关系，新关系中包含两个关系中的所有元组。8、设有关键码序列(Q，G，M，Z，A，N，B，P，X，H，Y，S，T，L，K，E)，采用堆排序法进行排序，经过初始建堆后关键码值B在序列中的序号是()。A、1B、3C、7D、9标准答案：B知识点解析：建堆的算法：首先将要排序的所有关键码放到一棵完全二叉树的各个结点中(这时的二叉树不具备堆的特性)，然后，从i=[n／2](n为结点的个数)的结点Ki开始，逐步把以K[n/2]，K[n/2]-1，K[n/2]-2，…为根的子树排成堆，直到以K1为根的树排成堆，就完成了建堆过程。此题中，n=16，i=[16／2]=8，即从第8个结点开始，所以经过初始建堆后关键码值B在序列中的序号是3。9、数据库的故障恢复一般是由()来执行恢复。A、电脑用户B、数据库恢复机制C、数据库管理员D、系统普通用户标准答案：C知识点解析：数据库一旦发生故障，需要及时进行故障恢复，并由数据库管理员负责执行故障恢复。10、下列选项中，不属于数据模型所描述的内容的是()。A、数据类型B、数据操作C、数据结构D、数据约束标准答案：A知识点解析：数据模型描述的内容包含数据结构、数据操作和数据约束。11、在窗体上画一个命令按钮，然后编写如下时间过程()。PrintSubCommandl_Click()a=InputBox(”EntertheFirstinterger”)b=InputBox(”EntertheSecondinterger”)Printb+aEndSub程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，则输出结果是A、579B、123C、456D、123456标准答案：D知识点解析：InputBox函数返回的是字符串格式的用户输入的数据，因此本题中，最后变a和变量b中存储的是字符串‘456’和’123’，因此表达式b+a，就是将这两个字符串连接起来，称为字符串’123456’。12、确定一个控件在窗体上的位置的属性是()。A、Width或HeightB、Width和HeightC、Top或LeftD、Top和Left标准答案：D知识点解析：本题考查对象的基本属性。Height和Width属性决定了控件的高度和宽度，而Top和Left属性决定了控件在窗体中的位置属性。13、以下()控件没有Caption属性。A、CommandButtonB、CheckBoxC、TextBoxD、Label标准答案：C知识点解析：本题考查基本控件的常用属性。命令按钮(CommandButton)、复选框(CheckBox)以及标签(Label)都有标题(Caption)属性；而文本框没有Caption属性，只有Text属性。14、在窗体上有一个名称为Commandl的命令按钮，并有如下程序：PrivateSubCommandl_Click()StaticXAsIntegerStaticYAsIntegerC1sY=1：Y=Y+5：X=5+X：PrintX．YEndSub程序执行时，单击命令按钮Command1三次后，窗体上显示的结果为()。A、1516B、56C、1515D、156标准答案：D知识点解析：本题考查静态变量。静态变量的值有继承性，上一次调用的结果在下一次调用时还是有效的。题目中每次调用Y的值都被重新赋值了，因此单击3次以后Y的值仍然是6，而x每次调用的结果都保留，因此调用3次以后，结果为15。15、表达式Str(Len(”123”))+Str(77．7)的值是()。A、3+77．7B、377．7C、80．7D、12377．7标准答案：B知识点解析：本题考查字符串处理函数。Str的功能是把数字转化为字符，Len函数的功能是求字符串中字符的个数。题中“+”为字符串连接运算符。16、表达式Int(一15．8)+Fix(一15．8)+Int(15．8)+Fix(15．8)的运算结果是()。A、一1B、一2C、0D、1标准答案：A知识点解析：本题考查函数Int的功能，Int(x)的作用是取不大于x的最小的整数，Fix(x)则是简单的取整数部分。17、编写如下事件过程：PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle，YAsSingle)If(ButtonAnd3)=3ThenPrint”AAAA”EndIfEndSub程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为()。A、按左键并移动B、按右键并移动C、同时按下左、右键并移动D、按什么键都不显示标准答案：D知识点解析：鼠标单击时，鼠标键按下的参数Button可取3个值：按下左键时，Button值为1、按下右键时，Button值为2、按下中间键时，Button值为4。因此始终不能执行语句“Print”AAAA””，也就不能输出“AAAA”。18、窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的列表项，应使用的语句是()。A、PrintCbl．SelectedB、PrintCbl．List(Cbl．ListIndex)C、PrintCbl．Selected．TextD、PrintCbl．List(Listlndex)标准答案：B知识点解析：组合框的属性ListIndex返回当前所选项目的索引号，List(Index)属性返回指定索引号的列表项内容，因此返回当前选定的列表项应该用Cb1．List(Cb1，LiStIndexl。19、窗体上有一个命令按钮和一个文本框，程序执行后，在文本框中输入12345，单击命令按钮后的输出结果为()。PrivateSubCommandl_Click()DimAAsInteger,BAsIntegerText1．SelStart=2：Text1．SelLength：2A=Val(Textl．SelText)：B=Len(Text1．Text)PrintA*BEndSubA、68B、115C、1700D、170标准答案：D知识点解析：本题考查文本框的常见属性。文本框的SelStart属性和SelLength属性表示选中文本的开始位置和长度，第一个字符的位置为0，SelText表示选中的文本。Val把字符转化为数字。所以A为34，B为5，因此输出为34*5=170。20、使用()方法，可清除列表框中所有的列表项。A、RemoveB、ClearC、RemoveItemD、Move标准答案：B知识点解析：本题考查列表框项目清除。在列表框中可以使用RemoveItem方法和Clear方法来清除项目，其中RemoveItem清除某一项，而Clear清除所有项。21、下列循环能正常结束的是()。A、x=5Dox=x+1LoopUntilx<0B、x=1Dox=x+2LoopUntilx=10C、x=10Dox=x+1LoopUntilx>0D、x=6Dox=x一2LoopUntilx=1标准答案：C知识点解析：本题考查Do型循环。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件如何至少执行一次循环体。由Until引出的循环条件为False时执行循环体，条件为True时退出循环；题目中选项A)中循环变量逐渐增加，不可能小于0，选项B)中循环变量的步长为2，初值为1，不可能等于10。而选项C)中执行一次循环体，条件成立，退出循环。选项D)和选项B)相似，循环变量无法等于1。22、程序运行时，当在空文本框中依次输入1234时，窗体上显示的是()。PrivatesubText1_Change()PrintText1：EndSubA、1234B、12C、1121231234D、10标准答案：C知识点解析：本题考查文本框的Change事件，Change事件是每次文本框中的文本发生改变都要触发的事件，因此输入1234后，Change事件触发了4次，每次都是把文本框的现有的内容输出，依次输出为1121231234。23、在窗体上没有进行任何属性设置，然后编写如下事件过程，则程序运行结果是()。PrivateSubForm_Load()Fori=1To10sum=sum+iNextiPrint”Sum=”：sumEndSubA、在窗体上输出55B、在窗体上输出sum=55C、出错D、窗体上不输出标准答案：D知识点解析：本题考查Load事件运行。当装入窗体事件触发时，通常用于对属性和变量初始化，一般不使用Print方法，若想Print方法在FormLoad事件过程中起作用，必须设置窗体的AutoRedraw为True，否则Print方法不起作用。24、在窗体上画两个名称分别为Hscroll1、Hscroll2的滚动条控件；6个名称分别为Label1、Label2、Label3、Label4、Label5、Label6的标签，其中，Label4-Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条Value属性值，Label3显示A*B的计算结果，如图1所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现求积功能的事件过程是()。A、PrivateSubCommandl_Click()Label3．Caption=Str(Val(Label1．Caption)*Val(Label2．Caption))EndSubB、PrivateSubCommandlClick()Label3．Caption：HScrolll．Value*HScroll2．ValueEndSubC、PrivateSubCommandl_Click()Label3．Caption：HScroll1*HScroll2EndSubD、PrivateSubCommandl_Click()Label3．Caption=HScroll1．Text*HScroll2．TextEndSub标准答案：D知识点解析：本题考查滚动条的属性。滚动条Value属性表示滑块的位置值，为数值型；而标签的Caption为字符串型。因此，要将滚动条的Value属性值显示在标签上，需要进行类型转换(将数值型数据转换成字符串型数据)。25、设a=6，则执行x=IIf(a>5，-1，0)后，x的值为()。A、5B、6C、0D、一1标准答案：D知识点解析：本题考查IIf函数。IIf函数可用于执行简单的条件判断操作，其格式为：result=IIf(<条件>，．)，其中“result”是函数的返回值，“条件”是一个逻辑表达式。当“条件”为真时，IIf函数返回“True部分”的值；当“条件”为假时返回“False部分”的值。“True部分”或“False部分”可以是表达式、变量或其他函数。题目中a大于5成立，因此表达式值为一1。26、以下程序执行后，在窗体上输出的图案是()。Forml．ClsFora=1To5PrintSpace(5一a)；String(a，”*”)NextaA、***************B、*****************C、*****************D、***************标准答案：A知识点解析：本题考查循环语句的分析。循环中共输出5行，每一行首先输出5一a个空格，然后输出a个“*”号。a的变化为1到5，步长为1。27、假定窗体上有一个标签，名为Label。为了使该标签透明并且没有边框，则正确的属性设置为()。A、Labell．BackStyle=0Label1．BorderStyle=0B、Label1．BackStyle=1Label1．BorderStyle=1C、Label1．BackStyle=TrueLabel1．BorderStvle=TrueD、Label1．BackStyle=FalseLabel1．BorderStyle=False标准答案：A知识点解析：标签控件的BackStyle属性是设置背景，当BackStyle属性值设置为0时，则标签为“透明”的，当BackStyle属性值设置为1时，则标签为将覆盖背景；标签控件的BorderStyle属性是设置标签的边框，当BorderStyle属性值设置为0时，则标签无边框，当BorderStyle属性值设置为1时，则标签有边框。因此选项A正确。28、单击命令按钮时，下列程序段的执行结果为()。PrivateSubCommandl_Click()PrintFuncl(24，18)EndSubPublicFunctionFuncl(mAsInteger，nAsInteger)AsIntegerDoWhilem<>nDoWhilem>n：m=m．n：LoopDoWhilemA、8B、6C、4D、2标准答案：B知识点解析：本题考查循环程序的分析。在函数Funcl中，程序主要由一条嵌套的循环语句构成，如果m<>n，外循环内部的第一条内循环为除去m中包含的所有的n的倍数。第二条内循环为除去n中包含的m的倍数。最后计算到m和n相等。29、下列程序段执行后，输出的结果是()。Fork1=0T04y=20Fork2=0To3y=10Fork3=0To2y=y+10Nextk3Nextk2NextklPrintyA、90B、60C、40D、1O标准答案：C知识点解析：本题考查循环程序的分析。程序的主要部分为一个3层循环的嵌套。前两层循环共执行5*4=20次，每次执行前y的初值都是10，因此，只要考虑第3层循环就可以了。第3层循环执行3次，也就是语句y=y+10执行3次，y的初始值为10，因此计算结果为40。30、使用语句DimA(1To10)AsInteger声明数组A后，以下叙述正确的是()。A、A数组中的所有元素值为0B、A数组中的所有元素值不确定C、A数组中的所有元素值为EmptyD、执行语句“EraseA”后，A数组中的所有元素值为Null标准答案：A知识点解析：本题考查数组。VB中数值型数组定义后，所有的元素都自动赋值为0。而Erase仅可以清空自动数组中的元素值。31、以下程序段的功能是()。x=8．6y=Inf(x+0．5)PrintyA、输出y的绝对值B、实现x的四舍五入C、实现x的绝对值D、实现y的四舍五入标准答案：B知识点解析：本题考查函数Int的功能，Int(x)的作用是取不大于x的最小的整数，可以实现数据的四舍五入。32、在窗体上建立一个命令控件数组Command1，并双击第一个命令按钮，编写如下事件过程：PrivateSubCommandl_Click(IndexAsInteger)Commandl(Index)．Caption=FormatS(Now,”hh：mm：ss”)EndSub以下描述正确的是()。A、当单击某个命令按钮时，数组中所有命令按钮的Caption属性将被设置为当前时间B、当单击某个命令按钮时，该按钮的Caption属性将被设置为当前时间C、程序有错误D、窗体的Caption属性将被设置为当前时间标准答案：B知识点解析：本题考查控件数组。建立控件数组以后，数组中的每个元素名字相同，依靠Index属性来区分单击了哪个命令按钮。题目中单击哪个命令按钮，哪个命令按钮的标题属性就变为当前时间。33、有如下的一个函数过程：Functionfn(ByValnumAsLong)DimkAsLongk=1：num=Abs(num)DoWhilenumk=k*(numMod10)num=Bum＼10Loopfn=kEndFunction通过以下事件过程调用该函数，程序运行后，在输入对话框中输入数字“123”，则运行结果为()。PrivateSubCommandl_Click()DimnAsLongDimrAsLongn=InputBox(”请输入一个数值”)n=CLng(n)：r=fn(n)PrintrEndSubA、12B、6C、3D、1标准答案：B知识点解析：本题考查函数功能分析。定义函数过程fn时，在参数前加上ByVal表明参数为传值调用。函数fn的主要功能为取出num的每一位，进行累计相乘，然后返回结果。34、下列关于函数过程的叙述中，正确的是()。A、如果不指明函数过程参数的类型，则该参数没有数据类型B、函数过程的返回值可以有多个C、函数过程形参的类型与函数返回值的类型没有关系D、当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递标准答案：C知识点解析：本题考查过程定义。在VB中出现的变量，如果没有声明类型，那么为变体型。VB中可以通过调用函数过程得到返回值，一个函数过程只能有一个返回值，如果需要改变主调过程的参数，可以进行传址方式调用函数。VB数组参数中不存在传址调用，函数的参数和返回值类型之间没有任何关系。35、以下程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”的条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容，在横线处应填写()。PrivateSubCommandl_Click()x=Val(Textl．Text)If_______ThenPrintxElseText1．SetFOCUSText1．Text=””EndIfEndSubA、X％4=1AndX％5=2B、x％4=1Orx％5=2C、XMod4=1AndXMod5=2D、xMod4=1OrXMod5=2标准答案：C知识点解析：本题考查条件表达式的描述和如何获得焦点。题中的两个条件“除以4余1，除以5余2”关系为并列关系，可以表示为“xMod4=1AndxMod5=2”。36、要求当鼠标在图片框Picturel中移动时，立即在图片中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是()。A、PrivateSubPicture1_MouseMove(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)Picture1．PrintX，YEndSubB、PrivateSubPicturel_MouseMove(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)PrintX，YEndSubC、PrivateSubPicture1_MouseDown(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)Picture．PrintX，YEndSubD、PrivateSubForm_MouseMove(ButtonAsIntegerShiftAsInteger，XAsSingle，YAsSingle)Picture1．PrintX，YEndSub标准答案：A知识点解析：在图片框中移动鼠标触发的事件是PicturelMouseMove事件，在事件中控制在图片框中输出坐标。37、一个工程中包含两个名称分别为Form1、Form2的窗体、一个名称为Func的标准模块。假定在Form1、Form2和Func中分别建立了自定义过程，其定义格式为：Form1中定义的过程：PrivateSubFunl()EndSubForm2中定义的过程：PrivateSubFun2()EndSubFunc中定义的过程：PrivateSubFun3(、)EndSub在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是()。A、上述3个过程都可以在工程中的任何窗体或模块中被调用B、Fun1和Fun2过程能够在工程中各个窗体或模块中被调用C、上述3个过程都只能在各自被定义的模块中调用D、只在Fun3过程能够被工程中各窗体或模块调用标准答案：C知识点解析：本题考查过程的作用域。在定义过程或者函数的时候选用了Private关键字说明，那么这个过程仅可以在本模块中使用，标准模块定义的函数或者过程也不例外。38、在窗体上有一个名称为CDl的通用对话框和一个名称为Commandl的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为“保存”，缺省文件名为“ABC”，在“文件类型”栏中显示*．txt。则能够满足上述要求的程序是()。A、PrivateSubCommandl_Click()CD1．FileName=”ABC”CD1．Filter=”AllFiles|*．*|(*．txt)|*．txt|(*．doc)|*．doc”CD1．Filterlndex=1CD1．DialogTitle=”保存”CD1．Action=2EndSubB、PrivateSubCommandl_Click()CD1．FileName=”ABC”CD1．Filter=”AllFiles|*．*|(*．txt)|*．txt|(*．doc)|*．doc”CD1．FilterIndex=2CD1．DialogTitle=”保存”CD1．Action=2EndSubC、PrivateSubCommand1_Click()CD1．FileName=”保存”CD1．Filter=”AllFiles|*．*|(*．txt)|*．txt|(*．doc)|*．doc”CD1．FilterIndex=2CD1．DialogTitle=”ABC”CD1．Action=2EndSubD、PrivateSubCommand1_Click()CD1．FileName=”ABC”CD1．Filter=”AllFiles|*．*|(*．txt)|*．txt|(*．doc)|*．doc”CD1．Filterlndex=1CD1．DialogTitle=”保存”CD1．Action=1EndSub标准答案：B知识点解析：本题考查通用对话框。程序中单击命令按钮时，要打开保存对话框，因此设置CDl的Action属性为2，可以使用ShowSave方法，更改CDl的DialogTitle属性为“保存”，同时设置Filter属性，将FilterIndex属性设置为2，表示默认的文件类型为“*．txt”，设置其FileName属性为“ABC”，表示确定首次打开“保存”对话框时，在文件名中显示的文件名。39、己知在菜单编辑器中设计了窗体的快捷菜单，其主菜单为al，且取消其“可见”属性，如图2所示。运行时，以下()事件过程可以使快捷菜单的菜单项响应鼠标右键单击。A、PrivateSubForm_MouseDown(ButtonAs_Integer,_ShiftAsInteger,XAsSingle，YAsSingle)IfButton=2ThenPopupMenual，2EndSubB、PrivateSubForm_MouseDown(ButtonAsInteger,_ShiftAsInteger,XAsSingle．YAsSingle)PopupMenual，0EndSubC、PrivateSubForm_MouseDown(ButtonAsInteger,_ShiftAsInteger,XAsSingle，YAsSingle)PopupMenualEndSubD、PrivateSubForm_MouseDown(ButtonAsIntegeLShiftAs_Integer,XAsSingle，YAsSingle)If(Button=vbLetfButton)Or(Button=vbRightButton)ThenPopupMenualEndSub标准答案：A知识点解析：本题考查弹出菜单的显示。PopupMenu为弹出菜单方法，使用格式为：[对象.]PopupMenu菜单名、标志，x,y；其中，标志表示弹出的位置和触发的键，取值为0表示弹出菜单的左端在x处且识别左键单击，取值为04表示位于x的中心，取值为08表示在x的右边，一般判断是否单击右键，可通过判断Button是否为2来实现。40、下面程序运行时，若输入“VisualBasicProgramming”，则在窗体上输出的是()。PrivateSubCommand1_Click()DimNum(25)AsInteger，ChrlAsStringChrl=LJCase(InputBox(”请输入字母字符串”))Fork=1ToLenfChrl)n=Asc(Mid(Chr1，k，1))-Asc(”A”)Ifn>=O’FhenNum(n)=Num(n)+1EndIfNextkm=Num(0)Fork=1To25IfmA、3B、2C、1D、0标准答案：A知识点解析：该程序的第一个循环是遍历整个字符串，其中数组Num的作用是存放对应字符的出现次数；第二个循环的作用是找到数组Num中的最大值，所以整个程序的功能就是找到在输入字符串中出现次数最多的字母，并输出其出现的次数。二、基本操作题(本题共1题，每题1.0分，共1分。)41、请根据以下各小题的要求设计Visual．Basic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画出包含三个命令按钮的控件数组，名称为cmdl，下标分别为0、1、2，Caption分别为“开始”、“停止”和“退出”，如图3(a)所示。通过属性窗口设置各命令按钮的属性，使得程序开始运行时，“停止”按钮不可见，“退出”按钮不可用，如图3(b)所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1．frm，工程文件名为sjt1．vbp。(2)在名称为Form1的窗体上画两个名称分别为Command1和Command2、标题分别为“打开，，和“保存”的命令按钮，和一个名称为CD1的通用对话框，如图4所示。请在属性窗口中设置CD1的属性，使得打开通用对话框时，其初始路径是“C：＼”。再编写适当的事件过程，使得运行程序，分别单击“打开”或“保存”按钮时，相应地出现“打开”或“保存”对话框。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt2.frm，工程文件名为sjt2．vbp。标准答案：(1)【操作步骤】步骤1：新建一个“标准EXE”工程，如下表在窗体中用“复制”和“粘贴”画出控件数组并设置属性。(2)【操作步骤】步骤1：新建一个“标准EXE”工程，选择【工程】→【部件】命令，在弹出的“部件”对话框的列表中选中“MicroSoftCommonDialogContro16．0”项目，单击“确定”按钮。步骤2：在窗体Form1上画一个通用对话框，其相关属性设置如下表所示。步骤3：编写两个命令按钮的Click事件，加入下面的代码：参考代码：PrivateSubCommandl_Click()PrivateSubCommand2_Click()CD1．ShowOpen’或CD1．Action=1CD1．ShowSave’或CD1．Action：2EndSubEndSub步骤4：按要求将文件保存至考生文件夹中。知识点解析：暂无解析三、简单应用题(本题共1题，每题1.0分，共1分。)42、(1)考生文件夹中有工程文件sjt3．vbp。在窗体上有名称为Combo1的组合框，请设置该组合框的属性，使该组合框只能用于选择操作，不能输入文本。窗体上还有两个标题分别为“输入正整数”、“判断”的命令按钮。程序运行时在组合框中选中一项，如图5(a)所示，单击“输入正整数”按钮，通过输入对话框输入一个正整数，再单击“判断”按钮，则按照选定的选项内容，将判断结果显示在信息框中。如图5(b)所示的是输入56且选中的组合框选项为“判奇偶数”时显示的信息框。在给出的窗体文件中已经有了全部控件，但程序不完整，要求：按照题目要求设置组合框的有关属性，去掉程序中的注释符，把程序中的?改为正确的内容。注意：考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。(2)在考生目录下有一个工程文件sjt4．vbp。窗体上有一大一小两个名称分别为Shape2、Shape1的Shape控件。请在属性窗口中将Shapel控件设置为圆形，并将其颜色设置为红色(颜色值为&H000000FF&)，如图6所示。要求：当单击窗体时，Shape1移动到矩形(即Shape2)左上角，再次单击窗体，则鼠hapel移动到矩形的右下角。在给出的窗体文件中已经有了全部控件，但程序不完整。要求：在属性窗口中设置有关的属性值，去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。标准答案：(1)【操作步骤】步骤l：打开考生文件中的本题工程文件sjt3．vbp，将组合框的Style属性设置为2。步骤2：在代码编辑窗口，去掉程序中的注释符""，将问号“?”改为正确的内容。参考代码：SelectCaseCombo1．ListIndexMsgBoxStr(x)&f1(x)MsgBoxStr(x)＆f2(x)PrirateFunctiont2(ByValxAsInteger)AsStringIfxMod7=0Then步骤3：按要求将文件保存至考生文件夹中。(2)【操作步骤】步骤1：打开考生文件中的本题工程文件sit4．vbp，将Shape1控件的Shape属性设置为3，BackColor属性设置为&H000000FF&。步骤2：在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码：PrivateFlagAsBooleanShapel．Top=Shape2．1bp+Shape2．Height—Shape1．HeightShapel．Left=Shape2．Left+Shape2．Width—Shape1．Width步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析四、综合应用题(本题共1题，每题1.0分，共1分。)43、在考生目录下已有一个工程文件sjt5．vbp。运行程序后，分别从两个文件中读出数据，放入两个一维数组a、b中。请编写程序，当单击“合并数组”按钮时，将a、b数组中相同下标的数组元素的值求和，并将结果存入数组c。单击“找最大值”按钮时，调用find过程分别找出a、c数组中元素的最大值，并将所找到的结果分别显示在Text1、Text2中。在给出的窗体文件中已经有了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的?改为正确的内容，并编写相应程序，实现程序的功能。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，各命令按钮的事件过程必须至少各执行一次。标准答案：【操作步骤】步骤1：打开考生文件夹下的本题工程文件sjt5．vbp，打开代码编辑窗口，在指定位置编写代码。参考代码：Max=x(1)Fori=2ToU=Bound(x)Ifx(i)>MaxThenMax=x(i)EndIfNextt．Text=MaxFori=1ToUBound(a)c(i)=a(i)+b(i)Next步骤2：按要求将文件保存至考生文件夹中。步骤3：按键运行程序，先单击“读数据”按钮，再单击“合并数组”按钮，最后单击“找最大值”按钮。知识点解析：暂无解析国家二级VB机试（上机操作）模拟试卷第3套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个文本框，名称为Text1，内容为“VB程序设计”；再画两个命令按钮，其名称分别为Command1和Command2，标题分别为“扩大”和“缩小”，如图2．1所示，编写适当的事件过程。程序运行后，每单击Commandl命令按钮一次，文本框中文本的字体扩大1．2倍；每单击Command2单选按钮一次，文本框中文本的字体缩小1．2倍。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sit1．frm。(2)在名称为Forml的窗体上画一个列表框，其名称为List1，通过属性窗口向列表框中输入9个项目，分别为10、20、30、40、50、60、70、80、90；画一个文本框，其名称为Textl，初始内容为空白；再画一个水平滚动条，其名称为HScrolll，Min属性和Max属性分别为0和100，如图2．2(a)所示，编写适当的事件过程。程序运行后，如果单击列表框中的某个项目，则在文本框中显示该项目内容，并把滚动条的滚动框移到相应的位置，如图2—2(b)所示。要求：不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sit2．frm。标准答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Forml中加入一个文本框和两个命令按钮，其相关属性设置如表3—1所示。步骤2：打开代码编辑窗口，输入如下代码：参考代码：PrivateSubCommandl—Click()Textl．FontSize=Textl．FontSize*1．2EndSubPrivateSubCommand2一Click()Textl．FontSize=Textl．FontsiZe／1．2EndSub步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体上画一个列表框、一个文本框和一个水平滚动条，按表3—2设置其相关属性。步骤2：在打开的代码编辑窗口中，编写列表框的单击事件代码：参考代码：PrivateSubListl一C1ick()Textl．Text=LiStl．TextHSCroll1．ValUe=Val(LiStl．Text)EndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有一个工程文件sit3．vbp。程序运行时，单击窗体则显示如图2．155所示的图案。请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjc4．vbp，窗体中有一个矩形和一个圆，程序运行时，单击“开始”按钮，圆可以纵向或横向运动(通过选择单选按钮来决定)，碰到矩形的边时，则向相反方向运动，单击“停止”按钮，则停止运动，如图2．156所示。可以选择单选按钮随时改变运动方向。已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不得修改已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。标准答案：第1小题【操作步骤】步骤1：打开考生文件中的奉题工程文件sjt3．vbp，在代码编辑窗口，去掉程序中的注释符“”’，将问号“?”改为正确的内容。参考代码：Fori=1To5Forj=1To2*i—IForj=1Toi+1Forj=1To9-2*i步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件中的本题工程文件sit4．vbp，在代码编辑窗口，去掉程序中的注释符“*”，将问号“?”改为正确的内容。参考代码：Timerl．Enabled=FalseShape2．Top=Shape2．Top+d*50IfShape2．Top<=Shapel．TopOrShape2．Top+Shape2．Width>=Shapel．Top+Shapel．HeightThenShape2．Left=Shape2．Left+d*50步骤2：按要求将文件保存至考生文件夹中。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有一个工程文件sit5．vbp，在该工程文件中已经定义了一个学生记录类型数据StudType。有三个标题分别为“学号”、“姓名”和“平均分”的标签；三个初始内容为空，用于接收学号、姓名和平均分的文本框Text1、Text2和Text3：一个用于显示排序结果的图片框。还有两个标题分别为“添加”和“排序”的命令按钮，如图2．192所示。程序功能如下：①在Text1、Text2和Text3三个文本框中输入学号、姓名和平均分后，单击“添加”按钮，则将输入内容存入自定义的学生记录类型数组stud中(注：最多只能输入10个学生信息，且学号不能为空)；②单击“排序”按钮，则将学生记录类型数组stud中存放的学生信息，按平均分降序排列的方式显示在图片框中，每个学生一行，且显示三项信息。清将“添加”按钮、“排序”按钮的Click事什过程中的注释符去掉，把?改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后把修改后的文件按原文件名存盘。标准答案：【操作步骤】步骤1：打开考生文件下的本题工程文件sjt5．vbp，在代码编辑窗口，去掉程序中的注释符“”’，将问号“?”改为正确的内容。参考代码：n=n—1stud(n)．Num=Text1Fork=j+1TonIfstud(k)．Average>stud(J)．AverageThenstud(k)=stud(j)步骤2：按要求将文件保存至考生文件夹中。知识点解析：暂无解析国家二级VB机试（上机操作）模拟试卷第4套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisuaIBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个文本框，名称为Textl，字体为“黑体”，文本框中的初始内容为“程序设计”；再画一个命令按钮，名称为C1，标题为“改变字体”(如图3—168所示)。请编写适当事件过程，使得在运行时，单击命令按钮，则把文本框中文字的字体改为“宋体”。程序中不得使用任何变量。注意：保存时必须存放在考生文件夹下，工程文件名为sitl．vbp，窗体文件名为sitl．frm。(2)在名称为Forml的窗体上画一个图片框，名称为P1，高为1800，宽为1600，并放入文件名为picl．bmp的图片(如图3—169所示)。请编写适当的事件过程，使得在运行时，如果双击窗体，则图片框巾的图片消失。程序中不得使用任何变量。注意：保存时必须放放在考乍文件灾下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。标准答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置相应属性。步骤2：打开代码编辑窗口，编写命令按钮的单击事件过程。参考代码：PrivateSubC1Click()Me．Textl．Font．Name=“宋体”EndSub步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。步骤2：打开代码编辑窗口，编写窗体的双击事件过程。参考代码：PrivateSubFormDblClick()P1．picture=L,oadPicture(“”)EndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有一个工程文件vbsi3．vbp，相应的窗体文件为vbsi3．frm，在窗体上有一个标题为“计算”的命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出数组ari。中每个元素与其下标相除所得的和，并在文本框中显示出来，程序的运行情况如图3-55所示。在窗体的代码窗口中，已给出了部分程序，其中计算数组arr中每个元素与其下标相除所得的和的操作在通用过程Fun中实现，请编写该过程的代码。要求：请勿改动程序中的其他部分，只在FunctionFun()和EndFunction之间填入你编写的若干语句并运行程序。在结束程序运行之前，必须至少正确运行一次程序，将结果显示在文本框中，否则无成绩。最后把修改后的文件按原文件名存盘。说明：数组art中共有40个元素，“数组arr中每个元素与其下标相除所得的和”，是指：arr(1)／1+arr(2)／2+arr(3)／3+…+arr(40)／40程序源码:OptlonBase1FunctiOnFun(a()AsSingle)AsSingle由考生编写============EndFunctionPrivateSubcmdCalClick()DimarrDimarr2(40)AsSinglearr=Array(12．5，65．4，56，73，46．23，58．25，83．49，96，27．3，36．78，29．26，89．4，34．7，45．4，56．9，67．4，78，98，87．5，76．8，34．6，55．8，64．7，43．7，99．4，84．7，66．2，23．9，55．5，44．1，33．2，43．5，41．2，28．3，78．6，98．3，56．1，73．6，49．3，48．3)Fori=1ToUBound(arr)arr2(i)=arr(i)Nextir=Fun(arr2())txtResult．Text=Str(r)SaveDataEndSubSubSaveData()Open“out3．txt”ForOutputAs#1print#1，txtResult．TextClose1EndSub(2)在考生文件夹下有一个工程文件vbsj4.vbp。程序运行后，如果单击“开始”按钮，则图片自左向右移动，同时滚动条的滑块随之移动，每0．5秒移动一次。当图片完全移出窗体的右边界时，立即再从窗体的左边界开始重新移动，若单击“停止”按钮，则图片停止移动，如图3．56所示。在窗体文件中已经给出了全部控件，但程序不完整。要求：请去掉程序中的注释符，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序源码：PrivateSubcmdStartClick()Tmr1．Enabled=TrueEndSubPrivateSubcmdStopClick()Tmr1.Enabled=?EndSubPrivateSubFormIJoad()Hsbl．Min=0Hsbl．Ha．x=Me．WidthTmrl.Interval=?EndSubPrivateSubTmrlTimer()Picl．Left=Picl．Left+200IfPicl.Left>?ThenPicl,Left=?EndIfHScrolll．Value=Picl．LeftEndSub标准答案：第1小题【操作步骤】步骤1：打开考生文件夹下的工程文件vbsj3．vbp。步骤2：进入代码编辑窗口，在FunctionFun()和EndFunction之间输入以下代码：参考代码：FunctionFun(a()AsSingle)AsSingleDimsumAsSingleDimiASInteqerFori=LBound(a)ToUBound(a)sum=sum+a(i)／iNextFun=SumEndFunction步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件夹下的工程文件vbs]4．vbp。步骤2：进入代码编辑窗口，去掉程序中的注释符“¨”，将问号“?”改为正确的内容。参考代码：Tmr1．Enabled=FalSeTmr1．Interval=500IfPicl．Left>Me．WidthThenPicl．Left=0步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有一个工程文件sit5．vbp，其名称为Forml的窗体上已有三个文本框Textl、Text2、Text3，以及程序。请完成以下工作：①在属性窗口中修改Text3的适当属性，使其在运行时不显示，作为模拟的剪贴板使用，窗体如图3．152所示；②建立下拉式菜单，见表3．3。③窗体文件中给出了所有事件过程，但不完整，请去掉程序中的注释符，把程序中的?改为正确内容。以便实现以下功能：当光标所在的文本框中无内容时，“剪切”、“复制”不可用，否则可以把该文本框中的内容剪切或复制到Text3中；若Text3中无内容，则“粘贴”不能用，否则可以把Text3中的内容粘贴在光标所在的文本框中的内容之后。注意：不能修改程序中的其他部分。各菜单项的标题名称必须正确。最后把修改后的文件按原文件名存盘。标准答案：【操作步骤】步骤1：打开考生文件夹中的本题工程文件sit5．vbp，选中窗体中的文本框Text3，将其Visible属性为False。步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，按要求建立窗体菜单。步骤3：打开代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：Ifwhich=1TherlIfwhich=2ThenText；1．Text：=Text：1．Text+Text；3．TextText2．Text；=Text2．Text；+Text3．TeXt步骤4：按要求将文件保存至考生文件夹中。知识点解析：暂无解析国家二级VB机试（上机操作）模拟试卷第5套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画两个标签(名称分别为lblName和1blAge，标题分别为“姓名”和“年龄”)、两个文本框(名称分别为txtName和txtAge，Text属性均为空白)和一个命令按钮(名称为cmdDisplay，标题为“显示”)。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输入姓名和年龄，然后单击命令按钮，则在窗体上显示两个文本框中的内容，如图2—32所示。要求程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为vbsjl．vbp，窗体文件名为vbsj1．fm。(2)在名称为F0nnl的窗体上画一个文本框，名称为txtlnput，无初始内容；再画一个图片框，名称为picOutput。请编写适当的事件过程，使得在运行时，在文本框中每输入一个字符，就在图片框中输出一行文本框中的完整内容，运行时的窗体如图2-33所示。程序中不能使用任何变量。注意：保存时必须存放在考生文件夹下，工程文件名为vbsi2．vbp，窗体文件名为vbsj2．frm标准答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，按表3-19在窗体中画出控件并设置其相关属性。步骤2：在代码编辑窗口，编写命令按钮的Click事件过程。参考代码：PrivateSubcmdDisplay—Click()PrinttxtName．Text＆”，现年”＆一txtAge．Text＆”“岁”EndSub步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，按表3．20在窗体中画出控件并设置其相关属性。步骤2：打开代码编辑窗口，编写命令按钮的单击事件过程。参考代码：PrivateSubtxtInput—Change()picoutput．PrinttxtInput．TextEndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有一个工程文件sit3．vbp，其功能是：①单击“读数据”按钮，则把考生文件夹下in3．dat文件中的20个整数读入数组a中，同时显示在Text1文本框中；②单击“变换”按钮，则数组a中元素的位置自动对调(即第一个数组元素与最后一个数组元素对调，第二个数组元素与倒数第二个数组元素对调……)，并将位置调整后的数组显示在文本框Text2中。在窗体文件中已经给出了全部控件(如图2．190所示)，但程序不完整。要求：完善程序使其实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前，必须执行“变换”操作，且必须用窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp，窗体上有两个标题分别为“读数据”和“统计”的命令按钮：两个名称分别为Text1和Text2、初始值为空的文本框，如图2．191所示。程序功能如下：①单击“读数据”按钮，则将考生文件夹下in4．dat文件的内容(该文件中仅含有字母和空格)显示在Text1文本框中：②在Text1文本框中选中内容后，单击“统计”按钮，则自动统计选中文本中从未出现过的字母(统计过程中不区分大小写)，并将这些字母以大写形式显示在Text2文本框内。请将“统计”按钮的Click事件过程中的注释符去掉，把?改为正确内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。标准答案：第1小题【操作步骤】步骤1：打开考生文件夹中的工程文件sjt3．vbp步骤2：打开代码编辑窗口中编写“变换”按钮的单击事件过程。参考代码：PrivateSubCommand2一Click()-考生编写Fori=1To10temp=a(i)a(i)=a(20一i+1)a(20一i+1)=tempNexti‘以下程序段将已变换的数组元素显示在Text2文本框中Fork=1To20Text2=Text2+Str(a(k))+Space(2)NextkEndSub步骤3：按键键运行程序，先单击“读数据”按钮，然后单击“变换”按钮。步骤4：单击窗体右上们的关闭按钮以结束程序。步骤5：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件下的本题工程文件sjt4．vbp，存代码编辑窗口，去掉程序中的注释符“”’，将问号“?”改为正确的内容。参考代码：Ifs1=0ThenFori=1ToS1a(n)=a(n)+1Fori=1To26步骤2：按要求将文件保存争考生文件夹中。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有一个工程文件sit5．vbp，窗口有2个名称分别为Commandl和Command2、标题分别为“读数据”和“排序”的命令按钮，有2个标题分别为“数组A”和“数组B”的标签。请将窗体标题设置为“完全平方数排序”；再画2个名称分别为Text1和Text2、初始内容都为空的文本框，并且可多行显示，有垂直滚动条，如图2．47所示。程序功能如下：1)单击“读数据”按钮，则把考生文件夹下：in5．dat文件中的100个正整数读入数组A，并将它们显示在Text1文本框中；2)单击“排序”按钮，则首先将这100个数中的所有完全平方数放入数组B中，并将它们按降序排列显示在Text2文本框中。提示：一个整数若是另一个整数的平方，那么它就是完全平方数。如144=12，所以144就是一个完全平方数。要求：去掉注释符，把?改为正确内容，并添加代码使得“排序”命令按钮的Click事件过程可以实现上述功能。提示：Sort过程可以把求出的完全平方数进行排序，可以直接调用。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行“排序”，且须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。标准答案：【操作步骤】步骤1：打开考生文件夹下的工程文件sjt5．vbp，在码编辑窗口的指定位置输入以下代码：参考代码：考生编写的代码n=0Fork=1To100Ifa(k)>0Thend=Sqr(a(k))IfInt(d)=dThenn=n+1b(n)=a(k)EndIfEndIfNext考生编写代码结束步骤2：在代码编辑窗口中，去掉程序中的注释符“”’，将问号“?”改为正确的内容。参考代码：CallSort(b，n)步骤3：按