国家二级VB机试（综合应用题）模拟试卷2（共90题）

国家二级VB机试（综合应用题）模拟试卷2（共9套）（共90题）国家二级VB机试（综合应用题）模拟试卷第1套一、综合应用题(本题共10题，每题1.0分，共10分。)1、以下数列：1，1，2，3，5，8，13，21…的规律是从第3个数开始，每个数都是其前面两个数之和。在考生文件夹下有一个工程文件sjt5．vbp。窗体中已经给出了所有控件，如图所示。请编写适当的事件过程完成如下功能：选中一个单选按钮后，单击“计算”按钮，则计算出上述数列第n项的值，并在文本框中显示，n是选中的单选按钮后而的数值(提示：因计算结果较大，应使用艮整型变量)。注意：小能修改已经给出的程序和已有的控件的属性；在结束程序运行之前，必须选中一个单选按钮，并单击“计算”按钮以获得一个结果；必须使用窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。标准答案：【操作步骤】步骤1：打开本题工程文件。步骤2：打开代码编辑窗口，在指定位置编写如下代码。参考答案PrivateSubCommand1C1ick()Dima()AsLongDimiAsIntegerDimnAsInteger’Op1．Count是单选按钮数目，这里用的是控件数组Fori＝0ToOp1．Count－1’判断哪一项被选择，把它后面的数值赋给n，确定n值IfOp1(i)．Value＝TrueThenn＝Val(Op1(i)．Caption)ExitForEndIfNextReDima(n)’重新申请空间，这里是动态申请a(1)＝1a(2)＝1’数列第一项、第二项值确定Fori＝3Tona(i)＝a(i－1)＋a(i－2)’后一项值是前两项值之和NextText1．Text＝a(n)EndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析2、在考生文件夹下有一个工程文件sjt5．vbp，其名称为Form1的窗体上已有三个文本框Text1、Text2、Text3，以及部分程序代码，请完成以下工作。①在属性窗口中修改Text3的适当属性，使其在运行时不显示，作为模拟的剪贴板使用，窗体如图所示。②建立下拉式菜单，如下表所示。③窗体文件中给出了所有事件过程，但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容，以便实现如下功能：当光标所在的文件框中无内容时，“剪切”、“复制”不可用，否则可以把该文本框中的内容剪切或复制到Text3中；若Text3中无内容，则“粘贴”不能用，否则可以把Text3中的内容粘贴在光标所在的文本框中的内容之后。注意：不能修改程序中的其他部分，各菜单项的标题名称必须正确。最后将修改后的文件按原文件名存盘。标准答案：【操作步骤】步骤1：打开本题工程文件，将TexB的Visible属性设置为False，然后按照题目要求建立菜单并设置其属性，如图3．20所示。菜单属性如表3．12所示。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。参考答案DimwhichAsIntegerPrivateSubcopyClick()’复制按钮Ifwhich＝1Then’当焦点在Text1中，将Text1中的内容复制给Text3Text3．Text＝Text1．TextElseIfwhich＝2Then’同理，焦点在Text2中，将Text2中的内容复制给Text3Text3．Text＝Text2．TextEndIfEndSubPrivateSubcut_Click()’剪切按钮Ifwhich＝1Then’当焦点在Text1中，则将内容复制给Text3，并清空Text1内容Text3．Text＝Text1．TextText1．Text＝""ElseIfwhich＝2Then’同上Text3．Text＝Text2．TextText2．Text＝""EndIfEndSubPrivateSubeditClick()’编辑Ifwhich＝1ThenIfText1．Text＝""ThenCut．Enabled＝FalseCopy．Enabled＝FalseElseCut．Enabled＝TrueCopy．Enabled＝TrueEndIfElseIfwhich＝2ThenIfText2．Text＝""ThenCut．Enabled＝FalseCopy．Enabled＝FalseElseCut．Enabled＝TrueCopy．Enabled＝TrueEndIfEndIfIfText3．Text＝""ThenPaste．Enabled＝FalseElsePaste．Enabled＝TrueEndIfEndSubPrivateSubpaste_Click()’粘贴按钮Ifwhich＝1Then’当焦点在Text1中则将Text3的内容追加到Text1文件末尾Text1．ElseIfwhich＝2Then’同上Text2．EndIfEndSubPrivateSubText1GotFocus()。本过程的作用是当焦点在Text1中时，which＝1which＝1EndSubPrivatesubText2GotFocus()’本过程的作用是当焦点在Text2中时，which＝2which＝2Endsub步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析3、在考生文件夹下有一个数据库文件“samp3．accdb”，其中存在已经设计好的表对象“tAddr”和“tUser”。同时还有窗体对象“fEdit”和“fEuser”。请在此基础上按照以下要求补充“fEdit”窗体的设计。(1)将窗体中名称为“Lremark”的标签控件上的文字颜色改为红色(红色代码为255)，字体粗细改为“加粗”。(2)将窗体标题设置为“修改用户信息”。(3)将窗体边框改为“对话框边框”样式，取消窗体中的水平和垂直滚动条、记录选择器、导航按钮和分隔线。(4)将窗体中“退出”命令按钮(名称为“cmdquit”)上的文字颜色改为深棕(深棕代码为128)、字体粗细改为“加粗”，并给文字加上下划线。(5)在窗体中还有“修改”和“保存”两个命令按钮，名称分别为“CmdEdit”和“CmdSave”，其中“保存”命令按钮在初始状念为不可用，当单击“修改”按钮后，应使“保存”按钮变为可用。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。要求：修改后运行该窗体，并查看修改结果。注意：不能修改窗体对象“fEdit”和“fEuser”中未涉及的控件、属性；不能修改表对象“tAddr”和“tUser”。程序代码只允许在“**********”与“**********”之间的空行内补充一行语句，完成设计，不允许增删和修改其他位置已存在的语句。标准答案：(1)【操作步骤】步骤1：选择窗体对象，有键单击“fEdit”窗体，从弹出的快捷菜单中选择“设计视图”命令。步骤2：右键单击“Lxemark”标签，从弹出的快捷菜单中选择“属性”命令。步骤3：单击“格式”选项卡，在“前景色”行输入“255”(软件自动显示为16进制数#FF0000)，在“字体粗细”行的下拉列表中选择“加粗”。关闭属性表。如图3．159所示。(2)【操作步骤】步骤1：右键单击“窗体选择器”。从弹出的快捷菜单中选择“属性”命令。步骤2：在“格式”选项卡的“标题”行输入“修改用户信息”。如图3．160所示。(3)【操作步骤】步骤1：在“窗体”属性对话框的“边框样式”行下拉列表中选择“对话框边框”。如图3．161所示。步骤2：分别在“滚动条”、“记录选择器”、“导航按钮”和“分隔线”的下拉列表中选择“两者均无”或“否”。如图3．161所示。(4)【操作步骤】步骤1：右键单击命令按钮“退出”，从弹出的快捷菜单中选择“属性”命令。步骤2：单击“格式”选项卡，在“前景色”行输入“128”，在“字体粗细”行的下拉列表中选择“加粗”，在“下划线”行下拉列表中选择“是”，关闭属性表。(5)【操作步骤】在设计视图中右键单击命令按钮“修改”，从弹出的快捷菜单中选择“事件生成器”命令，在弹出的对话框中选择“代码生成器”，进入编程环境，在空行内输入以下代码：′*****请在下面添加一条语句*****CmdSave．Enabled＝True′**********************如图3．162所示，关闭界面。知识点解析：暂无解析4、考生文件夹下有一个工程文件sjt5．vbp。运行程序后，从文件中读出数据，将其放入一个5×5的二维数组a中。请编写程序，找出数组a中每行的最大值及该值在行中的次序(列下标)，并将所找到的结果分别保存到一维数组b、c中(a中第一行的最大值保存在b(1)中，最大值的列次序保存在c(1)中)。注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名存盘。程序调试通过后，命令按钮的事件过程必须至少执行一次。标准答案：[操作步骤]步骤1：打开本题工程文件。步骤2：打开代码编辑窗口，在指定位置编写如下代码。参考代码Max=a(i，1)将每行第一个数作为该行最大值，以便进行比较Forj=1To5IfMax＜a(i，j)Then’依次循环比较该行其他数，如有更大值，则替换max值Max=a(i，j)EndIfb(i)=Max’最大值存入数组b中IfMax=a(i，j)Thenc(i)=j’最大值的下标存入数组c中Nextj步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析5、在考生文件夹下有一个工程文件sjt5．vbp。程序运行时，单击“装人数据”按钮，则从考生文件夹下的in5．txt文件中读入所有城市名称和距离，城市名称按顺序添加到列表框List1中，距离放到数组a中；当选中列表框中的一个城市时，它的距离就在Text1中显示，如图所示；此时，单击“计算运费”按钮，则计算到该城市的每吨运费(结果取整，不四舍五入)，并在Text2中显示。每吨运费的计算方法是：距离×折扣×单价。其中，单价为0．3。折扣为距离＜500折扣为1500≤距离＜1000折扣为0．981000≤距离＜1500折扣为0．951500≤距离＜2000折扣为0．922000≤距离折扣为0．9单击“保存”按钮，则把距离和每吨运费存到文件out5．txt中。已经给出了所有控件和部分程序，要求：①去掉程序中的注释符，把程序中的?改为正确的内容。②编写“计算运费”按钮的Click事件过程。③编写列表框的Click事件过程。注意：不得修改已经存在的程序；在退出程序之前，必须至少计算一次运费，且必须使用“保存”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。标准答案：【操作步骤】步骤1：打开本题工程文件。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容，并编写相应的代码。参考答案Dima(10)AsInteger，nAsIntegerPrivateSubCommand1_Click()OpenApp．Path&"＼in5．txt"ForInputAS#1WhileNotEOFf1)n＝n＋1’下标循环加1Input#1，ch$，a(n)’将文件依次读入ch，a(n)中List1．AddItemch将城市名添加到List1中WendClose#1EndSubPrivateSubCommand2_Click()’需要考生编写的内容b＝Val(Text1)Ifb＞＝0Andb＜500Then’判断b的范围m＝0．3*bElseIfb＞＝500Andb＜1000Thenm＝0．3*b*0．98ElseIfb＞＝1000Andb＜1500Thenm：0．3*b*0．95ElseIfb＞＝1500Andb＜2000Thenm＝0．3*b*0．92ElseIfb＞＝2000Thenm＝0．3*b*0．9EndIfText2=＝int(m)EndSubPrivateSubList1_Click()’需要考生编写的内容Text1＝a(List1．ListIndex＋1)’通过List1．ListIndex＋1来确定所选城市对应的距离EndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析6、在考生的文件夹下有一个工程文件sjt5．vbp，相应的窗体文件为sjt5．frm。在窗体上有两个命令按钮，其名称分别为Command1和Command2，标题分别为“写文件"和“读文件”，如图3—131(a)所示。其中“写文件”命令按钮事件过程用来建立一个通信录，以随机存取方式保存到文件t5．txt中；而“读文件”命令按钮事件过程用来读出文件t5．txt中的每个记录，并在窗体上显示出来。通信录中的每个记录由三个字段组成，结构如下：姓名(Name)电话(Tel)邮政编码(Pos)LiuMingliang(010)62781234100082各字段的类型和长度为：姓名(Name)：字符串15电话(Tel)：字符串15邮政编码(Pos)：长整型(Long)程序运行后，如果单击“写文件"命令按钮，则可以随机存取方式打开文件t5．txt，并根据提示向文件中添加记录，每写入一个记录后，都要询问是否再输入新记录，回答“Y”(或“y”)则输入新记录，回答“N”(或“n”)则停止输入；如果单击“读文件”命令按钮，则可以随机存取方式打开文件t5．txt，读出文件中的全部记录，并在窗体上显示出来，如图3—131(b)所示。该程序不完整，请把它补充完整。要求如下：①去掉程序中的注释符，把程序中的?改为正确内容，使其能正确运行，但不能修改程序中的其他部分。②文件t5．txt中已有三个记录，如图3—131(b)所示，请运行程序，单击“写文件”命令按钮，向文件t5．txt中添加以下两个记录(全部采用西文方式)：LiDaqing(027)87348765430065ChenQingshan(022)26874321300120③运行程后，单击“读文件”命令按钮，在窗体上显示全部记录(共5个)。④用原来的文件名保存工程文件和窗体文件。标准答案：【操作步骤】步骤1：打开考生文件夹中的本题工程文件sjt5．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：RecNum＝RecNum＋1Put#1，RecNum，PersLoopWhileUCase(asp)＜＞"N"RecNum＝LOF(1)／Len(Pers)Get#1，i，Pers步骤2：按键运行程序，先单击“写文件”按钮，然后在弹出的输入框中依次按照题目要求输入两条记录，再单击“读文件”按钮在窗体上显示结果。步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析7、考生文件夹下的工程文件sjt5.vbp中的窗体上有两个标题分别是“产生数据”和“排序”的命令按钮。请画两个名称分别为Text1、Text2，初始值为空，可显示多行文本，有垂直滚动条的文本框（如图1－148所示）。程序功能如下：①单击“产生数据”按钮，随机产生50个100以内的互不相等的整数，并将这50个数显示在Text1文本框中；②单击“排序”按钮，将50个数按升序排列，并显示在Text2文本框中。“产生数据”和“排序”按钮的Click事件过程已经给出，但不完整，请将事件过程中的注释符去掉，把?改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。标准答案：【操作步骤】步骤1：打开考生文件夹中的本题工程文件sjt5.vbp，在窗体上画两个文本框，属性及其值如表2－59所示。步骤2：在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：Fork=1Toi-1i=i–1Forj=i+1To50temp=a(i)a(j)=temp步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析8、在考生目录下有一个工程文件vbsj5．vbp，用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是：a2+b2=c2。例如，3、4、5就是一个满足条件的整数组合(注意：a，b，c分别为4，3，5与分别为3，4，5被视为同一个组合，不应该重复计算)。编写程序，统计三个数均在60以内满足上述关系的整数组合的个数，并显示在标签Lbl1中，运行时程序界面如图3-57所示。注意：不得修改原有程序的控件的属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。程序源码：PublicSubsave(1AsContro1)OpenApp．Path＆"＼out5．txt"ForOutputAs#1Print#1，1．CaptionC1ose#1EndSub标准答案：审题分析本题可通过一个嵌套的For。循环，来统计满足题目要求的整数组合的个数。其中，外循环变量i的取值范围为1～60，内循环变量i的取值范围为i～60(这样可避免出现重复的组合)。通过表达式：Sqr(i*i+j*j)=Int(Sqr(i*i+j*j))是否成立来判断Sqr(i*i+j*j)的值是否为整数，并通过表达式：Sqr(i*i+j*j)＜=60是否成立来判断Sqr(i*i+j*j)的值是否在60以内，当两个条件同时满足时，此时的i、j及Sqr(i*i+j*j)即为满足题目要求的整数组合，记录组合个数的变量n加一。循环结束，将n值显示在标签Label1中。操作步骤步骤1：打开考生文件夹下的工程文件vbsj5．vbp，在码编辑窗口的指定位置输入代码：参考代码：PrivateSubCommand1_Click()′===考生编写程序开始====DimiAsIntegerDimjAsIntegerDimnAsIntegerFori=1To59Forj=iTo60IfSqr(i*i+j*j)=Int(Sqr(i*i+j*j))AndSqr(i*i+j*j)＜=60Thenn=n+1EndIfNextNextLbl1．Caption=n′===考生编写程序结束====′不要改动以下内容saveLabel1EndSub步骤2：按键运行程序，单击“计算”按钮。步骤3：按要求将文件保存至考生文件夹中。考点链接多重循环、常用内部函数知识点解析：暂无解析9、在考生文件夹下有一个工程文件sjt5．vbp，其窗体中有一个实心圆。程序运行时，当用鼠标左键单击窗体任何位置时，实心圆则向单击位置直线移动；若用鼠标右键单击窗体，则实心圆停止移动。窗体文件中已经给出了全部控件，但程序不完整。要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。标准答案：步骤1：打开考生文件下的本题工程文件sjt5．vbp，在代码编辑窗口，去掉程序中的注释符”’“，将问号”?”改为正确的内容。参考代码：Stepx=0stepy=a*stepxTimer1．Enabled=TrueTimer1．Enabled=FalSeShape1．MoveShapel．Left+stepx，Shape1．Top+stepy步骤2：按要求将文件保存至考生文件夹中。知识点解析：暂无解析10、在考生目录下有一个工程文件sjt5．vbp。窗体中已经给出了所有控件(如图3-82所示)。请编写适当的事件过程完成以下功能：单击“读数”按钮，则把考生目录下的in5．txt文件中的一个整数放入Text1；单击“计算”按钮，则计算出大于该数的第一个素数，并显示在Text2中；单击“存盘”按钮，则把找到的素数存到考生目录下的out5．txt文件中。注意：在结束程序运行之前，必须单击“存盘”按钮，把结果存入out5．txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。标准答案：审题分析程序设计思路：要找出大于给定数的最小素数，可以首先将给定数加1赋值给变量a，通过调用函数isprime(a)，以其返回值不是素数作为Do循环语句的循环条件，在循环体中加入语句：a=a+1实现每执行循环体一次变量a的值加1，当循环结束时a的值即为所求。操作步骤步骤1：打开本题对应工程文件sjt5．vbp。步骤2：双击窗体Form1上的“计算”按钮，打开代码编辑窗口，在其Click事件过程中输入如下代码：参考代码：PrivateSubCommand2_Click()a％=CInt(Text1．Text)Doa％=a％+1LoopUnti1isprime(a％)Text2．Text=a％EndSub步骤3：编写判断素数的函数过程isprime，参考代码为：Functionisprime(aAsInteger)DimflagAsBooleank％=2flag=TrueWhilek％＜=Int(a／2)AndflagIfa／k％=Int(a／k％)Thenflaa=FalseEndIfk％=k％+1Wendisprime=flagEndFunctiOn步骤4：按键运行程序，先单击“读数”按钮，接着单击“计算”按钮，最后单击“存盘”按钮。步骤5：按要求将文件保存至考生文件夹中。考点链接Do循环和While循环、Sub过程和函数过程、参数调用。知识点解析：暂无解析国家二级VB机试（综合应用题）模拟试卷第2套一、综合应用题(本题共10题，每题1.0分，共10分。)1、在考生文件夹下有一个工程文件sjt5．vbp，其窗体上有2个标题分别是“读数据”和“统计”的命令按钮，1个名称为Text1的文本框，2个标签控件，如图3—31所示。程序功能如下：1)单击“读数据”按钮，则将考生文件夹下in5．dat文件的内容(该文件中含有不超过800个英文单词，单词之间用1个空格隔开)显示在Text1文本框中。2)单击“统计"按钮，则自动统计Text1中所有5字母单词的个数，并显示在右下角的Labe11标签中。“读数据”按钮的Click事件过程已经给出，“统计”按钮的Click事件过程不完整，函数GetWords的功能是从字符串s中分离出每个单词，依次放入数组words的数组元素中，返回值为单词的总数目。要求：1)请将程序中的注释符去掉，把?改为正确的内容；2)补全“统计”按钮Click事件过程中的代码，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行“统计”，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。标准答案：【操作步骤】GetWords＝mm＝GetWords(Text1．Text，ch)’－－－－－－－考生编写的程序代码从这里开始k＝0Fori＝1TomIfLen(ch(i))＝5Thenk＝k＋1EndIfNextiLabe11．Caption＝k’－－－－－－－考生编写的程序代码到这里结束步骤2：按＜F5＞键运行程序，单击各个按钮测试验证。步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析2、在考生文件夹中有一个工程文件vbsj5．vbp(相应的窗体文件为vbsj5．frm)。窗体Form1上有两个名称为Lab1和Lab2的标签，它们的标题分别为“密码”和“允许次数”；一个名称为Cmd1的命令按钮，其标题为“确定”；两个名称分别为Txt1和Txt2的文本框。其中Txt1用来输入密码(输入时显示“*”)，无初始内容，Txt2的初始内容为3。已给出了Cmd1的事件过程，但不完整，要求去掉程序中的注释符“’”，把程序中的问号“?”改为正确内容，使得在运行时，在Txt1中输入密码后，单击“确定”按钮，如果输入的是“123456”，则在Txt1中显示“密码正确”如图3—66所示；如果输入其他内容，单击“确定”后，弹出如图3—67所示的错误提示对话框，并且Txt2中的数字减1。最多可输入3次密码，若3次输入错误，则禁止再次输入。程序源码：PrivateSubCmd1_Click()’If?="123456"ThenTxt1．Text="密码正确"’Txt1．?=""ElseTxt2．Text=Txt2．Text-1’IfTxt2．Text＞?ThenMsgBox"第"&(3-Txt2．Text)&"次密码错误，请重新输入"ElseMsgBox"3次输入错误，请退出"’Txt1．Enabled=?EndIfEndIfEndSub标准答案：步骤1：打开考生文件夹中的本题工程文件vbsj5．vbp，将文本框Txt1的PasswordChar属性值没置为“*”。步骤2：在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：IfTxt1．Text="123456"ThenTxt1．PasswordChar=""IfTxt2．Text＞0ThenTxt1．Enabled=False步骤3：按要求将文件保存至考生文件夹中。知识点解析：根据题目源程序，判断文奉框Txt1输入的密码是否为“123456”的条件表达式为：Txt1．Text="123456"；要去掉对文本框中输入内容的屏蔽，需将其PasswordChar属性值清空，即执行语句：Txt1．PasswordChar=""；每输入一次错误密码，文本框Txt2中的数字减1，当文本框Txt2中数值还大于0时，提示重新输入，否则提示错误，并禁用文本框Txt1。3、在考生文件夹下自一个工程文件sjt5．vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时，在文本框Text1中输入一个大十2的偶数，并单击“分解为”命令按钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够分解出的最小的素数(一个偶数有时可以分解为多种素数的组合，例如24可以分解为5和19，也町以分解为11和13，要求取含有最小素数的组合，如图所示)。要求编写“分解为”命令按钮事件过程中“考生编写程序开始”和“考生编写程序结束”之间的代码，以实现上述功能。过程IsPrime用来判断一个数是否为素数，如果是，返回值为True，否则返回值为False。注意：不得修改原有程序和控件的属性。至少正确运行一次程序，且程序运行时在文本框中输入23456，单击“分解为”按钮，将结果显示在标签中，否则将没有成绩，最后将修改后的文件按原文件名存盘。标准答案：【操作步骤】步骤1：打开本题工程文件。步骤2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。参考答案Fori＝lToVal(Text1．Text)’i从1开始，第一个找到的肯定就是满足条件的最小素数IfIsPrime(i)AlldIsPrime(Val(Text1．Text)－i)Then’判定两个数是否都满足素数条件Label1＝iIJabel2＝Val(Textl．Text)－iExitForEndIfNexti步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析4、在考生文件夹下有一个工程文件sjt5．vbp，含三个窗体，标题分别为“启动”、“注册”、“登录”，程序运行时显示“肩动”窗体，单击窗体上按钮时弹出对应窗体进行注册或登录。注册信息放在全局数组users中，注册用户数(小丁或等于10个)放存全局变量n中(均已在标准模块中定文)。注册时用户名不能重复，且“口令”与“验证口令”必须相同，注册成功则在“启动”窗体的标签中提示“注册成功”，否则提示相应错误信息。登录时，检验用户名和口令，若正确，则在“启动”窗体的标签上提示“登录成功”，否则提示相应错误信息。标准模块中函数finduser的功能是：存users数组中搜索用户名(参数ch)，找到则返回该用户名在users中的位置，否则返回0。文件中已经给出了所有控件和程序，但程序小完整，请去掉程序中的注释符，把Form2、Form3窗体文件中的?改为正确的内容。注意：不得修改已经存在的程序和控件的属性；最后，程序按原文件名存盘。标准答案：【操作步骤】步骤1：打开本题工程文件。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”．将问号改为正确的内容。参考答案’Form2窗体代码PrivateSubCommandlC1ick()’清空重置Text1＝"’"Text2＝""Text3＝""EndSubSubwriteusers()’向教组users中写入新用户信息n＝n＋1’用户数目自增users(n，1)＝Text1’保存用户的用户名、密码users(n，2)＝Text2EndSubPrivateSubCommand2_Click()IfText1＝""ThenMsgBox("必须输入用户名!")Text1．SetFocus’Text1重新获得焦点ElseIffinduser(Trim$(Text1))＞0Then如找到相同名。则返回位置一定大于0MsgBox("此用户名已经存在!")E1seIfText2<>Text3Then’比较口令与验证口令是否相同MsgBox("口令验证错误!")ElsewriteusersForm1．Label1＝"注册成功!"’当注册成功后Labeii显示成功信息Form2．HideEndIfEndSub’Form3窗体代码PrivateSubCommandlC1ick()k＝finduser(Trim$(Textl))Ifk＝0Then’验证用户名是否存在MsgBox("没有注册!")ElseIfTrim$(Text2)<>users(k，2)Then’验证输入的密码是否正确MsgBox("口令错误!")ElseForm1．Label1．Caption＝"登录成功!"Form3．HideEndIfEndSUb步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析5、在考生目录下有一个工程文件sjt5．vbp。窗体中已经给出了所有控件(如图3－116所示)。请编写适当的事件过程完成以下功能：单击“读数”按钮，则把考生目录下的in5．txt文件中的一个整数放入Text1；单击“计算”按钮，则计算出大于该数的第一个素数，并显示在Text2中：单击“存盘”按钮，则把找到的素数存到考生目录下的out5．txt文件中。注意：在结束程序运行之前，必须单击“存盘”按钮，把结果存入out5．txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。标准答案：【操作步骤】步骤1：打开本题对应工程文件sjt5．vbp。步骤2：双击窗体Form1上的“计算”按钮，打开代码编辑窗口，在其Click事件过程中输入如下代码。参考代码：PrivateSubCommand2_Click()a％＝CInt(Text1．Text)Doa％＝a％＋1LoopUntilisprime(a％)Text2．Text＝a％EndSub步骤3：编写判断素数的函数过程isprime，参考代码为：Functionisprime(aAsInteger)DimflagAsBooleank％＝2flag＝TrueWhilek％＜＝Int(a／2)AndflagIfa／k％＝Int(a／k％)Thenflag＝FalseEndIfk％＝k％+＋1Wendisprime＝flagEndFunction步骤4：按＜F5＞键运行程序，先单击“读数”按钮，接着单击“计算”按钮，最后单击“存盘”按钮。步骤5：按要求将文件保存至考生文件夹中。知识点解析：暂无解析6、在窗体上画一个文本框，名称为Text1(可显示多行)，然后再画三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“读数”、“统计”和“存盘”，如图3－136所示。程序的其功能是：单击“读数”按钮，则把考生目录下的in5．txt文件中的所有英文字符放入Text1(可多行显示)；单击“统计”按钮，找出并统计英文字母i、1、k、1、m、n(不区分大小写)各自出现的次数；单击“存盘”按钮，将字母i～n出现次数的统计结果依次存到考生目录下的顺序文件out5．txt中。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt5．vbp，窗体文件名为sjt5．frm。标准答案：【操作步骤】步骤1：新建一个“标准EXE”工程，如表4－80所示，在窗体中画出控件并设置其相关属性。步骤2：打开代码编辑窗口，编写相应事件过程。参考代码：OptionBase1Dimsum(6)AsIntegerPrivateSubCommand1_Click()penApp．Path＆"＼in5．txt"ForInputAt＃1Text1．Text＝Input(LOF(1)，＃1)CioSe＃1EndSubPrivateSubCommand2_Click()Fori＝1To6sum(i)＝0NextiIfLen(Text1．Text)＝0ThenMsgBox"请先使用“读数”功能!"ElseFori＝1ToLen(Text1．Text)C＝LCase(Mid(Text1．Text，i，1))SelectCasecCase"i"sum(1)＝sum(1)＋1Case"j"sum(2)＝sum(2)＋1Case"k"sum(3)＝sum(3)＋1CaSe"1"sum(4)＝sum(4)＋1CaSe"m"sum(5)＝sum(5)＋1CaSe"n"sum(6)＝sum(6)＋1EndSelectNextiEndIfEndSubPrivateSubCommand3_Click()OpenApp．Path＆"＼out5．txt"ForOutputAs＃1Fori＝1To6Print＝1，sum(i)NextiClose＝1EndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析7、在考生文件夹下有一个工程文件sjt5．vbp，其中，已给出了所有控件(如图3－141所示)和部分程序。程序运行时，请按以下顺序操作：1)单击“读入文件”按钮，把考生目录下的文件in5．dat中的内容读入内存并显示在上面的文本框(Text1)中；2)单击“加密”按钮，则可对Text1中的内容进行加密并显示在下面的文本框(Text2)中。3)单击“存结果”按钮则把’Text2中的内容存到out5．dat文件中。加密规则：对于第奇数个字符，若是字母，则把它变为它后面的字符(若为“Z”则变为“A”)，不是字母则不变；对于第偶数个字符，若是字母，则把它变为它前面的字符(若为“A”则变为“Z”)，不是字母则不变。大小写字母都遵循此规则。例如：若原有的字符是：AbbaZGHa－MnnKYzx则加密后的字符是：BaczAFGb－NmeiXaw已经给出“存结果”按钮的Click事件过程和函数isletter，函数isletter(aAsString)判断变量a中是否为一个字母，若是则返回True，否则返回False，可以直接调用。请编写“读入文件”按钮和“加密”按钮的Click事件过程，以实现上述功能。(in5．dat文件中只含英文单词和空格，不分段落和行)注意：考生不得修改已经存在的程序，必须用“存结果”按钮存储加密结果，否则无成绩。最后，按原文件名把程序存盘。标准答案：【操作步骤】步骤1：打开考生文件夹中的本题工程文件sjt5．vbp，在代码编辑窗口指定位置编写以下代码。参考代码：PrivateSubCommand1_Click()Open"n5．dat"ForInputAs1LineInput＃1，sClose＃1Text1．Text＝sEndSubPrivateSubCommand2Click()DimiAsInteger，ssAsStringss＝""Fori＝1ToLen(s)Ifisletter(Hid(s，i，1))＝TrueThenIfiMod2＝0ThenTfMid(s，i，1)＝"a"Thenss＝ss＆"z"ElseIFMid(S，i，1)＝"A"Thenss＝ss＆"Z"Elsess＝ss＆Chr(Asc(Mid(s，i，1))－1)EndIfElseIfMid(s，i，1)＝"Z"Thenss＝ss＆"A"ElseIfMid(s，i，1)＝"z"Thenss＝ss＆"a"Elses＝ss＆Chr(Asc(Mid(s，i，1))＋1)EndIfEndIfElsess＝ss＆Mid(s，i，1)EndIfNextText2．Text＝ssEndSub步骤2：按＜F5＞键运行程序，先单击“读入文件”按钮，接着单击“加密”按钮，然后单击“存结果”按钮保存结果，最后单击窗体右上角的关闭按钮结束程序。步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析8、在考生文件夹下有一个工程文件sjt5．vbp，含三个窗体，标题分别为“启动”、“注册”、“登录”，运行时显示“启动”窗体，单击其上按钮时弹出对应窗体进行注册或登录。注册信息放在全局数组users中，注册用户数(最多10个)放在全局变量n中(均己在标准模块中定义)。注册时用户名不能重复，且“口令”与“验证口令”须相同，注册成功则在“启动”窗体的标签中显示“注册成功”，否则显示相应错误信息。登录时，检验用户名和口令，若正确，则在“启动”窗体的标签上显示“登录成功”，否则显示相应错误信息。标准模块中函数finduser的功能是：在users数组中搜索用户名(即参数ch)，找到则返回该用户名在users中的位置，否则返回0。已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把Form2、Form3窗体文件中的“?”改为正确的内容。注意：不得修改已经存在的程序和控件的属性，最后程序按原文件名存盘。标准答案：【操作步骤】步骤1：打开考生文件夹中的本题工程文件sjt5．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：’－－－注册窗体Form2－n＝n＋1ElseIffinduser(Trim$(Text1))＞0ThenForm1．Label1．Caption＝"注册成功!"’－－－登录窗体Form3－Ifk＝0ThenElseIfTrim$(Text2)＜＞users(k，2)Then步骤2：按要求将文件保存至考生文件夹中。知识点解析：暂无解析9、在考生文件夹下有工程文件sjt5．vbp，窗体上有两个标题分别是“读数据”和“统计”的命令按钮，请添加一个名称为Label1、标题为“回文的个数为”的标签和一个名称为Text1，初始值为空的文本框，如图3-15所示。程序功能如下：①单击“读数据”按钮，则将考生文件夹下in5．dat文件的内容读到变量s中。②单击“统计”按钮，则统计in5．dat文件(该文件中仅含由空格间隔开的字母串)中刚文的个数，并将统计的回文个数显示在Text1文本框内。(所谓回文是指顺读与倒读都一样的字符串，如“recycer”)。“读数据”按钮和“统计”按钮的Click事件过程已经给出，请完善Function过程foundhuiwen的功能，实现上述程序功能。注意：考牛不得修改窗体文件中已仃在的控件和程序，在结束程序运行之前，必须先进行统计，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。标准答案：审题分析本题中自定义函数foundhuiwen的功能是判断字符串参数P是否为回文，若是则返回函数值True，否则返回函数值False。根据回文的定义程序设计思路：在For循环中按从两端到中间的顺序，分别用Mid函数依次从字符串参数P中同时取出两个字符，并比较这两个字符是否相同，若不相同则返回函数值False，并用ExitFunction语句退出自定义函数；否则继续往下比较直至循环结束。循环正常结束时，返回函数值True。操作步骤步骤1：打开考生文件夹下的工程文件sjt5．vbp，如表4-9所示在窗体上画出控件并设置它们的相关属性。步骤2：打开代码编辑窗口，在指定位置编写foundhuiwen函数的过程。参考代码：Functionfoundhuiwen(PAsString)foundhuiwen=Truek=Len(p)Fori=1Tok／2IfMid(p，i，1)<>Mid(P，k+1一i，1)ThenfoundhUiwen=FalseExitForEndIfNextEndFunctjon步骤3：按键运行程序，先单击“读数据”按钮，再单击“统计”按钮，最后单击窗体右上角的关闭按钮结束程序。步骤4：按要求将文件保存至考生文件夹中。考点链接常用内部函数、For循环结构。知识点解析：暂无解析10、在考生文件夹中有一个工程文件sjt5．vbp。窗体外观如图2-58所示。运行程序，单击”读数据”按钮，文件中的数据被读入字符串变量中并显示在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：按要求将文件保存至考生文件夹中。知识点解析：暂无解析国家二级VB机试（综合应用题）模拟试卷第3套一、综合应用题(本题共10题，每题1.0分，共10分。)1、在考生文件夹中有一个工程文件sjt5．vbp。该程序的功能是从in5．txt文件中读入40个数据，统计这些数据中素数的个数，并找出所有素数中最小的素数(判断素数的函数已给出)。最后将杏找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所示)。程序不完整，请在指定的位置把程序补充完整。注意：不得修改原有程序和控件的属性。程序结束运行之前，必须全少正确运行-次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。标准答案：【操作步骤】步骤1：打开本题工程文件。步骤2：分析并在适当位置编：写程序代码。参考答案DimaAsIntegerDimbAsIntegera＝0b＝arr(1)Fori＝iTo40’确定素数个数Ifprime(arr(i))Then’判断是否为素数a＝a＋1’素数个数累加Label3．Captioh＝a’在标签中显示NextFori＝1To40’查找最小素数Ifprime(arr(j))Andarr(i)＜＝bThen’比较素数大小b＝arr(i)’将较小素数赋给bLabel4．Caption＝b’在标签中显示Next步骤3：按照题同要求调试并运行程序，效果如图3．16所示。步骤4：关闭程序后，按题目要求存盘。知识点解析：暂无解析2、在窗体上画一个文本框，其名称为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*4AgeAsIntegerEndTypeDimStudASStudInfoDimRecNumAsLongPrivateSubCommand1_CliCk()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＋1LoopClose1EndSubPrivateSubCommand2_Click()OpenApp．Path&"＼out5．txt"ForOutputAs#1Print#1，Text1．TextClose1EndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析3、在考生文件夹下有一个工程文件sjt5．vbp。其窗体中有一个名称为Text1的文本框数组，下标从0开始。程序运行时，单击“产生随机数”按钮，就会产生10个3位数的随机数，并放入Text1数组中，如图3—183(a)所示；单击“重排数据”按钮，将把Text1中的奇数移到前面，偶数移到后面，如图3—183(b)所示。文件中已经给出了所有控件和部分程序。要求：请去掉程序中的注释符，把程序中的“?”改为正确的内容，使其能正确运行，不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。提示：在“重排数据”按钮的事件过程中有对其算法的文字描述，请仔细阅读。标准答案：步骤1：打开考生文件夹中的本题工程文件sjt5．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：j=9temp=Text1(j)While(i＜j)IfText1(j)Mod2=1Then步骤2：按要求将文件保存至考生文件夹中。知识点解析：本题源程序中，变量i和j均用作Text1文本框数组的索引号(即Index属性值)，根据算法中的第1条，可知i=0、j=9、temp=Text1(i)，其中“暂存最后一个数”的目的是为空出一个位置放第一个偶数。根据算法中的第3条，检查第j个数是否为奇数的条件表达式为：Text1(j)Mod2=1。算法中的第2条和第3条交替运行，将实现一后(偶数)一前(奇数)重排数据的目的。根据算法中的第4条，可知在i向后移、i向前移过程中，当i=j时则停止这种移动(故While循环的条件表达式为i＜j)。将先前暂存的数(temp)放到当前空缺位置，以实现算法中的第5条。4、数列1，1，3，5，9，15，25，41，…，的规律是从第三个数开始，每个数是它前面两个数的和加1。在考生目录下有一个工程文件sjt5．vbp。窗体中已经给出了所有控件，如图3—192所示。请编写适当的事件过程实现以下功能：在Text1中输入整数40，单击“计算”按钮，则在Text2中显示该数列第40项的值。如果单击“存盘”按钮，则将计算的第40项的值存到考生目录下的out5．txt文件中。(提示：因数据较大，应使用Long型变量。)注意：在结束程序运行之前，必须单击“存盘”按钮，把结果存入out5．txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。标准答案：【操作步骤】步骤1：打开考生文件夹下的工程文件sjt5．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：按要求将文件保存至考生文件夹中。知识点解析：暂无解析5、在考生文件夹下有一个工程文件sjt5.vbp，其窗体上有一个文本框，名称为Text1，可以多行显示；有一个名称为CD1的通用对话框；还有三个命令按钮，名称分别为C1、C2、C3，标题分别为“打开文件”、“转换”、“存盘”，如图1－64所示。命令按钮的功能是：“打开文件”：弹出打开文件对话框，默认打开文件的类型为“文本文件”。选择考生文件夹下的in5.txt文件后，该文件中的内容显示在Text1中；“转换”：把Text1中的所有小写英文字母转换成大写；“存盘”：把Text1中的内容存入考生文件夹下的out5.dat文件中。在窗体中已经给出了部分程序，要求：①请去掉程序中的注释符，把程序中的?改为正确的内容。既不能修改程序中的其他部分，也不能修改控件的属性。②编写“转换”按钮的Click事件过程。最后把修改后的文件按原文件名存盘。注意：考生不得修改已有的程序和控件的属性，必须对考生文件夹下的in5.txt文件进行转换，并把转换结果通过单击“存盘”按钮存入考生文件夹下的out5.dat文件中，否则无成绩。标准答案：【操作步骤】步骤1：打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：CD1.FilterIndex=2Text1.Text=aCD1.Action=2步骤2：按指定位置编写“转换”按钮的单击事件过程。参考代码：PrivateSubC2_Click()DimaAsString,bAsString,cAsString,kAsInteger,nAsIntegera=Text1.Textb=""n=Asc("a")-Asc("A")Fork=1ToLen(a)c=Mid$(a,k,1)Ifc>="a"Andc<="z"Thenc=String(1,Asc(c)-n)EndIfb=b+cNextkText1.Text=bEndSub步骤3：按要求将文件保存至考生文件夹中。步骤4：按＜F5＞键运行程序，先单击“打开文件”按钮，接着单击“转换”按钮，最后单击“存盘”按钮。知识点解析：暂无解析6、在考生文件夹下有一个工程文件sjt5.vbp，窗体上有两个文本框，名称为Text1、Text2，都可以多行显示。还有三个命令按钮，名称分别为C1、C2、C3，标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是把考生目录下的in5.dat文件中的50个整数读到数组中，并在Text1中显示出来；“排序”按钮的功能是对这50个数按升序排序，并显示在Text2中；“存盘”按钮的功能是把排好序的50个数保存到考生目录下的out5.dat文件中。如图1－120所示。在窗体中已经给出了全部控件和部分程序，要求阅读程序并去掉程序中的注释符，把程序中的?改为正确的内容，并编写“排序”按钮的Click事件过程，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。标准答案：【操作步骤】步骤1：打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口的指定位置编写以下代码：参考代码：PrivateSubC1_Click()DimkAsIntegerDimchAsStringOpenApp.Path&"\in5.dat"ForInputAs#1ch=""Fork=1To50Input#1,a%(k%)ch=ch+Str(a(k))+""NextkClose#1Text1.Text=ch$EndSubPrivateSubC2_Click()DimkAsInteger,iAsInteger,jAsIntegerDimchAsStringFori=1To49k=iForj=i+1To50Ifa(k)>a(j)Thenk=jEndIfNextjj=a(k)a(k)=a(i)a(i)=jNextich=""Fork=1To50ch=ch+Str(a(k))+""NextkText2.Text=chEndSub步骤2：按要求将文件保存至考生文件夹中。步骤3：按＜F5＞键运行程序，先单击“取数”按钮，再单击“排序”按钮，最后单击“存盘”按钮。知识点解析：暂无解析7、在考生文件夹中有一个工程文件sjt5.vbp，其功能是：找出矩阵元素的最大值，并求出矩阵对角线元素之和，窗体外观如图1－188所示。程序运行时，矩阵数据被放入二维数组a中。当单击“找矩阵元素最大值”按钮时，找出矩阵中最大的数，并显示在标签Label3中。当单击“对角线元素之和”按钮时，计算矩阵主对角线元素之和，并显示在标签Label4中。文件中已给出部分程序，请编写“找矩阵元素最大值”及“对角线元素之和”两个命令按钮的事件过程中的部分程序代码。注意：不得修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，两个命令按钮的事件过程必须至少各执行一次。标准答案：【操作步骤】步骤1：打开考生文件夹下的本题工程文件sjt5.vbp，在码编辑窗口的指定位置输入代码：参考代码：PrivateSubCommand1_Click()’====考生编写程序开始====Max=a(1,1)Fori=1To4Forj=1To4Ifa(i,j)＞MaxThenMax=a(i,j)EndIfNextjNextiLabel3.Caption=Max’====考生编写程序结束====’不得修改以下部分saveLabel3EndSubPrivateSubCommand2_Click()’====考生编写程序开始====Sum=0Fori=1To4Sum=Sum+a(i,i)NextiLabel4.Caption=Sum’====考生编写程序结束====’不得修改以下部分saveLabel4EndSub步骤2：按要求将文件保存至考生文件夹中。步骤3：按＜F5＞键键运行程序，分别单击“找矩阵元素最大值”按钮和“对角线元素之和”按钮。知识点解析：暂无解析8、在考生文件夹下有一个工程文件sjt5.vbp，其窗体中有两个标题分别是“读数据”和“统计”的命令按钮，一个名称为Text1的文本框。请画一个名称为Label1、标题为“同时含有字母t、h、e的单词个数为”的标签；再画一个名称为Text2、初始值为空的文本框，如图1－221所示。程序功能如下：①单击“读数据”按钮，则将考生文件夹下in5.dat文件的内容（该文件中仅含有字母和空格）显示在Text1文本框中；②单击“统计”按钮，则以不区分大小写字母的方式，自动统计Text1显示内容中同时含有“t”“h”“e”三个字母的单词的个数（如the、there和whatever都属于满足条件的单词），并将统计结果显示在Text2文本框内。“读数据”按钮的Click事件过程已经给出，请将“统计”按钮的Click事件过程中的注释符去掉，把?改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行统计，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。标准答案：【操作步骤】步骤1：打开考生文件中的本题工程文件sjt5.vbp，在窗体Form1中画一个标签和一个文本框，其属性和值如表2－106所示。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：IfLen(s)=0ThenIfc＜＞""Thenx=LCase(t)m=m+1步骤3：按要求将文件保存至考生文件夹中。步骤4：按＜F5＞键运行程序，先单击“读数据”按钮，接着单击“统计”按钮，然后单击窗体右上角的关闭按钮结束程序。知识点解析：暂无解析9、在考生文件夹下有一个工程文件sjt5．vbp。程序运行时，单击”装入数据”按钮，则从考生目录下的in5．txt文件中读入所有城市名称和距离，城市名称按顺序添加到列表框Listl中，距离放到数组a中；当选中列表框中的一个城市；时，它的距离就显示在Textl中，如图2-175所示；此时，单击”计算运费”按钮，则计算到该城市的每吨运费(结果取整，不四舍五入)，并显示在Text2中。每吨运费的计算方法是：距离×折扣×单价。其中：单价为0．3。距离＜500折扣为1500≤距离＜1000折扣为0．981000≤距离＜1500折扣为0．95l500≤距离＜2000折扣为0．922000≤距离折扣为0．9单击”保存”按钮，则把距离和每吨运费存到文件out5．txt中。已经给出了所有控件和部分程序，要求：①去掉程序中的注释符，把程序中?改为正确的内容；②编写列表框的Click事件过程；③编写”计算运费”按钮的Click事件过程。注意：不得修改已经存在的程序：在退出程序之前，必须至少计算一次运费，且必须用”保存”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。标准答案：步骤1：打开考生文件夹下的本题工程文件sjt5．vbp。步骤2：在代码编辑窗口，去掉程序中的注释符”’“，将问号”?”改为正确的内容。参考代码：n=n+1LiStl．AddItemch$步骤3：编写”计算运费”按钮和列表框的单击事件过程。参考代码：PrivateSubCommand2_Click()P=0．3d=Int(Textl．Text／500)SelectCaSedCase0discount=1Case1discount=0．98Case2discount=0．95Case3discount=0．92CaseElsediscount=0．9EndSelectText2=Int(discount*p*Textl)EndSubPrivateSubListl_Click()Textl=a(Listl．ListIndex+1)EndSub步骤4：运行程序，单击列表框中的某个列表项，并单击”计算运费”按钮获得一个结果，然后单击”保存”按钮保存计算结果。步骤5：按要求将文件保存至考生文件夹中。知识点解析：暂无解析10、在考生文件夹下有一个工程文件sjt5．vbp，相应的窗体文件为sjt5．frm，还有一个datain．txt文本文件，内容为：32437658281298573142536475869713243546576879805937。程序运行后，单击窗体，将把文件datain．txt中的数据输入到二维数组Mat中，在窗体上按5行、5列的矩阵形式显示出来，然后交换矩阵第一行和第三行的数据，并在窗体上输出交换后的矩阵，如图2-190所示。在窗体的代码窗口中已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。标准答案：步骤1：打开本题对应工程文件sjt5．vbp。步骤2：打开代码编辑窗口，去掉程序中的注释符”’“，将问号”?”改为正确的内容。参考代码：DimMat(M，N)AsIntegerOpenApp．Path&“＼”&“datain．txt”For_InputAs#1Input#1，Mat(i，j)Mat(3，j)=t步骤3：按要求将文件保存在考生文件夹中。知识点解析：暂无解析国家二级VB机试（综合应用题）模拟试卷第4套一、综合应用题(本题共10题，每题1.0分，共10分。)1、在考生目录下有一个工程文件sjt5．vbp，其窗体上有一个文本框，名称为Text1；还有两个命令按钮，名称分别为C1、C2，标题分别为“计算”、“存盘”，如图3—77所示。并有一个函数过程isprime(a)可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数，则返回True，否则返回False。请编写适当的事件过程，使得在运行时，单击“计算”按钮，则找出大于15000的第一个素数，并显示在Text1中；单击“存盘”按钮，则把Text1中的计算结果存入考生文件夹下的out5．tXt文件中。注意：考生不得修改isprime函数过程和控件的属性，必须把计算结果通过单击“存盘”按钮存入out5．txt文件中，否则无成绩。标准答案：步骤1：打开本题对应工程文件sjt5．vbp。步骤2：双击窗体Form1上的“计算”按钮，打开代码编辑窗口，在其Click事件过程中输入如下代码。参考代码：PrivateSubC1_Click()a％=15