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

国家二级VB机试（上机操作）模拟试卷10（共9套）（共29题）国家二级VB机试（上机操作）模拟试卷第1套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。（1）在名称为Form1、标题为“图片练习”的窗体上画一个名称为Image1、宽和高分别为1800和1200的图像框，设置属性使图像框中的图形能自动放大或缩小以与图像框的大小相适应。最后在图像框中显示考生文件夹下的图片文件“pic1.jpg”。运行后的窗体如图1－226所示。注意：存盘时，将文件保存至考生文件夹下，窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。（2）在名称为Form1，标题为“列表框练习”的窗体上画一个名称为List1的列表框，表项内容依次输入“环球时报”、“人物”、“探索”和“读者”；再画两个标题分别为“复制”和“移去”的命令按钮。如图1－227所示。要求：编写适当的事件过程，使得单击“复制”按钮，可以将选中的列表项内容复制到已有列表项的尾部；单击“移去”按钮，可以将选中的列表项内容删除。注意：存盘时，将文件保存至考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。标准答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表2－109在窗体中画出控件并设置其相关属性。步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表2－110所列在窗体Form1中画出控件，并设置其相关属性。步骤2：在打开的代码编辑窗口中，编写两个命令按钮的单击事件代码：参考代码：PrivateSubCommand1_Click()List1.AddItemList1.TextEndSubPrivateSubCommand2_Click()List1.RemoveItemList1.ListIndexEndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、（1）考生文件夹下的工程文件sjt3.vbp中有两个初始标题分别是“移动”和“退出”的命令按钮；一个初始状态为不可用的时钟Timer1。请画一个标签Label1，其标题为“计算机考试”，显示格式为黑体小四号字，左边界为500，且能根据显示内容自动调整大小。如图1－228所示。程序功能如下：①单击“移动”按钮时，该按钮标题自动变换为“暂停”，且标签内容在窗体中开始向右移动。当标签右侧到窗体右边时，标签移动方向改变为从右向左移动；当标签左侧触及窗体左边缘时，标签移动方向改变为从左向右移动。②单击“暂停”按钮时，该按钮的标题自动变换为“移动”，并暂停标签内容的移动。③单击“退出”按钮时，则结束程序运行。命令按钮的Click事件过程已经给出，但事件过程不完整，请将其中的注释符去掉，把?改为正确的内容，以实现上述程序功能。注意：不得修改窗体文件中已经存在的控件和程序，最后将修改后的文件按原文件名存盘。（2）考生文件夹下的工程文件sjt4.vbp中有一个标题为“编号”的标签Label1，一个用于接收选手编号的初始内容为空的文本框Text1；另有一个含有10个元素的标签控件数组Label2用于显示评委名称：“评委1”、“评委2”…，一个含有10个元素的文本框控件数组Text2用于接收10个评委对某选手的打分；还有一个标题为“统计得分”的命令按钮。请再画两个可根据显示内容自动调整大小、标题分别为“选手编号”和“得分”的标签Label3和Label4，一个图片框Picture1，如图1－229所示。程序功能如下：在Text1文本框中输入选手编号，并在Text2文本框控件数组中输入10个评委对该选手的打分情况后，单击“统计得分”按钮，则对10个评委的打分去掉一个最低分和一个最高分之后求平均，该平均分即为选手的最后得分。最后将选手编号和得分显示在图片框Picture1中，并将Text1、Text2的内容置为空。命令按钮的Click事件过程已经给出，但事件过程不完整，请将其中的注释符去掉，把?改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。标准答案：第1小题【操作步骤】步骤1：打开考生文件夹下的本题工程文件sjt3.vbp。步骤2：在窗体Form1中加入一个标签并设置相关属性，其属性和值如表2－111所示。步骤3：在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：Timer1.Enabled=TrueLabel1.Left=Label1.Left+100Label1.Left=Label1.Left-100步骤4：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件下的本题工程文件sjt4.vbp，如表2－112在窗体中画出控件并设置其相关属性。步骤2：在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：Forn=1To9CaseIs>MaxCaseIs＜MinSum=Sum+Val(Text2(n))步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、考生文件夹下的工程文件sjt5.vbp中有一个初始内容为空的文本框Text1，两个标题分别是“读数据”和“计算”的命令按钮；请画一个标题为“各行最小数的平均值为”的标签Label2，再画一个初始内容为空的文本框Text2，如图1－230所示。程序功能如下：①单击“读数据”按钮，则将考生文件夹下in5.dat文件的内容读入20行5列的二维数组a中，并同时显示在Text1文本框内；②单击“计算”按钮，则自动统计二维数组中各行的最小数，并将这些最小数的平均值显示在Text2文本框内。“读数据”按钮的Click事件过程已经给出，请编写“计算”按钮的Click事件过程实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须用“计算”按钮进行计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。标准答案：【操作步骤】步骤1：打开考生文件中的本题工程文件sjt5.vbp，在窗体Form1中画一个标签和一个文本框，其属性及值如表2－113所示。步骤2：打开代码编辑窗口，在指定位置编写以下代码：参考代码：Sum=0Fori=1To20Min=a(1,1)Forj=2To5IfMin>a(i,j)ThenMin=a(i,j)NextSum=Sum+MinNextText2=Sum/20步骤3：按要求将文件保存至考生文件夹中。步骤4：按＜F5＞键运行程序，先单击“读数据”按钮，接着单击“计算”按钮，然后单击窗体右上角的关闭按钮结束程序。知识点解析：暂无解析国家二级VB机试（上机操作）模拟试卷第2套一、基本操作题(本题共2题，每题1.0分，共2分。)1、在名称为Forml的窗体上添加一个名称为Commandl的命令按钮(如图1所示)，然后通过属性窗口设置窗体和命令按钮的属性，实现如下功能：①窗体标题为“设置按钮属性”；②命令按钮的标题为“等级考试”；③程序运行后，命令按钮不可见；④命令按钮的标题字号、字体用三号常规黑体显示。程序的运行情况如图2所示。要求：不编写任何代码。注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。标准答案：【操作步骤】步骤l：新建一个窗体，按照题目要求建立命令按钮控件并设置命令按钮和窗体的相应属性，如图4．23所示。程序中用到的属性见表4．2l。步骤2：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：窗体对象和命令按钮控件的标题均由其Caption属性来设置，Visible属性用于设置窗体或控件在运行时是否可见，设计时可通过修改命令按钮的Font属性来设置标题的字体、字号和字型。2、在名称为Forml的窗体上添加一个名称为Labell的标签，在属性窗口中把BorderStyle属性设置为1(如图l所示)，编写适当的事件过程。使得程序在运行后，如果单击窗体，则可使标签移到窗体的右上角(只允许在程序中修改适当属性来实现)。要求：不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sja．Frm标准答案：【操作步骤】步骤1：新建一个窗体，按照题目要求建立标签控件并设置标签的相应属性，见表4．22。步骤2：打开代码编辑窗口，在指定位置编写如下代码。参考答案PriVateSubForml_Slick()Labell．Top=0设置Labell的初始位置Label．Left=F0m1．Width-La-bell．WidthEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：标签的Borderstyle属性用于设置标签的边框样式，值为0表示无边框，值为l表示有固定边框。要使标签位于窗体的右上角，其Top属性值应为0，Left属性值应为窗体的内部有效宽度减去标签宽度后的值。二、简单应用题(本题共2题，每题1.0分，共2分。)3、在考生文件夹下有一个工程文件sjt3．vbp，相应的窗体文件为sjt3．frm。其功能是随机产生30个0～1000的整数，放入一个数组中，然后输出其中的最小值。程序运行后，单击命令按钮(名称为Commandl，标题为“输出最小值”)，即可求出其最小值，并在窗体上显示出来(如图所示)。这个程序不完整，请把它补充完整，并使其能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原名存盘。标准答案：【操作步骤】步骤l：打开本题工程文件。步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容。参考答案(阴影部分是需考生填入的内容)OptionBase1PriVatesubCommandl_Click()DimarrN(30)AsIntegerDimMinAsIntegerRandomizeFori=lTo30arrN(i)=Int(Rnd*1000)NextiMin=arrN(1)l将第一个数赋给Min，以提供判断Fori=2To30IfarrN(i)＜Min_Then′比较最小值与其他数值，找出最小值Min=arrN(i)EndIfNextiPrintMinEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。【易错提示】产生0～1000范围内的随机数，应该是Rnd×1000。知识点解析：本题程序用变量Min记录最小数，最初把数组的第一个元素的值赋给Min，然后通过For循环语句将其后的元素依次与之比较，如果其值小于Min，则将其赋值给Min，依次类推，最终Min的值就是数组各元素中的最小值。4、在考生文件夹下有一个工程文件sjt4．vbp，相应的窗体文件为sjt4．frm，在窗体上有一个文本框和一个命令按钮。程序运行后，单击命令按钮，即可计算出0～1000范围内不能被7整除的整数的个数，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被7整除的整数的个数的操作在通用过程Fun中实现，请编写该过程的代码。要求：请勿改动程序中的任何内容，只在FunctionFun()和EndFunction之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。标准答案：【操作步骤】步骤l：打开本题工程文件。步骤2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。参考答案FunctionFun()DimsAsInteger，iAsIntegerFori=0To1000′求0～1000中满足条件的数IfiMod7＜＞0Thens=s+1′将满足务件的数的个数累加EndIfNextiFun=s’返回结果EndFunction步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：可通过求余运算符Mod来计算某数M能否被7整除，如果MMod7=0，那么M能被7整除；如果MMod7＜＞0，那么M不能被7整除。可利用For。循环语句来逐个判断0～1000范围内的整数能否被7整除，然后用一个变量来统计不能被7整除的整数个数。三、综合应用题(本题共1题，每题1.0分，共1分。)5、在考生文件夹下有一个工程文件sjt5．vbp，按照要求完成以下操作：在名称为Forml的窗体上添加两个命令按钮，其名称分别为Cl和C2，标题分别为“读入数据”和“计算”(如图所示)。程序运行后，如果单击“读入数据”按钮，则调用题目所提供的ReadDatal和ReadData2过程读入datainl．txl和datain2．txt文件中的各20个整数，分别放入Arrl和Arr2两个数组中；如果单击“计算”按钮，则把两个数组中对应下标的元素相减，其结果放入第三个数组中(第1个数组的第n个元素减去第2个数组的第n个元素，其结果作为第3个数组的第n个元素。这里的n为1、2…20)，最后计算第3个数组各元素之和，把所求得的和在窗体上显示出来；并调用题目中给出的Write．Data过程将所求得的和存入考生文件夹下的dataout．txt文件中。注意：考生不得修改窗体文件中已经存在的程序，且必须执行一次，最后将修改后的文件以原来的文件名存盘。标准答案：【操作步骤】步骤l：打开本题工程文件，按照题目要求建立命令按钮控件并设置命令按钮的相应属性，程序中用到的控件及属性见表4．23。步骤2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。参考答案PriVateSubC1_Click()CallReadDatal′调用过程ReadDatalCallReadData2′调用过程ReadData2EndSubPriVateSubC2—Click()DimArr3(1To20)．AsIntegerDimsumAsIntegersum=0Fori=1To20′将Arrl中对应于Arr2中的数相减，结果存入Arr3中Arr3(i)=Arrl(i)-Arr2(i)sum=sum+Arr3(i)′将Arr3中的元素累加NextiPrint＂sum=＂;sum′在窗体打印sumWriteData＂dataout．txt＂，sumEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：本题源程序已给出读文件中的数据和向文件中写数据的三个过程，只需适时调用它们，即在“读入数据”和保存过程中调用；要把数组Arrl和Arr2中对应下标的元素相减并把结果存入第3个数组中，需利用For循环逐一取出Arrl和Arr2对应元素；由于数组Arrl、Arr2及存储第3个数组和的变量要跨过程使用，因此需定义成窗体级变量；调用过程WriteData时需传递两个参数，分别是存入数据的文件名和存储第3个数组和的变量；语句OptionBase1用于限定数组下标的下限，默认为l。国家二级VB机试（上机操作）模拟试卷第3套一、基本操作题(本题共1题，每题1.0分，共1分。)1、(1)在名称为Forml，标题为“框架”的窗体上添加一个名称为Framel，且标题为空的框架。框架内含有两个单选按钮，名称分别为Opt1和Opt2，其标题分别为“字体”、“大小”。注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。(2)考生文件夹下的工程文件sjt2．vbp中有一个由直线Line1、Line2和Line3组成的三角形，直线Linel、Line2和Line3的坐标值如下所示：名称X1Y1X2Y2Line160012001600300Line2600120026001200Line3160030026001200要求添加一条直线Line4以构成三角形的高，且该直线的初始状态为不可见。再添加两个命令按钮，名称分别为Cmd1、Cmd2，标题分别为“显示高”、“隐藏高”，如图所示。请编写适当的事件过程使得在程序运行时，单击“显示高”按钮，则显示三角形的高；单击“隐藏高”按钮，则隐藏三角形的高。注意：要求程序中不得使用变量，每个事件过程只能写一条语句。不得修改已经存在的控件，最后将修改后的文件按原文件名存盘。标准答案：(1)【操作步骤】步骤1：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表4．56。步骤2：调试并运行程序，关闭程序后按题目要求存盘。(2)【操作步骤】步骤1：打开sjt2工程，按照题目要求建立Line控件并设置其属性，如图4．33所示。步骤2：按照步骤1建立其他控件并设置相关属性，程序中涉及的控件及属性见表4．57。步骤3：打开代码编辑窗口，在指定位置编写如下代码。参考答案PrivateSubCmd1_Click()Line4．Visible=True’将Line4显示EndSubPrivateSubCmd2_Click()Line4．Visible=False’将Line4隐藏EndSub步骤4：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：(1)通过窗体的Caption属性设置窗体的标题，通过框架的Name和Caption属性设置框架的名称和标题，通过单选按钮的Name和Caption属性设置单选按钮的名称和标题。(2)通过对直线Line1、Line2和Line3的坐标值的计算，确定线条的X1、X2、Y1和Y2属性的值，画出线段Line4，并将其Visible属性设置为False，使得在初始状态下为不可见。再通过命令按钮的Name和Caption属性设置命令按钮的名称和标题。在Cmd1_Click事件过程中将Line4的Visible属性设置True，则可以显示高，在Cmd2_Click事件过程中把Line4的Visible属性设置False，则可以隐藏高。二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有一个工程文件sjt3．vbp。程序运行时，单击窗体则显示如图所示的图案。请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp，窗体中有一个矩形和一个圆，程序运行时，单击“开始”按钮，圆可以横向或纵向运行(通过选择单选按钮来决定)，碰到矩形的边时，则向其相反方向运动，单击“停止”按钮，则停止运动，如图所示。可以通过选择单选按钮随时改变运动方向。已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。标准答案：(1)【操作步骤】步骤1：打开本题工程文件。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。参考答案(画线部分是需考生填入的内容)PrivateSubForm_Click()Fori=1To5’输入5行Forj=1To6一i’循环实现输入空格，每行依次减少一个空格Print""；NextjForj=1To2*i-1’观察图像每行*的个数Print"*"；NextjPrintNextiFori=1To4Forj=1Toi+1’同问题1Print""；NextjForj=1To(9-2*i)’同问题2Print"*"；NextjPrintNextiEndSub程序结束步骤3：调试并运行程序，关闭程序后按题目要求存盘。(2)【操作步骤】步骤1：打开本题工程文件。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。参考答案(画线部分是需考生填入的内容)DimdAsIntegerPrivateSubCommandlClick()Timer1．Enabled=True’当单击"开始"按钮时，Timer生效EndSubPrivateSubCommand2Click()Timer1.Enabled=False’当单击"停止"按钮时，Timer失效EndSubPrivateSubForm_Load()d=1EndSubPrivateSubTimer1_Timer()IfOptionlThen’判断Option1是否被单击Shape2．Top=Shape2.Top+d*50’实现圆垂直移动IfShape2．Top<=Shape1．TopOrShape2．Top+Shape2．Width>=Shape1．Top+Shape1．HeightThen’判断Shape2与Shape1的位置d=－d’当圆移出Shape1时，改变移动方向EndIfElseIfOption2ThenShape2．Left=Shape2.Left+d*50’实现水平移动IfShape2．Left<=Shape1．LeftOrShape2．Left+Shape2．Width>=Shape1．Left+Shape1．WidthThend=－d’当圆移出Shape1时，则改变移动方向EndItEndIfEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：(1)本题主要考查的是对循环语句的理解，以及对于循环上限的判断。首先看一下两个主要的：For循环语句实现什么样的功能，先看第1个For语句，在循环语句中嵌套两个循环语句，第1个语句实现输入空格，当i=1时，即当输入第1行时，进行Forj=1To6-i的循环，即在第1行打印出5个空字符，也可以理解为打印出5个空格。第2个for循环实现的是*的打印，还以i=1为例，要打印出一个*，同时要注意行数i和输入空格及*符号个数之间的关系，也就是找出表达式的运算规律，从而得到循环上限。(2)在Timer1_Timer事件过程中，通过判断单选按钮“纵向”或“横向”是否被选中来决定圆运动的方向，如果是纵向，则通过Shape2的Top和Width属性值的改变实现圆的移动，并通过判断Top属性值来确定是否到达上或下界，使圆向相反方向运动。如果是横向，则通过Shape2的Left和Width属性值的改变实现圆的移动。在Command2_Click事件过程中通过将Timer1的Enabled属性设置为False，使圆停止运动，在Command1_Click事件过程中通过将Timer1的Enabled属性设置为True，使圆开始运动。在窗体载入时设置d的值，是为了方便编辑圆向相反方向的运动过程语句。三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有一个工程文件sjt5．vbp。其功能是产生并显示一个数列的前n项。数列产生的规律是：数列的前2项是小于10的正整数，将此两数相乘，若乘积＜10，则以此乘积作为数列的第3项；若乘积≥10，则以乘积的十位数为数列的第3项，以乘积的个位数为数列的第4项。再用数列的最后两项相乘，用上述规则形成后面的项，直至产生了第n项。窗体上部从左到右3个文本框的名称分别为Text1、Text2、Text3，窗体下部的文本框名称为Text4。程序运行时，在Text1、Text2中输入数列的前两项，Text3中输入要产生的项数n，单击“计算”按钮则产生此数列的前n项，并显示在Text4中。如图所示。已经给出了全部控件，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不得修改原有程序和控件的属性。最后把修改后的文件按原文件名存盘。标准答案：【操作步骤】步骤1：打开本题工程文件。步骤2：打开代码编辑窗口。去掉程序中的注释符“’”，将问号改为正确的内容。参考答案(画线部分是需考生填入的内容)PrivateSubCommand1_Click()Text4=""a=Val(Text1)b=Val(Text2)n=Val(Text3)Text4=Text4＆a＆""＆b’文本框Text4中第二项的内容一定是bk=2DoWhilek＜nc=a*bk=k+1Ifc＜10Then’判断乘积是否小于10Text4=Text4＆""＆c’若小于10。则直接接到Text4文本末尾a=b’将b赋给a成为下一次循环的前一项b=c’将c作为下一次循环的后一项Elsed=c＼10’当c大于10，则取整Text4=Text4＆""＆da=d’将十位数作为下一次循环的前一项k=k+1Ifk<=nThen’当k>n时，则数列数已够，不用求下一项d=cMod10Text4=Text4＆""＆db=d’将余数作为下一次循环的后一项EndIfEndIfLoopEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：Text3的数值是数列的项数，定义一个变量k，前两项已经确定，因此k的取值范围为3～n，先计算前两项的积，判断是否小于10，如果乘积小于10，则以此乘积作为数列的第3项数，如果乘积大于等于10，则以乘积的十位数为数列的第3项，以乘积的个位数为数列的第4项，再用数列的最后2项相乘，运用循环语句，用上述规则形成后面的项，直至产生了第n项。在这里运用的是DoWhile语句，与For语句有所不同，要注意区分。国家二级VB机试（上机操作）模拟试卷第4套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。（1）在名称为Form1、标题为“测试”的窗体上画一个名称为Frame1、标题为“字体”的框架。在框架内画两个单选按钮，其名称分别为Opt1和Opt2，标题分别为“隶书”和“宋体”。程序运行后的窗体如图1－93所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。（2）在名称为Form1的窗体上用名称为shape1的形状控件画一个圆，其直径为1000（高、宽均为1000）；再画两个命令按钮，标题分别是“垂直线”和“水平线”，名称分别为Command1、Command2，如图1－94所示。然后编写两个命令按钮的Click事件过程。程序运行后，如果单击“垂直线”命令按钮，则圆的内部用垂直线填充；如果单击“水平线”命令按钮，则圆的内部用水平线填充。注意：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。标准答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表2－27在窗体上绘制控件并设置属性。步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表2－28在窗体中画出控件并设置其相关属性。步骤2：在代码编辑窗口编写两个命令按钮的单击事件过程。参考代码：PrivateSubCommand1_Click()Shape1.FillStyle=3EndSubPrivateSubCommand2_Click()Form1.Shape1.FillStyle=2EndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、（1）在考生文件夹下有一个工程文件sjt3.vbp，请在名称为Form1的窗体上画一个名称为Text1的文本框和一个名称为C1、标题为“转换”的命令按钮，如图1－95所示。在程序运行时，单击“转换”按钮，可以把Text1中的大写字母转换为小写，把小写字母转换为大写。窗体文件中已经给出了“转换”按钮的Click事件过程，但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序中的其他部分，最后把修改后的文件按原文件名存盘。（2）在考生文件夹下有一个工程文件sjt4.vbp，其功能是：①单击“读数据”命令按钮，把考生文件夹下in4.dat文件中已按升序方式排列的60个数读入数组A，并显示在Text1中；②单击“输入”按钮，弹出一个输入对话框，接收用户输入的任意一个整数；单击“插入”按钮，将输入的数插入A数组中合适的位置，使其仍保持A数组的升序排列，最后将A数组的内容重新显示在Text1中。在窗体文件中已经给出了全部控件（如图1－96所示）和程序，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。本程序只考虑插入一个整数的情况。注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。标准答案：第1小题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt3.vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：n%=Asc("a")-Asc("A")B$=String(1,Asc(B$)+32)Text1.Text=A步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：Ifnum＜a(i)ThenExitForForj=60ToiStep-1a(j+1)=a(j)a(i)=numFork=1To61步骤2：按要求将文件保存至考生文件夹中。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有一个工程文件sjt5.vbp，其窗体上有两个标题分别为“读数据”和“统计”的命令按钮。请画两个标签，其名称分别是Label1和Label2，标题分别为“单词的平均长度为”和“最长单词的长度为”；再画两个名称分别为Text1和Text2、初始内容为空的文本框，如图1－97所示。程序功能如下：①如果单击“读数据”命令按钮，则将考生文件夹in5.dat文件的内容读到变量s中（此过程已给出）；②如果单击“统计”按钮，则自动统计变量s（s中仅含有字母和空格，而空格是用来分隔不同单词的中每个单词的长度，并将所有单词的平均长度（四舍五入取整）显示在Text1文本框内，将最长单词的长度显示在Text2文本框内。“读数据”命令按钮的Click事件过程已经给出，请为“统计”命令按钮编写适当的事件过程，实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序之前，必须进行统计，且必须通过单击窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。标准答案：【操作步骤】步骤1：打开考生文件夹下的本题工程文件sjt5.vbp，如表2－29所列在窗体上画出控件并设置它们的相关属性。步骤2：打开代码编辑窗口，在指定位置编写“统计”按钮的单击事件过程。参考代码：PrivateSubCommand2_Click()’需考生编写n=Len(s):t=""Dimword_maxAsInteger,word_numAsInteger,word_lenAsIntegerFori=1Tonc=Mid(s,i,1)Ifc＜＞""Thent=t+cElseword_len=word_len+Len(t)word_num=word_num+1IfLen(t)＞word_maxThenword_max=Len(t)EndIft=""EndIfNextiText1.Text=CInt((word_len+Len(t))/(word_num+1))IfLen(t)>word_maxThenword_max=Len(t)EndIfText2.Text=word_maxEndSub步骤3：按要求将文件保存至考生文件夹中。步骤4：按＜F5＞键运行程序，先单击“读数据”按钮，再单击“统计”按钮，最后单击窗体右上角的关闭按钮结束程序。知识点解析：暂无解析国家二级VB机试（上机操作）模拟试卷第5套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为CmdChange、标题为“改变颜色”的命令按钮，窗体标题为“设置窗体背景色”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(＆HFF＆)。运行程序后的窗体如图3－142所示。要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为vbsj1．vbp，窗体文件名为vbsj1．frm。(2)在名称为Form1的窗体上画一个命令按钮和一个垂直滚动条，其名称分别为Cmd1(标题为“设置”)和Vsb1，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求设置垂直滚动条的属性：Max＝窗体高度Min＝0LargeChange＝50SmallChange＝10如果移动垂直滚动条的滚动框，则在窗体上显示滚动框的位置值。程序的运行情况如图3—143所示。要求：不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj2．vbp，窗体文件名为vbsj2．frm。标准答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Form1中画一个命令按钮，设置相关属性，其属性及值如表4－83所示。步骤2：打开代码编辑窗口，编写按钮的Click事件过程中。参考代码：PrivateSubcmdChange_Click()BackColor＝＆HFF＆EndSub步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，按表4－84在窗体中画出控件并设置其相关属性。步骤2：打开代码编辑窗口，编写水平滚动条的Change事件过程。参考代码：PrivateSubCmd1_Click()Vsb1．Max＝Form1．HeightVsb1．Min＝0Vsb1．LargeChange＝50Vsb1．SmaliChange＝10EndSubPrivateSubVsb1_Change()PrintVsb1．ValueEndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有一个工程文件vbsj3．vbp，相应的窗体文件为vbsj3．filaa，在窗体上有一个标题为“计算”的命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出数组arr中每个元素与其下标相除所得的和，并在文本框中显示出来，程序的运行情况如图3－144所示。在窗体的代码窗口中，已给出了部分程序，其中计算数组arr中每个元素与其下标相除所得的和的操作在通用过程Fun中实现，请编写该过程的代码。要求：请勿改动程序中的其他部分，只在FunctionFun()和EndFunction之间填入你编写的若干语句并运行程序。在结束程序运行之前，必须至少正确运行一次程序，将结果显示在文本框中，否则无成绩。最后把修改后的文件按原文件名存盘。说明：数组arr中共有40个元素，“数组art中每个元素与其下标相除所得的和”，是指：arr(1)／1＋arr(2)／2＋arr(3)／3＋…＋arr(40)／40(2)在考生文件夹下有一个工程文件vbsi4．vbp。程序运行后，如果单击“开始"按钮，则图片自左向右移动，同时滚动条的滑块随之移动，每0．5秒移动一次。当图片完全移出窗体的右边界时，立即再从窗体的左边界开始重新移动，若单击“停止”按钮，则图片停止移动，如图3－145所示。在窗体文件中已经给出了全部控件，但程序不完整。要求：请去掉程序中的注释符，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。标准答案：第1小题【操作步骤】步骤1：打开考生文件夹下的工程文件vbsj3．vbp。步骤2：进入代码编辑窗口，在FunctionFun()和EndFunction之间输入以下代码。参考代码：FunctionFun(a()AsSingle)AsSingleDimsumAsSingleDimiAsIntegerFori＝LBound(a)ToUBound(a)sum＝sum＋a(i)／iNextFun＝sumEndFunction步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件夹下的工程文件vbsj4．vbp。步骤2：进入代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：Tmr1．Enabled＝FalseTmr1．Interval＝500IfPicl．Left＞Me．WidthThenPicl．Left＝0步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生目录下有一个工程文件vbsjl5．vbp，用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是：a2＋b2＝c2。例如，3、4、5就是一个满足条件的整数组合(注意：a，b，c分别为4，3，5与分别为3，4，5被视为同一个组合，不应该重复计算)。编写程序，统计三个数均在60以内满足上述关系的整数组合的个数，并显示在标签Lbl1中，运行时程序界面如图3－146所示。注意：不得修改原有程序的控件的属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。标准答案：【操作步骤】步骤1：打开考生文件夹下的工程文件vbs．i5．vbp，在码编辑窗口的指定位置输入代码。参考代码：PrivateSubCommand1_Click()’＝＝＝考生编写程序开始＝＝＝＝DimiAsInteger，jAsIntegerDimnAsIntegerFori＝1To59Forj＝iTo60IfSqr(i*i＋j*j)＝Int(Sqr_(i*i＋j*j))Andsqr_(i*i＋j*j)＜＝60Thenn＝n＋1EndIfNextNextLbl1．Caption＝n’＝＝＝考生编写程序结束＝＝＝＝’不要改动以下内容saveLabel1EndSub步骤2：按＜F5＞键运行程序，单击“计算”按钮。步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析国家二级VB机试（上机操作）模拟试卷第6套一、基本操作题(本题共1题，每题1.0分，共1分。)1、(1)在名称为Forml的窗体上画两个标签(名称分别为Label1和Label2,，标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Text1和Text2，初始内容均为空)和一个命令按钮(名称为Command1，标题为“显示”)。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输入姓名和年龄，然后单击“显示”按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。(2)在名称为Forml的窗体上画一个图片框，其名称为Picturel，一个水平滚动条，名称为HScroll1，一个命令按钮，名称为Command1，标题为“设置属性”，通过属性窗口在图片框中装入一个图形(文件名为pic1．jpg，位于考生目录下)，图片框的高度与图形的高度相同，图片框的宽度任意(如图1所示)。编写适当的事件过程，程序运行后，如果单击命令按钮，则设置水平滚动条的属性如下：Min100Max1500LargeChange100SmallChange10之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。程序运行后的窗体如图2所示。要求程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。标准答案：(1)【操作步骤】步骤1：新建一个窗体，按照题目要求建立控件并设置相应属性，程序中用到的控件及属性如表4．16所示。步骤2：打开代码编辑窗口，在指定位置编写如下代码。参考答案PrivateSubCommand1_Click()Forml．PrintText1．Text＆”，现年”＆Text2．Text＆"岁"EndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。(2)【操作步骤】步骤1：新建一个窗体，添加控件并设置相应的属性。程序中用到的控件及其属性见表4．17。步骤2：打开代码编辑窗口，在指定位置编写如下代码。参考答案PrivateSubCommandl_Click()HScroll1．Max=1500’设置滚动条的最大值、最小值、最大改变值、最小改变值HScroll1．Min=100HScroll1．LargeChange=100HScroll1．SmallChange=10EndSubPrivateSubHScroll1_Change()Picture1．Width=HScroll1．Value’将图片的width与滚动条的Value保持一致EndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：(1)通过标签的Name和Caption属性设置标签的名称和标题，通过文本框Name和Text属性设置文本框的名称和文本，通过命令按钮的Name和Caption属性设置命令按钮的名称和标题，“&”和“+”运算符均可将两个表达式作为字符串连接。在窗体上输出文本内容可使用Print方法。(2)在设计阶段通过Picture属性为图片框指定显示的图片，通过Width属性来设定或修改图片框的宽度。通过调整滚动条滑块的位置即可改变其Value属性的值，滚动条的Max和Min属性限定了滚动条所能表示的最大值和最小值，LargeChange属性用于设置当单击滑块与两侧箭头间区域时Value属性值的改变量，SmallChange属性用于设置当单击滚动条两侧箭头时Value属性值的改变量。当改变滚动条滑块位置后将触发其Change事件。二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)考生文件夹下有一个工程文件sjt3．vbp。程序的功能是：通过键盘向文本框中输入数字，如果输入的是非数字字符，则提示输入错误，且文本框中不显示输入的字符。单击名称为Command1、标题为“添加”的命令按钮，则将文本框中的数字添加到名称为Combol的组合框中。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序中的其他部分和其他控件的属性。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp。该程序的功能是计算M!+(M+1)!+(M+2)!+…+N!之和。窗体上有名称分别为Text1、‘Text2的两个文本框，用于接收输入的M和N(要求M＜N)。单击名称为Command1、标题为“计算”的命令按钮，计算M!+(M+1)!+(M+2)!+…+N!的值，并将计算结果显示在标签IblResult中。在给出的窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。标准答案：(I)【操作步骤】步骤1：打开本题工程文件。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。参考答案(画线部分是需考生填入的内容)PrivateSubCommandl_Click()Combo1AddItemText1.Text’将Text1中的内容加入Combo1中Text1．Text=""’同时将Text1内容清除EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii＞57OrKeyAscii＜48Then’数字的Ascii码值下界MsgBox"请输入数字!"KeyAscii=0’清空EndIfEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。(2)【操作步骤】步骤1：打开本题工程文件。步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。参考答案(画线部分是需考生填入的内容)PrivateSubCommand1_Click()DimmAsIntegerDimnAsIntegerDimSAsLongDimiAsIntegerm=Val(Text1．Text)’将文本框中的字符转换成数值型n=Val(Text2．Text)s=0Fori=mTon-mt=f(i)’调用函数得到N的阶乘s=s+tNext1blResult．Caption=sEndSubPrivateFunctionf(ByRefxAsInteger)AsLong’ByRef为传址传递DimtAsLongt=1Fori=1Tox’实现对数值进行阶乘运算t=t*iNextf=t’返回计算结果EndFunction步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：(1)单击命令按钮，运用组合框的List属性将文本框中的数字添加到组合框中，通过ASCII码来判断输入的是否为数字字符。(2)Functionf()过程函数用于实现对数值阶乘的运算，Val()函数实现将文本框中的字符转换成数值型，通过循环调用过程函数实现对表达式结果的累加。三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有一个工程文件sjt5．vbp，窗体上有三个文本框，其名称分别为Text1、Text2和Text3，其中Text1、Text2可多行显示。清添加三个命令按钮，名称分别为Cmd1、Cmd2和Cmd3，标题分别为“产生数组”、“统计”和“退出”，如图所示。程序功能如下：①单击“产生数组”按钮时，随机生成20个0—10之间(不含0和10)的数值，并将其保存到一维数组a中，同时也将这20个数值在Text1文本框内显示。②单击“统计”按钮时，统计出数组a中出现频率最高的数值及其出现的次数，并将出现频率最高的数值在Text2文本框内显示、出现频率最高的次数在Text3文本框内显示。③单击“退出”按钮时，结束程序运行。注意：不得修改窗体文件中已经存在的控件和程序，最后将修改后的文件按原文件名存盘。标准答案：【操作步骤】步骤1：打开本题工程文件，设置控件的属性。程序中用到的控件及属性见表4．55。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问题改为正确的内容。参考答案(画线部分是需考生填入的内容)OptionBase1Dima(20)AsInteger，b(20)AsIntegerPrivateSubCmd1_Click()Text1．Text=""：Text2．Text=""：Text3．Text=""Fori=1To20a(i)=Fix(Rnd*9+1)’生成0～10的数值并存入数组a中b(i)=1Text1．Text=Text1．Text+str(a(i))+Space(2)’将生成的数显示在Text1中NextiEndSubPrivateSubCmd2Click()fmax=0Fori=1To20Forj=1Toi-1’数组共有20个数字Ifa(i)=a(j)Thenb(i)=b(i)+1’依次存入对应数出现的频率EndIfNextjIfb(i)＞fmaxThenfmax=b(i)’该次得到的数出现频率与目前出现频率最多的数比较，若大于目前的数。则将最大的数改为该次得到的数Next1Fori=1To20Ifb(i)=fmaxThen’从数组中找到与fmax相同的值Text2．Text=Text2．Text+Str(a(i))+Space(2)EndIfNextiText3．Text=fmaxEndSubPrivateSubCmd3_Click()End’当单击"结束"按纽时，则退出程序EndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：单击“产生数组”按钮时，通过Rnd函数随机生成20个0～10(不含0和10)的数值，并将其保存到一维数组a中，同时运用Space()函数和str()函数将这20个数值显示在Text1文本框内。单击“统计”按钮时，统计出数组a中出现频率最高的数值及其出现的次数，并把出现的次数赋值给数组b，通过对数组b中数值的排序，找出最高次数，并通过判断最高次数的值，找出出现频率最高的数值，并将其数值显示在Text2文本框内，将出现次数显示在Text3文本框内。单击“退出”按钮，运用End语句结束程序运行。str函数将数值转化为字符串，Val()函数是将字符转换为数值。Space(n)函数用于输入空格，n为空格的个数。Fix()函数用于截尾取整，生成整数。国家二级VB机试（上机操作）模拟试卷第7套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上画两个标签（名称分别为lblBook和lblAuthor，标题分别为“书名”和“作者”）、两个文本框（名称分别为txtBook和txtAuthor，Text属性均为空白）和一个命令按钮（名称为cmdDisplay，标题为“显示”），如图1－332所示。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输入书名和作者，然后单击命令按钮，则在窗体的标题栏上先后显示两个文本框中的内容，如图1－333所示。要求程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。（2）在名称为Form1，标题为“列表框示例”的窗体上画一个名称为lstCity的列表框，表项内容依次输入“北京”、“上海”、“天津”和“重庆”；再画两个标题分别为“复制”和“移除”，名称分别为cmdCopy和cmdRemove的命令按钮。如图1－334所示。要求：编写适当的事件过程，使得单击“复制”按钮，可以将选中的列表项内容复制到已有列表项的尾部；单击“移除”按钮，可以将选中的列表项内容删除。注意：存盘时，将文件保存至考生文件夹下，窗体文件名为vbsj2.frm，工程文件名为vbsj2.vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。标准答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Form1中加入两个标签、两个文本框和一个命令按钮，其相关属性设置如表2－175所示。步骤2：双击窗体Form1中的“显示”按钮，在打开的代码编辑窗口中，输入如下代码：参考代码：PrivateSubcmdDisplay_Click()Form1.Caption=txtBook.Text&"，"&txtAuthor.TextEndSub步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，按表2－176所列在窗体Form1中画出控件，并设置其相关属性。步骤2：在打开的代码编辑窗口中，编写两个命令按钮的单击事件代码：参考代码：PrivateSubcmdCopy_Click()lstCity.AddItemlstCity.TextEndSubPrivateSubcmdRemove_Click()lstCity.RemoveItemlstCity.ListIndexEndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、（1）在考生文件夹下有一个工程文件vbsj3.vbp。窗体上有一个标题为“得分”的框架，在框架中有一个名称为Txt1的文本框数组，含六个元素；文本框Txt2用来输入难度系数。程序运行时，在左边的六个文本框中输入6个得分，输入难度系数后，单击“计算分数”按钮，则可计算出最后得分并在文本框Txt3中显示（如图1－335所示）。计算方法：去掉1个最高得分和1个最低得分，求剩下得分的平均分，再乘以3，再乘以难度系数。最后结果保留到第2位小数，不四舍五入。注意：文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容。考生不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。程序源码：PrivateSubCmd1_Click()DimkAsInteger,sAsSingle,aAs_Single,bAsSinglea＝Val(Txt1(0).Text)s＝ab＝a’Fork＝1To?s＝s＋Val(Txt1(k).Text)’If?＜Val(Txt1(k).Text)Thena＝Val(Txt1(k).Text)EndIfIfb＞Val(Txt1(k).Text)Thenb＝Val(Txt1(k).Text)EndIfNextk’s＝(s－a－b)/?’s＝?*3*Val(Txt2.Text)’?＝Int(s*100)/100EndSub（2）在名称为Form1的窗体上画一个名称为picOpen的图片框，并利用属性窗口把考生目录中的图标文件Open.ico放到图片框中；再画一个通用对话框控件，名称为cdlOpen，利用属性窗口设置相应属性，即打开对话框时：标题为“打开文件”，文件类型为“Word文档”，初始目录为C盘根目录。再编写适当的事件过程，使得在运行时，单击P1图片框，可以打开上述对话框。运行后的窗体如图1－336所示。注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj4.vbp，窗体文件名为vbsj4.frm。程序中不得使用任何变量。标准答案：第1小题【操作步骤】步骤1：打开考生文件中的本题工程文件vbsj3.vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：Fork=1To5Ifa＜Val(Txt1(k).Text)Thens=(s-a-b)／4s=s*3*Val(Txt2.Text)Txt3.Text=Int(s*100)/100步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，按表2－177在窗体中画出控件并设置其相关属性。步骤2：打开代码编辑窗口，编写如下事件过程。参考代码：PrivateSubpicOpen_Click()cdlOpen.ShowOpenEndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生目录下有一个工程文件vbsj5.vbp。其功能是产生并显示一个数列的前n项。数列产生的规律是：数列的前2项是小于10的正整数，将此两数相乘，若乘积＜10，则以此乘积作为数列的第3项；若乘积＞＝10，则以乘积的十位数为数列的第3项，以乘积的个位数为数列的第4项。再用数列的最后2项相乘，用上述规则形成后面的项，直至产生了第n项。窗体上部从左到右3个文本框的名称分别为：txtFir、txtSec、txtNum，窗体下部的文本框名称为txtList。程序运行时，在txtFir、txtSec中输入数列的前两项，txtNum中输入要产生的项数n，单击“计算”按钮则产生此数列的前n项，并显示在txtList中。如图1－337所示。已经给出了全部控件，但程序不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容。注意：不得修改原有程序和控件的属性。最后把修改后的文件按原文件名存盘。程序源码：PrivateSubcmdCal_Click()txtList＝"":a＝Val(txtFir)b=Val(txtSec):n＝Val(txtNum)’txtList＝txtList&a&""&?k＝2DoWhilek＜nc＝a*b:k＝k＋1Ifc＜10ThentxtList＝txtList&""&c’a＝?b＝cElsed＝c\10txtList＝txtList&""&da＝dk＝k+1’Ifk＜＝Thend＝cMod10txtList＝txtList&""&d’?＝dEndIfEndIfLoopEndSub标准答案：【操作步骤】步骤1：打开考生文件中的本题工程文件vbsj5.vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：txtList＝txtList&a&""&ba＝bIfk＜＝nThenb＝d步骤2：按要求将文件保存至考生文件夹中。知识点解析：暂无解析国家二级VB机试（上机操作）模拟试卷第8套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。（1）在Form1的窗体上画一个名称为P1的图片框，然后建立一个主菜单，标题为“操作”，名称为Op，该菜单有两个子菜单，其标题分别为“显示”和“清除”，名称分别为Dis和Clear，编写适当的事件过程。程序运行后，如果单击“操作”菜单中的“显示”命令，则在图片框中显示“等级考试”；如果单击“清除”命令，则清除图片框中的信息。程序的运行情况如图1－103所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。程序中不得使用任何变量。（2）在Form1的窗体上画一个列表框，名称为L1，通过属性窗口向列表框中添加4个项目，分别为“AAAA”、“BBBB”、“CCCC”和“DDDD”，编写适当的事件过程，过程中只能使用一条命令。程序运行后，如果双击列表框中的某一项，则把该项添Click过程。加到列表框中。程序的运行情况如图1－104所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。标准答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Form1中画一个图片框，在属性设置窗口中将其Name属性值设置为P1。步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表2－33中的设置建立菜单项。步骤3：打开代码编辑窗口，编写以下事件过程：参考代码：PrivateSubClea_Click()P1.ClsEndSubPrivateSubDis_Click()P1.Print"等级考试"EndSubsjt5.vbp，步骤4：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个列表框，在属性设置窗口中将其设置为L1，在其List属性中添加四个项目，依次为“AAAA”、“BBBB”、“CCCC”和“DDDD”。注意：每输入完一项后按键换行再输入下一项。步骤2：打开代码编辑窗口，编写列表框的DblClick事件过程：参考代码：PrivateSubL1_DblClick()L1.AddItemL1.TextEndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、（1）在考生文件夹下有一个工程文件sjt3.vbp，请在窗体上画两个框架，其名称分别为F1和F2，标题分别为“交通工具”和“到达目标”。在F1中画两个单选按钮，名称分别为Op1和Op2，标题分别为“飞机”和“火车”。在F2中画两个单选按钮，名称分别为Op3和Op4，标题分别为“广州”和“昆明”。画一个文本框，其名称为Text1。编写适当事件过程。程序运行后，选择不同单选按钮并单击窗体后在文本框中显示结果见表1－3。程序的运行情况如图1－105所示。存盘时以原文件名存盘。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行上面的一种操作。退出程序时必须通过单击窗体右上角的关闭按钮。（2）在考生文件夹下有一个工程文件sjt4.vbp，请在窗体上画三个文本框，其名称分别为Text1、Text2和Text3，文本框内容分别设置为“计算机”、“等级考试”和空白。然后画两个单选按钮，其名称分别为Op1和Op2，标题分别为“交换”和“连接”（如图1－106所示），编写适当的事件程序。程序运行后，如果选中“交换”单选按钮并单击Text3文本框，则Text1文本框中的内容与Text2文本框中的内容进行交换，并在Text3文本框中显示“交换成功”；如果选中“连接”单选按钮并单击Text3文本框，则把Text1和Text2的内容按Text1、Text2的顺序连接起来，并在ext3文本框中显示连接后的内容。存盘时，按原文件名存盘。注意：不得修改已经给出的程序。在结束程序运行之前，必须选中一个单选按钮，然后单击Text3。退出程序时必须通过单击窗体右上角的关闭按钮，否则无成绩。标准答案：第1小题【操作步骤】步骤1：打开考生文件夹下的本题工程文件sjt3.vbp。步骤2：在窗体Form1中加入两个框架和一个文本框，然后在每个框架中各加入两个单选按钮，分别设置它们的相关属性，其属性及值如表2－34所示。步骤3：打开代码编辑窗口输入如下代码：参考代码：PrivateSubForm_Click()IfOp1AndOp3ThenText1.Text="坐飞机去广州"ElseIfOp1AndOp4ThenText1.Text="坐飞机去昆明"ElseIfOp2AndOp3Th