2025年VB考試實(shí)戰(zhàn)案例試題及答案一、操作題（共60分）1.（15分）創(chuàng)建“社區(qū)志愿者管理”窗體（Form1），要求如下：（1）窗體標(biāo)題設(shè)置為“志愿者信息錄入”，啟動位置為屏幕中心；（2）添加標(biāo)簽控件Label1，Caption屬性為“姓名：”，字體為“微軟雅黑”12號加粗，位于窗體左上角（100,100）；（3）添加文本框控件txtName，大小為（1800,250），位于Label1右側(cè)（Label1.Left+Label1.Width+50,Label1.Top）；（4）添加單選按鈕組表示性別：單選按鈕optMale（Caption“男”）、optFemale（Caption“女”），要求同一組且默認(rèn)選中“男”；（5）添加組合框cmbServiceType，列表項(xiàng)為“環(huán)保宣傳”“社區(qū)幫扶”“應(yīng)急救援”，Style屬性設(shè)置為2（下拉列表框）；（6）添加復(fù)選框chkActivity，Caption為“是否參與本周活動”，初始狀態(tài)為未選中；（7）添加命令按鈕cmdSave（Caption“保存”）和cmdClear（Caption“清空”），水平排列于窗體底部，間距為200，按鈕寬度統(tǒng)一為1000。2.（20分）為Form1添加數(shù)據(jù)驗(yàn)證與文件存儲功能，要求：（1）當(dāng)點(diǎn)擊“保存”按鈕時(shí)，檢查姓名是否為空（txtName.Text.trim=""），若為空則彈出消息框“姓名不能為空！”（標(biāo)題“錯誤”），并將焦點(diǎn)置于txtName；（2）若性別未選中（optMale.Value=False且optFemale.Value=False），彈出消息框“請選擇性別！”；（3）驗(yàn)證通過后，將志愿者信息按以下格式寫入D盤“volunteers.txt”文件（追加模式）：姓名：{姓名}|性別：{性別}|服務(wù)類型：{cmbServiceType選中項(xiàng)}|參與活動：{chkActivity.Value為1則顯示“是”，否則“否”}|時(shí)間：{當(dāng)前系統(tǒng)時(shí)間（格式“yyyy-MM-ddHH:mm:ss”）}（4）寫入成功后彈出消息框“保存成功！”，并清空所有輸入控件（txtName清空，性別默認(rèn)“男”，cmbServiceType重置為第一項(xiàng)，chkActivity取消選中）。3.（25分）創(chuàng)建“服務(wù)時(shí)長統(tǒng)計(jì)”窗體（Form2），通過菜單調(diào)用，要求：（1）在Form1中添加主菜單控件MainMenu，包含“功能”子菜單（Caption“功能”），其子菜單項(xiàng)為“統(tǒng)計(jì)服務(wù)時(shí)長”（Name“mnuStat”）；（2）點(diǎn)擊“統(tǒng)計(jì)服務(wù)時(shí)長”時(shí)，顯示Form2（非模態(tài)）；（3）Form2中添加列表框lstStatistics，用于顯示統(tǒng)計(jì)結(jié)果；（4）Form2加載時(shí)，讀取D盤“service_hours.csv”文件（格式：姓名,服務(wù)類型,時(shí)長（小時(shí)）），按服務(wù)類型分組統(tǒng)計(jì)總時(shí)長，結(jié)果格式為“服務(wù)類型：{類型}|總時(shí)長：{總時(shí)長}小時(shí)”，并將統(tǒng)計(jì)結(jié)果添加至lstStatistics；（5）添加“導(dǎo)出Excel”按鈕cmdExport，點(diǎn)擊時(shí)將lstStatistics內(nèi)容導(dǎo)出至D盤“統(tǒng)計(jì)結(jié)果.xls”，每行為一條統(tǒng)計(jì)記錄（列標(biāo)題為“服務(wù)類型”“總時(shí)長（小時(shí)）”）。二、編程題（共40分）4.（20分）在Form1中實(shí)現(xiàn)“批量導(dǎo)入”功能，要求：（1）添加命令按鈕cmdImport（Caption“批量導(dǎo)入”），點(diǎn)擊時(shí)彈出“打開文件”對話框（Filter設(shè)置為“文本文件|.txt”）；（2）用戶選擇文件后，逐行讀取文件內(nèi)容（每行格式：姓名,性別,服務(wù)類型,是否參與活動），例如“張三,男,環(huán)保宣傳,是”；（3）對每行數(shù)據(jù)進(jìn)行驗(yàn)證：姓名不能為空且長度不超過10字符；性別必須為“男”或“女”；服務(wù)類型必須存在于cmbServiceType的列表項(xiàng)中；“是否參與活動”必須為“是”或“否”；（4）驗(yàn)證失敗的行記錄錯誤原因（如“第3行：性別格式錯誤”），并將所有錯誤信息匯總后彈出消息框提示；（5）驗(yàn)證通過的行自動填充至Form1對應(yīng)控件（姓名→txtName，性別→選中對應(yīng)單選按鈕，服務(wù)類型→cmbServiceType選中項(xiàng)，是否參與活動→chkActivity勾選狀態(tài)），并自動觸發(fā)“保存”按鈕的點(diǎn)擊事件完成存儲（要求調(diào)用cmdSave的Click事件過程，而非重復(fù)編寫保存代碼）。5.（20分）在Form2中添加數(shù)據(jù)庫連接功能（使用Access數(shù)據(jù)庫“volunteer.accdb”，表名“ServiceRecords”，字段：姓名（文本）、服務(wù)類型（文本）、時(shí)長（數(shù)字）、日期（日期/時(shí)間）），要求：（1）添加“從數(shù)據(jù)庫加載”按鈕cmdLoadDB，點(diǎn)擊時(shí)連接數(shù)據(jù)庫，查詢2025年1月1日至今的記錄；（2）查詢結(jié)果按服務(wù)類型分組，統(tǒng)計(jì)每組的總時(shí)長和記錄數(shù)（格式：“服務(wù)類型：{類型}|總時(shí)長：{總時(shí)長}小時(shí)|記錄數(shù)：{記錄數(shù)}條”）；（3）將統(tǒng)計(jì)結(jié)果顯示在lstStatistics中（原文件統(tǒng)計(jì)結(jié)果保留，新結(jié)果追加在下方）；（4）添加錯誤處理：若數(shù)據(jù)庫連接失?。ㄈ缏窂藉e誤），彈出消息框“數(shù)據(jù)庫連接失敗，請檢查路徑！”；若查詢無結(jié)果，彈出消息框“無符合條件的記錄！”；（5）使用ADODB對象實(shí)現(xiàn)數(shù)據(jù)庫操作（需寫出完整連接、命令、記錄集對象的創(chuàng)建與釋放代碼）。答案一、操作題答案1.操作步驟：（1）新建窗體Form1，設(shè)置屬性：Caption="志愿者信息錄入"，StartUpPosition=2（屏幕中心）；（2）添加Label1，設(shè)置屬性：Caption="姓名："，F(xiàn)ont.Name="微軟雅黑"，F(xiàn)ont.Size=12，F(xiàn)ont.Bold=True，Left=100，Top=100；（3）添加txtName，設(shè)置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），設(shè)置optMale.Value=True；（5）添加cmbServiceType，設(shè)置Style=2，AddItem"環(huán)保宣傳"，AddItem"社區(qū)幫扶"，AddItem"應(yīng)急救援"，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.代碼實(shí)現(xiàn)（Form1的代碼窗口）：```vbPrivateSubcmdSave_Click()'數(shù)據(jù)驗(yàn)證IfTrim(txtName.Text)=""ThenMsgBox"姓名不能為空！",vbExclamation,"錯誤"txtName.SetFocusExitSubEndIfIfNotoptMale.ValueAndNotoptFemale.ValueThenMsgBox"請選擇性別！",vbExclamation,"錯誤"ExitSubEndIf'獲取性別DimstrGenderAsStringIfoptMale.ValueThenstrGender="男"ElsestrGender="女"'獲取參與活動狀態(tài)DimstrActivityAsStringstrActivity=IIf(chkActivity.Value=1,"是","否")'寫入文件DimstrPathAsString:strPath="D:\volunteers.txt"OpenstrPathForAppendAs1Print1,"姓名："&txtName.Text&"|性別："&strGender&"|服務(wù)類型："&cmbServiceType.Text&"|參與活動："&strActivity&"|時(shí)間："&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控件，設(shè)置“功能”菜單的Caption為“功能”，子菜單項(xiàng)mnuStat的Caption為“統(tǒng)計(jì)服務(wù)時(shí)長”；（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"服務(wù)類型："&Key&"|總時(shí)長："&dictType(Key)&"小時(shí)"NextEndSub```（5）cmdExport的Click事件代碼：```vbPrivateSubcmdExport_Click()DimxlAppAsObject,xlBookAsObject,xlSheetAsObjectSetxlApp=CreateObject("Excel.Application")SetxlBook=xlApp.Workbooks.AddSetxlSheet=xlBook.Sheets(1)'寫入列標(biāo)題xlSheet.Cells(1,1)="服務(wù)類型"xlSheet.Cells(1,2)="總時(shí)長（小時(shí)）"'寫入數(shù)據(jù)Fori=0TolstStatistics.ListCount1DimarrItem()AsString:arrItem=Split(lstStatistics.List(i),"|")xlSheet.Cells(i+2,1)=Trim(Replace(arrItem(0),"服務(wù)類型：",""))xlSheet.Cells(i+2,2)=Trim(Replace(arrItem(1),"總時(shí)長：","").Replace("小時(shí)",""))NextxlBook.SaveAs"D:\統(tǒng)計(jì)結(jié)果.xls"xlBook.ClosexlApp.QuitSetxlSheet=Nothing:SetxlBook=Nothing:SetxlApp=NothingMsgBox"導(dǎo)出完成！"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'驗(yàn)證姓名IfUBound(arrData)<0OrTrim(arrData(0))=""OrLen(arrData(0))>10ThenstrErrors=strErrors&"第"&intLineNum&"行：姓名為空或超過10字符；"blnValid=FalseEndIf'驗(yàn)證性別IfUBound(arrData)<1Or(arrData(1)<>"男"AndarrData(1)<>"女")ThenstrErrors=strErrors&"第"&intLineNum&"行：性別格式錯誤；"blnValid=FalseEndIf'驗(yàn)證服務(wù)類型IfUBound(arrData)<2OrcmbServiceType.FindString(arrData(2))=-1ThenstrErrors=strErrors&"第"&intLineNum&"行：服務(wù)類型不存在；"blnValid=FalseEndIf'驗(yàn)證參與活動狀態(tài)IfUBound(arrData)<3Or(arrData(3)<>"是"AndarrData(3)<>"否")ThenstrErrors=strErrors&"第"&intLineNum&"行：參與狀態(tài)格式錯誤；"blnValid=FalseEndIfIfblnValidThen'填充控件txtName.Text=arrData(0)IfarrData(1)="男"ThenoptMale.Value=TrueElseoptFemale.Value=TruecmbServiceType.Text=arrData(2)chkActivity.Value=IIf(arrData(3)="是",1,0)'觸發(fā)保存事件cmdSave_ClickEndIfLoopClose1IfstrErrors<>""ThenMsgBox"以下行導(dǎo)入失?。?&vbCrLf&strErrors,vbExclamationEndIfEndSub```5.cmdLoadDB的Click事件代碼：```vbPrivateSubcmdLoadDB_Click()DimconnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimcmdAsNewADODB.CommandDimstrConnAsString,strSQLAsStringDimdictDBAsObject:SetdictDB=CreateObject("Scripting.Dictionary")'連接數(shù)據(jù)庫OnErrorGoToerrHandlerstrConn="Provider=Microsoft.ACE.OLEDB.12.0;DataSource=D:\volunteer.accdb;PersistSecurityInfo=False"