2025年计算机VB二级考试上机题带答案

2025年计算机VB二级考试上机题带答案第一部分基本操作题（共30分，2小题，每题15分）1.基本操作题第1小题（15分）【题目要求】在考生文件夹下新建名为VB01.vbp的工程，完成如下操作：（1）设置窗体Form1的名称为frmMain，标题为“基础控件操作”，启动时在屏幕居中显示，边框样式为固定对话框，无最大化、最小化按钮。（2）在窗体上添加1个标签控件（名称为lblShow，AutoSize属性为True，初始Visible属性为False）、1个命令按钮（名称为cmdDisplay，标题为“显示内容”）。（3）编写程序代码，实现如下功能：单击“显示内容”按钮时，标签控件可见，显示内容为“2025年全国计算机等级考试VB二级”，字体设置为微软雅黑、四号字、加粗、颜色为RGB(0,0,153)。【操作步骤】（1）打开VB6.0开发环境，新建标准EXE工程，将工程保存为VB01.vbp，窗体文件保存为VB01.frm，存放路径为考生文件夹。（2）选中窗体Form1，在属性窗口修改Name属性为frmMain，Caption属性为“基础控件操作”，StartUpPosition属性设置为“2-屏幕中心”，BorderStyle属性设置为“3-FixedDialog”，MaxButton和MinButton属性均设置为False。（3）点击工具箱中的标签控件，在窗体上绘制1个标签，修改其Name属性为lblShow，AutoSize属性为True，Visible属性为False。（4）点击工具箱中的命令按钮控件，在标签下方绘制1个命令按钮，修改其Name属性为cmdDisplay，Caption属性为“显示内容”。（5）双击命令按钮进入代码编辑窗口，编写Click事件代码：```vbPrivateSubcmdDisplay_Click()lblShow.Visible=TruelblShow.Caption="2025年全国计算机等级考试VB二级"lblShow.Font.Name="微软雅黑"lblShow.Font.Size=14'四号字对应字号数值为14lblShow.Font.Bold=TruelblShow.ForeColor=RGB(0,0,153)EndSub```【评分要点】（1）窗体属性设置正确，共4分：名称、标题、居中显示、边框样式各1分。（2）控件添加及属性设置正确，共5分：标签属性3分（名称、AutoSize、初始可见性各1分），命令按钮属性2分（名称、标题各1分）。（3）代码功能实现正确，共6分：显示标签1分，内容正确1分，字体设置2分，字号加粗1分，颜色正确1分。【易错点提示】Font.Size属性需填写数值，不能直接填写“四号”汉字；RGB函数三个参数分别对应红、绿、蓝通道数值，取值范围为0-255。2.基本操作题第2小题（15分）【题目要求】在考生文件夹下新建名为VB02.vbp的工程，完成如下操作：（1）设置窗体Form1标题为“列表框与菜单操作”，添加1个列表框控件（名称为lstCity，初始内容为空）。（2）编辑下拉菜单：主菜单标题为“城市操作”，名称为mnuCity；下设3个子菜单，分别为“添加城市”（名称mnuAdd）、“删除选中项”（名称mnuDel）、“清空列表”（名称mnuClear）。（3）编写代码实现以下功能：窗体加载时，列表框自动添加“北京”“上海”“广州”“深圳”4个选项；单击“添加城市”子菜单时，弹出输入框接收用户输入的城市名，添加到列表框末尾；单击“删除选中项”子菜单时，删除列表框当前选中的条目（无选中项时不操作）；单击“清空列表”子菜单时，清空列表框所有内容。【操作步骤】（1）新建标准EXE工程，保存为VB02.vbp，窗体文件保存为VB02.frm。（2）修改窗体Caption属性为“列表框与菜单操作”，添加列表框控件，修改Name属性为lstCity。（3）打开菜单编辑器，依次添加主菜单：标题“城市操作”、名称mnuCity；依次添加子菜单：标题“添加城市”、名称mnuAdd；标题“删除选中项”、名称mnuDel；标题“清空列表”、名称mnuClear，子菜单均缩进1级。（4）进入代码编辑窗口，编写各事件代码：```vbPrivateSubForm_Load()'窗体加载初始化列表项lstCity.AddItem"北京"lstCity.AddItem"上海"lstCity.AddItem"广州"lstCity.AddItem"深圳"EndSubPrivateSubmnuAdd_Click()DimnewCityAsStringnewCity=InputBox("请输入要添加的城市名称：","输入提示")IfTrim(newCity)<>""Then'判断输入不为空再添加lstCity.AddItemnewCityEndIfEndSubPrivateSubmnuDel_Click()IflstCity.ListIndex<>-1Then'判断存在选中项lstCity.RemoveItemlstCity.ListIndexEndIfEndSubPrivateSubmnuClear_Click()lstCity.ClearEndSub```【评分要点】（1）菜单编辑正确，共5分：主菜单2分，3个子菜单各1分。（2）控件属性设置正确，共3分：窗体标题1分，列表框名称2分。（3）代码功能实现正确，共7分：初始化列表2分，添加功能2分，删除功能2分，清空功能1分。【易错点提示】列表框ListIndex属性值为-1时表示无选中项，删除前需判断避免运行错误；AddItem方法默认将内容添加到列表末尾，若需指定位置可添加第二个索引参数。第二部分简单应用题（共40分，2小题，每题20分）1.简单应用题第1小题（20分）【题目要求】考生文件夹下已有工程VB03.vbp，界面已完成设计，包含2个文本框（名称txtInput、txtOutput，txtOutput初始为空、只读属性为True）、2个单选按钮（名称optOdd、optFact，标题分别为“判断奇偶”“计算阶乘”）、1个复选框（名称chkBoth，标题为“同时输出两项结果”）、1个命令按钮（名称cmdCalc，标题为“计算”）。请补全代码，实现以下功能：（1）用户在txtInput输入正整数，点击“计算”按钮时，首先判断输入是否为合法正整数，若不合法则弹出提示“请输入有效正整数”并清空输入框。（2）若单选按钮选中“判断奇偶”，则输出该数是奇数还是偶数；若选中“计算阶乘”，则输出该数的阶乘结果（输入值超过12时提示“输入值过大，无法计算阶乘”，避免溢出）。（3）若复选框被勾选，则无论单选按钮选中哪一项，均同时输出奇偶判断结果和阶乘结果。【补全后完整代码】```vb'自定义奇偶判断函数PrivateFunctionIsOdd(nAsInteger)AsBooleanIfnMod2=1ThenIsOdd=TrueElseIsOdd=FalseEndIfEndFunction'自定义阶乘计算函数PrivateFunctionCalcFact(nAsInteger)AsLongDimiAsIntegerCalcFact=1Fori=1TonCalcFact=CalcFact*iNextiEndFunctionPrivateSubcmdCalc_Click()DimnumAsInteger,resStrAsString'输入合法性判断IfNotIsNumeric(txtInput.Text)ThenMsgBox"请输入有效正整数",vbExclamation,"输入错误"txtInput.Text=""txtInput.SetFocusExitSubEndIfnum=Val(txtInput.Text)Ifnum<=0Ornum>12ThenMsgBox"请输入1-12之间的正整数",vbExclamation,"输入错误"txtInput.Text=""txtInput.SetFocusExitSubEndIfresStr=""'判断是否需要同时输出IfchkBoth.Value=1ThenresStr=resStr&"奇偶判断结果："&IIf(IsOdd(num),"奇数","偶数")&vbCrLfresStr=resStr&"阶乘计算结果："&CalcFact(num)ElseIfoptOdd.Value=TrueThenresStr="奇偶判断结果："&IIf(IsOdd(num),"奇数","偶数")ElseresStr="阶乘计算结果："&CalcFact(num)EndIfEndIftxtOutput.Text=resStrEndSub```【评分要点】（1）输入合法性判断正确，共5分：非数值判断2分，数值范围判断2分，错误提示1分。（2）自定义函数实现正确，共6分：奇偶判断函数3分，阶乘计算函数3分。（3）逻辑判断功能正确，共7分：复选框判断2分，单选按钮判断2分，结果拼接3分。（4）输出格式正确，共2分：换行显示、内容准确各1分。【易错点提示】Long型变量最大存储值为2147483647，13的阶乘为6227020800超出范围，因此需限制输入值不超过12；IIf函数为三目运算函数，格式为IIf(条件,成立返回值,不成立返回值)。2.简单应用题第2小题（20分）【题目要求】考生文件夹下已有工程VB04.vbp，界面包含2个文本框（名称txtOrigin、txtSorted，MultiLine属性均为True，ScrollBars属性均为2-垂直）、2个命令按钮（名称cmdGenerate、cmdSort，标题分别为“生成随机数”“升序排序”）、1个标签（名称lblMax，标题为“最大值：”）。补全代码实现以下功能：（1）点击“生成随机数”按钮，随机生成10个1-100之间的整数，存储到一维数组arr中，并将数组元素以空格分隔显示在txtOrigin中。（2）点击“升序排序”按钮，用冒泡排序算法对数组进行升序排序，将排序后的数组显示在txtSorted中，同时将数组最大值显示在lblMax控件的标题末尾。【补全后完整代码】```vbDimarr(1To10)AsInteger'窗体级数组，两个事件共用PrivateSubcmdGenerate_Click()DimiAsInteger,strAsStringRandomize'初始化随机数种子，避免每次生成相同序列str=""Fori=1To10arr(i)=Int(Rnd*100+1)'生成1-100的整数str=str&arr(i)&""NextitxtOrigin.Text=Trim(str)EndSubPrivateSubcmdSort_Click()DimiAsInteger,jAsInteger,tempAsInteger,strAsStringDimmaxValAsInteger'冒泡排序升序Fori=1To9Forj=1To10-iIfarr(j)>arr(j+1)Then'交换元素temp=arr(j)arr(j)=arr(j+1)arr(j+1)=tempEndIfNextjNexti'拼接排序后字符串str=""maxVal=arr(10)'升序排序后最后一个元素为最大值Fori=1To10str=str&arr(i)&""NextitxtSorted.Text=Trim(str)lblMax.Caption="最大值："&maxValEndSub```【评分要点】（1）随机数生成正确，共6分：Randomize语句2分，随机数生成公式2分，数组存储1分，原始数据显示1分。（2）冒泡排序实现正确，共8分：外层循环2分，内层循环2分，元素交换3分，排序结果显示1分。（3）最大值计算与显示正确，共4分：最大值获取2分，标签显示2分。（4）变量与数组定义正确，共2分：窗体级数组定义2分。【易错点提示】Rnd函数生成0-1之间的单精度随机数，生成a-b之间整数的公式为Int(Rnd*(b-a+1)+a)；冒泡排序内层循环的上限需随外层循环次数递减，避免重复比较已排序的末尾元素。第三部分综合应用题（共30分）【题目要求】考生文件夹下已有工程VB05.vbp，界面包含1个列表框（名称lstTop3）、3个命令按钮（名称cmdRead、cmdCalc、cmdSave，标题分别为“读取成绩”“统计计算”“保存结果”）、1个通用对话框控件（名称cdlFile）。考生文件夹下存在in.txt文件，存储了20名学生的成绩信息，每行格式为“学号,姓名,语文成绩,数学成绩,英语成绩”，各项用英文逗号分隔。请编写代码实现以下功能：（1）点击“读取成绩”按钮，读取in.txt文件中的所有学生信息，存储到自定义类型的数组中。（2）点击“统计计算”按钮，计算每名学生的总分、平均分，按总分降序排序后，将排名前3的学生信息（学号、姓名、总分）显示在lstTop3中。（3）点击“保存结果”按钮，弹出“另存为”对话框，默认保存路径为考生文件夹，默认文件名为out.txt，将所有20名学生的学号、姓名、总分、平均分（保留1位小数）写入保存的文件中。【完整代码】```vb'自定义学生信息类型，需写在窗体代码通用声明段PrivateTypeStuInfoidAsString*8nameAsString*8chineseAsIntegermathAsIntegerenglishAsIntegertotalAsIntegeravgAsSingleEndTypeDimstu(1To20)AsStuInfo'存储20名学生信息的数组DimisReadAsBoolean'标记是否已读取数据，避免未读取直接计算PrivateSubcmdRead_Click()DimiAsIntegerOpenApp.Path&"\in.txt"ForInputAs#1Fori=1To20'按逗号分隔读取每行数据Input#1,stu(i).id,stu(i).name,stu(i).chinese,stu(i).math,stu(i).englishNextiClose#1isRead=TrueMsgBox"成绩数据读取完成",vbInformation,"提示"EndSubPrivateSubcmdCalc_Click()IfNotisReadThenMsgBox"请先读取成绩数据",vbExclamation,"操作提示"ExitSubEndIfDimiAsInteger,jAsInteger,tempAsStuInfo'计算总分和平均分Fori=1To20stu(i).total=stu(i).chinese+stu(i).math+stu(i).englishstu(i).avg=Round(stu(i).total/3,1)'保留1位小数Nexti'冒泡排序按总分降序Fori=1To19Forj=1To20-iIfstu(j).total<stu(j+1).totalThentemp=stu(j)stu(j)=stu(j+1)stu(j+1)=tempEndIfNextjNexti'显示前3名到列表框lstTop3.ClearFori=1To3lstTop3.AddItem"第"&i&"名："&Trim(stu(i).id)&""&Trim(stu(i).name)&"总分："&stu(i).totalNextiEn