2025年VB考试实战案例试题及答案

2025年VB考试实战案例试题及答案一、操作题（共60分）1.（15分）创建“社区志愿者管理”窗体（Form1），要求如下：（1）窗体标题设置为“志愿者信息录入”，启动位置为屏幕中心；（2）添加标签控件Label1，Caption属性为“姓名：”，字体为“微软雅黑”12号加粗，位于窗体左上角（100,100）；（3）添加文本框控件txtName，大小为（1800,250），位于Label1右侧（Label1.Left+Label1.Width+50,Label1.Top）；（4）添加单选按钮组表示性别：单选按钮optMale（Caption“男”）、optFemale（Caption“女”），要求同一组且默认选中“男”；（5）添加组合框cmbServiceType，列表项为“环保宣传”“社区帮扶”“应急救援”，Style属性设置为2（下拉列表框）；（6）添加复选框chkActivity，Caption为“是否参与本周活动”，初始状态为未选中；（7）添加命令按钮cmdSave（Caption“保存”）和cmdClear（Caption“清空”），水平排列于窗体底部，间距为200，按钮宽度统一为1000。2.（20分）为Form1添加数据验证与文件存储功能，要求：（1）当点击“保存”按钮时，检查姓名是否为空（txtName.Text.trim=""），若为空则弹出消息框“姓名不能为空！”（标题“错误”），并将焦点置于txtName；（2）若性别未选中（optMale.Value=False且optFemale.Value=False），弹出消息框“请选择性别！”；（3）验证通过后，将志愿者信息按以下格式写入D盘“volunteers.txt”文件（追加模式）：姓名：{姓名}|性别：{性别}|服务类型：{cmbServiceType选中项}|参与活动：{chkActivity.Value为1则显示“是”，否则“否”}|时间：{当前系统时间（格式“yyyy-MM-ddHH:mm:ss”）}（4）写入成功后弹出消息框“保存成功！”，并清空所有输入控件（txtName清空，性别默认“男”，cmbServiceType重置为第一项，chkActivity取消选中）。3.（25分）创建“服务时长统计”窗体（Form2），通过菜单调用，要求：（1）在Form1中添加主菜单控件MainMenu，包含“功能”子菜单（Caption“功能”），其子菜单项为“统计服务时长”（Name“mnuStat”）；（2）点击“统计服务时长”时，显示Form2（非模态）；（3）Form2中添加列表框lstStatistics，用于显示统计结果；（4）Form2加载时，读取D盘“service_hours.csv”文件（格式：姓名,服务类型,时长（小时）），按服务类型分组统计总时长，结果格式为“服务类型：{类型}|总时长：{总时长}小时”，并将统计结果添加至lstStatistics；（5）添加“导出Excel”按钮cmdExport，点击时将lstStatistics内容导出至D盘“统计结果.xls”，每行为一条统计记录（列标题为“服务类型”“总时长（小时）”）。二、编程题（共40分）4.（20分）在Form1中实现“批量导入”功能，要求：（1）添加命令按钮cmdImport（Caption“批量导入”），点击时弹出“打开文件”对话框（Filter设置为“文本文件|.txt”）；（2）用户选择文件后，逐行读取文件内容（每行格式：姓名,性别,服务类型,是否参与活动），例如“张三,男,环保宣传,是”；（3）对每行数据进行验证：姓名不能为空且长度不超过10字符；性别必须为“男”或“女”；服务类型必须存在于cmbServiceType的列表项中；“是否参与活动”必须为“是”或“否”；（4）验证失败的行记录错误原因（如“第3行：性别格式错误”），并将所有错误信息汇总后弹出消息框提示；（5）验证通过的行自动填充至Form1对应控件（姓名→txtName，性别→选中对应单选按钮，服务类型→cmbServiceType选中项，是否参与活动→chkActivity勾选状态），并自动触发“保存”按钮的点击事件完成存储（要求调用cmdSave的Click事件过程，而非重复编写保存代码）。5.（20分）在Form2中添加数据库连接功能（使用Access数据库“volunteer.accdb”，表名“ServiceRecords”，字段：姓名（文本）、服务类型（文本）、时长（数字）、日期（日期/时间）），要求：（1）添加“从数据库加载”按钮cmdLoadDB，点击时连接数据库，查询2025年1月1日至今的记录；（2）查询结果按服务类型分组，统计每组的总时长和记录数（格式：“服务类型：{类型}|总时长：{总时长}小时|记录数：{记录数}条”）；（3）将统计结果显示在lstStatistics中（原文件统计结果保留，新结果追加在下方）；（4）添加错误处理：若数据库连接失败（如路径错误），弹出消息框“数据库连接失败，请检查路径！”；若查询无结果，弹出消息框“无符合条件的记录！”；（5）使用ADODB对象实现数据库操作（需写出完整连接、命令、记录集对象的创建与释放代码）。答案一、操作题答案1.操作步骤：（1）新建窗体Form1，设置属性：Caption="志愿者信息录入"，StartUpPosition=2（屏幕中心）；（2）添加Label1，设置属性：Caption="姓名："，Font.Name="微软雅黑"，Font.Size=12，Font.Bold=True，Left=100，Top=100；（3）添加txtName，设置Width=1800，Height=250，Left=Label1.Left+Label1.Width+50，Top=Label1.Top；（4）添加optMale（Left=100，Top=Label1.Top+Label1.Height+100），optFemale（Left=optMale.Left+optMale.Width+100，Top=optMale.Top），设置optMale.Value=True；（5）添加cmbServiceType，设置Style=2，AddItem"环保宣传"，AddItem"社区帮扶"，AddItem"应急救援"，Left=100，Top=optMale.Top+optMale.Height+100，Width=1800；（6）添加chkActivity，Caption="是否参与本周活动"，Left=100，Top=cmbServiceType.Top+cmbServiceType.Height+100；（7）添加cmdSave（Caption="保存"，Width=1000，Left=100，Top=chkActivity.Top+chkActivity.Height+200），cmdClear（Caption="清空"，Width=1000，Left=cmdSave.Left+cmdSave.Width+200，Top=cmdSave.Top）。2.代码实现（Form1的代码窗口）：```vbPrivateSubcmdSave_Click()'数据验证IfTrim(txtName.Text)=""ThenMsgBox"姓名不能为空！",vbExclamation,"错误"txtName.SetFocusExitSubEndIfIfNotoptMale.ValueAndNotoptFemale.ValueThenMsgBox"请选择性别！",vbExclamation,"错误"ExitSubEndIf'获取性别DimstrGenderAsStringIfoptMale.ValueThenstrGender="男"ElsestrGender="女"'获取参与活动状态DimstrActivityAsStringstrActivity=IIf(chkActivity.Value=1,"是","否")'写入文件DimstrPathAsString:strPath="D:\volunteers.txt"OpenstrPathForAppendAs1Print1,"姓名："&txtName.Text&"|性别："&strGender&"|服务类型："&cmbServiceType.Text&"|参与活动："&strActivity&"|时间："&Format(Now,"yyyy-MM-ddHH:mm:ss")Close1'提示并清空MsgBox"保存成功！",vbInformationtxtName.Text=""optMale.Value=TruecmbServiceType.ListIndex=0chkActivity.Value=0EndSubPrivateSubcmdClear_Click()txtName.Text=""optMale.Value=TruecmbServiceType.ListIndex=0chkActivity.Value=0EndSub```3.操作与代码：（1）Form1中添加MainMenu控件，设置“功能”菜单的Caption为“功能”，子菜单项mnuStat的Caption为“统计服务时长”；（2）mnuStat的Click事件代码：Form2.ShowvbModeless；（3）Form2中添加lstStatistics（宽度占满窗体，高度为2000）；（4）Form2的Load事件代码：```vbPrivateSubForm_Load()DimstrPathAsString:strPath="D:\service_hours.csv"DimdictTypeAsObject:SetdictType=CreateObject("Scripting.Dictionary")DimstrLineAsString,arrData()AsString,strTypeAsString,dblHoursAsDoubleIfDir(strPath)=""ThenExitSub'文件不存在则跳过OpenstrPathForInputAs1DoUntilEOF(1)LineInput1,strLinearrData=Split(strLine,",")IfUBound(arrData)>=2ThenstrType=arrData(1)dblHours=Val(arrData(2))IfdictType.Exists(strType)ThendictType(strType)=dictType(strType)+dblHoursElsedictType.AddstrType,dblHoursEndIfEndIfLoopClose1'填充列表框ForEachKeyIndictTypelstStatistics.AddItem"服务类型："&Key&"|总时长："&dictType(Key)&"小时"NextEndSub```（5）cmdExport的Click事件代码：```vbPrivateSubcmdExport_Click()DimxlAppAsObject,xlBookAsObject,xlSheetAsObjectSetxlApp=CreateObject("Excel.Application")SetxlBook=xlApp.Workbooks.AddSetxlSheet=xlBook.Sheets(1)'写入列标题xlSheet.Cells(1,1)="服务类型"xlSheet.Cells(1,2)="总时长（小时）"'写入数据Fori=0TolstStatistics.ListCount1DimarrItem()AsString:arrItem=Split(lstStatistics.List(i),"|")xlSheet.Cells(i+2,1)=Trim(Replace(arrItem(0),"服务类型：",""))xlSheet.Cells(i+2,2)=Trim(Replace(arrItem(1),"总时长：","").Replace("小时",""))NextxlBook.SaveAs"D:\统计结果.xls"xlBook.ClosexlApp.QuitSetxlSheet=Nothing:SetxlBook=Nothing:SetxlApp=NothingMsgBox"导出完成！"EndSub```二、编程题答案4.cmdImport的Click事件代码：```vbPrivateSubcmdImport_Click()DimdlgOpenAsDialogSetdlgOpen=CommonDialog1'需添加CommonDialog控件dlgOpen.Filter="文本文件|.txt"OnErrorResumeNextdlgOpen.ShowOpenIfErr.Number<>0ThenExitSub'用户取消DimstrPathAsString:strPath=dlgOpen.FileNameDimstrLineAsString,arrData()AsString,intLineNumAsInteger=0DimstrErrorsAsString,blnValidAsBooleanOpenstrPathForInputAs1DoUntilEOF(1)intLineNum=intLineNum+1LineInput1,strLinearrData=Split(strLine,",")blnValid=True'验证姓名IfUBound(arrData)<0OrTrim(arrData(0))=""OrLen(arrData(0))>10ThenstrErrors=strErrors&"第"&intLineNum&"行：姓名为空或超过10字符；"blnValid=FalseEndIf'验证性别IfUBound(arrData)<1Or(arrData(1)<>"男"AndarrData(1)<>"女")ThenstrErrors=strErrors&"第"&intLineNum&"行：性别格式错误；"blnValid=FalseEndIf'验证服务类型IfUBound(arrData)<2OrcmbServiceType.FindString(arrData(2))=-1ThenstrErrors=strErrors&"第"&intLineNum&"行：服务类型不存在；"blnValid=FalseEndIf'验证参与活动状态IfUBound(arrData)<3Or(arrData(3)<>"是"AndarrData(3)<>"否")ThenstrErrors=strErrors&"第"&intLineNum&"行：参与状态格式错误；"blnValid=FalseEndIfIfblnValidThen'填充控件txtName.Text=arrData(0)IfarrData(1)="男"ThenoptMale.Value=TrueElseoptFemale.Value=TruecmbServiceType.Text=arrData(2)chkActivity.Value=IIf(arrData(3)="是",1,0)'触发保存事件cmdSave_ClickEndIfLoopClose1IfstrErrors<>""ThenMsgBox"以下行导入失败："&vbCrLf&strErrors,vbExclamationEndIfEndSub```5.cmdLoadDB的Click事件代码：```vbPrivateSubcmdLoadDB_Click()DimconnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimcmdAsNewADODB.CommandDimstrConnAsString,strSQLAsStringDimdictDBAsObject:SetdictDB=CreateObject("Scripting.Dictionary")'连接数据库OnErrorGoToerrHandlerstrConn="Provider=Microsoft.ACE.OLEDB.12.0;DataSource=D:\volunteer.accdb;PersistSecurityInfo=False"