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

国家二级VB机试（上机操作）模拟试卷26（共9套）（共27题）国家二级VB机试（上机操作）模拟试卷第1套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为Frame1、标题为“目的地”的框架，在框架中添加三个复选框，名称分别为Check1、Check2、Check3，其标题分别是“上海”、“广州”、“巴黎”，其中“上海”为选中状态，“广州”为未选状态，“巴黎”为灰色状态，如图3—117所示。请画控件并设置相应属性。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。(2)在名称为Form1的窗体上画一个名称为Picture1的图片框，其宽和高分别为1700、1900。请编写适当事件过程，使得在运行时，单击图片框，则装入考生目录下的图形文件pic1．bmp，如图3—118所示。单击窗体则图片框中的图形消失。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。标准答案：第1小题步骤1：新建一个“标准EXE”工程。步骤2：在窗体Form1中加入一个框架，然后依次在框架中画出三个复选框。步骤3：分别没置框架和各复选框的相关属性，其属性及值如表4—70所示。步骤4：按要求将文件保存至考生文件夹中。第2小题步骤1：新建一个“标准EXE”工程，如表4—71在窗体中画出图片框并设置其相关属性。步骤2：打开代码编辑窗口，编写图片框和窗体的单击事件过程。参考代码：PrivateSubForm_Click()Picture1．Picture=LoadPicture("")EndSubPrivateSubPicture1_Click()Picture1．Picture=LoadPicture("pic1．bmp")EndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：第1小题：本题只需按要求画出框架以及框架中的复选框，并设置其Value属性。第2小题：本题需分别住图片框和窗体的Click事件过程中，用LoadPicture()函数为图像框加载或清除图片。二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生目录下有一个工程文件sjt3．vbp，窗体文件中己给出所有控件和部分程序，如图3—119所示。要求：①利用属性窗口设置适当的属性，使Text1、Text2中数据右对齐；②请编写适当的程序完成以下功能：在Text1中输入40(度数)，选择一个单选按钮，单击“计算”按钮，则根据所选择的单选按钮，计算出相应的正弦、余弦值(保留3位小数，第4位截去，π取3．14159)，并显示在Text2中。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一种计算，在Text1中输入的必须是40，必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后程序按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp，窗体上已经给出所有控件。程序运行时，单击“开始”按钮，则汽车图标向右运动；单击“停止”按钮则汽车停止运动；移动滚动条上的滚动框，可以改变汽车的运动速度(滚动框向右移动，速度减慢)。如图3—120所示。要求如下：去掉程序中的注释符，把程序中的“?”改为正确的内容。提示：窗体上有一个计时器，计时器的事件过程每执行一次，汽车向右移动10，程序通过改变计时器控件的Interval属性来改变汽车的运动速度。注意：不得修改控件的属性。最后按原文件名存盘。标准答案：第1小题步骤1：打开考生文件夹中的本题工程文件sjt3．vbp，程序界面如图4—4所示。步骤2：依次选中窗体中的两个文本框，将其Alignment属性位设置为1-RightJustify。步骤3：双击窗体中的“计算”命令按钮，在打开的代码编辑窗口中编写其单击事件过程。参考代码：PrivateSubCommand1_Click()IfOption1．Item(0)=TrueThenText2．Text=Format(Sin(Val(Text1．Text)*3．14159／180)，"0．000")EndIfIfOption1．Item(1)=TrueThenText2．Text=Format(Cos(Val(_Text1．Text)*3．14159／180)，"0．000")EndIfEndSub步骤4：按＜F5＞键运行程序，在左侧文本框中输入“40”，选择不同选项，单击“计算”按钮，结果图4—5所示。步骤5：单击窗体右上角的关闭按钮以结束程序。步骤6：按要求将文件保存至考生文件夹中。第2小题步骤1：打开考生文件夹中的本题工程文件sjt5．vbp，在代码编辑窗口，去掉程序中的注释符“’”。将问号“?”改为正确的内容。参考代码：Timer1．Enabled=TrueTimer1．Interval=HScroll1．ValuePicture1．Left=Picture1．Left+10步骤2：按要求将文件保存至考生文件夹中。知识点解析：第1小题：本题可通过利用If…Else…语句来判断第一个单选按钮是否被选中，若是则进行正弦运算，否则进行余弦运算。第2小题：本题要求在单击“开始”按钮时，汽车向右运动，其实质是在“开始”按钮的单击事件过程中启动计时器，故第一个?处应改为True。要通过移动滚动条上的滚动框来改变汽车的运动速度，需在滚动条的Change事件过程中，将滚动条当前Value属性值赋予计时器的Interval属性，第二个?处应改为Timer1。汽车向右移动是在计时器的Timer事件过程中，通过不断增加图片框的Left属性值来实现的，故第三个?处应改为Picture1．Left。三、综合应用题(本题共1题，每题1.0分，共1分。)3、数列1，1，2，3，5，8，13，21，…的规律是从第三个数开始，每个数是它前面两个数之和。在考生目录下有一个工程文件sjt5．vbp。窗体中已经给出了所有控件，如图3—121所示。请编写适当的事件过程实现以下功能：在Text1中输入整数40，单击“计算”按钮，则在Text2中显示该数列第40项的值；如果单击“存盘”按钮，则将计算的第40项的值存到考生目录下的out5．txt文件中。(提示：因数据较大，应使用Long型变量。)注意：在结束程序运行之前必须单击“存盘”按钮，把结果存入out5．txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。标准答案：步骤1：打开考生文件夹下的工程文件sjt5．vbp。步骤2：编写“计算”按钮的单击事件过程。参考代码：PrivateSubCommand1_Click()Dimf1，f2，fAsLongDima(40)AsLongf1=1：f2=1a(1)=f1：a(2)=f2Fori=3ToVal(Text1．Text)f=f1+f2a(i)=f：f1=f2：f2=fNextText2．Text=a(40)EndSub步骤3：运行程序，在文本框中输入40，并单击“计算”按钮获得一个结果，然后单击“存盘”按钮保存计算结果。步骤4：按要求将文件保存至考生文件夹中。知识点解析：根据题意，从数列的第三个数开始，每个数是其前两个数之和，数列第n项的值可表示为：a(n)=a(n-1)+a(n-2)。可以利用For循环语句(循环变量i的初值为3，终值为n)，从数列的第三个数开始，逐一计算山该数列第3～n项的值，计算表达式为a(i)=a(i-1)+a(i-2)。国家二级VB机试（上机操作）模拟试卷第2套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml、标题为“标签”的窗体上画一个名称为Labell的标签，并设置适当属性以满足以下要求：①标签的内容为“计算机等级考试”；②标签可根据显示内容自动调整其大小；③标签带有边框，且标签内容显示为三号字。运行后的窗体如图3．68所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sitl．vbp，窗体文件名为sjtl．frm。(2)在名称为：Forml的窗体上画一个名称为Hscrolll的水平滚动条，其刻度范围为1～100；再画一个名称为Text1的文本框，初始内容为1。程序开始运行时，焦点在滚动条上。请编写适当的事件过程，使得程序运行时，文本框中实时显示滚动框的当前位置。运行情况如图3—69所示。注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjl2．vbp，窗体文件名为sjt2．frm。标准答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Fontal中画一个标签，并设置它的相关属性，其属性和值如表4-40所示。步骤2：按要求将文件保存至考生文件夹中。【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Fonnl中画一个文本框和一个水平滚动条，在属性设置窗口中设置其相关属性，其属性及值如表4．41所示。步骤2：打开代码编辑窗口，编写水平滚动条的Change事件过程。参考代码：PrivateSubI-IScrolll—Change()Text：1．Text=HScEOlll．ValueEndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有一个工程文件sit3．vbp，在Forml的窗体中有一个文本框、两个命令按钮和一个计时器。程序的功能是在运行时，单击“开始计数”按钮，就开始计数，每隔1秒，文本框中的数加1；单击“停止计数”按钮，则停止计数(如图3—165所示)。要求：修改适当的控件的属性，并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件以原来的文件名存盘。(2)已知出租车行驶不超过4千米时一律收费10元。超过4千米时分段处理，具体处理方式为：15千米以内每千米加收1．2元，15千米以上每千米收1．8元。在考生文件夹下有一个工程文件sit4．vbp。程序的功能是：单击“输入”按钮，将弹出一个输入对话框，接收出租车行驶的里程数；单击“计算”按钮，则可根据输入的里程数计算应付的出租车费，并将计算结果显示在名称为Textl的文本框内。在窗体文件中已经给出了全部控件(如图3—166所示)，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。标准答案：第1小题【操作步骤】步骤1：打开本题工程文件sjt3．vbp，去掉程序中的注释符“””，将问号“?”改为正确的内容。参考代码：SelectCaSeIndexCaSe0Textl．Text=Textl．Text+1步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：SelectCasesf=10f=10+(S一4)*1．2CaSeE1Sef=10+(15—4)*1．2+(s一15)*1．8步骤2：按要求将文件保存至考生文件夹中。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有一个工程文件sjt5．vbp。程序功能为：在文本框Textl中输入一个正整数N后，单击“计算”按钮，则计算11+22+33+…+NN，并将计算结果显示在Text2中。程序中的函数f可以计算mm的值。在给出的窗体文件中已经有了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的?改为正确的内容，并编写相应的程序，实现程序的功能，并且必须在运行时计算N=8时的结果。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，必须计算N=8时的结果，否则无成绩。标准答案：【操作步骤】步骤1：打开考生文件夹下的工程文件sit5．vbp，在码编辑窗口的指定位置输入以下代码：参考代码：PrirateSubCommandlClick()=====考生编写程序开始======Dimi，jAsInteger，kAsLongi=Text1．Textk=0Forj=1Toik=k+f(j)NextText2．Text=k=====考生编写程序结束======OpenApp．Path&“＼out：5．ctat”ForOutputAs#1Print#1，Text1，Text2Close#1ErldSub步骤2：在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：s=1s=s*mf=s步骤3：按键运行程序，在文本框中输入8，单击“计算”按钮。步骤4：按要求将文件保存至考生文件夹中。知识点解析：暂无解析国家二级VB机试（上机操作）模拟试卷第3套一、基本操作题(本题共1题，每题1.0分，共1分。)1、(1)在名称为Form1的窗体上画一个标签，名称为L1，标题为“业余爱好”，再画一个名称为Ch1的复选框数组，含三个复选框，它们的Index属性分别为0、1、2，标题依次为“体育”、“音乐"、“美术”，请设置复选框的属性，使其初始状态见表3—1。运行后的窗体如图3．83所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。(2)在名称为Form1的窗体上画一个文本框，名称为Text1；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Show和．Hide，标题分别为“显示”、“隐藏”，请编写适当的事件过程，使得在运行时，单击“隐藏”菜单项，则文本框消失；单击“显示”菜单项，则文本框显示出来。运行后的窗体如图3．84所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。标准答案：(1)步骤1：新建一个“标准EXE”工程。步骤2：在窗体Form1中加入一个标签和一个复选框，并用“复制”和“粘贴”的方法，生成包含三个元素的复选框数组。步骤3：分别设置窗体和复选框数组中各元素的相关属性，其属性及值如表4．51所示。步骤4：按要求将文件保存至考生文件夹中。(2)步骤1：新建一个“标准EXE”工程，在窗体Form1中画一个文本框，在属性设置窗口中将其Name属性值设置为Text1。步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表4．52中的设置建立菜单项。步骤3：打开代码编辑窗口，编写以下事件过程。参考代码：PrivateSubhideCliCk()Text1．Visible=FalseEndSubPrivateSubshowCliCk()Text1．Visible=TrueEndSub步骤4：按要求将文件保存至考生文件夹中。知识点解析：(1)本题只需按要求画出控件数组，并设置其Value属性。(2)本题需用菜单设计器建立菜单，并编写“显示”和“隐藏”菜单项的单击事件过程控制文本框的Visible属性变化。二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有一个工程文件sjt3．vbp。程序运行后，单击“读入数据”按钮，可把考生文件夹下in3．txt文件中的所有英文单词读入，并显示在Text1文本框中；单击“插入列表框”按钮，则按顺序把每个单词作为一项添加到List1列表框中(如图3．176所示)。在in3．txt文件中每个单词之间用一个空格字符隔开，最后一个单词的后面没有空格。已经给出了所有控件和程序，但程序不完整。要求：请去掉程序中的注释符，把程序中的“?”改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。(2)在考生文件夹下有一个工程文件sjt4．vbp，窗体上已经画出所有控件，如图3．177所示。在运行时，如果单击“开始”按钮，则窗体上的汽车图标每O．1秒向右移动一次(初始状态下不移动)；如果单击“停止”按钮，则停止移动。请完成以下工作：①设置适当控件的适当属性，使得汽车图标每O．1秒向右移动一次，而初始状态下不移动；②请去掉程序中的注释符，把程序中的?改为正确的内容；③为两个命令按钮编写适当的事件过程。最后以原文件名存盘。注意：不得修改已经给出的程序。编写的事件过程中不能使用变量，每个事件过程中只能有一条语句。标准答案：(1)步骤1：打开考生文件夹下的工程文件sjt3．vbp，打开代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：st=st&chc=Mid(st，k，1)Word=""步骤2：按要求将文件保存至考生文件夹中。(2)步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，将计时器Timerl的Enabled属性设置为False，Interval属性设置为100。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容并编写两个命令按钮的单击事件过程。参考代码：PrivateSubC1_Click()Timerl．Enabled=TrueEndSubPrivateSubC2_Click()Timerl．Enabled=FalseEndSubPrivateSubTimerl_Timer()P1．MoveP1．Left+20EndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：(1)本题在“读入数据”按钮的单击事件中，首先将in3．txt文件以Input方式打开，然后利用Do循环依次读入文件中的每一个数据，在每一次循环中读入文件中的一个数据并连接至变量st中，循环结束后st的值就是文件中所有单词连接而成的字符串。在“插入列表框”按钮的单击事件中，以空格为单词分隔依据找出每个单词，然后将单词插入列表框中，清空变量word准备继续寻找下一个单词。(2)计时器只在设计时可见，计时器是否启用由其Enabled属性设置，值可取True或False。启用后由Interval属性设置间隔多长时间触发一次其Timer事件，Interval属性的单位为毫秒，缺省值为0，此时计时器不启用。Timerl用于控制汽车行驶，每触发一次Timerl的Timer事件，汽车向右移动20，即P1．MoveP1．Left+20。三、综合应用题(本题共1题，每题1.0分，共1分。)3、数列1，1，3，5，9，15，25，41，…，的规律是从第三个数开始，每个数是它前面两个数的和加1。在考生目录下有一个工程文件sjt5．vbp。窗体中已经给出了所有控件，如图3．192所示。请编写适当的事件过程实现以下功能：在Text1中输入整数40，单击“计算”按钮，则在Text2中显示该数列第40项的值。如果单击“存盘”按钮，则将计算的第40项的值存到考生目录下的out5．txt文件中。(提示：因数据较大，应使用Long型变量。)注意：在结束程序运行之前，必须单击“存盘”按钮，把结果存入out5．txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。标准答案：步骤1：打开考生文件夹下的工程文件sjl5．vbp。步骤2：编写“计算”按钮的单击事件过程。参考代码：PrivateSubCommand1_Click()DimfAsLonga(1)=1：a(2)=1Fori=3ToVal(Text1．Text)f=a(i-2)+a(i-1)+1a(i)=fNextText2．Text=fEndSub步骤3：运行程序，在文本框中输入40，并单击“计算”按钮获得一个结果，然后单击“存盘”按钮保存计算结果。步骤4：按要求将文件保存至考生文件夹中。知识点解析：根据题意，从数列的第三个数开始，每个数是其前两个数之和加1，数列第n项的值可表示为：a(i)=a(i-1)+a(i-2)+1。可以利用For循环语句(循环变量i的初值为3，终值为Text1．Text)，从数列的第三个数开始，逐一计算出该数列第3～n项的值，计算表达式为a(i)=a(i-1)+a(i-2)+1。国家二级VB机试（上机操作）模拟试卷第4套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为C1、标题为“改变颜色”的命令按钮，窗体标题为“改变窗体背景色”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图3—78所示。要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。(2)在名称为Form1的窗体上画一个名称Shape1的形状控件，在属性窗口中将其设置为圆形。画一个名称为List1的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设为“图形控件”。单击列表框中的某一项，则将所选的值作为形状控件的填充参数。例如，选择3，则形状控件中被竖线填充。如图3—79所示。要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。标准答案：第1小题步骤1：新建一个“标准EXE”工程，在窗体Form1中画一个命令按钮，设置相关属性，其属性及值如表4—49所示。步骤2：打开代码编辑窗口，编写按钮的Click事件过程中。参考代码：PrivateSubC1_Click()Form1．BackColor=&HFF&EndSub步骤3：按要求将文件保存至考生文件夹中。第2小题步骤1：新建一个“标准EXE”工程。步骤2：在窗体Form1中加入一个列表框和一个形状控件，并分别如表4—50设置它们的相关属性。步骤3：打开代码编辑窗口，编写列表框的Click事件过程。参考代码：PrivateSubList1_Click()Shape1．FillStyle=List1．TextEndSub步骤4：按要求将文件保存至考生文件夹中。知识点解析：第1小题：本题需在命令按钮的单击事件过程中，通过语句设置窗体的BackColor属性值为“&HFF&”。第2小题：当形状控件的Shape属性值是3时显示为圆：形状控件的填充色样式通过FillStyle属性设置，其中0为实线、1为透明、2为水平线、3为垂直线、4为向上对角线、5为向下对角线、6为交义线、7为对角交叉线，缺省值为1。要通过单击列表框中的项目，来改变形状控件的填充样式，需在列表框的Click事件过程中，用语句将列表框中所选的值(通过其Text属性返回)作为形状控件的填充参数。二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有一个工程文件sjt3．vbp。程序的功能是通过键盘向文本框中输入正整数。在“除数”框架中选择一个单选按钮，然后单击“处理数据”按钮，将大于文本框中的正整数且能够被所选除数整除的5个数添加到列表框List1中，如图3—80所示。在窗体文件中已经给出了全部控件，但程序不完整。要求：请去掉程序中的注释符，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp。程序运行后，单击“开始”按钮，图片自上而下移动，同时滚动条的滑块随之移动，每0．5秒移动一次。当图片顶端移动到距窗体的下边界的距离少于200时，再回到窗体顶部，重新向下移动，如图3—81所示。在窗体文件中已经给出了全部控件，但程序不完整。要求：请去掉程序中的注释符，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。标准答案：第1小题步骤1：打开考生文件下的本题工程文件sjt3．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：IfOption1．Item(i)=TrueTheny=val(Option1(i)．Caption)DoWhilei＜=5List1．AddItemx步骤2：按要求将文件保存至考生文件夹中。第2小题步骤1：打开考生文件夹下的工程文件sjt4．vbp。步骤2：进入代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：Timer1．Interva1=500VScroll1．Value=Picture1．TopPicture1．Top=0步骤3：按要求将文件保存至考生文件夹中。知识点解析：第1小题：判断整数A能被整数B整除的条件表达式为：AModB=0。本题源程序在“计算数据”的单击事件过程中，通过For循环逐一判断单选按钮数组中的每个元素是否选中，用变量y记录选中单选按钮所标识的数字，并调用过程“calc”计算满足条件的正整数。在过程“calc”中，通过Do循环依次判断大干文本框中数的正整数是否能被变量y整除，将能被整除的前5个数添加到列表框List1中。第2小题：本题源程序利用计时器的Timer事件来控制图片的移动，因此单击“开始”按钮启动计时器，而单击“停止”按钮就是要停止计时器。在计时器的Timer事件过程中，通过每次使图片框的Top属性值增量200实现移动，并让垂直滚动条滑块的位置随图片框的Top属性值变化。当图片顶端移动到距窗体的下边界的距离少于200时(即VScroll1．Value+200＞=Form1．Height．200)时，则重新从窗体顶端开始移动，即Picture1．Top=0。由于题目要求不能在设计阶段修改控件属性，要想在单击“开始”按钮时能启动计时器，就需在窗体加载事件过程中设置计时器的Interval属性，即Timer1．Interva1=500。三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有一个工程文件sjt5．vbp，窗体如图3—82所示。运行程序时，从数据文件中读取学生的成绩(均为整数)。要求编写程序，统计总人数，并统计不及格、60～69、70～79、80～89及90～100各分数段的人数，将统计结果显示在相应的文本框中。结束程序之前，必须单击“保存”按钮，保存统计结果。注意：不能修改程序的其他部分和控件属性。程序调试通过后，运行程序，将统计结果显示在文本框中，再按“保存”按钮保存数据，否则无成绩。最后把修改后的文件按原文件名存盘。标准答案：步骤1：打开考生文件夹中的本题工程文件sjt5．vbp，在代码编辑窗口的指定位置编写以下代码。参考代码：Text1．Text=ncount1=0：count2=0：count3=0count4=0：count5=0：count6=0Fori=1Tony=Int(arr(i)／10)SelectCaseyCase1，2，3，4，5count1=COUnt1+1Case6count2=count2+1Case7count3=count3+1Case8count4=count4+1Case9，10count5=Count5+1EndSelectNextText2．Text=count1：Text3．Text=count2Text4．Text=count3：Text5．Text=count4Text6．Text=count5步骤2：按＜F5＞键运行程序，先单击“统计”按钮，再单击“保存”按钮。步骤3：按要求将文件保存至考生文件夹中。知识点解析：本题要求编写“统计”按钮的单击事件过程。程序设计思路：在一个For循环中逐一取出存于数组arr中的各学生成绩，用SelectCase语句对取出的某学生成绩进行判断，根据成绩所属情况，使对应文本框中的数增1。国家二级VB机试（上机操作）模拟试卷第5套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Combol的组合框，其宽度为1200，其类型如图3．102所示(即简单组合框)。要求如下：①请按图中所示，通过属性窗口输入“北京”、“上海”、“广州”、“深圳”。②设置适当的属性，使得运行时，窗体的最大化按钮和最小化按钮消失。注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sitl．fm。(2)在名称为Forml的窗体上画两个文本框，名称分别为Text1、Text2，再画两个命令按钮，名称分别为Command1、Command2，标题分别为“左”、“右”，如图3-103。要求：编写适当的事件过程，使得程序运行时，单击“左”按钮，则焦点位于Text1上；单击“右”按钮，则焦点位于Text2上。注意：程序巾不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2-Vbp，窗体文件名为sjt2．frm。标准答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。步骤2：双击“左”命令按钮，打开代码编辑窗口，在按钮的Click事件过程中输入代码。步骤3：从代码编辑窗口的“对象”下拉列表中选择Command2，从“事件”下拉列表选择Click，编写以下事件过程。参考代码：PrivateSubCommandlClick()Text1．SetFocusEndSubPrivateSubCommand2Click()Text2．SetFocusEndSub步骤4：按要求将文件保存至考生文件夹中。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生目录下有一个工程文件sit3．vbp，包含了所有控件和部分程序，如图3一180所示。要求如下：①利用属性窗口设置适当的属性，使Text1、Text2中数据右对齐；②请编写适当的程序完成以下功能：在Text1中输入40(度数)，选择组合框中的一个项目，单击“计算”按钮，则根据所选择的项目，计算出相应的正弦、余弦值(保留3位小数，第4位截去，π取3．14159)，并显示在Text2中。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一种计算；在Text1中输入的必须是40；必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp，窗体上已经画出所有控件。程序的作用是构成一个简单的时钟。刚运行时，不计时，选择一个单选按钮后，再单击“计时”按钮，则开始计时，并根据所选的单选按钮决定是每秒显示一次秒数，还是每10秒显示一次秒数。Text2用于显示秒，如图3一181所示。窗体文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不得修改已经给出的程序。最后把修改后的文件按原文件名存盘。标准答案：第l小题【操作步骤】步骤1：打开考生文件夹中的工程文件sjt3．vbp，依次选中窗体中的两个文本框，将其Alignment属性值设置为1-RightJustify。步骤2：双击窗体中的“计算”命令按钮，在打开的代码编辑窗口中编写其单击事件过程。参考代码：PrivateSubCommandlClick()ConstPI=3．14159SelectCaseComb01．TextCase”sin”：a=Sin(CInt(Text1．Text)*PI／180)Case“Cos”：a=Cos(CInt(Textl．Text)*PI／180)EndSelectText2=Int(a*1000)／1000EndSub步骤3：按键运行程序，在左侧文本框中输入“40”，选择不同选项，单击“计算”按钮。步骤4：单击窗体右上角的关闭按钮以结束程序。步骤5：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：num=num+1Text2．Text=Text2．Text+10Textl．Text=Text1．Text+1步骤2：按要求将文件保存至考生文件夹中。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有一个工程文件sit5．vbp，在该工程文件中已经定义了一个学生记录类型数据StudType。有三个标题分别为“学号”、“姓名”和“平均分”的标签；三个初始内容为空，用于接收学号、姓名和平均分的文本框Text1、Text2和Text3；一个用于显示排序结果的图片框。还有两个标题分别为“添加”和“排序”的命令按钮，如图3—192所示。程序功能如下：①在Text1、Text2和Text3三个文本框中输入学号、姓名和平均分后，单击“添加”按钮，则将输入内容存入自定义的学生记录类型数组stud中(注：最多只能输入10个学生信息，且学号不能为窄)；②单击“排序”按钮，则将学生记录类型数组stud中存放的学生信息，按平均分降序排列的方式显示在图片框中，每个学生一行，且显示三项信息。请将“添加”按钮、“排序”按钮的Click事件过程中的注释符去掉，把?改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后把修改后的文件按原文件名存盘。标准答案：【操作步骤】步骤1：打开考生文件下的本题工程文件sjt5．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：n=n一1stud(n)．Num：Text1Fork=j+1TonIfstd(k)．Average>stud(j)．AVerageThenstud(k)=stud(j)步骤2：按要求将文件保存至考生文件夹中。知识点解析：暂无解析国家二级VB机试（上机操作）模拟试卷第6套一、基本操作题(本题共1题，每题1.0分，共1分。)1、(1)在名称为Form1的窗体上画一个名称为List1的列表框，在属性窗口中为列表框添加三个选项：北京、上海、天津。再建立一个下拉菜单，菜单标题为“文件"，名称为File，此菜单下含有一个子菜单项，标题为“显示列表框”，名称为Show，初始状态为选中，运行时的效果如图3．165所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjtl．frm，工程文件名为sjtl．vbp。(2)新建一个名称为Form1，标题为“使用输入对话框”的窗体，该窗体上无任何控件。请编写适当的事件过程，使得运行程序并单击窗体时，出现输入对话框，该对话框的标题为“等级考试”，提示信息为“请输入”，默认值为“Basic”。如图3．166所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt2．frm，工程文件名为sjt2．vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。标准答案：(1)步骤1：新建一个“标准EXE"工程，按要求画出控件并设置属性。步骤2：新建一个“标准EXE”工程，选择【工具】→【菜单编辑器】命令，打开菜单设计器按要求设置建立菜单项。步骤3：按要求将文件保存至考生文件夹中。(2)步骤1：新建一个“标准EXE”工程，将窗体Form1的Caption属性设置为“使用输入对话框”。步骤2：打开代码编辑窗口，编写以下事件过程。参考代码：PriVateSubForm_Click()InputBox"请输入"，"等级考试"，"Basic"EndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：(1)本题只需按要求画出控件和菜单并设置其相关属性即可。(2)本题需在窗体的Click事件过程中，编写一行InputBox语句，其中Prompt参数值为“请输入”，Title参数值为“等级考试”，Default参数值为“Basic”。二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有一个工程文件sjt3．vbp，已给出了所有控件和部分程序。程序运行时，请按以下顺序操作：1)单击“读入数据”按钮，可把考生目录下的文件in3．dat中的100个整数读到数组a中；2)从名称为List1的列表框中选中一项(如图3．139所示)。3)单击“计算”按钮，则可按该选项的要求计算出结果并放到文本框中。4)单击窗体右上角的关闭按钮结束程序。“读入数据”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。注意：不得修改已经存在的程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp。窗体中横线(横坐标)的名称为Linel，竖线(纵坐标)的名称为Line2；五个不同颜色的矩形是一个形状控件数组，名称为Shape，它们的Visible属性都为False；从左到右的两个按钮的名称分别为Command1、Command7．；另有一个有五个元素的标签数组，名称为Label1，其所有元素的Visible属性都为False。如图3．140(a)所示。程序运行时，单击“输入5个数据”按钮，可输入五个整数(最好在100～2000之间)，并作为刻度值显示在纵坐标的左面；单击“画直方图"按钮，则按五个数的输入顺序显示直方图。例如若输入的五个数是1200、500、800、1900、1500，则结果如图3．140(b)所示。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容a注意：不能修改程序的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。标准答案：(1)步骤1：打开考生文件夹中的本题工程文件sjt3．vbp，双击窗体中的“计算”命令按钮，在打开的代码编辑窗口中编写其单击事件过程。参考代码：PrivateSubCommand2_Click()DimkAsInteger，i1，i2AsIntegeri1=a(1)：i2=a(1)Fork=2To100Ifa(k)>i1Theni1=a(k)EndIfIfa(k)键运行程序，单击“读入数据”按钮，然后在列表框中选择一项，并单击“计算”按钮，统计出结果。步骤3：单击窗体右上角的关闭按钮以结束程序。步骤4：按要求将文件保存至考生文件夹中。(2)步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：Fork=1To5Label1(k-1)．ViSible=TrueShape1(k-1)．Height=s(k)a=Line1．Y1步骤2：按要求将文件保存至考生文件夹中。知识点解析：(1)本题在命令按钮的单击事件中先利用循环统计字符串中大写字母和小写字母的值。首先假设数组中的第一个元素既为最大值也为最小值，然后依次从第二个元素开始向后循环，对每一个数组元素都加以判断，若其比最大值还大，则其成为新的最大值：若其比最小值还小，则其成为新的最小值。这样循环结束后可以得到数组的最大值和最小值。接下来判断列表框中选中的是哪一项然后执行对应计算，并输出结果。(2)“输入5个数据”按钮的单击事件过程中，需要连续输入5个数据并且存放到数组s中，因此k应该由1循环到5，在循环中将输入的数据保存到数组s中并且将其赋值给五个标签组成的控件数组，随后将标签的Visible属性设置为True以便显示出来。“画直方图”按钮的单击事件过程中，源程序用For循环来依次计算每一个形状控件的高度，该高度应该为对应数组元素的值；然后计算该直方图的Top属性值(应为水平直线的Y1或Y2属性值减去直方图的高度)，最后显示该直方图(通过设置其Visible实现)。三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有一个工程文件sjt5．vbp，相应的窗体文件为sjt5．tim，此外还有一个名为datain．txt的文本文件，其内容如下：32437658281298573142536475869713243546576879805937程序运行后单击窗体，将把文件datain．txt中的数据输入到二维数组Mat中，在窗体上按5行、5列的矩阵形式显示出来，然后交换矩阵第二列和第四列的数据，并在窗体上输出交换后的矩阵，如图3．126所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容(可以是多行)，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。标准答案：步骤1：打开本题对应工程文件sjt5．vbo。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：DimMat(M，N)AsIntegerOpenApp．Path&"＼"&"datain．txt"ForInputAs#1nput#1，Mat(i，j)Mat(i，4)=t步骤3：按要求将文件保存在考生文件夹中。知识点解析：本题源程序的大致设计思路是：程序运行后单击窗体，则打开数据文件datain．txt并从中读取数据，并依次存入二维数组Mat(下界为1，上界为5)的各元素中，故第一个?处是定义数组，应改为：Mat(M，N)AsInteger：第二个?处是指明打开文件的方式，应改为：ForInput：第三个?处是将数据文件中的数据读入并赋值给数组元素，应改为：Input#1，Mat(i，i)；然后用一个嵌套的For循环将数组Mat中的数据在窗体上按5行、5列的矩阵形式显示出来，接着再用一个For循环将数组Mat中第2维下标为2和第2维下标为4的元素对应(即第1维下标一致)交换值，交换值时引入一个中间变量t，故第4个?处是将中间变量t的值赋给数组元素Matfi，4)，应改为：Mat(i，4)=t。最后将交换后的数组Mat中的数据，再按5行、5列的矩阵形式在窗体上显示出来。国家二级VB机试（上机操作）模拟试卷第7套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为List1的列表框，在属性窗口中为列表框添加三个选项：北京、上海、天津。再建立一个下拉菜单，菜单标题为“文件”，名称为File，此菜单下含有一个子菜单项，标题为“显示列表框”，名称为Show，初始状态为选中，运行时的效果如图3—165所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1．frm，工程文件名为sjt1．vbp。(2)新建一个名称为Form1，标题为“使用输入对话框”的窗体，该窗体上无任何控件。请编写适当的事件过程，使得运行程序并单击窗体时，出现输入对话框，该对话框的标题为“等级考试”，提示信息为“请输入”，默认值为“Basic”。如图3—166所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt2．frm，工程文件名为sjt2．vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。标准答案：第1小题步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。步骤2：新建一个“标准EXE”工程，选择[工具]→[菜单编辑器]命令，打开菜单设计器按要求设置建立菜单项。步骤3：按要求将文件保存至考生文件夹中。第2小题步骤1：新建一个“标准EXE”工程，将窗体Form1的Caption属性设置为“使用输入对话框”。步骤2：打开代码编辑窗口，编写以下事件过程。参考代码：PrivateSubForm_Click()InputBox"请输入"，"等级考试"，"Basic"EndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：第1小题：本题只需按要求画出控件和菜单并设置其相关属性即可。第2小题：本题需在窗体的Click事件过程中，编写一行InputBox语句，其中Prompt参数值为“请输入”，Title参数值为“等级考试”，Default参数值为“Basic”。二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有一个工程文件sjt3．vbp。程序的功能是通过键盘向文本框中输入大、小写字母及数字。单击“统计”按钮，分别统计输入字符串中大写字母、小写字母及数字字符的个数，并将统计结果分别显示在标签控件数组x中，如图3—167所示。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的“?”改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)考生文件夹下的工程文件sjt4．vbp中有两个名称分别为List1、List2的列表框控件，两个名称分别为Command1、Command2，标题分别为“＞＞”、“＜＜”的命令按钮。请在List1中添加“文本框”、“标签”、“列表框”、“单选钮”等表项，如图3—168所示。程序的功能是：单击“＞＞”按钮，将List1中的表项添加到List2中，同时将List1清空；单击“＜＜”按钮，将List2中的表项添加到List1中，同时将List2清空。程序已给出，但是不完整。请将程序中的注释符去掉，把“?”改为正确的内容，实现上述功能。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。标准答案：第1小题步骤1：打开考生文件夹中的本题工程文件sjt3．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：n=Len(Text1．Text)b=Asc(Mid(s，i，1))SelectCasebFori=0To2x(i)=a(i)步骤2：按要求将文件保存至考生文件夹中。第2小题步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，通过List1列表框的List属性添加四个项目：文本框、标签、命令按钮、单选按钮。步骤2：在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：Fori=0ToLa．ListCount-1Lb．AddItemLa．List(i)NextLa．Clear步骤3：按要求将文件保存至考生文件夹中。知识点解析：第1小题：本题源程序在For循环体中(其中循环终值应为文本框的字符长度，即n=Len(Text1．Text))，用Mid函数逐一取出文本框中的每个字符，并用Asc函数返回其ASCII码。若取出字符的ASCII码在48～57之间，则记录数字个数的数组变量a(0)增1；若ASCII码在65～90之间，则记录大写字母个数的数组变量a(1)增1；若ASCII码在97～122之间，则记录小写字母个数的数组变量a(2)增1。第2小题：本题列表框中列表项的移动功能，是通过调用remove过程来实现的，在remove过程中通过For循环(循环变量终值为La．ListCount-1)将列表框La中的各项逐一添加到列表框Lb中，全部项目添加完成后，用列表框的Clear方法清除该列表框中的所有项目。三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹中有一个工程文件sjt5．vbp。窗体外观如图3—169所示。运行程序，单击“读数据”按钮，文件中的数据被读入字符串变量中并显示在Label2标签中。单击“排序”按钮时，对读入的数据从小到大排序，并将排序结果显示在窗体的Label4控件中。要求：工程文件中己给出部分程序，“读数据”命令按钮的事件过程不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。请编写“排序”命令按钮的事件过程中的部分程序代码。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，两个命令按钮的事件过程必须至少各执行一次。标准答案：步骤1：打开考生文件夹中的本题工程文件sjt5．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为止确的内容。参考代码：DoWhileNotEOF(1)s=s&str(a(i))步骤2：在代码编辑窗口指定位置编写以下代码。参考代码：num=UBound(a)Fori=1Tonum-1Forj=iTonumIfa(i)＞a(j)Thent=a(i)a(i)=a(j)a(j)=tEndIfNextNext步骤3：按＜F5＞键运行程序，先单击“读数据”按钮，再单击“排序”按钮，最后单击窗体右上角的关闭按钮结束程序。步骤4：按要求将文件保存至考生文件夹中。知识点解析：设计思路：在“读数据”按钮的单击事件中，首先使用DoWhile当型循环结构从文件中读取全部数据，并以NotEOF(文件号)(非文件结尾)作为循环条件，通过Input#语句将打开文件中的数据逐一读出后赋值给a(i)，然后将数组连接起来显示在标签中。在“排序”按钮的单击事件过程中，源程序利用“冒泡法”对记录数组中的元素从小到大进行排序。国家二级VB机试（上机操作）模拟试卷第8套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1、标题为“欢迎”的窗体上画1个名称为Label1的标签，其标题内容为“欢迎使用本系统”，标题文字字体和字号分别为“宋体”、“三号”，标签大小能根据标题内容自动调整，效果如图3—40所示。程序执行时，窗体的最大化按钮不可用，请设置相应属性。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。(2)在名称为Form1的窗体上，画1个名称为Label1的标签，其标题为“横坐标X”，且能根据标题内容自动调整标签的大小；再画1个名称为Text1的文本框，其中的文字显示为空白；再画1个名称为Picture1的图片框，大小适中即可。要求：编写适当的事件过程，使得程序运行时，如果鼠标在图片框中移动，则能在文本框Text1中显示鼠标在图片框中的当前位置的横坐标，运行情况如图3—41所示。注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。标准答案：第1小题步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个标签控件。按表4—27设置其相关属性。步骤2：按要求将文件保存至考生文件夹中。第2小题步骤1：新建一个“标准EXE”工程，在窗体Forml中加入一个文本框、标签和图片框。按表4—28设置其相关属性。步骤2：在打开的代码编辑窗口中，编写图片框的的MouseMove事件代码。参考代码：PrivateSubPicture1_MouseMove(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)Textl1．Text=XEndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：第1小题：根据题目要求在窗体上加入一个标签控件，并设置相关属性。第2小题：根据题目要求在窗体上加入文本框、标签和图片框，并设置相关属性。题目要求鼠标在图片框中移动时显示当前的横坐标，需要在图片框的MouseMove事件代码里面把横坐标显示在文本框里面。二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有一个工程文件sit3．vbp。程序的功能是：1)程序运行时，文件列表框显示当前文件夹中的所有扩展名为jpg的文件。2)双击文件列表框中某个图片文件名时，能在图像框中显示出该张图片，并将该图片文件的信息(包括路径及文件名)显示到标签中，如图3—42所示。3)“下一张”命令按钮的功能：选中并显示上次选中文件的下一个图片文件(如果文件列表框中没有被选中的图片文件或上次选中的是最后一个文件名，则从第1个图片文件始)。在当前程序所在文件夹中，已经提供了所需要的图片文件，运行时窗体如图所示。在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp。程序的功能是：程序运行时，文本框中显示一篇英文短文，单击“查找”按钮时可输入查找内容，如图3—43所示。若未找到查找内容，查找结束；若找到查找内容，被找到的内容在文本框中以反相显示(即呈选中状态)，每找到一次都给出提示，并在左下角文本框中显示累计的次数，如图3—44所示，若单击提示对话框的“是”按钮，则继续向后查找；若单击“否”按钮，则终止查找。在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。标准答案：第1小题步骤1：打开考生文件夹中的本题工程文件sjt3．vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：IfFile1．ListIndex=-1OrFile1．ListIndex=File1．ListCount-1ThenFile1．ListIndex=File1．ListIndex+1Label1．Caption=ADp．Path+"＼"+File1．FileNameFile1．Pattern="*．jPg"步骤2：按要求将文件保存至考生文件夹中。第2小题步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：Text1．SelStart=pos-1Text1．SelLength=Len(fstr)times=times+1pos=InStr(pos，ostr，fstr)步骤2：按要求将文件保存至考生文件夹中。知识点解析：第1小题：本题主要考察文件列表框的属性和事件响应。文件列表框的Path属性用来设置或返回其当前的目录(缺省值是当前路径)；文件列表框的FileName属性可返回所选文件的文件名；Pattern属性设置要显示的文件类型，默认表示所有文件；ListCount属性返回文件列表框中匹配Pattern属性设置的文件个数：ListIndex返回控件中当前项目的索引号，取值范围是0～ListCount-1。第一个“?”处是的If判断文件列表框当前的ListIndex是不是最后一个或者文件列表框里面没有文件。即ListIndex的值为-1；第二个“?”处是在命令按钮的事件代码里面把图片向后移动一个，然后调用Showlnfor来显示图片，因此第二个“?”处是将ListIndex加1；第三个“?”处是显示图片的路径和名称，图片的名称可通过列表框的FileName属性得到；最后一个“?”是设置文件列表框的属性，包括Path和Pattern属性，因为题目要求文件列表框湿示扩展名为fpg的文件。第2小题：题目要求在一个字符串里面杳找另外一个字符串，由于字符串可能出现多次，因此需要使用循环来遍历。字符串查找使用InStr函数，该函数指定一字符串在另一字符串中最先出现的位置，如果没有找剑返回0。凶此在循环中，用一个变量保存Instr的返回值，只要InStr返回值不为0，就可以继续往后查找。第一个和第二个“?”处是设置找到的字符反相显示，即把找到的字符串设置为选中状态，通过设置SleStart和SelLength两个属性。第三个“?”处是统计找到的次数变量times加1，根据“Text2．Text=times”可知times是统计变量；最后一个“?”处如果If成立则需要再次查找，因为下次进入循环的时候直接设置选中状态，说叫在下次进入循环前已经找到了。三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有一个工程文件sjt5．vbp。程序运行时，单击“显示数据”按钮，则将考生文件夹下in5．dat文件的内容读入一维数组a中，并按下标顺序将数组a各元素的值显示在List1列表框中；单击“移动”按钮，则将数组a中的最大值移动到数组的最前面，其他数据的排列顺序不变，并将移动后的结果显示在List2列表框中。单击“保存”按钮，则保存移动后的结果。要求：“显示数据”和“保存”按钮的Click事件过程已经给出，请编写“移动”按钮的Click事件过程实现上述功能。程序窗体界面如图3—45所示。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前必须单击“移动”按钮，并单击“保存”按钮保存结果，否则无成绩。最后程序按原文件名存盘。标准答案：步骤1：打开考生文件夹中的工程文件sjt5．vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：PrivateSubCommand2_Click()’======考生编写的程序============DimnAsInteger，sAsStringDimi，jAsIntegern=0：j=0Fori=1To10Ifa(i)＞nThenn=a(i)：j=iEndIfNextFori=jTo2step-1a(i)=a(i-1)Nexta(1)=nForj=1To10List2．AddItem(a(i))Nexti’==============================EndSub步骤2：按＜F5＞运行程序，单击各按钮测试验证。步骤3：按要求将文件保存至考生文件夹中。知识点解析：只需要完成“移动”命令按钮的Click事件代码．根据题目要求在点击移动命令按钮，找出数组a的最大值，可以通过循环来查找最大值；接下来把最大值移动到数组的最前面，即把最大值前面的数往后移动一个位置，然后把最大值放到第一个元素位置，移动过程同样通过循环实现；最后一步是通过循环，把数组a的内容添加到List2列表框罩面。国家二级VB机试（上机操作）模拟试卷第9套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为CD1的通用对话框，通过属性窗口设置CD1的初始路径为C：＼，默认的文件名为None，标题为“保存等级考试”，如图3—160所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。(2)在名称为Form1的窗体上设计一个菜单。要求在窗体上添加名为menu0，标题为“菜单命令”的主菜单，再添加两个名称分别为“menu1”、“menu2”，标题分别为“不可用菜单项”、“上一菜单项可用”