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

国家二级VB机试（上机操作）模拟试卷36（共9套）（共29题）国家二级VB机试（上机操作）模拟试卷第1套一、基本操作题(本题共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，有两个名称分别为Forml和Form2的窗体，Forml为启动窗体，程序执行时Form2不显示。Forml中有菜单(如图2．50(a)所示)，程序运行时，若单击“格式”菜单项，则显示Form2窗体(如图2．50(b)所示)，选中一种字号和字体后单击“确定”按钮，则可改变Forml上文本框的字号和字体，并使Form2窗体消失。若单击“退出”菜单项，则结束程序的运行。文件中已经给出了所有控件和程序，但程序不完整，要求：1)利用属性窗口设置适当的属性，使Forml窗体标题栏右上角的最火化按钮、最小化按钮消失(如图2．50(a)所示)：2)利用属性窗口把Form2窗体的标题设置为“格式”(如图2．50(b)所示)；3)请去掉程序中的沣释符，把程序中的?改为正确的内容。注意：不能修改程序中的其他部分和其他控件的属性。最后把修改后的文件按原文件名存盘。(2)在考生目录下有一个工程文件sjt4．vbp，包含了所有控件和部分程序。程序运行时，请按以下顺序操作：1)单击“读入数据”按钮，可把考生目录下的文件in4．dat中的100个整数读到数组a中：2)从名称为Combol的组合框中选中一项(如图2．51所示)。3)甲击“计算”按钮，则可按该选项的要求对a中的数计算平均值(四舍五入取整或截尾取整)并放到文本框中。4)单击窗体右上角的关闭按钮结束程序。“读入数据”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事什过程实现上述功能。提示：存放前n个数之和的变量应使用Long类型。注意：不得修改已经存在的程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。标准答案：第1小题【操作步骤】步骤1：打开考生文件夹中的本题工程文件sjt3．vbp，按表3．31在窗体中画出控件并设置其相关属性。步骤2：在代码编辑窗口，去掉程序中的注释符一”，将问号“?”改为正确的内容。参考代码：Form2．ShOWForm1．Textl．FontSize；Listl．TextForml．Textl．FontName=List2．List(List2．LiStIndex)Form2．Visible=False步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件夹中的本题工程文件sit4．vbp，双击“计算”按钮，打开代码编辑窗口编辑计算按钮的单击事件。参考代码：PrivateSubCommand2一Click()Dimi，jAsLongIfCombol．Text=“前50个数”Thenj=0Fori=1To50j=j+a(i)Nextj=Round(j／50，0)Text1．Text=jEndIfIfCombol．Text=“前80个数”Thenj=0Fori=1To80j=j+a(i)Nextj=Round(j／80，0)Textl．Text=jEndIfIfCombol．Text=”所有数”Thenj=0Fori=1TO100j=j+a(i)Nextj=Round(j／100，0)Textl．Text=jEndIfEndSub步骤2：按要求将文件保存至考生文件夹中。步骤3：运行程序，单击“读入数据”按钮。然后在列表框中选中一项，并单击“计算”按钮获得一个结果，然后使用窗体右}二角的“关闭”按钮结束程序。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有一个工程文件sit5．vbp，窗体上有两个标题分别是“读数据”和“统计”的命令按钮。请画两个标签，名称分别为Labell和Label2，标题分别为“出现次数最多的字母是”和“它出现的次数为”；再画两个名称分别为Text1和Text2、初始值为空的文本框，如图2．167所示。程序功能如下：①单击“读数据”按钮，则将考生文件夹下in5．dat文件的内容读到变量s中(此过程已给出)：②单击“统计”按钮，则自动统计in5．dat文件中所含各字母(不区分大小写)出现的次数，并将出现次数最多的字母显示在Text1文奉框内，它所出现的次数显示在Text2文本框内。“读数据”按钮的Click事件过程已经给出，请为“统计”按钮编写适当的事件过程以实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行统计，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。标准答案：【操作步骤】步骤1：打开考生文件夹下的本题工程文件sjt5．vbp，如表3—88在窗体Forml中画出控件，并分别设置它们的相关属性。步骤2：在代码编辑窗口的指定位置，编写“统计”按钮的单击事什过程。参考代码：PrivateSubCommand2一Click()考生编写Dima(26)AsIntegern=Len(s)Fori=1Tonc=UCase(Mid(S，i，1))IfC>=“A”AndC<=”Z”Thenj=Asc(c)一Asc(“A”)+1a(j)=a(j)+1EndIfNextiMax=a(1)t=Chr(AsC(“A”))Fori=2To26Ifa(i)>MaxThenMax=a(i)t=Chr(AsC(“A”)+i一1)EndIfNextiText1．Text=tText2．Text=MaxEndSub步骤3：按要求将文件保存至考生文件夹中。步骤4：按键运行程序，先单击“读数据”按钮，接着单击“统计”按钮，然后单击窗体右上角的关闭按钮结束程序。知识点解析：暂无解析国家二级VB机试（上机操作）模拟试卷第2套一、基本操作题(本题共1题，每题1.0分，共1分。)1、(1)在名称为Form1的窗体上画1个命令按钮，其名称为C1，标题为“等级考试"；再画1个文本框，名称为T1，如图3．184(a)所示。请编写适当的事件过程，使程序运行后，一旦文本框中的信息有任何变化或输入任何信息，则命令按钮消失，并使命令按钮的标题在文本框中显示出来，如图3．184(b)所示。注意：存盘时，将文件保存至考生文件夹下，窗体文件名为sjt1．frm，工程文件名为sjt1．vbo。(2)在名称为Form1、标题为“菜单演示”的窗体上画一个名称为Label1、标题为空的标签；再建立一个菜单，各菜单项的属性设置见下表。窗体外观如图3-185(a)所示。请编写适当的程序，使得选中“输出窗体标题”菜单项时，就在标签中显示窗体标题；选中“输出当前时间”菜单项时，在标签中显示当前系统时间(如图3．185(b)所示)。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时，将文件保存至考生文件夹下，窗体文件名为sjt2．frm，工程文件名为sjt2．vbp。标准答案：(1)步骤1：新建一个“标准EXE”工程，按要求画出控件并设置相应属性。步骤2：打开代码编辑窗口，编写文本框的Change事件过程。参考代码：PrivateSubT1_Change()C1．Visible=FalseT1．Text=C1．CaptionEndSub步骤3：按要求将文件保存至考生文件夹中。(2)步骤1：新建一个“标准EXE”工程，选择【工具】→【菜单编辑器】命令，打开菜单设计器，按要求设置建立菜单项。步骤2：打开代码编辑窗口，编写两个底层菜单命令的单击事件过程。参考代码：PrivateSubClockClick()Label1．Caption=TimeEndSubPrivateSubTitleClick()Label1．Caption=Form1．CaptionEndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：(1)本题需在文本框的Change事件中，改变C1的Visible属性以及为文本框的Text属性赋值为命令按钮C1的Caption属性。(2)本题除了按照要求设置控件的属性以及菜单之外，还需要编写菜单项事件，把窗体标题和当前时间显示在标签中。二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有一个工程文件sjt3．vbp，窗体上有一个矩形和一个圆，还有垂直和水平滚动条各一个。程序运行时，移动某个滚动条的滚动块，可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例，滚动块在最左边时，圆靠在矩形的左边线上，如图3．153(a)所示；滚动块在最右边时，圆靠在矩形的右边线上，如图3。153(b)所示。垂直滚动条的情况与此类似。文件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp。窗体中已经给出了所有控件，如图3．154所示。运行时，单击“发射”按钮，航天飞机图标将向上运动，速度逐渐加快，全部进入云中后则停止，并把飞行距离(用坐标值表示)、所用时间(单位为秒)分别显示在标签Label1和Label2中；单击“保存”按钮，则把飞行距离、所用时间存入考生文件夹下的out4．txt文件中。文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。标准答案：(1)步骤1：打开考生文件下的本题工程文件sjr3．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：HScroll1．Max=Shape2．Width+Shape2．Left-Shape1．WidthVScroll1．Max=Shape2．Height+Shape2．Top-Shape1．Height：Shape1．Left=HScroll1．ValueShape1．Top=VScroll1步骤2：按要求将文件保存至考生文件夹中。(2)步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：Timerl．Enabled=TrueTimerl．Enabled=Falsed=d-Image1．Topt=t+1步骤2：按键运行程序，先单击“发射”按钮，计算完毕后单击“存盘”按钮，最后单击窗体右上角的关闭按钮结束程序。步骤3：按要求将文件保存至考生文件夹中。知识点解析：(1)本题在窗体加载过程中初始化水平滚动条和垂直滚动条的Min属性和Max属性值，以使其能与圆形Shape1所能到达的左边界、右边界、上边界、下边界一致，其中：HScroll1．Max=Shape2．Width+Shape2．Left-Shape1．Width，VScrolll．Max=Shape2．Height+Shape2．Top-Shape1．Height。当水平或垂直滚动条移动时，通过在其Change事件过程中设置Shape1的Left属性值或Top属性值与滚动条的Value属性值一致即可。(2)本题通过计时器来控制航天飞机移动。单击“发射”按钮时启动计时器(即Timerl．Enabled=True)，并记录下此时航天飞机(Imagel)上部的坐标值(d=Image1．Top)；在计时器的Timer事件过程中，每次让航天飞机向上移动50的a倍(a为实现航天飞机加速移动的系数)，如果移动后航天飞机己全部进入云中(即Imagel．Top+Imagel．Height<=Image2．Top+Image2．Height-200)，则通过停止计时器(即Timerl．Enabled=False)来停止航天飞机上移，并将此时飞行距离d(d=d．Imagel．Top)显示在标签Label1中，飞行时间(t*Timerl．Interval／1000)显示在标签Label2中。如果航天飞机还没全部进入云中，则加速系数增加0．1，并用变量t记录一次飞行时间(t=t+1)。三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有一个工程文件sjt5．vbp，窗口有2个名称分别为Command1和Command2、标题分别为“读数据"和“排序”的命令按钮，有2个标题分别为“数组A”和“数组B”的标签。请将窗体标题设置为“完全平方数排序”；再画2个名称分别为Text1和Text2、初始内容都为空的文本框，并且可多行显示，有垂直滚动条，如图3．55所示。程序功能如下：1)单击“读数据”按钮，则把考生文件夹下in5．dat文件中的100个正整数读入数组A，并将它们显示在Text1文本框中。2)单击“排序”按钮，则首先将这100个数中的所有完全平方数放入数组B中，并将它们按降序排列显示在Text2文本框中。提示：一个整数若是另一个整数的平方，那么它就是完全平方数。如144=122，所以144就是一个完全平方数。要求：去掉注释符，把?改为正确内容，并添加代码使得“排序”命令按钮的Click事件过程可以实现上述功能。提示：Sort过程可以把求出的完全平方数进行排序，可以直接调用。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行“排序”，且须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。标准答案：步骤1：打开考生文件夹下的工程文件sjt5．vbp，在码编辑窗口的指定位置输入以下代码。参考代码：’考生编写的代码n=0Fork=1To100Ifa(k)>0Thend=Sqr(a(k))IfInt(d)=dThenn=n+1：b(n)=a(k)EndIfEndIfNext步骤2：在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：Callsort(b，n)步骤3：按键运行程序，单击“读数据”按钮，然后单击“排序”按钮，最后单击窗体右上角的关闭按钮结束程序。步骤4：按要求将文件保存至考生文件夹中。知识点解析：程序设计思路：通过For循环逐一取出数组a中的100个元素，依次判断每个元素是否是完全平方数。判断完全平方数的过程只需要将该数组元素开平方根以后取整，若其和数组元素开平方根的结果相等，则意味着该数组元素的平方根是一个整数，该数为完全平方数，将该数放入数组b中。sort过程的作用是将数组进行排序，该过程有两个参数，第一个参数为待排序的数组，第二个参数为要排序的元素个数，根据题意为数组b排序的语句为Callsort(1)，n)。国家二级VB机试（上机操作）模拟试卷第3套一、基本操作题(本题共1题，每题1.0分，共1分。)1、在考生文件夹下，存在一个数据库文件“samp1．accdb”，里而已经设计好表对象“tStud”，请按照以下要求，完成对表的修改。(1)将“年龄”字段的字段大小改为“整型”；将“简历”字段的说明设置为“自上大学起的简历信息”；将“备注”字段删除。(2)设置表对象的有效性规则为：学生的出生年份应早于(不含)入校年份；同时设置相应有效性文本为“请输入合适的年龄和入校时间”。要求：使用函数返回有关年份。(3)设置“性别”字段的默认值为“女”；设置“性别”字段值的输入方式为从下拉列表中选择“男”或“女”选项值。(4)设置数据表显示的字体大小为12、行高为18，设置数据表中显示所有字段。(5)将学号为“20011001”学生的照片信息换成考生文件夹下的“photo．bmp”图像文件；将姓名中的“青”改为“菁”；在党员学生的简历文字的句号前加“，在校入党”等文字。(6)将宏“打开表”重命名为自动执行的宏。标准答案：(1)【操作步骤】步骤1：选择“表”对象，右键单击“tStud”表，在弹出的快捷菜单中选择“设计视图”命令，打开设计视图。步骤2：单击“年龄”行的任一点，然后再单击其“常规”选项卡下的“字段大小”行的下拉按钮，在弹出的下拉列表中选择“整型”，如图4．21所示。步骤3：单击“简历”行的“说明”列，并输入“白上大学起的简历信息”，如图4．22所示。步骤4：右键单击“备注”行的任一点，在弹出的快捷菜单中选择“删除行”命令，如图4．23所示。步骤5：单击快速访问工具栏中的“保存”按钮。(2)【操作步骤】步骤1：右键单击字段行任一点，在弹出的快捷菜单中选择“属性”命令，弹出属性表”对话框，在该对话框的“有效性规则”行中输入“Year(Date())－[年龄]＜Year([入校时间])”．并且在其“有效性文本”行中输入“请输入合适的年龄和入校时问”，如图4．24所示。步骤2：单击快速访问工具栏中的“保存”按钮，在弹出的“MicrosoftAcce88”的对话框中单击“是”按钮，最后关闭数据表。(3)【操作步骤】步骤1：单击“性别”行任一点，然后在其“常规”选项卡下的“默认值”行中输入“女”。步骤2：单击“性别”行的“数据类型”列的下拉按钮，在弹出的下拉列表中选择“查阅向导”命令，弹出“杏阅向导”对话框，在该对话框中选中“自行键入所需的值(V)”单选按钮，然后单击“下一步”按钮，分别输入“男”、“女”，再单击“下一步”按钮，最后单击“完成”按钮，如图4．25所示。步骤3：单击快速访问工具栏中的“保存”按钮，最后关闭表。(4)【操作步骤】步骤1：选择“表”对象，双击“tStud”表，打开数据表视图。步骤2：单击“开始”选项卡下“文本格式”组中“字号”右侧的下拉按钮，在弹出的下拉列表中选择“12”，如图4．26所示。步骤3：在行选择器上右键单击，在弹出的快捷菜单中选择“行高”命令，打开“行高”对话框，在该对话框的“行高(R)”文本框中输入“18”，然后单击“确定”按钮，如图4．27所示。步骤4：在任意字段名称上右击，从弹出的快捷菜单中选择“取消隐藏字段(u)”命令，打开“取消隐藏列”对话框，如图4．28所示，将“党员否”字段的复选框选中，单击“1天闭”按钮。步骤5：单击快速访问工具栏中的“保存”按钮。(5)【操作步骤】步骤1：右键单击除标题行外的任意行，在弹出的快捷菜单中，选择“文本筛选器”→“等于(E)…”命令，如图4．29所示。弹出“自定义筛选”对话框，在该对话框的“学号等于”行的文本框中输入“20011001”，然后单击“确定”按钮，即可找到“学号”为“20011001”的记录。步骤2：右键单击该记录所在行的“照片”列的单元格内容，在弹出的快捷菜单中，选择“插入对象(J)…”命令，如图4．30所示。在弹出“MicrosoftAccess”的对话框中，单击“由文件创建(F)”单选按钮，单击“浏览(B)…”按钮，弹出“浏览”文件对话框，在考生文件夹下找到对应图片文件，然后单击“确定”按钮。步骤3：单击“姓名”列的任一点，然后单击“开始”选项卡下“查找”组中的“查找”按钮，弹出“查找和替换”对话框。步骤4：单击该对话框中的“替换”选项卡，在“查找内容”文本框中输入“青”，在“替换为”文本框中输入“菁”，在“匹配(H)”行选择“字段任何部分”，然后单击“全部替换(A)”按钮，如图4．31所示。步骤5：在弹出的“MicrosoftAccess”的对话框中单击“是”按钮，然后关闭“查找和替换”对话框，最后单击快速访问工具栏中的“保存”按钮。步骤6：单击“开始”选项卡下“排序和筛选”组中的“高级”按钮，在弹出的快捷菜单中选择“高级筛选／排序”命令，打开“tStud筛选1”对话框。步骤7：双击“党员否”字段，在其“条件”行中输入"True”。如图4．32所示。然后单击“开始”选项卡下的“排序和筛选”组中的“应用筛选”按钮。步骤8：在筛选出的记录集中，单击“简历”字段的任一点，然后单击“开始”选项卡下“查找”组中的“查找”按钮，弹出“查找和替换”对话框。步骤9：单击“替换”选项卡，在“查找内容”文本框中输入“。”，在“替换为”文本框中输入“，在校入党。”，在“匹配(H)”行选择“字段任何部分”，然后单击“全部替换(A)”按钮。步骤10：在弹出的“MicrosoftAccess”的对话框中单击“是”按钮，然后关闭“查找和替换”对话框，单击快速访问工具栏中的“保存”按钮。(6)【操作步骤】步骤1：选择“宏”对象，右键单击“打开表”宏，在弹出的快捷菜单中选择“重命名”命令，如图4．33所示。步骤2：输入“AutoExec”，单击数据库的任意区域，然后关闭数据库。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、在考生文件夹下，存在一个数据库文件“samp2．accdb”，里面已经设计好三个关联表对象“tStud”、“tCourse”、“tScore”和一个临时表对象“tTemp”。试按以下要求完成设计。(1)创建一个查询，按所属院系统计学生的平均年龄，字段显示标题为“院系”和“平均年龄”，所建查询命名为“qT1”。要求：平均年龄四舍五人取整处理。(2)创建一个查询，查找上半年入学的学生，并显示“姓名”、“性别”、“课程名”和“成绩”等字段内容，所建查询命名为“qT2”。(3)创建一个查询，查找没有选课的同学，并显示其“学号”和“姓名”两个字段内容，所建查询命名为“qT3”。(4)创建删除查询，将表对象“tTemp”中年龄值高于平均年龄(不含平均年龄)的学生记录删除，所建查询命名为“qT4”。标准答案：(1)【操作步骤】步骤1：单击“创建”选项卡下“查询”组中的“查询设计”按钮，在弹出的“显示表”对话框中双击添加表“tStud”，然后单击“关闭”按钮，关闭“显示表”对话框。步骤2：在“字段”行中分别输入“院系：所属院系”和“平均年龄：Round(Avg([年龄])，0)”。步骤3：单击“查询工具”的“设计”选项卡下“显示／隐藏”组中的“汇总”按钮，然后在“平均年龄：Round(Avg([年龄])，0)”字段的“总计”行的下拉列表中选择“Expression”命令，如图4．34所示。步骤4：单击陕速访问工具栏中的“保存”按钮，另存为“qT1”。(2)【操作步骤】步骤1：单击“创建”选项卡下“查询”组中的“查询设计”按钮，在弹出的“显示表”对话框中舣击表“tStud”、“tCourse”和“tScore”，然后单击“关闭”按钮，关闭“显示表”对话框。步骤2：选中表“tStud”中的“学号”字段，然后拖动鼠标指针到表“tScore”中的“学号”字段，放开鼠标左键，选中表“tCourse”中的“课程号”字段，然后拖动鼠标指针到表“tScore”中的“课程号”字段，放开鼠标左键。步骤3：分别双击添加“姓名”、“性别”、“课程名”、“成绩”和“入校时问”字段，在其下一字段行中输入“Month([入校时间])”，取消“Month([入校时间])”字段显示行复选框的勾选，在“Month([入校时间])”字段的“条件”行中输入“＞＝1And＜＝6”，如图4．35所示。步骤4：单击快速访问工具栏中的“保存”按钮，另存为“qT2”。(3)【操作步骤】步骤1：单击“创建”选项卡下查询”组中的“查询设计”按钮，在弹出的“显示表”对话框中双击添加表“tStud”，然后单击“关闭”按钮，关闭“显示表”对话框。步骤2：双击添加“学号”和“姓名”字段，在“学号”的“条件”行中输入“Notln(SELECTtStud．学号FROMtStudINNERJOINtScoreONtStud．学号＝tScore．学号GROUPBYtStud．学号)”，如图4．36所示。步骤3：单击快速访问工具栏中的“保存”按钮，另存为“qT3”。(4)【操作步骤】步骤1：单击“创建”选项卡“查询”组中的“查询设计”按钮，在弹山的“显示表”对话框中双击添加表“tTemp”，然后单击“关闭”按钮，关闭“显示表”对话框。步骤2：双击添加“年龄”字段。步骤3：单击“查询工具”的“设计”选项卡下“查询类型”组中的“删除”按钮，在“年龄”字段的“条件”行中输入“＞(selectavg(年龄)from[tTemp])”，如图4．37所示。步骤4：单击“查询工具”的“设计”选项卡下“结果”组中的“运行”按钮，在弹出的“MicrosoftAccess”对话框中单击“是”按钮。步骤5：单击快速访问工具栏中的“保存”按钮，另存为“qT4”，关闭“设计视图”。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、考生文件夹下存在一个数据库文件“samp3．accdb”，里面已经设计好表对象“tStud”，同时还设计出窗体对象“fStud”。请在此基础上按照以下要求补充“fStud”窗体的设计。(1)在窗体的“窗体页眉”中距左边0．4cm、距上边1．2cm处添加一个直线控件，控件宽度为10．5cm，控件命名为“tLine”；将窗体中标签控件“1Talbel”上的文字改为“隶书”，字号改为18。(2)打开窗体时，窗体标题自动显示为标签控件“1Talbel”的内容，并且自动将该控件上的文字颜色改为“蓝色”，请按照VBA代码中的指示将代码补充完整。(3)将窗体边框改为“细边框”样式，取消窗体中的水平和垂直滚动条、记录选择器、导航按钮和分隔线；并且只保留窗体的关闭按钮。(4)假设“tStud”表中“学号”字段的第5位和第6位编码代表该生的专业信息，当这两位编码为“10”时表示“信息”专业，为其他值时表示“管理”专业。设置窗体中名称为“tSub”文本框控件的相应属性，使其根据“学号”字段的第5位和第6位编码显示对应的专业名称。(5)在窗体中有一个“退出”命令按钮，名称为“CmdQuit”，其功能为关闭“tStud”窗体。请按照VBA代码中的指示将实现此功能的代码补充完整。注意：不允许修改窗体对象“fStud”中未涉及的控件、属性和任何VBA代码；不允许修改表对象“tStud”：程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句完成设计，不允许增删和修改其它位置已存在的语句。标准答案：(1)【操作步骤】步骤1：选择“窗体”对象，右键单击“tStud”窗体，在弹出的快捷菜单中选择“设计视图”命令，打开“设计视图”。步骤2：单击“设计”选项卡下“控件”组中的“其他”下拉按钮，选择控件组中的“直线”按钮，然后在窗体页眉节的任意区域中单击。步骤3：右键单击该“直线”控件，在弹出的快捷菜单中选择“属性”命令，打开“属性表”对话框，在该对话框中单击“全部”选项卡，在该选项卡下的“名称”行中输入“tLine”，在“宽度”行中输入“10．5cm”，在“上边距”行中输入“1．2cm”，在“左”行中输入“0．4cm”，如图4．38所示。步骤4：单击“属性表”对话框中“所选内容的类型：”下方的文本框，在弹出的下拉列表中选择“1Talbel”标签，打开“1Talbel”标签的“属性表”对话框。在该对话框中单击“格式”选项卡，在该选项卡的“字体名称”行中选择“隶书”，在“字号”行中输入“18”，如图4．39所示。步骤5：关闭“属性表”对话框。单击快速工具栏中的“保存”按钮。(2)【操作步骤】步骤1：双击标尺相交处的“窗体选择器”，打开“属性表”对话框，在该对话框中单击“事件”选项卡，然后单击该选项卡下“加载”行的事件生成器按钮，进入VBA代码编辑区。步骤2：在“′*****Add2*****”区域的空白行中输入“Form．Caption＝Me．1Talbel．Caption”，在′*****Add3*****”区域的空白行中输入“1Talbel．ForeColor＝RGB(0，0，255)”，如图4．40所示。步骤3：单击快速工具栏中的“保存”按钮，然后关闭VBA代码编辑区。步骤4：关闭“属性表”对话框，然后单击快速工具栏中的“保存”按钮。(3)【操作步骤】步骤1：双击标尺相交处的“窗体选择器”，打开“属性表”对话框，在该对话框中单击“格式”选项卡，在该选项卡下的“边框样式”行中选择“细边框”，在“滚动条”行中选择“两者均无”，在“记录选择器”行中选择“否”，在“导航按钮”行中选择“否”，在“分隔线”行中选择“否”，在“关闭按钮”行中选择“是”，在“最大最小按钮”行中选择“无”，如图4．41所示。步骤2：关闭“属性表”对话框。单击快速工具栏中的“保存”按钮。(4)【操作步骤】步骤1：右键单击“tSub”文本框控件，在弹出的快捷菜单中选择“属性”命令，打开“属性表”对话框，在该对话框中单击“数据”选项卡，在该选项卡的“控件来源”行中输入“＝IIf(Mid([学号]，5，2)＝"10"，"信息"，"管理")”，如图4．42所示。步骤2：关闭｜“属性表”对话框。单击快速工具栏中的“保存”按钮。(5)【操作步骤】步骤1：右键单击“CmdQuit”按钮，在弹出的快捷菜单中选择“属性”命令，打开“属性表”对话框，在该对话框中单击“事件”选项卡，然后单击该选项卡下的“单击”行右侧的事件生成器按钮，进入VBA代码编辑区。步骤2：在“′*****Add1*****”区域的空白行中输入“DoCmd．Close”，如图4．43所示。步骤3：单击快速工具栏中的“保存”按钮，然后关闭VBA代码编辑区。步骤4：单击快速工具栏中的“保存”按钮，然后关闭“设计视图”。知识点解析：暂无解析国家二级VB机试（上机操作）模拟试卷第4套一、基本操作题(本题共1题，每题1.0分，共1分。)1、(1)请在名称为Form1的窗体上添加一个名称为H1的水平滚动条，并在属性窗口中设置它的属性值，使其满足下列要求：它的最小刻度值为1。最大刻度值为100，在程序运行时，用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。再在滚动条下面画两个名称分别为L1和L2的标签．并分别显示1和100，运行时的窗体如图所示。注意：存盘时必须存放在考生文件夹下，公程文件名为sjt1．vbp，窗体文件名为sjt1．frm。(2)在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框，初始内容均为空；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Copy和Clear，标题分别为“复制”、“清除”，请编写适当的事件过程，使得在程序运行时，单击“复制”选项菜单，则把Text1中的内容复制到Text2中，单击“清除”选项菜单，则清除Text2中的内容(即在Text2中填入空字符串)。运行时的窗体如图所示。要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。标准答案：(1)步骤1：打开VisualBasic开发环境，按照题目的要求新建窗体并添加一个水平滚动条控件，如图3．1所示。步骤2：在属性窗口中，按照题目的要求设置水平滚动条的相关属性，如图3．2所示。步骤3：按照题目的要求，在窗体上添加两个标签控件，如图3．3所示。步骤4：按照题目的要求设置两个标签的相关属性，如图3．4所示。程序中用到的控件及属性见表3．1。步骤5：按下键盘上的F5键运行程序，程序运行后的窗体界面如图3．5所示。步骤6：按题目要求保存工程和窗体，如图3．6所示。(2)步骤1：新建窗体，按表3．2建立菜单项并设置其属性，如图3．7所示。步骤2：同步骤1，输入第3项的标题和名称，单击确定即可。步骤3：添加文本框控件，按表3．3设置文本框的属性。步骤4：打开代码编写窗口，编写程序代码，如图3．8所示。参考答案PrivateSubClear_Click()Text2．Text=""EndSubPriVatesubCopy_Click()Text2．Text=Text1．TextEnd．Sub步骤5：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：(1)水平滚动条的最大刻度值和最小刻度值分别由Max和Min属性设置；单击滚动条上滚动框以外的区域移动刻度值大小由LargeChange属性设置，而单击滚动条两边按钮移动刻度大小由SmallChange属性设置，本题要求“单击滚动条上滚动框以外的区域移动刻度大小”，由Large-Change属性设置；标签标题显示由Caption属性设置。(2)在编辑窗体中单击鼠标右键选择“菜单编辑器”来创建菜单，在菜单的Click事件中，通过对Text2．Text属性的设置来完成对内容的清除和复制。二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有一个工程文件sjt3．vbp，窗体中有两个图片框，名称分别为P1、P2，其中的图片内容分别是一架航天飞机和一朵云彩，一个命令按钮，名称为C1．命题为“发射”，还有一个计时器，名称为Timerl。并给出了两个事件过程，但并不完整，试求：①设置Timerl的属性，使其在初始状态下不计时；②设置Tlmerl的属性，使其每隔0．1秒调用Timer事件过程一次；③去掉程序中的注释符，把程序中的?改为正确的内容，使得在运行时单击“发射”按钮，则航天飞机每隔0．1秒向上移动一次，当到达P2的下方时停止移动，如图所示。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp，运行情况如图所示。程序的功能是计算下列表达式的值：z=(x+2)^2+(x+3)^3+(x+4)^4+…+(x+N)^N其中N和x的值通过键盘分别输入到文本框Text1、Text2中。之后如果单击标题为“计算”、名称为Command1的命令按钮，则计算表达式的值z，并将计箅结果显示在名称为Label1的标签中。在给出的窗体文件中已经添加了全部控件和程序，但程序不完整。要求去掉程序中的注释符，把程序中的?改为正确的内容。注意：考生不得修改窗体文件中已经存在的程序。程序中小得使用^运算符，而应使用函数xn进行幂运算。程序至少运行一次，按照下图输入数据，使X=10，N=5，单击“计算”按钮，计算z的值，并将结果显示在标签Label1中，否则没有成绩。最后，程序按原文件名存盘。标准答案：(1)步骤l：按题目要求打开工程文件，设置计时器属性，如图3．14所示。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。参考答案PriVatesubC1_Click()Timerl．Enabled=True’单击"发射"按钮，则Timer生效EndSubPriVatesubTimerl_Timer()Statica％a=a+1IfP1．Top>P2．Top+P2．HeightThen’判定P1是否接触到P2P1．MoveP1．Left，P1．Top一5一a，P1．Width，P1．HeightElseTimerl．Enabled=False’当P1接触到P2时Timer事件停止EndIfEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。小题来进行同类知识点的练习。(2)步骤1：打开本题工程文件。步骤2：分析并编写程序代码。参考答案PrivateFunctionxn(aAsSingle，mAsInteger)DimiAsIntegertmp=1Fori=1Tomtmp=tmp*a’求ai的结果Nextxn=tmp’返回计算结果EndFunctionPrivateSubCommand1_Click()DimnAsIntegerDimiAsIntegerDimtAsSingleDims，xAsSinglen=Val(Text1．Text)’将数字字符转换为数值X=Val(Text2．Text)’读取n．xm值z=0Fori=2Tont=x+iz=z+xn(t,i)’调用xn函数求tiNextLabel1．Caption=z’将结果显示在Label1CallSaveResultEndSubPrivateSubSaveResult()OpenApp．Path&"＼out4．dat"ForOutputAs#1Print#1，Label1．CaptionClose#1EndSub步骤3：按照题目要求调试并运行程序，如图3．15所示。步骤4：关闭程序后，按照题目要求保存工程和窗体。知识点解析：(1)工程文件中已建立全部控件，只需编写事件过程即可。Timerl控件的Interval属性用来控制计时器事件发生的时间间隔，通过题意可知，该属性设置为100(Interval是以毫秒为单位)。当单击“发射”按钮时开始计时，将计时器控件的Enabled属性设置为True。如果使航天飞机即P1停止移动，则将计时器控件的Enabled属性设置为False。(2)通过For循环语句实现xn()的幂运算；Click事件过程中通过Val()函数实现字符类型向数值型的转换，通过循环语句及调用xn()函数，获得函数返回值，实现表达式的运算结果；运用Call语句调用SaveResuh函数对结果进行保存，涉及文件的Open、Close和Output操作，最后将结果保存在文件夹下的out4．dat文件中。三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有一个工程文件sjt5．vbp．相应的窗体文件为sjt5．frm，此外还有一个名为datain．txl的文本文件，其内容如下：32437658281298573142536475869713243546576879805937程序运行后单击窗体，将把文件datain．txt中的数据输入二维数组Mat中，按5行5列的矩阵形式显示住窗体上，然后交换矩阵第二列和第四列的数据，将交换后的矩阵显示在窗体上，如图所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整．请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容(可以是多行)，使其实现上述功能，但不能修改程序中的其他部分，最后将修改后的文件按原文件名存盘。标准答案：步骤1：打开本题工程文件。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。参考答案OptionBase1PrivateSubForm_Click()ConstN=5ConStM=5DimMat(N,M)AsInteger’定义二维数组Dimi，j，tOpenApp．Path&"＼"&"datain．txt"ForInputAs#1’对文件进行读操作Fori=1ToNForj=1ToMInput#1，Mat(i，j)’将数据读入数组Mat中NextjNextiClose粗PrintPrint"初始矩阵为："PrintFori=1ToNForj=1ToMPrintTab(5*j)；Mat(i，j)；NextjPrintNextiFori=1ToN’完成第二列和第四列的交换t=Mat(i，2)Mat(i，2)=Mat(i，4)Mat(i，4)=t’将t的内容赋给Mat(i，4)，完成交换NextiPrintPrint"交换第二列和第四列后的矩阵为："PrintFori=1ToNForj=1ToMPrintTab(5*j)；Mat(i，j)；’将转换后的结果打印在窗体上NextjPrintNextiEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：本题代码先定义一个数组，然后以输入方式打开文件datain．txt，并在一个嵌套的For循环中用Input#将数据文件中的数据读入并赋值给每个数组元素。然后再通过一个嵌套的For循环将数组Mat中的数据在窗体上按5行、5列的矩阵形式显示出来，接着再用一个For循环将数组Mat中第1维下标分别为2和4的元素按第2维下标一致的对应交换值。最后将交换后的数组Mat中的数据再按5行、5列的矩阵形式在窗体上显示出来。国家二级VB机试（上机操作）模拟试卷第5套一、基本操作题(本题共2题，每题1.0分，共2分。)1、在名称为Form1，标题为“框架”的窗体上添加一个名称为：Frame1，且标题为空的框架。框架内含有两个单选按钮，名称分别为Opt1和Opt2，其标题分别为“字体”、“大小”。注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。标准答案：[操作步骤]步骤1：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表3．56。步骤2：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析2、考生文件夹下的工程文件sjt2．vbp中有一个由直线Line1、Line2和Line3组成的三角形，直线Line1、Line2和IJne3的坐标值如下所示：名称X1Y1X2Y2Line160012001600300Line2600120026001200Line3160030026001200要求添加一条直线Line4以构成三角形的高，且该直线的初始状态为不可见。再添加两个命令按钮，名称分别为Cmd1、Cmd2，标题分别为“显示高”、“隐藏高”，如图所示。请编写适当的事件过程使得在程序运行时，单击“显示高”按钮，则显示三角形的高；单击“隐藏高”按钮，则隐藏三角形的高。注意：要求程序中不得使用变量，每个事件过程只能写一条语句。不得修改已经存在的控件，最后将修改后的文件按原文件名存盘。标准答案：[操作步骤]步骤1：打开sjt2工程，按照题目要求建立Line控件并设置其属性，如图3．33所示。步骤2：按照步骤1建立其他控件并设置相关属性，程序中涉及的控件及属性见表3．57。步骤3：打开代码编辑窗口，在指定位置编写如下代码。参考代码PrivatesubCmd1_Click()Line4．Visible=True’将Line4显示EndSubPrivatesubCmd2_Click()Line4．Visible=False’将Line4隐藏EndSub步骤4：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析二、简单应用题(本题共2题，每题1.0分，共2分。)3、在考生文件夹下有一个工程文件sjt3．vbp，在Form1的窗体中有一个文本框、一个计时器和两个命令按钮。程序的功能是在运行时，单击“开始计数”按钮，就开始计数(如图所示)，每隔1秒，文本框中的数加1；单击“停止计数”按钮，则停止计数。要求：修改适当的控件的属性，并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件以原来的文件名存盘。标准答案：[操作步骤]步骤1：打开本题工程文件，设置计时器Interval属性为1000，Enabled属性设置为False。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。参考代码(画下划线部分是需填入的内容)PrivateSubC1Click(IndexAsInteger)SelectCaseIndx’通过控件下标确定单击哪一个按钮Case1Timer1．Enabled=FalseCase0’控制下标从0开始，此处应为0Timet1．Enabled=TrueEndSelectEndSubPrivateSubTimer1_Timet()Text1．Text=Text1．Text+1’Text1中的内容加1显示EndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析4、已知出租车行驶不超过4公里时一律收费10元。超过4公里时分段处理，具体处理方式为：15公里以内每公里加收1．2元，15公里以上每公里收1．8元。在考生文件夹下有一个工程文件sjt4．vbp。程序的功能是：单击“输入”按钮，将弹出一个输入对话框，接收出租车行驶的里程数；单击“计算”按钮，则可根据输入的里程数计算应付的出租车费，并将计算结果在名称为Text1的文本框内显示。在窗体文件中已经给出了全部控件(如图所示)，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。标准答案：[操作步骤]步骤1：打开本题工程文件。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。参考代码(画下划线部分是需填入的内容)DimsAsIntegerPrivateSubCommand1_Click()s=Val(InputBox("输入里程数(单位：公里)"))’s用于存储里程数EndSubPrivateSubCommand2_Click()Ifs＞0ThenSelectCases’对s进行判断CaseIs＜=4f=10根据题意s＜=4时f=10CaseIS＜=15f=10+(s-4)*1．2’同理CaseIs＞15f=10+11*1．2+(s-15)*1．8’同理EndSelectText1．Text=f’在Text1中显示结果ElseNsgBox"请单击"输入"按钮输入里程数!"EndIfEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)5、在考生文件夹下有一个工程文件sjt5．vbp，窗体上有两个命令按钮，标题分别是“读数据”和“统计”，请添加两个标签，名称分别为Label1和Label2，标题分别为“出现次数最多的字母是”和“它出现的次数为”；再添加两个名称分别为Text1和Text2，初始内容为空的文本框，如图所示。程序功能如下：①单击“读数据”按钮，则将考生文件夹下in5．dat文件的内容读到变量s中(此过程已给出)。②单击“统计”按钮，自动统计in5．dat文件中所含各字母(不区分大小写)出现的次数，并统计次数最多的字母显示在Text1文本框内，它所出现的次数显示在Text2文本框内。“读数据”按钮的Click事件过程已经给出，请为“统计”按钮编写适当的事件过程实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行统计，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。标准答案：[操作步骤]步骤1：打开本题工程文件，添加两个标签控件，名称分别为Label1和Label2，标题分别为“出现次数最多的字母是”和“它出现的次数为”；再添加两个名称分别为Text1和Text2，初始值为空的文本框。步骤2：打开代码编辑窗口，在指定位置编写如下代码。参考代码Dima(1To26)AsInteger’定义数组a用于存放字母出现个数DimmaxAsIntegern=Len(s)’Len的功能是求字符串的长度Fori=1Tonk=Asc(Mid$(s，i，1))’依次获取字符If(k＞=65Andk＜=90)Thena(k-64)=a(k-64)+1’当为大写字母时，满足条件则计数EndIfIf(k＞=97Andk＜=122)Thena(k-96)=a(k-96)+1’当为小写字母时，满足条件则计数EndIfNextimax=0Form=1To26’循环查找出现次数最多的值Ifmax＜a(m)Thenmax=a(m)EndIfNextmText2=max’显示出现次数Form=1To26’找到出现次数最多的值的下标Ifa(m)=maxThen1=m’将下标记下EndIfNextmText1=Chr(1+64)’通过下标找到对应的字母步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析国家二级VB机试（上机操作）模拟试卷第6套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上面一个名称为Combol的组合框，其宽度为1200，其类型如图2．102所示(即简单组合框)。要求如下：①请按图中所示，通过属性窗口输入“北京”、“上海”、“广州”、“深圳”。②设置适当的属性，使得运行时，窗体的最大化按钮和最小化按钮消失。注意：存盘时必须存放在考生文件夹下，上程文件名为sjtl．vbp，窗体文件名为sjtl．frm。(2)在名称为Forml的窗体上画两个文本框，名称分别为Text1、Text2，再画两个命令按钮，名称分别为Command1、Command2，标题分别为“左”、“有”，如图2—103。要求：编写适当的事件过程，使得程序运行时，单击“左”按钮，则焦点位于Text1上；单击“有”按钮，则焦点位于Text2上。注意：程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sit2．vbp，窗体文件名为sjt2．frm。标准答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Forml中画一个组合框，在属性设置窗口中设置其相关属性，属性及其值如表3．57所示。步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Forml中画两个文本框和两个命令按钮，分别设置其相关属性，属性及值如表3-58所示。程序界面如图3-6所示。步骤2：双击“左”命令按钮，打开代码编辑窗口，在按钮的Click事件过程中输入代码。步骤3：从代码编辑窗口的“对象”下拉列表中选择Command2，从“事件”下拉列表选择Click，编写以下事件过程。参考代码：PrivateSubCommandl—Click()Textl．SetFocusEndSubPrivateSubCommand2一C1ick()Text2．SetFocusEndSub步骤4：按要求将文件保存至考生文件夹中。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生目录下有一个工程文件vbsi3．vbp，窗体上有一个命令按钮cmdNext(标题为“下一个”)。要求：在窗体上建立一个单选按钮数组optItern，含4个单选按钮，标题分别为“A”、“B”、“C”、“D”，初始状态下，“A”为选中状态。如图2．34所示。窗体文件中已经给出了命令按钮的Click事件过程，但不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容，使得每单击命令按钮一次，就选中下一个单选按钮，如果已经选中最后一个单选按钮，再单击命令按钮，则选中第1个单选按钮。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件vbsi4．vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在txtlnput中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入txtResult(如图2．35所示)。在给出的窗体文件中已经给出了全部控件，但程序不完整，要求：去掉程序中的注释符，把程序中的“?”改为正确的内容。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。标准答案：第1小题【操作步骤】步骤1：打开考生文件夹中的奉题工程文件vbsj3．vbp，按表3-21在窗体中用“复制”和“粘贴”命令画出包含4个元素的单选数组和1个命令按钮并设置属性。步骤2：打开代码编辑窗口，去掉程序中的注释符“”’，将问号“?”改为正确的内容。参考代码：PrivateSubCmdNext—C1ick()Fork=0To3IfOptItem(k)．ValueThenn=kEndIfNextkOptItem(n)．Value=FalSen=n+1Ifn=4Thenn=0EndIfOptItem(n)．Value=TrueEndSub步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件夹中的本题工程文件vbsj4．vbp，在代码编辑窗口，去掉程序中的注释符“”’，将问号“?”改为正确的内容。参考代码：a=Mid$(txtInput．Text，k，1)ch=ch+LCase(a)txtResuit=ch步骤2：按要求将文件保存至考生文件夹中。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有一个工程文件sjt5．vbp，其名称为Forml的窗体上已有三个文本框Text1、Text2、Text3，以及程序。请完成以下工作：①在属性窗口中修改Text3的适当属性，使其在运行时不显示，作为模拟的剪贴板使用，窗体如图2一152所示；②建立下拉式菜单，见表2-3。③窗体文件中给出了所有事什过程，但不完整，请上掉程序中的注释符，把程序中的?改为正确内容。以便实现以下功能：当光标所在的文本框中无内容时，“剪切”、“复制”不可用，否则可以把该文本框中的内容剪切或复制到Text3中：若Text3中无内容，则“粘贴”不能用，否则可以把Text3中的内容粘贴在光标所在的文本框中的内容之后。注意：不能修改程序中的其他部分。各菜单项的标题名称必须正确。最后把修改后的文件按原文件名存盘。标准答案：【操作步骤】步骤1：打开考生文件夹中的本题工程文件sit5．vbp，选中窗体中的文本框Text3，将其Visible属性为False。步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表3．82的内容建立窗体菜单。步骤3：打开代码编辑窗口，去掉程序中的注释符“”’，将问号“?”改为正确的内容。参考代码：Ifwhich=1ThenIfwhich=2ThenTextl．Text=Textl．Text+Text3．TextText2．Text=Text2．Text+Text3．Text步骤4：按要求将文件保存至考生文件夹中。知识点解析：暂无解析国家二级VB机试（上机操作）模拟试卷第7套一、基本操作题(本题共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中有一个初始内容为空、且带有垂直滚动条的文本框，其名称为Text1：两个标题分别为“读数据”和“查找”的命令按钮，其名称分别为Cmd1、Cmd2。请画一个标题为“查找结果”的标签Labet1，再画一个名称为Text2，其初始内容为空的文本框，如图2．95所示。程序功能如下：①单击“读数据”按钮，则将考生文件夹下in3．dat文件中已按升序排列的30个整数读入一维数组a中，并同时显示在Text1文奉框内；②单击“查找”按钮，将弹出输入框接收用户输入的任意一个偶数，若接收的数为奇数，则提示重新输入。如果接收的偶数超出一维数组a的数值范围，则无须进行相应查找工作，直接在Text2内给出结果；否则，在一维数组a中查找该数，并根据查找结果在Text2文本框内品示相应信息。命令按钮的Click事件过程已给出，但“查找”按钮的Click事件过程不完整，请将其中的注释符去掉，把?改为止确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。(2)考生文件夹下的工程文件sjt4．vbp中有一个初始内容为空的文本框Text1，一个包含三个元素的文本框控件数组Text2，两个标题分别是“读数据”和“统计”的命令按钮，两个分别含有三个元素的标签控件数组Label1和Label2，如图2．96所示。程序功能如下：①考生义件夹下in4．dat文件中存有20个考生的考号及数学和语文单科考试成绩。单击“读数据”按钮，可以将in4．dat文件内容读入到20行3列的二维数组a中，并同时显示在Text1文本框内；②单击“统计”按钮，则对考尘数学和语文的平均分在“优秀”、“通过”和“小通过”三个分数段的人数进行统计，并将人数统计结果显示在控件数组Text2中相应位置。其中，平均分在85分以上(含85分)为“优秀”，平均分在60～85分之间(含60分)为“通过”，甲均分在60分以下为“不通过”。命令按钮的Click事件过程已经给出，但“统计”按钮的Click事件过程不完整，请将其中的注释符去掉，把?改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。标准答案：第1小题【操作步骤】步骤1：打开考生文件夹下的工程文件sis．vbD，打开代码编辑窗口，去掉程序中的注释符“*”，将问号“?”改为正确的内容。参考代码：Ifhum／2<>Fix(num／2)ThenIfnuma(30)ThenIfa(n)=numThenIfn>30Then步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件夹中的奉题工程文件sit4．vbp，打开代码编辑窗口，去掉程序中的注释符“”’，将问号“?”改为正确的内容。参考代码：Avg=(a(i，2)+a(i，3))／2CaseIs>=85Case60To84EndSelectText2(n一1)=x(n)步骤2：按要求将文件保存至考生文件夹中。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生的文件夹下有一个工程文件sit5．vbp，相应的窗体文件为sjt5．frm。在窗体上有两个命令按钮，其名称分