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

国家二级VB机试（上机操作）模拟试卷35（共9套）（共31题）国家二级VB机试（上机操作）模拟试卷第1套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上添加一个计时器控件，名称为Timer1。请利用属性窗口设置适当属性，使得在运行时可以每隔1秒，调用计时器的Timer事件过程一次。另外，请把窗体的标题设置为“题目2”。设计阶段的窗体如图3—73所示。注意：保存时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。(2)在名称为Form1的窗体上画一个文本框，名称为Text1，无初始内容；再画一个图片框，名称为P1。请编写适当的事件过程，使得在运行时，在文本框中每输入一个字符，就在图片框中输出一行文本框中的完整内容，运行时的窗体如图3—74所示。程序中不能使用任何变量。注意：保存时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm标准答案：(1)【操作步骤】步骤1：新建一个“标准EXE”工程，如表4—45在窗体中画出控件并设置其相关属性。步骤2：按要求将文件保存至考生文件夹中。(2)【操作步骤】步骤1：新建一个“标准EXE”工程，如表4—46在窗体中画出控件并设置其相关属性。步骤2：打开代码编辑窗口，编写命令按钮的单击事件过程。参考代码：PrivateSubText1_Change()P1．PrintText1．TextEndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生目录下有一个工程文件sjt3．vbp，窗体上有一个单选按钮数组，含三个单选按钮，均没有标题，请利用属性窗口，为单选按钮依次添加标题为“北京”、“上海”、“广州”；再添加一个标题为，“显示”的命令按钮，如图3—75所示。程序的功能是在运行时，如果选中一个单选按钮后，单击“显示”按钮，则根据单选按钮的选中情况，在窗体上显示“我的出生地是北京”、“我的出生地是上海”或“我的出生地是广州”。要求：①依次添加单选按钮标题为“北京”、“上海”、“广州”；设初始选中的是“上海”，添加命令按钮标题为“显示”。②去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。(2)在考生目录下有一个工程文件sjt4．vbp，请在Form1窗体中画三个标签，名称分别为B1、B2、L1，标题分别为“字号”、“字体”、“计算机等级考试”，其中L1的高为500，宽为3000；再在B1、B2标签的下面画两个组合框，名称分别为Cb1、Cb2，并为Cb1添加项目：“10”、“15”、“20”，为Cb2添加项目：“黑体”、“隶书”、“宋体”。请编写适当的事件过程，使得在运行时，当在Cb1中选一种字号、Cb2中选一种字体时，标签L1中的文字立即变为选定的字号和字体。如图3—76所示。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须选择一种字号和字体。必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，按原文件名存盘，程序中不得使用任何变量。标准答案：(1)【操作步骤】步骤1：打开考生文件夹中的本题工程文件sjt3．vbp，依次选中窗体中的各单选按钮和命令按钮，设置它们的相关属性，其属性及值如表4—47所示。步骤2：双击“显示”命令按钮，打开代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：PrivateSubC1_Click()Fori＝0To2IfOp1(i)．Value＝TrueThenPrint"我的出生地是"_＋Op1(i)．CaptionEndIfNextEndSub步骤3：按要求将文件保存至考生文件夹中。(2)【操作步骤】步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，如表4—48画出三个标签和两个组合框并设置属性。步骤2：在代码编辑窗口，编写两个组合框的单击的单击事件过程。参考代码：PrivateSubCb1_Click()L1．FontSize＝Cb1．TextEndSubPrivateSubCb2_Click()L1．Font＝Cb2．TextEndSub步骤3：按键运行程序并选择一个字号和字体，然后单击窗体右上角的关闭按钮结束程序。步骤4：按要求将文件保存至考生文件夹中。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生目录下有一个工程文件sjl5．vbp，其窗体上有一个文本框，名称为Textt；还有两个命令按钮，名称分别为C1、C2，标题分别为“计算”、“存盘”，如图3—77所示。并有一个函数过程isprime(a)可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数，则返回True，否则返回False。请编写适当的事件过程，使得在运行时，单击“计算”按钮，则找出大于15000的第一个素数，并显示在Text1中；单击“存盘”按钮，则把Text1中的计算结果存入考生文件夹下的out5．txt文件中。注意：考生不得修改isprime函数过程和控件的属性，必须把计算结果通过单击“存盘”按钮存入out5．txt文件中，否则无成绩。标准答案：【操作步骤】步骤1：打开本题对应工程文件sjt5．vbp。步骤2：双击窗体Form1上的“计算”按钮，打开代码编辑窗口，在其Click事件过程中输入如下代码。参考代码：PrivateSubC1_C1ick()a％＝15000Doa％＝a％＋1LoopUntilisprime(a％)Text1．Text＝a％EndSub步骤3：双击窗体Form1上的“存盘”按钮，在代码编辑窗口其Click事件过程中输入如下代码。参考代码：PrivateSubC2_CliCk()OpenApp．Path＆"＼out5．txt"_ForOutputAs#1Print#1，Text1．TextClose#1EndSub步骤4：按要求将文件保存至考生文件夹中。知识点解析：暂无解析国家二级VB机试（上机操作）模拟试卷第2套一、基本操作题(本题共1题，每题1.0分，共1分。)1、(1)在名称为Form1的窗体上添加一个名称为Command1的命令按钮，标题为“打丌文件”，再添加一个名称为CD1的通用对话框。程序运行后，如果单击命令按钮，则弹出打开文件对话框，请按下列要求设置属性和编写代码：①设置适当属性，使对话框的标题为“打开文件”；②设置适当属性，使对话框的“文件类型”下拉式组合框中有两项可供选择：“文本文件”、“所有文件”(如图所示)，默认的类型是“所有文件”；③编写命令按钮的事件过程，使得单击按钮可以弹出“打开文件”对话框。要求：程序中不得使用变量，事件过程中只能写入一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。(2)在名称为Form1的窗体上添加一个名称为Command1的命令按钮，其标题为“移动本按钮”，如图所示。要求编写适当的事件过程，使得程序运行时，每单击按钮一次，按钮向左移动100。要求：程序中小得使用变量，事件过程中只能写入一条语句。注意：1竽盘时必须存放在考生文件火下，工程文件名保存为sit2．vbp，窗体文件名保存为sjt2．frm。标准答案：(1)【操作步骤】步骤1：新建一个窗体，按照要求建立控件并设置其属性，如图3．21所示。程序中用到的控什及属性见表3．13。步骤2：打开代码编辑窗口，在指定位置编写如下代码。参考答案PrivateSubCommand1_Click()CD1．ShowOpen’显示打开文件对话框EndSub步骤3：涮试并运行程序，关闭程序后按题目要求存盘。(2)【操作步骤】步骤1：新建一个窗体，按照要求建立控件并设置相应属性如表3．14所示。步骤2：打开代码编辑窗口，在指定位置编写如下代码。参考答案PrivateSubCommand1_Click()Command1．Left＝Commandl．Left－100EndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在名称为Form1的窗体上添加一个名称为Label1、标题为“添加项目”的标签；添加一个名称为Text1的文本框，初始内容为空；添加一个名称为Combo1的下拉式组合框，并通过属性窗口输入若干项目(不少于3个，内容任意)；再添加两个命令按钮，名称分别为Command1、Command2，其标题分别为“添加”、“统计”。在程序运行时，向Text1中输入字符，单击“添加”按钮后，则将Text1中的内容作为一个列表项被添加到组合框的列表中；单击“统计”按钮，则在窗体空白处显示组合框中列表项的个数，如图所示。请编写两个命令按钮的Click事件过程。注意：程序中不得使用变量，也不能使用循环结构。存盘时必须存放在考生文件夹下，工程文件名保存为sjt3．vbp，窗体文件名保存为sjt3．frm。(2)在考生文件夹下有一个工程文件sjt4．vbp，其窗体如图所示。该程序用来对在上面的文本框中输入的英文字母串(称为“明文”)加密，加密结果(称为“密文”)显示在下面的文本框中。加密的方法为：选中一个单选按钮，单击“加密”按饥后，根据选中的单选按钮后面的数字n，将“明文”中的每个字母改为它后面的第n个字母(“z”后面的字母认为是“a”，“z”后面的字母认为是“A”)，如图所示。窗体中已经给出了所有控件和程序，但程序小完整，请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不得修改程序中的其他部分和控件的属性。最后将修改后的文件按原文件名存蕊。标准答案：(1)【操作步骤】步骤1：新建一个窗体，按照题目要求建立控件并设置控件属性，如图3．22所示。程序中用到的控件及属性设置见表3．15。步骤2：打丌代码编辑窗门，在指定位置编写如下代码。参考答案PrivateSubCommandlCliCk()Combo1．AddItemText1EndSubPrivateSubCommand2C1ick()PrintCombo1．ListCountEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。(2)【操作步骤】步骤1：打开本题工程文件。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。参考答案PrivateSubCommandlClick()DimnAsInteger，kAsInteger，mAsIntegerDimCASString，aAsStringFork＝0To2IfOp1(k)．ValueThenn＝Val(Op1(k)．Caption)EndIfNextkm＝Len(Text1．Text)a＝""Fork＝1Tomc＝Mid$(Text1．Text，k，1)c＝String(1，AsC(c)＋n)Ifc＞"Z"Orc＞"Z"Andc＜"a"Thenc＝String(1，Asc(c)－26)EndIfa＝a＋cNextkText2．Text＝aEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、考生文件夹下有一个工程文件sjt5．vbp，窗体上有两个文本框，名称分别为Text1、Text2，都可以多行显示。还有三个命令按钮，名称分别为C1、C2、C3，标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5．dat文件中的50个整数读到数组中，并在Text1中显示出来；“排序”按钮的功能是对这50个数按升序排序，并显示在Text2中；“存盘”按钮的功能是把排好序的50个数存到考生目录下的out5．dat文件中，如图所示。在窗休中已经给出了全部控件和部分程序代码，要求阅读程序并上掉程序中的注释符，把程序中的?改为正确的内容，并编写“排序”按钮的Click事件过程，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后将修改后的文件按原文件名存盘。标准答案：【操作步骤】步骤1：打开奉题工程文件。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容，并编写代码。参考答案Dima(50)AsIntegerPrivateSubC1_C1ick()DimkAsInteger，chAsStringOpen"in5．dat"ForInputAs#1ch＝""Fork＝1To50Input#1，a(k)’将取出的数据存入教组a中ch＝ch＋Str(a(k))＋""’将数据存入chNextkClose#1Text1．Text＝ch’在Text1文本框中显示文件内容EndSubPrivateSubC2_Click()EndSubPrivateSubC3C1ick()Open"out5．dat"ForOutputAs#1Print#1，Text2．TextClose#1EndSub需编写的“排序”按钮的代码PrivateSubC2C1ick()DimtAsIntegerDimiAsIntegerDimjAsIntegerDimchAsStringch＝""Fori＝50To2Step－1’使用冒泡算法从小到大排序Forj＝1To49Ifa(j)＞a(j＋1)Then’两两比较t＝a(j＋1)a(j＋1)＝a(j)a(j)＝tEndIfNextjNextiForj＝1To50’将排序后的数组重新赋给chch＝ch＋Str(a(j))＋""NextjText2．Text＝ChEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析国家二级VB机试（上机操作）模拟试卷第3套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上建立一个名称为cmdArray的命令按钮数组，含3个命令按钮，它们的Index属性分别为0、1、2，标题依次为“是”、“否”、“取消”，每个按钮的高、宽均为400、900。窗体的标题为“按钮示例”。运行后的窗体如图2．26所示。注意：存盘时必须存放在考生文件夹下，工程文件名为vbsjl．vbp，窗体文件名为vbsi1．frm。(2)在名称为Forml的窗体上画一个名称为Drv1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为Filel的文件列表框，名称为Labell、标题为“文件名”的标签和名称为Label2、BorderStyle为1的标签。窗体的标题设置为“文件系统控件”。请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将选中的文件名显示在Label2中，如图2．27所示。注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为vbsi2．vbp，窗体文件名为vbsj2．frm。标准答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，单击工具箱中的CommandButton控件例标，在窗体Forml上拉出一个命令按钮，在属性设置窗口中该单选按钮名称设置为cmdArray，Width属件值设置为900。Height属性值设置为400。步骤2；选中cmdArray控件，选择【编辑】→【复制】命令，然后选择【编辑】→【粘贴】命令，在弹出的询问是否建市控件数组的对话框中，选择“是”按钮，如图3一1所示，则可以建立cmdArray摔件数细的第2个元素。再次选择【编辑】→【粘贴】命令．建立cmdArray控件数组的第3个元素。步骤3：依次选中cmdArray控件数组中各个元素，设置它们的相关属件，属性及其值如表3．16所示。步骤4：按要求将文件保存争考生文件夹中。第2小题【操作步骤】步骤1：新建“标准EXE”工程，行窗体Forml中加入驱动器列表框、目录列表框控件、文件列表框控件各一个以及两个标签，分别设置它们的相关属性，属性及其值如表3．17所示。步骤2：打开代码编辑窗口，输入如下代码：参考代码：PrivateSubDrvlChange()Dirl．Path=Drvl．DriveEndSubPrivateSubDirl—Change()Filel．Path=Dirl．PathEndSubPrivateSubFilel—Click()Label2．Caption=Filel．FileNameEndSub步骤3：按要求将义件保存至考生文件夹中。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有工程文件sjt3．vbp。程序运行时的窗体如图2．185(a)所示。输入商品名称后，选中一种付款方式，则“成交”按钮变为可用，选择一种或多种“服务”后，单击“成交”按钮，则把相应信息显示在下面的图片框中，如图2．185(b)所示。若不选任何“服务”，则显示结果如图2．185(c)所示。单击“放弃”按钮，则恢复到图(a)状态。程序已经给出但不完整，请将其中的注释符去掉，把?改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。(2)在考生文件夹下有工程文件sjt4．vbp，其中的列表框中已经有两个列表项(均为数字)。程序功能是在文本框中输入一个整数n(例如30)，单击命令按钮，则在列表框中追加若干数字，所有追加的数字按以下规律排列：每个数是前面两个数之和，最后一个数是满足上述规律的最大的小于n的数。如图2．186(a)所示。若再输入一个更大的整数(如100)，单击命令按钮，则按上述规律继续追加数字。如图2．186(b)所示。程序已经给出但不完整，请将其中的注释符去掉，把?改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。标准答案：第1小题【操作步骤】步骤1：打开考生文件夹中的本题工程文件sit3．vbp，打斗代码编辑窗口，去掉程序中的注释符“”’，将问号“?”改为正确的内容。参考代码：IfCheckl(k)．Value=1ThenTextl．Text=””Commandl．Enabled=True步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件夹下的本题工程文件sit4．vbp，在代码编辑窗口，去掉程序中的注释符“”’，将问号“?”改为正确的内容。参考代码：a=Val(List1．List(Listl．ListCount一2))a=bList1．AddItemc步骤2：按要求将文件保存至考生文件夹中。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有一个工程文件sit5．vbp，窗体如图2．25所示。运行程序时，从数据文件中读取学生的成绩(均为整数)。要求编写程序，统计总人数，并统计不及格、60～69、70～79、80～89及90～100各分数段的人数，将统计结果显示在相应的文本框中。结束程序之前，必须单击“保存”按钮，保存统计结果。注意：不能修改程序的其他部分和控件属性。程序调试通过后，运行程序，将统计结果显示在文本框中，再按“保存”按钮保存数据，否则无成绩。最后把修改后的文件按原文件名存盘。标准答案：【操作步骤】步骤1：打开考生文件夹中的本题工程文件sit5．vbp，在代码编辑窗口的指定位置编写以下代码：参考代码：Textl．Text=ncount1=0count2=0count3=0count4=0count5=0count6=0Fori=1TonY=Int(arr(i)／10)SelectCaseYCase123t4l5countl=countl+1Case6count2=count2+1Case7count3=count3+1Case8count4=count4+1Case9，10count5=count5+1EndSelectNextText2．Text=courtt1Text3．Text=count2Text4．Text=count3Text5．Text=count4Text6．Text=count5步骤2：按键运行程序，先单击“统计”按钮，冉单击“保存”按钮。步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析国家二级VB机试（上机操作）模拟试卷第4套一、基本操作题(本题共1题，每题1.0分，共1分。)1、在考生文件夹下有一个数据库文件“samp1．accdb”。在数据库文件中已经建立了一个表对象“学生基本情况”。根据以下操作要求，完成各种操作。(1)将“学生基本情况”表名称改为“tStud”。(2)设置“身份ID”字段为主键；并设置“身份ID”字段的相应属性，使该字段在数据表视图中的显示标题为“身份证”。(3)将“姓名”字段设置为有重复索引。(4)在“家长身份证号”和“语文”两字段间增加一个字段，名称为“电话”，类型为文本型，大小为12。(5)将新增“电话”字段的输入掩码设置为“010－********”的形式。其中，“010－”部分自动输出，后八位为0—9的数字显示。(6)在数据表视图中将隐藏的“编号”字段重新显示出来。标准答案：(1)【操作步骤】打开考生文件夹下的数据库文件samp1．aeedb．单击“表”对象，在“学生基本情况”表上右击，在弹出的快捷菜单中选择“重命名”命令，然后输入“tstud”。如图3．1所示。(2)【操作步骤】选中表“tStud”，右击，选择“设计视图”命令进入设计视图，在“身份ID”字段上右击，然后选择“主键”命令，将“身份ID”设置为主键，在下面“标题”栏中输入“身份证”。如图3．2所示。(3)【操作步骤】选择“姓名”字段，在“索引”栏后的下拉列表中选择“有(有重复)”。如图3．3所示。(4)【操作步骤】选择“语文”字段，右击，在弹出的快捷菜单中选择“插入行”命令，输入“电话”字段，在后面的“数据类型”中选择“文本”，在下面的“字段大小”中输入12。如图3．4所示。(5)【操作步骤】选择“电话”字段，在“字段属性”下的“输入掩码”行输入“”010．”00000000”，如图3．5所示。单击快速访问工具栏中的“保存”按钮，关闭设计视图界面。(6)【操作步骤】双击表“tStud”打开数据表视图，单击“开始”选项卡下“记录”组中的“其他”按钮，在弹出的菜单中选择“取消隐藏字段”命令，打开“取消隐藏列”对话框，勾选列表中的“编号”，单击“关闭”按钮。如图3．6所示。单击快速访问工具栏中的“保存”按钮，关闭数据表视图。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、考生文件夹下存在一个数据库文件“samp2．accdb”，里面已经设计好表对象“tCourse”、“tScore”和“tStud”，试按以下要求完成设计：(1)创建一个查询，查找党员记录，并显示“姓名”、“性别”和“入校时间”三列信息，所建查询命名为“qT1”。(2)创建一个查询，当运行该查询时，屏幕上显示提示信息：“请输入要比较的分数：”，输入要比较的分数后，该查询查找学生选课成绩的平均分大于输入值的学生信息，并显示“学号”和“平均分”两列信息，所建查询命名为“qT2”。(3)创建一个交叉表查询，统计并显示各班每门课程的平均成绩，统计显示结果如图2．1所示(要求：直接用查询设计视图建立交叉表查询，不允许用其他查询做数据源)，所建查询命名为“qT3”。(4)创建一个查询，运行该查询后生成一个新表，表名为“tNew”，表结构包括“学号”、“姓名”、“性别”、“课程名”和“成绩”等五个字段，表内容为90分以上(包括90分)或不及格的所有学生记录，并按课程名降序排序，所建查询命名为“qT4．”。要求创建此查询后，运行该查询，并查看运行结果。标准答案：(1)【操作步骤】步骤1：单击“创建”选项卡，在“查询”组单击“查询设计”按钮，在打开的“显示表”对话框中双击表“tStud”，关闭“显示表”窗口，然后分别双击“姓名”、“性别”、“入校时间”和“政治面目”字段。如图3．7所示。步骤2：在“政治面目”字段的“条件”行中输入“党员”，并取消该字段的“显示”复选框的勾选，如图3．8所示。步骤3：单击快速访问工具栏中的“保存”按钮，将查询保存为“qT1”，如图3．9所示。运行并退出查询。(2)【操作步骤】步骤1：单击“创建”选项卡，在“查询”组选择“查询设计”按钮，在打开的“显示表”对话框中双击表“tScore”，关闭“显示表”窗口，然后分别双击“学号”和“成绩”字段。如图3．10所示。步骤2：将“成绩”字段改为“平均分：成绩”，单击“显示／隐藏”组中的“汇总”按钮，在“总计”行下拉列表中选择该字段的“平均值”，在“条件”行输入“＞[请输入要比较的分数：]”。如图3．11所示。步骤3：单击快速访问工具栏中的“保存”按钮，将查询保存为“qT2”，如图3．12所示。运行并退出查询。(3)【操作步骤】步骤1：单击“创建”选项卡，在“查询”组选择“查询设计”按钮，在打开的“显示表”对话框中分别双击表“tScore”和“tCourse”，关闭“显示表”窗口。步骤2：单击“查询类型”组的“交叉表”按钮。然后分别双击“学号”、“课程名”和“成绩”字段。如图3．13所示。步骤3：修改字段“学号”为“班级编号：left([tScore]![学号]，8)”；将“成绩”字段改为“round(avg([成绩]))”，并在“总计”行中选择“Expression”。分别在“学号”、“课程名”和“成绩”字段的“交叉表”行下拉列表中选择“行标题”、“列标题”和“值”。如图3．14所示。步骤4：单击陕速访问工具栏中的“保存”按钮，将查询保存为“qTY”，如图3．15所示。运行并退出查询。(4)【操作步骤】步骤1：单击“创建”选项卡，在“查询”组单击“查询设计”按钮，在打开的“显示表”对话框中分别双击表“tScore”、“tStud”和“tCourse”，关闭“显示表”窗口。结果如图3．16所示。步骤2：单击“查询类型”组中的“生成表”按钮，在弹出的对话框中输入新生成表的名字“tNew”。如图3．17所示。步骤3：分别双击“学号”、“姓名”、“性别”、“课程名”和“成绩”字段，在“课程名”字段的“排序”行下拉列表中选择“降序”，在“成绩”字段的“条件”行中输入“＞＝90or＜60”。如图3．18所示。步骤4：单击快速访问工具栏中的“保存”按钮，将查询保存为“qT4”，运行查询，如图3．19所示，单击“是”按钮。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有一个数据库文件“samp3．accdb”，其中存在设计好的表对象“tStud”和查询对象“qStud”，同时还设计出以“qStud”为数据源的报表对象“rStud”。请在此基础上按照以下要求补充报表设计。(1)在报表的报表页眉节区添加一个标签控件，名称为“bTitle”，标题为“97年入学学生信息表”。(2)在报表的主体节区中添加一个文本框控件，显示“姓名”字段值，将该控件放置在距上边0．1厘米、距左边3．2厘米的位置，并命名为“tName”。(3)在报表的页面页脚节区添加一个计算控件，显示系统年月，显示格式为：××××年××月(注：不允许使用格式属性)。将计算控件放置在距上边0．3厘米、距左边10．5厘米的位置，并命名为“tDa”。(4)按“编号”字段的前4位分组统计每组记录的平均年龄，并将统计结果湿示在组页脚节区中。计算控件命名为“tAvg”。注意：不能修改数据库中的表对象“tStud”和查询对象“qStud”，同时也不允许修改报表对象“rStud”中已有的控件和属性。标准答案：(1)【操作步骤】步骤1：选择“报表”对象，在报表“rStud”上右击，在弹出的快捷菜单中选择“设计视图”。选择“控件”组中“标签”控件，单击报表页眉处，然后输入”97年入学学生信息表”。如图3．20所示。步骤2：选择添加的标签，单击“属性表”按钮，在弹出的对话框中“全部”选项卡下的“名称”行输入“bTitle”，“标题”行输入“97年入学学生信息表”，然后保存并关闭对话框。如图3．21所示。(2)【操作步骤】选择“设计”选项卡的“控件”组中的“文本框”控件，单击报表主体节区任一点，出现“Text”标签和“未绑定”文本框，选中“Text”标签，按Del键将其删除。选择添加的文本框，单击“属性表”按钮，在弹出的控件属性对话框中“全部”选项卡下的“名称”行输入“tName”，在“控件来源”行选择“姓名”，在“左”行输入“3．2cm”，在“上边距”行输入“0．1cm”。如图3．22所示。关闭属性表。单击快速访问工具栏中的“保存”按钮。(3)【操作步骤】选择“报表设计工具”的“设计”选项卡下“控件”组中的“文本框”控件，在报表页面页脚节区单击，选中"Text”标签，按Del键将其删除，选择添加的文本框，单击“属性表”按钮，在“全部”选项卡下的“名称”行输入“tDa”，在“控件来源”行输人“＝CStr(Year(Date()))＋"年"＋CStr(Month(Date()))＋"月"”，在“左”行输入“10．5cm”，在“上边距”行输入“0．3cm”。如图3．23所示。(4)【操作步骤】步骤1：在报表设计视图中单击右键，选择“排序和分组”命令或在设计选项卡的“分组和汇总”组中单击“分组和排序”按钮，弹出“分组、排序和汇总”小窗口，单击“添加组”按钮，在列表框中，选择“编号”，单击“更多”按钮，在“按整个值下拉列表框中选择“自定义”，然后在下面的文本框中输入“4”。如图3．24所示。步骤2：在“页眉”和“页脚”下拉列表框中分别设置“有页眉节”和“有页脚节”，在“不将组放在同一页上”下拉列表框中选择“将整个组放在同一页上”。报表出现相应的编号页脚。如图3．25所示。步骤3：选中报表主体节区“编号”文本框拖动到编号页眉节区，右键单击“编号”文本框，从弹出的快捷菜单中选择“属性”命令，在弹出的对话框中选中“全部”选项卡，在“控件来源”行输入“＝left([编号]，4)”，关闭对话框。如图3．26所示。步骤4：选择“报表设计工具”的“设计”选项卡下“控件”组中的“文本框”控件，单击报表编号页脚节区适当位置，出现“Text”标签和“未绑定”文本框，右键单击“Text”标签，从弹出的快捷菜单中选择“属性”命令，弹出属性对话框。选中“全部”选项卡，在“标题”行输入“平均年龄”，然后关闭对话框。步骤5：右键单击“未绑定”文本框，从弹出的快捷菜单中选择“属性”命令，弹出属性对话框。选中“全部”选项卡，在“名称”行输入“tAvg”，在“控件来源”行输入“＝Avg([年龄])”，然后关闭对话框。单击快速访问工具栏中的“保存”按钮，关闭设计视图。如图3．27所示。知识点解析：暂无解析国家二级VB机试（上机操作）模拟试卷第5套一、基本操作题(本题共2题，每题1.0分，共2分。)请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。1、在名称为Form1的窗体上画一个名称为Pic的图片框，通过属性窗口将考生文件夹下的文件Tul-1．jpg添加到图片框，然后编写适当的事件过程。运行程序时，单击窗体，在图片框中显示“VB等级考试”，如图3-111所示。注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。标准答案：审题分析本题只需按要求在窗体及框架中画出控件，并设置其相应属性，然后在窗体的单击事件中调用图片框的Print方法显示文本。操作步骤步骤1：新建一个“标准EXE”工程，在窗体Form1中画一个名称为Pic的图片框，并设置其Picture属性为Tu1-1jpg。步骤2：双击窗体打开代码编辑窗口，在窗体的Click事件过程中输入代码。参考代码：PriVateSubForm_Click()Pic．Print"VB等级考试"EndSub步骤3：按要求将文件保存至考生文件夹中。考点链接数据输入输出。知识点解析：暂无解析2、在名称为Form1的窗体上画一个名称为Command1的命令按钮，标题为“命令按钮”。然后建立一个菜单，标题为“控件”，名称为menu，包含两个子菜单项，一个是“显示命令按钮”，名称为subMenu1；另一个是“隐藏命令按钮”，名称为subMenu2，如图3-112所示。编写适当的事件过程，使得程序运行时，如果选择“显示命令按钮”菜单命令，则显示命令按钮控件；而如果选择“隐藏命令按钮”菜单命令，则隐藏命令按钮控件。注意：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。标准答案：审题分析要实现本题中的功能，应在“显示命令按钮”菜单项的Click事件过程中，令命令按钮的Visible属性为True，在“隐藏命令按钮”菜单项的Click事件过程中，设置命令按钮的Visible属性为False。操作步骤步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，按要求建立菜单项。步骤3：打开代码编辑窗口，编写菜单命令的单击事件过程。参考代码：PrivateSubsubeenu1_Click()Command1．Visible=TrueEndSubPrivateSubsubHenu2_Click()Command1．Visible=FalseEndSub步骤4：按要求将文件保存至考生文件夹中。考点链接菜单。知识点解析：暂无解析二、简单应用题(本题共2题，每题1.0分，共2分。)3、在考生文件夹下有一个工程文件sjt3．vbp，运行情况如图3-113所示。程序的功能是计算表达式的值：z=(x一2)!+(x一3)!+(x一4)!+…+(x—N)!其中的N和x值通过键盘分别输入到两个文本框Text1、Text2中。单击名称为Command1、标题为“计算”的命令按钮，则计算表达式的值，并将计算结果显示在名称为Label1的标签中。在窗体文件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确内容。要求：程序调试通过后，必须按照如图3-113所示输入N=5，x=12，然后计算z的值，并将计算结果显示在标签Label1中，否则没有成绩。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。标准答案：审题分析本题源程序中，自定义函数xn的功能是进行m!阶乘运算，它通过For循环连续m次将循环变量i的值乘以累积变量tmp(第一个?处tmp初值应为1)来实现。故自定义函数xn中第二个?处应改为：tmp*i，作为函数返回值第三个?处应改为：xn。在“计算”按钮的单击事件过程中，根据程序所要计算表达式的特点，源程序利用一个For循环依次计算表达式中各项的值((x．i)!)，并将其累加入变量z。计算表达式中各项的值通过调用自定义函数xn(t)来实现的，其中t=x-i。故Command1_Click事件过程中第一个?处应改为：xn(t)。计算结果显示在标签中。操作步骤步骤1：打开考生文件夹中的本题工程文件sjt3．vbp，在代码编辑窗口，去掉程序中的注释符“′”，将问号“?”改为正确的内容。参考代码：tmp=1tmp=temp*ixn=tmpz=z+xn(t)步骤2：按键运行程序，在第一个文本框中输入5，第二个文本框中输入12，然后单击“计算”按钮。步骤3：按要求将文件保存至考生文件夹中。考点链接Sub过程和函数过程、For循环结构。知识点解析：暂无解析4、在考生文件夹下有一个工程文件sjt4．vbp。窗体上有名称为Label1的标签和名称为Timer1的计时器控件。该程序的功能是在名称为Label1的标签中循环显示不同的字符串。程序开始运行，在标签中显示“第一项”(如图3-114所示)，且每隔1秒钟依次显示“第二项”、“第三项”、“第四项”，如此循环。在给出的窗体文件中已经有了全部控件和程序，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。标准答案：审题分析要实现本题中的功能，在窗体的Load事件过程中，首先使用Array函数建立一个新数组，然后设置计时器的相关属性并启用计时器；在计时器的Timer事件中，由于需要计算Timer事件的执行次数才能判断出应该显示何种文字，因此计数变量i应该声明为Static类型的变量，然后把数组的第i项显示在标签中，接下来令i+1，一旦i超过了3就将其重新置0以便实现循环显示。操作步骤步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，在代码编辑窗口，去掉程序中的注释符“′”，将问号“?”改为正确的内容。参考代码：arr=Array("第一项"，"第二项"，"第三项"，"第四项")StaticiAsIntegerLabel1．Caption=arr(i)i=0步骤2：按要求将文件保存至考生文件夹中。考点链接数组定义与操作、变量、运算符和表达式。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)5、在考生文件夹下有一个工程文件sjt5．vbp。其窗体中有一个名称为Text1的文本框数组，下标从0开始。程序运行时，单击“产生随机数”按钮，就会产生10个3位数的随机数，并放入Text1数组中，如图3-115(a)所示；单击“重排数据”按钮，将把Text1中的奇数移到前面，偶数移到后面，如图3-115(b)所示。文件中已经给出了所有控件和部分程序。要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。提示：在“重排数据”按钮的事件过程中有对其算法的文字描述，请仔细阅读。标准答案：审题分析本题源程序中，变量i和j均用作Text1文本框数组的索引号(即Index属性值)，根据算法中的第1条，可知i=0、j=9、temp=Text1(i)，其中“暂存最后一个数”的目的是为空出一个位置放第一个偶数。根据算法中的第3条，检查第j个数是否为奇数的条件表达式为：Text1(j)Mod2=1。算法中的第2条和第3条交替运行，将实现一后(偶数)一前(奇数)重排数据的目的。根据算法中的第4条，可知在i向后移、j向前移过程中，当i=j时则停止这种移动(故While循环的条件表达式为i＜i)。将先前暂存的数(temp)放到当前空缺位置，以实现算法中的第5条。操作步骤步骤1：打开考生文件夹中的本题工程文件sjt5．vbp，在代码编辑窗口，去掉程序中的注释符“′”，将问号“?”改为正确的内容。参考代码：j=9temp=Text1(j)while(i＜j)IfText1(j)Nod2=1Then步骤2：按要求将文件保存至考生文件夹中。考点链接控件数组、Do循环和While循环。知识点解析：暂无解析国家二级VB机试（上机操作）模拟试卷第6套一、基本操作题(本题共1题，每题1.0分，共1分。)1、(1)在名称为Form1的窗体上画一个名称为C1、标题为“改变颜色”的命令按钮，窗体标题为“改变窗体背景色”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图3—78所示。要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．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，运行情况如图3．181所示。程序的功能是计算表达式的值：z=(x-2)!+(x-3)!+(x-4)!+…+(x-N)!其中的N和x值通过键盘分别输入到两个文本框Text1、Text2中。单击名称为Command1、标题为“计算”的命令按钮，则计算表达式的值，并将计算结果显示在名称为Label1的标签中。在窗体文件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“?”改为正确内容。要求：程序调试通过后，必须按照如图3-181所示输入N=5，x=12，然后计算z的值，并将计算结果显示在标签Label1中，否则没有成绩。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp。窗体上有名称为Label1的标签和名称为Timer1的计时器控件。该程序的功能是在名称为Label1的标签中循环显示不同的字符串。程序开始运行，在标签中显示“第一项”(如图3．182所示)，且每隔1秒钟依次显示“第二项”、“第三项”、“第四项”，如此循环。在给出的窗体文件中已经有了全部控件和程序，但程序不完整，要求去掉程序中的注释符，把程序中的“?”改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。标准答案：(1)步骤1：打开考生文件夹中的本题工程文件sjt3．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：tmp=1tmp=temp*ixn=tmpz=z+xn(t)步骤2：按键运行程序，在第一个文本框中输入5，第二个文本框中输入12，然后单击“计算”按钮。步骤3：按要求将文件保存至考生文件夹中。(2)步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：arr=Array("第一项"，"第二项"，"第三项"，"第四项")StaticiAsIntegerLabel1．Caption=arr(i)i=0步骤2：按要求将文件保存至考生文件夹中。知识点解析：(1)本题源程序中，自定义函数Xn的功能是进行m!阶乘运算，它通过For循环连续m次将循环变量i的值乘以累积变量tmp(第一个?处tmp初值应为1)来实现。故自定义函数)xn中第二个?处应改为：tmp*i，作为函数返回值第三个?处应改为：Xn。(2)要实现本题中的功能，在窗体的Load事件过程中，首先使用Array函数建立一个新数组，然后设置计时器的相关属性并启用计时器；在计时器的Timer事件中，由于需要计算Timer事件的执行次数才能判断出应该显示何种文字，因此计数变量i应该声明为Static类型的变量，然后把数组的第i项显示在标签中，接下来令i+1，一旦i超过了3就将其重新置0以便实现循环显示。三、综合应用题(本题共1题，每题1.0分，共1分。)3、在窗体上画一个文本框，其名称为Text1，初始内容为空白，并设置成多行显示格式；然后再画两个命令按钮，其名称分别为Command1和Command2，标题分别为“显示”和“保存”，如图3．111所示，编写适当的事件过程。程序运行后，如果单击“显示"按钮，则读取考生文件夹下的in5．txt文件，并在文本框中显示出来，该文件是一个用随机存取方式建立的文件，共有5个记录，要求按记录号顺序显示全部记录，每个记录一行；如果单击“保存”按钮，则把所有记录保存到考生文件夹下的顺序文件out5．txt中。随机文件in5．txt中的每个记录包括三个字段，分别为姓名、性别和年龄，其名称和长度分别为：其类型定义为：PriVateTypeStudInfoNameAsString*8SexAsString*4AgeAsIntegerEndType要求：文件out5．txt以顺序存取方式建立和保存。存盘时必须存放在考生文件夹下，工程文件名为sjt5．vbp，窗体文件名为sjt5．frm。标准答案：步骤1：新建一个“标准EXE"工程，如表4．67在窗体中画出控件并设置其相关属性。步骤2：打开代码编辑窗口，编写相应事件过程。参考代码：PrivateTypeStudInfoNameAsString*8SexAsString*4AgeAsIntegerEndTypeDimStudAsStudInfoDimRecNumAsLongPrivateSubCommand1Click()OpenApp．Path&"＼in5．txt"ForRandomAs#1Len=Len(Stud)RecNum=1DoWhileNotEOF(1)Get#1，RecNum，StudText1．Text=Text1．Text&Stud．NameText1．Text=Text1．Text&Stud．SexText1．Text=Text1．Text&Str(Stud．Age)Text1．Text=Text1．Text+vbCrLfRecNum=RecNum+1LoopClose1EndSubPrivateSubCommand2Click()OpenApp．Path&"＼out5．txt"ForOutputAs#1Print#1，Text1．TextClose1EndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：本题程序设计思路：在“显示”按钮的单击事件过程中，用Open语句以随机方式打开数据文件in5．txt，并用Get读出一条记录显示在文本框中，随后读取下一条记录，直到所有的记录都读取完毕；在“保存”按钮的单击事件过程中，用Open语句以Output方式打开数据文件out5．txt，并用Print#方法将文本框中的值存入该文件。国家二级VB机试（上机操作）模拟试卷第7套一、基本操作题(本题共2题，每题1.0分，共2分。)1、在名称为Form1，标题为“练习”的窗体上添加一个名称为Frame1、标题为“效果”的框架。框架内含有三个复选框，其名称分别为Chk1、Chk2和Chk3，标题分别为“倾斜”、“加粗”和“下划线”。程序运行后的窗体如图所示。要求：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。标准答案：[操作步骤]步骤1：新建一个窗体，按照题目要求建立控件，程序中用到的控件及属性见表3．52。步骤2：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析2、在名称为Form1的窗体上添加一个名称为Label1的标签，使其初始内容为空，且能根据其标题内容自动调整标签的大小；再添加两个命令按钮，标题分别为“日期”和“时间”，名称分别为Command1、Command2。请编写两个命令按钮的Click事件过程，使得单击“日期”按钮时，标签内显示系统当前日期；单击“时间”按钮时，标签内显示系统当前时间。如图所示。要求：程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。标准答案：[操作步骤]步骤1：建立界面，添加相应控件并设置控件的属性。程序中用到的控件及属性见表3．53。步骤2：打开代码编辑窗口，在指定位置编写如下代码。参考代码PrivatesubComand1_Click()Label1=Date’用于返回系统当前日期EndSubPrivatesubCommand2_Click()Label1=Time’用于返回系统当前时间EndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析二、简单应用题(本题共2题，每题1.0分，共2分。)3、在考生文件夹下有一个工程文件sjt3．vbp，其功能是：①单击“读数据”按钮，则将考生文件夹下in3．dat文件中的100个正整数读入数组a中。②单击“计算”按钮，则找出这100个正整数中的所有完全平方数(一个整数若是另一个整数的平方，那么它就是完全平方数。如：36=62，所以36就是一个完全平方数)，并计算这些完全平方数的平均值，最后将计算所得平均值截尾取整后在文本框Text1中显示。在给出的窗体文件中已经有了全部控件(如图所示)，但程序不完整。要求完善程序使其实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序。在结束程序运行之前，必须进行“计算”，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后将修改后的文件按原文件名存盘。标准答案：[操作步骤]步骤1：打开本题工程文件。步骤2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。参考代码DimsumAsLongDimkAsIntegerDimmAsIntegerFork=1To100’对100个数循环判断Form=1ToSqr(a(k))’判断a(k)是否为完全平方数Ifa(k)=m＾2Thensum=sum+a(k)’求完全平方数之和n=n+l’完全平方数总数EndIfNextmNextkTextl=Fix(sum／n)’Fix函数的功能是取整步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析4、在考生文件夹下有一个工程文件sjt4．vbp，其窗体上有一个计时器和两个命令按钮。计时器Timer1的初始状态为不可用；2个命令按钮的初始标题分别是“演示”和“退出”。请添加一个名称为Label1，且能根据标题内容自动调整大小的标签，其标题为“VisualBasic程序设计”，标题字体为黑体小四号字，如图所示，程序功能如下：①单击标题为“演示”的命令按钮时，则该按钮的标题自动变换为“暂停”，且标签在窗体上从左向右循环滚动，当完全滚动出窗体右侧时，从窗体左侧重新进人。②单击标题为“暂停”的命令按钮时，则该按钮的标题自动变换为“演示”，并暂停标签的滚动。③单击“退出”按钮，则结束程序运行。要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序，最后将修改后的文件按原文件名存盘。标准答案：[操作步骤]步骤1：打开本题工程文件，添加一个标签，按表3．54设置标签的属性。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。参考代码(画下划线部分是需填入的内容)PrivatesubCommand1_Click()IfCommand1．caption="演示"ThenTimer1．Enabled=True’当单击"演示"按钮时Timer1事件触发Command1．Caption="暂停"ElseTimer1．Enabled=False’当单击"暂停"按钮时，Timer1事件停止Command1．Caption="演示"EndIfEndSubPrivateSubCommand2_Click()End’退出程序EndSubPrivateSubTimer1Timer()IfLabel1．Left+Label1．With＞Form1．WidthThen’判断标签是否已滚动出窗体Label1．Left=-Label1．Width’将标签位置重置，使它从窗体左边滑出ElseLabel1．Left=Label1．Left+100’标签移出EndIfEndSub程序结束步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)5、在考生文件夹下有一个工程文件sjt5．vbp，窗体上有三个文本框，其名称分别为Text1、Text2和Text3，其中Text1、Text2可多行显示。请添加三个命令按钮，名称分别为Cmd1、Cmd2和Cmd3，标题分别为“产生数组”、“统计”和“退出”，如图所示。程序功能如下：①单击“产生数组”按钮时，随机生成20个0～10之间(不含0和10)的数值，并将其保存到一维数组a中，同时也将这20个数值在Text1文本框内显示。②单击“统计”按钮时，统计出数组a中出现频率最高的数值及其出现的次数，并将出现频率最高的数值在Text2文本框内显示、出现频率最高的次数在Text3文本框内显示。③单击“退出”按钮时，结束程序运行。注意：不得修改窗体文件中已经存在的控件和程序，最后将修改后的文件按原文件名存盘。标准答案：[操作步骤]步骤1：打开本题工程文件，设置控件的属性。程序中用到的控件及属性见表3．55。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问题改为正确的内容。参考代码(画下划线部分是需填入的内容)OptionBase1Dima(20)AsInteger，b(20)AsIntegerPrivateSubCmd1C1ick()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)’该次得到的数出现频率与目前出现频率最多的数比较，若大于目前的数，则将最大的数改为该次得到的数NextiFori=1To20Ifb(i)=fmaxThen’从数组中找到与fmax相同的值Text2．Text=Text2．Text+Str(a(i))+Space(2)EndIfNextiText3．Text=fmaxEndSubPrivateSubCmd3Click()End’当单击”结束”按钮时，则退出程序EndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析国家二级VB机试（上机操作）模拟试卷第8套一、基本操作题(本题共1题，每题1.0分，共1分。)1、(1)在名称为Form1、标题为“鼠标光标形状”的窗体上画一个名称为Text1的文本框。请通过属性窗口设置适当属性，使得程序运行时，鼠标在文本框中时，鼠标光标为箭头(Arrow)形状；在窗体中其他位置处，鼠标光标为十字(Cross)形状。注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。(2)在名称为Form1的窗体上画两个标签，名称分别为Label1、Label2，标题分别为“开始位置”、“选中的字符数”；画三个文本框，名称分别为Text1、Text2、Text3，再画一个名称为Command1，标题为“显示选中信息”的命令按钮。程序运行时，在Text1中输入若干字符，并用鼠标选中一些字符后，单击“显示选中信息”按钮，则把选中的第一个字符的顺序号显示在Text2中，选中的字符个数显示在Text3中，如图3．152所示。要求：画出所有控件，编写命令按钮的Click事件过程。注意：要求程序中不得使用变量，事件过程中只能写两条语句，分别用于显示第一个字符的顺序号和显示选中的字符个数。存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。标准答案：(1)步骤1：新建“标准EXE”工程，按要求画出控件并设置相应属性。步骤2：按要求将文件保存至考生文件夹中。(2)步骤1：新建一个“标准EXE"工程，按要求画出控件并设置属性。步骤2：在代码编辑窗口，编写命令按钮的单击事件过程。参考代码：PrivateSubCommand1_Click()Text2=Text1．SelStart+1Text3=Text1．SelLengthEndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：(1)根据题目要求，要使鼠标指针位于文本框中时，鼠标指针的形状为箭头，需将文本框的MousePointer属性值设置为1。为使鼠标指针位于窗体中其他位置时，鼠标指针的形状为十字，需将窗体的MousePointer属性值设置为2。(2)由于SelStart属性返回的所选文本的起始点位于起始文本的左侧，故所选文本的第一个字符的顺序号应为SelStart属性值加1。选中字符数即为SelLength属性返回值。二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有一个工程文件sjt3．vbp，其窗体中有一个红色方框和一个计时器控件。程序运行时每隔0．5秒，方框的颜色交替变为黄色和红色(黄色值为&HFFFF&；红色值为&HFF&)；若单击鼠标右键，则停止变色；若单击鼠标左键，则方框左上角移到鼠标点击的位置处(如图3—53所示)。请将事件过程中的注释符去掉，把“?"改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp，其窗口上有2个名称分别为Command1和Command2，标题分别为“开始查找”和“重新输入”的命令按钮：有2个名称分别为Text1和Text2、初始值均为空的文本框。1)在Text1文本框中输入仅含字母和空格(空格用于分隔不同的单词)的字符串后，单击“开始查找”按钮，则可以将输入字符串中最长的单词显示在Text2文本框中，如图3．54所示。2)单击“重新输入”按钮，则清除Text1和Text2中的内容，并将焦点设置在Text1文本框中，为下一次输入做好准备。请将“开始查找”命令按钮Click事件过程中的注释符去掉，把“?”改为正确内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序。最后，程序按原文件名存盘。标准答案：(1)步骤1：打开考生文件下的本题工程文件sjt3．vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：Timerl．Interval=500Shape1．Left=XShape1．Top=YTimerl．Enabled=FalseIfShape1．BackColor=vbRedThen步骤2：按要求将文件保存至考生文件夹中。(2)步骤1：打开考生文件下的本题工程文件sjt4．vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?"改为正确的内容。参考代码：Words=ss=Mid(s，m+1)Ifn知识点解析：(1)鼠标事件分点击事件和状态事件：点击事件有单击(Click)和双击(DblClick)，不区分左键、右键；状态事件有按下(MouseDown)、移动(MouseMove)和弹起(MouseUp)，能够区分出鼠标的左键、右键和中间键。按下鼠标键事件过程的一般格式为：PrivateSubForm_MouseDown(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)EndSub其中各参数的含义：Button表示被按下的鼠标键，可以取3个值，1为左键、2为右键、4为中间键；Shiit表示Shiit键、Ctrl键和．Alt键的状态，Shiit键为1、Ctrl键为2、Alt键为4；X，Y表示鼠标光标的当前位置。本题在计时器的Timer事件过程中，完成方框的颜色交替，因此在Timer事件中应该是一个选择语句，如果颜色为红色(vbred)，将其设置为黄色，否则设置为红色。由于要求0．5秒交替显示一次，因此计时器的Interval属性应该设置为500。(2)本题源程序在“开始查找”按钮的Click事件过程中，先检验文本框Text1(已赋值给变量s)中是否读入数据，并用InStr函数检查空格的位置，以空格为单词分隔依据找出每个单词。每找到一个单词，就将该单词使用Left函数在s中分离出来，然后将s中的这个单词去掉，判断单词的长度并且和预存的最长单词长度相比较，若其比最长单词还长，则这个单词的长度成为新的最长单词长度，这个单词成为新的最长单词。循环结束后即可得出最长的单词。三、综合应用题(本题共1题，每题1.0分，共1分。)3、考生文件夹下有工程文件sjt5．vbp和数据文件in5．txt．in5．txt中有多条记录，每条记录占一行，含4个数据项，数据项的含义依次是：姓名、数学成绩、语文成绩、英