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

国家二级VB机试（简单应用题）模拟试卷2（共9套）（共90题）国家二级VB机试（简单应用题）模拟试卷第1套一、简单应用题(本题共10题，每题1.0分，共10分。)1、(1)在考生文件夹中有一个工程文件sjt3．vbp，窗体上有2个命令按钮、1．个水平滚动条和1个计时器，其名称分别为Command1、Command2、HScroll1和’Timed，如图3－8(a)所示。程序运行后，按钮Command1、Command2的标题分别立即显示“开始”“停止”，同时把计时器的Intaval属性设置为100，Enabled属性设置为False。此时如果单击“开始”按钮，则该按钮变为禁用，而标题则变为“继续”，同时滚动条的滚动框自左至右移动，每次移动10，如图3－8(b)所示，移到右端时，自动从左端重新开始向右移动；如果单击“停止”命令按钮，则该按钮变为禁用，“继续”命令按钮变为有效，同时滚动框停止移动；再次单击“继续”命令按钮后，滚动框继续移动。已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容。注意：考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp，窗体上有2个名称分别为Text1、Text2的文本框，有1个名称为Command1的命令按钮。程序运行时，在Text1文本框中输入一行单词(只含有字母或空格)，单击命令按钮后，将把每个单词的第一个字母改为大写(如果原来已是大写字母则不变)，并在Te,xt2文本框中显示出来，如图3－9所示。已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容。注意：不得修改原有程序和控件的属性。最后把修改后的文件按原文件名存盘。标准答案：第1小题【操作步骤】步骤1：打开考生文件夹中的本题工程文件sjs．vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：Command1．Caption＝"继续"Command1．Enabled＝FalseCommand1．Enabled＝TrueHScroll1．Value＝HScroll1．Value＋10HScroll1．Value＝HScroll1．Min步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：St1＝Trim(Text1．Text)St2＝St2＆Mid(St1，n＋1，1)Text2．Text＝St2步骤2：按要求将文件保存至考生文件夹中。知识点解析：暂无解析2、(1)：考生文件火下有一个上程文件sjt3．vbp。程序的功能是：通过键盘向文本框中输入数字，如果输入的是非数字字符，则提示输入错误，且文本框中不显示输入的字符。单击名称为Command1、标题为“添加”的命令按钮，则将文本框中的数字添加到名称为Cnmbbo1的组合框中。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序中的其他部分和其他控件的属性。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个上程文件sjt4．vbp。该程序的功能是计算M!＋(M＋1)!＋(M＋2)!＋…＋N!之和。窗体上有名称分别为Text1、Text2的两个文本框，用于接收输入的M和N(要求M＜N)。单击名称为Commmld1、标题为“计算”的命令按钮，计算M!＋(M＋1)!＋(M＋2)!＋…＋N!的值，并将计算结果显示在标签1blResult中。在给出的窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和榨件属性。最后把修改后的文件按原文件名存盘。标准答案：(1)【操作步骤】步骤1：打开本题工程文件。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。参考答案PrivateSubCommand1_C1ick()Combo1．AddTtemText1．Text’将Text1中的内容加入Combol中Text1．Text＝""’同时将Text1内容清除EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii＞57OrKeyAscii＜48Then’数字的Ascii码值下界MsgBox|"请输入数字!"KeyAscii＝0’清空EndIfEndSub步骤3：调试并运行程序，关闭程序后按题口要求存盘。(2)【操作步骤】步骤1：打开本题工程文件。步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。参考答案PrivateSubCommandl_lick()DimmAsIntegerDimnAsIntegerDimsAsLongDimiAsIntegerm＝Val(Text1．Text)’将文本框中的字符转换成教值型n＝Val(Text2．Text)s＝0Fori＝mTon－mt＝f(i)’调用函数得到N的阶乘s＝s＋tNextiblResult．Caption＝SEndSubPrivateFunctionffByRefxAsInteger)AsLong’ByRef为传址传递DimtAsLongt＝1Fori＝1Tox’实现对数值进行阶乘运算t＝t*iNextf＝t’返回计算结果EndFunctiOn步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析3、考生文件夹下存在一个数据库文件“samp2．accdb”，里面已经设计好三个关联表对象“tStud”、“tCourse”、“tSeore”和一个空表“tTemp”。试按以下要求完成设计。(1)创建一个查询，查找并输出姓名是三个字的男女学生各自的人数，字段显示标题为“性别”和“NUM”，所建查询命名为“qT1”。注意：要求按照学号来统计入数。(2)创建一个查询，查找“02”院系的选课学生信息，输出其“姓名”、“课程名”和“成绩”三个字段内容，所建查询命名为“qT2”。(3)创建一个查询，查找还未被选修的课程的名称，所建查询命名为“qT3”。(4)创建追加查询，将前5条记录的学生信息追加到表“tTemp”的对应字段中，所建杏询命名为“qT4”。标准答案：(1)【操作步骤】步骤1：在“创建”选项卡下“查询”组中，单击“查询设计”按钮，在弹出的“显示表”对话框中选择“tStud”表，单击“添加”按钮，如图3．203所示，关闭“显示表”对话框。步骤2：双击添加“姓名”和“性别”字段，单击“设计”选项卡下“显示／隐藏”组中的“汇总”按钮。步骤3：在“姓名”字段的“总计”行下拉列表中选择“WHERE”，在“条件”行输入“Len([姓名])＝"3"”，在“显示”行去掉勾选。步骤4：在第三个字段位置中输入“NUM：性别”，在下面的“总计”行下拉列表中选择“计数”，如图3．204所示。步骤5：将查询保存为“qT1”，如图3．205所示。关闭设计视图。(2)【操作步骤】步骤1：在“创建”选项卡下的“查询”组中单击“查询设计”按钮，在弹出的“显示表”对话框中双击添加表“tStud”、“tCourse”和“tScore”，关闭“显示表”对话框。然后在“tStud”表中双击“姓名”字段，在“tCourse”表中双击“课程名”字段，在“tScore”表中双击“成绩”字段，再在“tStud”表中双击“所属院系”字段。步骤2：在“所属院系”字段的“条件”行输入“02”，并取消“显爪”行中复选框的勾选，如图3．206所示。步骤3：将查询保存为“qT2”，关闭设计视图。(3)【操作步骤】步骤1：在“创建”选项卡下的“查询”组中单击“查询设计”按钮，在“显示表”对话框中双击“tCourse”表，关闭“显示表”对话框。步骤2：双击“课程号”和“课程名”字段，添加到查询字段。步骤3：在“课程号”字段的“条件”行中输入“NotIn(selecttScore．课程号fromtScore)”，并取消“显示”行中复选框的勾选。步骤4：单击“设计”选项卡下“显示／隐藏”组中的“汇总”按钮，在两个字段的“总计”行下拉列表中选择“GroupBy”，如图3．207所示。步骤5：将查询保存为“qT3”，关闭设计视图。(4)【操作步骤】步骤1：在“创建”选项卡下的“查询”组中单击“查询设计”按钮，在弹出的“显示表”对话框中选择“tStud”表，单击“添加”按钮，关闭“显示表”对话框。步骤2：单击“设计”选项卡下的“查询类型”组中的“追加”按钮，在弹出的“追加”对话框中输入表名称为“tTemp”，单击“确定”按钮，如图3．208所示。步骤3：在“tStud”表中双击“学号”、“姓名”和“年龄”字段，再单击“设计”选项卡下“结果”组中的“视图”按钮下的下拉菜单，选择“SQL视图”命令，将第二行的SQL语句修改为“SELECTTOP5tStud．学号，tStud．姓名，tStud．年龄”，如图3．209所示。步骤4：在“设计”选项中“结果”组中单击“运行”按钮，在弹出的对话框中选择“是”按钮，最后以“qT4”保存查询并关闭。知识点解析：暂无解析4、(1)在考生文件夹下有一个工程文件sjt3．vbp，相应的窗体文件为sjt3．frm，在窗体上有一个命令按钮(名称为Command1，标题为“计算并输出”)和两个文本框(名称分别为Text1和Text2)，如图3—90所示。程序运行后，单击命令按钮，即可计算出数组Arr中10个数的正数之和pos与负数之和neg，并分别在两个文本框中显示出来。该程序不完整，请把它补充完整。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。(2)在考生文件夹下有一个工程文件sjt4．vbp，相应的窗体文件为sjt4．frm。在窗体上有两个命令按钮，其名称分别为Command1、Command2；一个标签，其名称为Labe11；一个计时器，其名称为Timer1，如图3—91(a)所示。程序运行后，如果单击“开始”命令按钮，则该按钮变为禁用，而标题变为“继续”，同时标签中的字体每隔100毫秒增大0．1倍(即变为原来的1．1倍)，如图3—91(b)所示，字体大小超过100后，自动缩小为8：如果单击“停止”命令按钮，则该按钮变为禁用，“继续”命令按钮变为有效，同时标签中的字体停止变化；再次单击“继续”命令按钮后，标签中的字体继续变化。这个程序不完整，请仔细阅读已有内容，并把它补充完整，使之能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。标准答案：(1)【操作步骤】步骤1：打开考生文件夹下的工程文件sjt3．vbp。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：IfArr(k)＞0Thenpos＝pos＋Arr(k)neg＝neg＋Arr(k)步骤3：按要求将文件保存至考生文件夹中。(2)【操作步骤】步骤1：打开考生文件夹下的工程文件sjr4．vbp。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：Command1单击事件中改错Timer1．Enabled＝TrueCommand2单击事件中改错Timer1．Enabled＝FalseTimer1单击事件中改错IfLabe11．FontSize＜100ThenLabe11．FontSize＝Labe11．FontSize*1．1步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析5、(1)在考生文件夹下有一个工程文件sjt3．vbp，己给出了所有控件和部分程序。程序运行时，请按以下顺序操作：1)单击“读入数据”按钮，可把考生目录下的文件in3．dat中的100个整数读到数组a中；2)从名称为List1的列表框中选中一项(如图3—139所示)。3)单击“计算”按钮，则可按该选项的要求计算出结果并放到文本框中。4)单击窗体右上角的关闭按钮结束程序。“读入数据”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。注意：不得修改已经存在的程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp。窗体中横线(横坐标)的名称为Line1，竖线(纵坐标)的名称为Line2；五个不同颜色的矩形是一个形状控件数组，名称为Shape1，它们的Visible属性都为False；从左到右的两个按钮的名称分别为Command1、Command2；另有一个有五个元素的标签数组，名称为Label1，其所有元素的Visible属性都为False。如图3—140(a)所示。程序运行时，单击“输入5个数据”按钮，可输入五个整数(最好在100～2000之间)，并作为刻度值显示在纵坐标的左面；单击“画直方图”按钮，则按五个数的输入顺序显示直方图。例如若输入的五个数是1200、500、800、1900、1500，则结果如图3—140(b)所示。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。标准答案：第1小题步骤1：打开考生文件夹中的本题工程文件sjt3．vbp，双击窗体中的“计算”命令按钮，在打开的代码编辑窗口中编写其单击事件过程。参考代码：PrivateSubCommand2_Click()DimkAsInteger，i1，i2AsIntegeri1=a(1)：i2=a(1)Fork=2To100Ifa(k)＞i1Theni1=a(k)EndIfIfa(k)＜i2Theni2=a(k)EndIfNextkIfList1．Selected(0)=TrueThenText1．Text=i1-i2EndIfIfList1．Selected(1)=TrueThenText1．Text=i1+i2EndIfIfList1．Selected(2)=TrueThenText1．Text=i1*i2EndIf步骤2：按＜F5＞键运行程序，单击“读入数据”按钮，然后在列表框中选择一项，并单击“计算”按钮，统计出结果。步骤3：单击窗体右上角的关闭按钮以结束程序。步骤4：按要求将文件保存至考生文件夹中。第2小题步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：Fork=1To5Label1(k-1)．Visible=TrueShape1(k-1)．Height=s(k)a=Line1．Y1步骤2：按要求将文件保存至考生文件夹中。知识点解析：第1小题：本题在命令按钮的单击事件中先利用循环统计字符串中大写字母和小写字母的值。首先假设数组中的第一个元素既为最大值也为最小值，然后依次从第二个元素开始向后循环。对每一个数组元素都加以判断，若其比最大值还大，则其成为新的最大值；若其比最小值还小，则其成为新的最小值。这样循环结束后可以得到数组的最大值和最小值。接下来判断列表框中选中的是哪一项然后执行对应计算，并输出结果。第2小题：“输入5个数据”按钮的单击事件过程中，需要连续输入5个数据并且存放到数组S中，因此k应该由1循环到5，在循环中将输入的数据保存到数组是中并且将其赋值给五个标签组成的控件数组，随后将标签的Visible属性设置为True以便显示出来。“画直方图”按钮的单击事件过程中，源程序用For循环来依次计算每一个形状控件的高度，该高度应该为对应数组元素的值；然后计算该直方图的Top属性值(应为水平直线的Y1或Y2属性值减去直方图的高度)，最后显示该直方图(通过设置其Visible实现)。6、（1）在考生文件夹下有一个工程文件sjt3.vbp，其窗体上有一个名称为Label1的控件数组，含三个标签，标题分别是“开始时间”、“结束时间”和“通话费用”；有一个名称为Text1的控件数组，含三个初始值为空的文本框；此外还有两个名称分别为Cmd1和Cmd2的命令按钮，标题分别是“通话开始”和“通话结束”。其中通过属性窗口对“通话结束”命令按钮的初始状态设置为禁用，如图1-71所示。该程序的功能是计算公用电话计时收费。计时收费标准为：通话时间在3分钟以内时，收费0.5元；3分钟以上时，每超过1分钟加收0.15元，不足1分钟按1分钟计算。程序执行的操作如下：①如果单击“通话开始”按钮，则在“开始时间”右侧的文本框中显示开始时间，且“通话结束”命令按钮变为可用状态，“通话开始”命令按钮不可用；②如果单击“通话结束”按钮，则“结束时间”右侧的文本框中显示结束时间，同时计算通话费用，并将其显示在“通话费用”右侧的文本框中，“通话开始”命令按钮变为可用状态，“通话结束”命令按钮不可用。在窗体文件中已经给出了全部控件（如图1－71所示）和程序，但程序不完整，要求去掉程序中的注释符，把?改为正确的内容，以实现上述功能。注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。（2）在考生文件夹下有一个工程文件sjt4.vbp，文件in4.txt中有5组数据，每组10个，依次代表语文、英语、数学、物理、化学这5门课程10个人的成绩。程序运行时，单击“读入数据”按钮，可从文件in4.txt中读入数据放到数组a中。单击“计算”按钮，则计算5门课程的平均分（平均分取整），并依次放入Text1文本框数组中。单击“显示图形”按钮，则显示平均分的直方图，如图1－72所示。窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。标准答案：第1小题【操作步骤】步骤1：打开考生文件下的本题工程文件sjt3.vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：Text1(0).Text=Str(Time())s=s+(m-3)*0.15Cmd1.Enabled=TrueCmd2.Enabled=False步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件下的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：OpenApp.Path&"\in4.txt"ForInputAs#1s(i)=s(i)+a(i,j)s(i)=CInt(s(i)/10)Shape1(k-1).Top=m-Shape1(k–1)._HeightShape1(k-1).Visible=True步骤2：按要求将文件保存至考生文件夹中。知识点解析：暂无解析7、（1）在考生文件夹下有一个工程文件sjt3.vbp，请在窗体上画两个框架，其名称分别为F1和F2，标题分别为“交通工具”和“到达目标”。在F1中画两个单选按钮，名称分别为Op1和Op2，标题分别为“飞机”和“火车”。在F2中画两个单选按钮，名称分别为Op3和Op4，标题分别为“广州”和“昆明”。画一个称为Lab1的标签，宽度为3000，高度为375。编写适当事件过程。程序运行后，选择不同单选按钮并单击窗体后在标签上显示的结果见表1－4。程序的运行情况如图1－123所示。存盘时，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行上面的一种操作。退出程序时必须通过单击窗体右上角的关闭按钮。（2）在考生文件夹下有一个工程文件sjt4.vbp，请在窗体上画两个文本框，其名称分别为Text1、Text2，文本框的内容分别设置为“计算机”、“等级考试”。然后画一个标签，其名称为Lab1，高度为375，宽度为2000。再画两个单选按钮，名称分别为Op1和Op2，标题分别为“交换”和“连接”，最后再画一个命令按钮，其名称为C1，标题为“确定”，编写适当的事件程序。程序运行后，如果选中“交换”单选按钮并单击“确定”按钮，则Text1文本框中的内容与Text2文本框中的内容进行交换，并在标签处显示“交换成功”（如图1－124所示）；如果选中“连接”单选按钮并单击“确定”按钮后，则把交换后的Text1和Text2的内容连接起来，并在标签处显示连接后的内容。存盘时，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。注意：不得修改已经给出的程序。在结束程序运行之前，必须选中一个单选按钮，并单击“确定”按钮。退出程序时必须通过单击窗体右上角的关闭按钮，否则无成绩。标准答案：第1小题【操作步骤】步骤1：打开考生文件夹下的本题工程文件sjt3.vbp。步骤2：在窗体Form1中加入两个框架和一个标签以及一个命令按钮，然后在每个框架中各加入两个单选按钮，分别设置它们的相关属性，其属性及值如表2－44所示。步骤3：打开代码编辑窗口输入如下代码：参考代码：PrivateSubForm1_Click()IfOp1AndOp3ThenLab1.Caption="坐飞机去广州"ElseIfOp1AndOp4ThenLab1.Caption="坐飞机去昆明"ElseIfOp2AndOp3ThenLab1.Caption="坐火车去广州"ElseIfOp2AndOp4ThenLab1.Caption="坐火车去昆明"EndIfEndSub步骤4：按要求将文件保存至考生文件夹中。步骤5：按＜F5＞键运行程序，选择一种交通工具和一个到达目标，并单击命令按钮，最后单击窗体右上角的关闭按钮退出程序。第2小题【操作步骤】步骤1：打开考生文件夹下的本题工程文件sjt4.vbp。步骤2：在窗体Form1中加入两个文本框、一个标签和两个单选按钮，分别设置它们的相关属性，其属性及值如表2－45所示。步骤3：打开代码编辑窗口输入如下代码：参考代码：PrivateSubC1_Click()IfOp1ThenLab1.Caption=Text1.TextText1.Text=Text2.TextText2.Text=Lab1.CaptionLab1.Caption="交换成功"ElseIfOp2ThenLab1.Caption=Text1.Text&Text2.TextEndIfEndSub步骤4：按要求将文件保存至考生文件夹中。步骤5：按＜F5＞键运行程序，选择一个单选按钮，并单击命令按钮，最后单击窗体右上角的关闭按钮退出程序。知识点解析：暂无解析8、（1）在考生文件夹下有一个工程文件sjt3.vbp，含有名称分别为Form1、Form2的两个窗体。其中Form1上有两个控件（图像框和计时器）和一个菜单项“操作”，含有三个菜单命令，如图1－186（a）所示。Form2上有一个名称为Command1、标题为“返回”的命令按钮，如图1－186（b）所示。要求当单击“窗体2”菜单命令时，隐藏Form1，显示Form2。单击“动画”菜单命令时，使小汽车开始移动，一旦移到窗口的右边界时自动跳到窗体的左边界重新移动。单击“退出”菜单命令时，结束程序运行。请去掉程序中的注释符，把程序中的?改为正确的内容。注意：考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。（2）在考生文件夹下有一个工程文件sjt4.vbp。其窗体上已有部分控件，请按照如图1－187所示添加框架和单选按钮。要求：画两个框架，名称分别为Frame1、Frame2，在Frame1中添加一个名为Option1的单选按钮数组，含两个单选钮，标题分别为“古典音乐”、“流行音乐”，在名称为Frame2中添加两个单选按钮，名称分别为Option2、Option3，标题分别为“篮球”、“羽毛球”。刚运行程序时，“古典音乐”和“篮球”单选按钮为选中状态。单击“选择”按钮，将把选中的单选按钮的标题显示在标签Label2中，如图1－187所示。如果“音乐”或“体育”未被选中，相应的单选按钮不可选。要求：按照题目要求添加控件，去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。标准答案：第1小题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt3.vbp，打开代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：SelectCaseIndexTimer1.Enabled=TrueIfPicture1.Left+Picture1.Width>=WidthThenPicture1.Left=0步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件夹下的本题工程文件sjt4.vbp，在窗体上画两个框架、一个含两个元素的单选按钮数组，两个单选按钮，如表2－88设置它们的属性。步骤2：打开代码编辑窗口，修改“选择”按钮的Click事件过程，代码如下。参考代码：IfOption1(0).Value=TrueThenIfOption2=TrueThenLabel2.Caption=s步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析9、在考生文件夹下有一个工程文件sjt4．vbp，相应的窗体文件为sjt4．frm。在窗体上有一个命令按钮，其名称为Command1，标题为“计算”。程序运行后，如果单击命令按钮，程序将根据下面的公式计算π的值：π／4=1-1／3+1／5-1／7+……，所提供的窗体文件已给出了命令按钮的事件过程，程序运行结果如图3-4所示。该程序不完整，请把它补充完整。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。标准答案：审题分析本题是一个数列求累加和的问题。这个数列的特点是，每一项的分子都是1，分母都是前一项分母加2，符号都是前一项符号的相反数。因此，这个数列累加求和问题使用循环来完成，在循环中令分母加2，符号取反即得到下一项。循环结束后需要将累加和乘4才能得到所求的圆周率的值。操作步骤步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，在代码编辑窗口中，去掉程序中的注释符“′”，将问号“?”改为正确的内容。参考代码：Result=Result+Sign*1／iSign=-SignText1．Text=Result*4步骤2：按要求将文件保存至考生文件夹中。考点链接For循环结构。知识点解析：暂无解析10、在考生文件夹下有一个工程文件sjt3．vbp，窗体上已经有两个文本框，名称分别为Text1、Text2；一个命令按钮，名称为C1，标题为“确定”；请画两个单选按钮，名称分别为Op1、Op2，标题分别为“男生”、“女生”：再画两个复选框，名称分别为Ch1、Ch2，标题分别为“体育”、“音乐”。请编写适当的事件过程，使得在运行时，单击“确定”按钮后实现下面的操作：①根据选中的单选按钮，在Text1中显示“我是男生”或“我是女生”。②根据选中的复选框，在Text2中显示“我的爱好是体育”、“我的爱好是音乐”或“我的爱好是体育音乐”，如图3-65所示。注意：不得修改已经给出的程序和已有控件的属性。在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击“确定”按钮。必须使用窗体右上角的关闭按钮结束程序，否则无成绩。标准答案：审题分析根据题目要求，在本题的程序设计上．首先以Op1是否选中作为If…Then…Else语句的条件，由此分出两种情况：Op1被选中或Op2被选中。在条件为真(即Op1被选中)时文本框1中显示“我是男生”，否则显示“我是女生”；接下来分别判断两个复选框是否选中并相应在文本框2上显示内容。以上判断和显示操作均在C1的Click事件中完成。操作步骤步骤1：打开考生文件夹下的工程文件sjt3．vbp。步骤2：在窗体Form1中加入两个单选按钮和两个复选框，分别设置它们的相关属性，属性及其值如表4-38所示。步骤3：打开代码编辑窗口输入如下代码：参考代码：PrivateSubC1_Click()DimaAsStrinaa="我是"IfOp1．ValueThenText1．Text=a＆Op1．CaptionElseText1．Text=a＆Op2．CaptionEndIfa="我的爱好是"IfCh1．Value=1ThenText2．Text=a＆Ch1．CaDtiona=Text2．TextEndIfIfCh2．Value=1ThenText2．Text=a＆Ch2．CaDtionEndIfEndSub步骤4：按键运行程序，先选中选中一个单选按钮和至少一个复选框，并单击“确定"按钮，然后单击窗体右上角的关闭按钮结束程序。步骤5：按要求将文件保存至考生文件夹中。考点链接选择控件、If选择结构。知识点解析：暂无解析国家二级VB机试（简单应用题）模拟试卷第2套一、简单应用题(本题共10题，每题1.0分，共10分。)1、(1)在考生文件夹下有一个工程文件sjt3．vbp，窗体上有1个标题为“计算”的命令按钮，1个标题为“1!＋2!＋…＋10!＝”的标签。请画1个名称为Text1，初始内容为空的文本框。效果如图3－34所示。程序功能：单击“计算”命令按钮，则计算“1!＋2!＋…＋10!”的值，并将结果显示在Text1文本框中。请将“计算”命令按钮的Click事件过程中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp，窗体上有1个名称为标题为“运行”的命令按钮。请画2个名称分别为Text1和Text2，初始内容都为空的文本框，再画2个名称分别为Label1、Label2，标题分别是“最大数”和“最大数位置”的标答。效果如图3－35所示。程序功能：单击“运行”按钮，则产生50个不重复的介于0和100之间(含0和100)的随机数，且以每行10个数的形式显示在窗体上；最后将这些随机数中的最大数和最大数所处的位置显示在Text1和Text2中。如图3－35所示为某一次的运行效果。请将“运行”命令按钮的Click事件过程中的注释符去掉，把“?”改为正确内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序按原文件名存盘。标准答案：第1小题【操作步骤】步骤1：打开考生文件夹中的本题工程文件sjs．vbp，在窗体上添加一个文本框，按照如下表4－22设置属性。步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，在窗体上加入两个文本框和两个标签，按照表4－23设置相关属性。步骤2：在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：j＝1j＝j＋1arr(j)＝xpos＝i－1步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析2、在考生文件夹下有一个工程文件sjt4．vbp，含有Form1和Form2两个窗体，其中Form1为启动窗体，窗体上的控件如图1所示。程序运行后，在Form1窗体的文本框中输入有关信息(如“密码”文本框中显示“*”字符)，然后单击“提交”按钮，弹出“确认”对话框(F’orm2窗体)，并在：Form2中显示Form1中输入的信息，如图2所示。单击“确认”按钮，程序结束，单击“重输”按钮，Form2消失，回到Form1窗体。在给出的窗体文件中已经给出了程序，但不完整。要求：①将Form1的标题改为“注册”，将Form2的标题改为“确认”；②设置适当的属性，使Form2标题栏右上角的所有按钮消失(如图2所示)；③去掉程序中的注释符，把其中的?改为正确的内容。注意：不能修改程序中的其他部分，标题等属性的修改只能在属性窗口中进行。最后将修改后的文件按原文件名存盘。标准答案：[操作步骤]步骤1：打开本题工程文件，按照题目要求设置属性，如图3．26所示。步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容，并在指定位置编写代码。参考代码(画下划线部分是需填入的内容)PrivateSubC1_Click()DimkAsIntegerForm2．Show’当单击"提交"按钮时，则显示Form2Form2．PrintForm／．L1．Caption；Form1．Text1Form2．PrintForm1．L2．Caption；Form1．Text2Form2．PrintForm1．L3．Caption；Form1．Text3Form2．PrintForm1．Frame1．Caption；“’”；’取框架Frame1的标题名称"性别"Fork=0To1IfForm1．Qp1(k)．ValueThen’通过下一条语句确定KForm2．PrintForm1．Op1(k)．CaptionEndIfNextkEndSubPrivateSubFormLoad()’将PasswordChar属性设为*则密码输入后显示*Text2．PasswordChar="*"EndSub’需考生编写的Form2中的代码PrivateSubC1Click()EndEndSubPrivateSubC2Click()UnloadForm2EndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析3、在考生文件夹下有一个工程文件sjt3．vbp。窗体上有个钟表图案，其中代表指针的直线的名称是Line1，还有一个名称为Label1的标签和其他一些控件(如图1所示)。在程序运行时，若用鼠标右键单击圆的边线，则指针恢复到起始位置(如图1所示)；若用鼠标左键单击圆的边线，则指针指向鼠标单击的位置(如图2所示)；若鼠标左键或右键单击其他位置，则在标签上输出“鼠标位置不对”。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。程序中的oncircle函数的作用是判断鼠标单击的位置是否在圆的边线上(判断结果略有误差)，是则返回True，否则返回False。符号常量x0、y0是圆心距窗体左上角的距离；符号常量radius是圆的半径。注意：不能修改程序中的其他部分和各控件的属性。最后将修改后的文件按原文件名存盘。标准答案：[操作步骤]步骤1：打开本题工程文件。步骤2：打开代码编辑窗口，在指定位置编写如下代码。参考代码Consty0&=1110，x0&=1100，radius&=750PrivateFunctiononcircle(XAsSingle，YAsSingle)AsBooleanprecision=55000TfAbs((X-x0)*(X-x0)+(y0-Y)*(y0-Y)-radius*radius)＜precisionThen’判断鼠标单击的位置是否在圆边上oncircle=TrueElseoncircle=FalseEndIfEndFunctionPrivateSubForm_MouseDown(ButtonAsTnteget，ShiftasInteger，XAsSingle，YAsSingle)ConstLEFT_BUTTON=1Ifoncircle(X，Y)Then’调用oncircle函数判断鼠标单击的位置Line1．X1=x0Line1．Y1=y0IfButton=LEFT_BUTTONThenLine1．X2=XLine1．Y2=Y’直线另一端的y坐标为鼠标当前的y值ElseLine1．X2=Line1．X1’直线回到初始位置x不变Line1．Y2=y0-radius&’y2为原先坐标减去半径的值EndTfLabel1．Caption=""Else’否则Label1显示位置不对Label1="鼠标位置不对"EndIfEndSub程序结束步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析4、(1)在考生文件夹下有一个工程文件sjt3．vbp，其窗体上有一个列表框和一个标题为“选择”的命令按钮，且列表框中已有若干列表项。程序的功能是：当单击”选择”按钮时，如果列表框中没有列表项，则程序不做任何操作。否则，判断列表框中是否有列表项被选中，如果没有，则自动选中首个列表项(呈蓝色光条显示)；如果有，且不是最后一个列表项，则自动选中后一个列表项，如果选中的是最末一项，则自动选中首个列表项。运行时窗体界面如图所示。程序已经给出，但不完整，请将其中的注释符去掉，把?改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序代码，最后程序按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp，其窗体上有4个标签、1个文本框、1个计时器和1个标题为“开始”的命令按钮。程序的功能是：用户在文本框中输入一个计时时间(单位：分)，并单击“开始”按钮后，系统将开始倒计时，每隔1秒显示1次剩余时间，当到达计时长度时，系统倒计时结束，并弹出信息框显示“时间到!”，程序运行界面如图所示。程序已经给出，但不完整，请将其中的注释符去掉，把?改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序代码，最后程序按原文件名存盘。标准答案：(1)【操作步骤】步骤1：打开本题项目工程。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。参考答案PrivateSubCommand1_Click()IfList1．ListCOLunt＝0ThenExitSubEndIfIfList1．ListIndex＝－1ThenList1．ListIndex＝0ElseIfList1．List1ndex＜List1．ListCount－ThenList1．ListIndex＝List1．ListIndex＋1ElseList1．ListIndex＝0EndIfEndIfEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。(2)【操作步骤】步骤1：打开本题项目工程。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。参考答案DimtAsIntegerPrivateSubCommand1_Click()t＝60*Val(Text1．Text)Timer1．Enabled＝TrueEndSubPrivateSubTimer1_Timer()Dimm，sAsIntegerIft＜＝0ThenTimer1．Enabled＝FalseMsgBox"时间到!"Elset＝t－1m＝Int(t／60)s＝tMod60Labe14．Caption＝"剩余"&m&"分"&s&"秒"EndIfEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析5、(1)在考生文件夹下有一个工程文件vbsj3．vbp，相应的窗体文件为vbsj3．frm，在窗体上有一个标题为“计算”的命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出数组arr中每个元素与其下标相除所得的和，并在文本框中显示出来，程序的运行情况如图3—144所示。在窗体的代码窗口中，已给出了部分程序，其中计算数组arr中每个元素与其下标相除所得的和的操作在通用过程Fun中实现，请编写该过程的代码。要求：请勿改动程序中的其他部分，只在FunctionFun()和EndFunction之间填入你编写的若干语句并运行程序。在结束程序运行之前，必须至少正确运行一次程序，将结果显示在文本框中，否则无成绩。最后把修改后的文件按原文件名存盘。说明：数组arr中共有40个元素，“数组arr中每个元素与其下标相除所得的和”，是指：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＝500IfPic1．Left＞Me．WidthThenPic1．Left＝0步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析6、(1)在考生文件夹下有一个工程文件sjt3．vbp。程序的功能是通过键盘向文本框中输入大、小写字母及数字。单击“统计”按钮，分别统计输入字符串中大写字母、小写字母及数字字符的个数，并将统计结果分别显示在标签控件数组x中，如图3—167所示。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的“?”改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)考生文件夹下的工程文件sjt4．vbp中有两个名称分别为List1、List2的列表框控件，两个名称分别为Command1、Command2，标题分别为“＞＞”、“＜＜”的命令按钮。请在List1中添加“文本框”、“标签”、“列表框”、“单选钮”等表项，如图3—168所示。程序的功能是：单击“＞＞”按钮，将List1中的表项添加到List2中，同时将List1清空；单击“＜＜”按钮，将List2中的表项添加到List1中，同时将List2清空。程序已给出，但是不完整。请将程序中的注释符去掉，把“?”改为正确的内容，实现上述功能。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。标准答案：(1)【操作步骤】步骤1：打开考生文件夹中的本题工程文件sjt3．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：n＝Len(Text1．Text)b＝Asc(Mid(s，i，1))SelectCasebFori＝0To2x(i)＝a(i)步骤2：按要求将文件保存至考生文件夹中。(2)【操作步骤】步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，通过List1列表框的List属性添加四个项目：文本框、标签、命令按钮、单选按钮。步骤2：在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：Fori＝0ToLa．ListCount－1Lb．AddItemLa．List(i)NextLa．Clear步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析7、(1)在考生文件夹中有工程文件sjt3．vbp，其中的窗体如图3－162所示。程序刚运行时，会生成一个有10个元素的整型数组。若选中“查找最大值”(或“查找最小值”)单选按钮，再单击“查找”按钮，则找出数组中的最大值(或最小值)，并显示在标签Label2中。请去掉程序中的注释符，把程序中的“?”改为正确的内容。注意：考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文件名存盘。(2)在考生文件夹中有一个工程文件sjt4．vbp。窗体上已有控件，如图3－163所示。请在属性窗口中将List1设置为可以多项选择(允许使用Shift键或Ctrl键进行选择)列表项。要求：双击List1中的某一项时，该项目被添加到List2中，同时在List1中清除该项目。若单击“＞＞”按钮，List1中所有的项目显示在List2中(List2中已有项目不变)，List1中的内容不变。要求：按照题目要求设置控件属性，去掉程序中的注释符，把程序中的“?”改为正确的内容。注意：不得修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。标准答案：第1小题【操作步骤】步骤1：打开考生文件夹下的工程文件sjt3．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：IfOption1．Value＝TrueThenIfa(i)＞＝xThenx＝a(i)EndIfElseIfa(i)＜yTheny＝a(i)EndIf步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：L2．AddItemL1．List(L1．ListIndex)L1．RemoveItemL1．ListIndexFori＝0ToLiSt1．LiStCount－1CallMoveItem(List1，List2)步骤2：按要求将文件保存至考生文件夹中。知识点解析：暂无解析8、（1）在考生文件夹下有一个工程文件sjt3.vbp，在Form1的窗体中有一个文本框、两个命令按钮和一个计时器。程序的功能是在运行时，单击“开始计数”按钮，就开始计数，每隔1秒，文本框中的数加1；单击“停止计数”按钮，则停止计数（如图1－28所示）。要求：修改适当的控件的属性，并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件以原来的文件名存盘。（2）已知出租车行驶不超过4千米时一律收费10元。超过4千米时分段处理，具体处理方式为：15千米以内每千米加收1.2元，15千米以上每千米收1.8元。在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是：单击“输入”按钮，将弹出一个输入对话框，接收出租车行驶的里程数；单击“计算”按钮，则可根据输入的里程数计算应付的出租车费，并将计算结果显示在名称为Text1的文本框内。在窗体文件中已经给出了全部控件（如图1－29所示），但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。标准答案：第1小题【操作步骤】步骤1：打开本题工程文件sjt3.vbp，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：SelectCaseIndexCase0Text1.Text=Text1.Text+1步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件夹中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：SelectCasesf=10f=10+(s-4)*1.2CaseElsef=10+(15-4)*1.2+(s-15)*1.8步骤2：按要求将文件保存至考生文件夹中。知识点解析：暂无解析9、（1）在名称为Form1的窗体上画一个计时器，其名称为Timer1；再画一个图像框，其名称为Image1，在该图像框中装入一个图形文件pic.ico；然后画一个水平滚动条，其名称为HScroll1，Min属性值为100，Max属性值为1200，LargeChange属性值为100，SmallChange属性值为25，编写适当的事件过程。程序运行后，可以使图像框闪烁，其闪烁速度可以通过滚动条调节。要求：图像框的闪烁可以通过图像框交替地显示和隐藏来实现。程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。（2）在考生目录下有一个工程文件sjt4.vbp，包含了所有控件和部分程序，如图1－58所示。要求如下：①利用属性窗口设置适当的属性：为List1列表框添加三个项目：宋体、黑体、楷体_GB2312；Text1文本框设置初始值为“计算机”；Hscroll1水平滚动条设置最小值和最大值分别为10、50。②去掉程序中的注释符，把程序中的?改为正确的内容，完成以下功能：如果在列表框中选择一种字体，然后移动滚动条中的滚动框，则可使文本框中的文字按所选择的字体显示，并可随着滚动框的移动放大或缩小；如果不选择字体直接移动滚动框，则显示一个信息框，提示“请选择字体”。注意：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。标准答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表2－6在窗体中画出控件并设置其相关属性。步骤2：打开代码编辑窗口，分别编写计时器的Timer事件过程和滚动条的Change事件过程。参考代码：PrivateSubHScroll1_Change()Timer1.Interval=HScroll1.ValueEndSubPrivateSubTimer1_Timer()Image1.Visible=NotImage1.VisibleEndSub步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt4.vbp，如表2－7设置控件的相关属性。步骤2：打开代码编辑窗口，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：Text1.FontSize=HScroll1.ValueText1.FontName=List1.Text步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析10、在名称为Forml的窗体上画两个图片框，名称分别为Pl、P2，高度均为1900，宽度均为1700，通过属性窗口把图片文件picl．bmp放入P1中，把图片文件pic2．jpg放入P2中：再画一个命令按钮，名称为C1，标题为”交换图片”(如图2-208所示)。编写适当的事件过程，使得在运行时，如果单击”交换图片”按钮，则在P1中显示pic2．jpg，在P2中显示picl．bmp。程序中不得使用任何变量，也不能使用第三个图片框。注意：存盘时必须存放在考生文件夹下，工程文件名为sit3．vbp，窗体文件名为sjt3．frm。标准答案：步骤1：新建一个”标准EXE”工程，在窗体Forml中如表3-122画出所列控件并设置其相关属性。步骤2：打开代码编辑窗口，编写命令按钮的Click事件过程：参考代码：PrivateSubCl_Click()Picl．Picture=LoadPicture(App．Path+_“＼pic2．bmp”)Pic2．Picture=LoadPicture(App．Path+_“＼picl．bmp”)EndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：暂无解析国家二级VB机试（简单应用题）模拟试卷第3套一、简单应用题(本题共10题，每题1.0分，共10分。)1、(1)在考生文件夹下有一个工程文件sjt3．vbp。程序的功能是通过键盘向文本框中输入正整数。在“除数”框架中选择一个单选按钮，然后单击“处理数据”按钮，将大于文本框中的正整数且能够被所选除数整除的5个数添加到列表框List1中，如图3—80所示。在窗体文件中已经给出了全部控件，但程序不完整。要求：请去掉程序中的注释符，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp。程序运行后，单击“开始”按钮，图片自上而下移动，同时滚动条的滑块随之移动，每0．5秒移动一次。当图片顶端移动到距窗体的下边界的距离少于200时，再回到窗体顶部，重新向下移动，如图3—81所示。在窗体文件中已经给出了全部控件，但程序不完整。要求：请去掉程序中的注释符，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。标准答案：第1小题步骤1：打开考生文件下的本题工程文件sjt3．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：IfOption1．Item(i)=TrueTheny=val(Option1(i)．Caption)DoWhilei＜=5List1．AddItemx步骤2：按要求将文件保存至考生文件夹中。第2小题步骤1：打开考生文件夹下的工程文件sjt4．vbp。步骤2：进入代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：Timer1．Interva1=500VScroll1．Value=Picture1．TopPicture1．Top=0步骤3：按要求将文件保存至考生文件夹中。知识点解析：第1小题：判断整数A能被整数B整除的条件表达式为：AModB=0。本题源程序在“计算数据”的单击事件过程中，通过For循环逐一判断单选按钮数组中的每个元素是否选中，用变量y记录选中单选按钮所标识的数字，并调用过程“calc”计算满足条件的正整数。在过程“calc”中，通过Do循环依次判断大干文本框中数的正整数是否能被变量y整除，将能被整除的前5个数添加到列表框List1中。第2小题：本题源程序利用计时器的Timer事件来控制图片的移动，因此单击“开始”按钮启动计时器，而单击“停止”按钮就是要停止计时器。在计时器的Timer事件过程中，通过每次使图片框的Top属性值增量200实现移动，并让垂直滚动条滑块的位置随图片框的Top属性值变化。当图片顶端移动到距窗体的下边界的距离少于200时(即VScroll1．Value+200＞=Form1．Height．200)时，则重新从窗体顶端开始移动，即Picture1．Top=0。由于题目要求不能在设计阶段修改控件属性，要想在单击“开始”按钮时能启动计时器，就需在窗体加载事件过程中设置计时器的Interval属性，即Timer1．Interva1=500。2、(1)在考生文件夹下有一个工程文件sjt3．vbp。程序运行后，单击“读入数据”按钮，可将考生文件夹下in3．txt文件中的所有英文单词读入，并在Text1文本框中显示；单击“插入列表框”按钮，则按顺序将每个单词作为一项添加到List1列表框中(如图所示)。在irr3．txt文件中，每个单词之间用一个空格字符隔开，最后一个单词的后面没有空格。已经给出了所有控件和程序，但程序不完整。要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。(2)在考生文件夹下有一个工程文件sjt4．vbp，窗体上已经添加所有控件，如图所示。在程序运行时，如果单击“开始”按钮，则每隔0．1秒窗体上的汽车图标向右移动一次(初始状态下不移动)；如果单击“停止”按钮，则停止移动。请完成以下工作：①设置适当控件的适当属性，使得每0．1秒汽车图标向右移动一次，而初始状态下不移动。②请去掉程序中的注释符，把程序中的?改为正确的内容。③为两个命令按钮编写适当的事件过程，最后以原文件名存盘。注意：不得修改已经给出的程序。编写事件的过程中不能使用变量，每个事件过程中只能有一条语句。标准答案：(1)【操作步骤】步骤1：打开本题工程文件。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。参考答案PrivateSubCommand1_Click()Dimst$，ch$OpenApp．Path＆"＼in3．txt"ForInputAs#1’打开文件DoWhileNotEOF(1)’文件指针是否到达文件末尾Input#1，ch’达到文件末尾返回true。否则返回falsest＝st＆ch’将读出的数据加到原有数据末尾LoopClose#’关闭文件Text1＝st’将内容显示在文本框中EndSubPrivateSubCommand2_Click()Dimst$，word$，c$St＝Text1n＝Len(st)Fork＝1Tonc＝Mid(st，k，1)’从st中依次取出1个字符进行比较Ifc＜＞""ThenWord＝word＆CElseList1．AddItemWordword＝""’将word清空，为下一次作准备EndIfNextList1．AddItemwordEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。(2)【操作步骤】步骤1：打开本题工程文件，设置计时器Interval的属性为100，将Enabled属性设置为False。步骤2：打开代码编辑窗口，在指定位置编写如下代码。参考答案PrivateSubTimer1Timer()P1．Left＝P1．Left＋20EndSub’需要考生编写的内容PrivateSubC1_Click()Timer1．Enabled＝TrueEndSubPrivateSubC2_Click()Timer1．Enabled＝FalseEnd．Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析3、(1)在考生文件夹下有一个工程文件sjt3．vbp，在Form1的窗体中有一个文本框、一个计时器和两个命令按钮。程序的功能是在运行时，单击“开始计数”按钮，就开始计数(如图所示)，每隔1秒，文本框中的数加1；单击“停止计数”按钮，则停止计数。要求：修改适当的控件的属性，并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件以原来的文件名存盘。(2)已知出租车行驶不超过4公里时一律收费10元。超过4公里时分段处理，具体处理方式为：15公里以内每公里加收1．2元，15公里以上每公里收1．8元。在考生文件夹下有一个工程文件sjt4．vbp。程序的功能是：单击“输入”按钮，将弹出一个输入对话框，接收出租车行驶的里程数；单击“计算”按钮，则可根据输入的里程数计算应付的出租车费，并将计算结果在名称为Text1的文本框内显示。在窗体文件中已经给出了全部控件(如图所示)，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。标准答案：(1)【操作步骤】步骤1：打开本题工程文件，设置计时器Interval属性为1000，Enabled属性设置为False。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。参考答案PrivateSubC1_Click(IndexAsInteger)SelectCaseIndex’通过控件下标确定单击哪一个按钮Case1Timer1．Enabled＝FalseCase0’控制下标从0开始，此处应为0Timer1．Enabled＝TrueEndSelectEndSubPrivateSubTimer1Timer()Text1．Text＝Text1．Text＋1’Text1中的内容加1显示EndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。(2)【操作步骤】步骤1：打开本题工程文件。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。参考答案DimsAsIntegerPrivateSubCommand1_Click()s＝Val(InputBox("输入里程数(单位：公里)"))’s用于存储里程数EndSubPrivateSubCommand2_Click()Tfs＞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中显示结果ElseMsgBox"请单击"输入"按钮输入里程数!"EndIfEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析4、(1)在考生文件夹下有一个工程文件sjt3．vbp。窗体上有名称为Timer1的定时器，以及名称为Line1和Line2的两条水平直线。请用名称为Shape1的形状控件，在两条直线之间画一个宽和高都相等的形状，其显示形式为圆，并设置适当属性使其满足以下要求：①圆的顶端距窗体Form1顶端的距离为360；②圆的颜色为红色(红色对应的值为&H000000FF&或&HFF&)，如图3—124所示。程序运行时，Shape1将在Line1和Line2之间运动。当Shape1的顶端到达Line1时，会自动改变方向而向下运动；当Shape1的底部到达Line2时，会改变方向而向上运动。文件中给出的程序不完整，请去掉程序中的注释符，把程序中的?改为正确内容，使其实现上述功能。注意：不能修改程序的其他部分和已给出控件的属性。最后将修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文