2025年VB考試重點試題及答案一、變量聲明與作用域1.寫出以下VB代碼的執(zhí)行結(jié)果：```vbDimxAsInteger=5SubTest1()DimxAsInteger=10x+=2Test2()Console.WriteLine("Test1中x的值："&x)EndSubSubTest2()x+=3Console.WriteLine("Test2中x的值："&x)EndSubModuleProgramSubMain()Test1()Console.WriteLine("Main中x的值："&x)EndSubEndModule```二、流程控制結(jié)構(gòu)2.編寫VB程序，輸入一個整數(shù)n（1≤n≤100），計算1到n中所有能被3整除但不能被5整除的數(shù)的和。要求使用Do...Loop循環(huán)結(jié)構(gòu)實現(xiàn)。三、數(shù)組與集合操作3.聲明一個動態(tài)二維數(shù)組scores(,)，用于存儲某班級5名學(xué)生的3門課程成績（語文、數(shù)學(xué)、英語）。要求：（1）通過InputBox輸入所有學(xué)提供績；（2）計算每名學(xué)生的總分并存儲在數(shù)組最后一列（即第4列）；（3）輸出總分最高的學(xué)生的各科成績及總分（若有并列，輸出第一個遇到的）。4.使用ArrayList集合實現(xiàn)以下功能：（1）向集合中添加元素："蘋果","香蕉","橙子","草莓"；（2）刪除索引為2的元素；（3）判斷"香蕉"是否存在于集合中，若存在則在其后面插入"芒果"；（4）遍歷集合并輸出所有元素。四、過程與函數(shù)設(shè)計5.設(shè)計一個名為CalculateTax的函數(shù)，根據(jù)輸入的月收入計算個人所得稅。2025年個稅起征點為6000元，稅率表如下：不超過3000元的部分：3%超過3000元至12000元的部分：10%超過12000元至25000元的部分：20%（應(yīng)納稅所得額=月收入-起征點，若應(yīng)納稅所得額≤0則稅額為0）6.編寫一個Sub過程Swap，實現(xiàn)兩個整數(shù)的交換。要求分別使用按值傳遞（ByVal）和按引用傳遞（ByRef）兩種方式，并驗證兩種方式的實際效果差異。五、文件操作7.編寫VB程序，實現(xiàn)以下功能：（1）在D盤根目錄下創(chuàng)建名為"Log.txt"的文本文件；（2）向文件中寫入3行內(nèi)容："2025-01-01登錄成功"、"2025-01-02數(shù)據(jù)異常"、"2025-01-03操作超時"；（3）讀取該文件，統(tǒng)計其中包含"異常"關(guān)鍵字的行數(shù)并輸出。8.使用二進(jìn)制文件操作，將5個學(xué)生的信息（學(xué)號：字符串，成績：Double類型）寫入D盤的"Students.dat"文件，然后讀取該文件并輸出所有學(xué)生信息。六、對象與事件處理9.設(shè)計一個Windows窗體程序，包含以下控件：兩個文本框（txtNum1、txtNum2），用于輸入數(shù)字；一個下拉列表框（cmbOp），選項為"+"、"-"、""、"/"；一個按鈕（btnCalc），點擊時根據(jù)選擇的運算符計算結(jié)果；一個標(biāo)簽（lblResult），用于顯示結(jié)果。要求：（1）輸入非數(shù)字時提示"請輸入有效數(shù)字"；（2）除法運算時若除數(shù)為0提示"除數(shù)不能為0"；（3）結(jié)果保留2位小數(shù)。七、數(shù)據(jù)庫訪問10.假設(shè)已創(chuàng)建Access數(shù)據(jù)庫"School.accdb"，其中包含"Students"表（字段：學(xué)號SNo（文本）、姓名SName（文本）、年齡SAge（整數(shù)）、性別SSex（文本））。編寫VB程序?qū)崿F(xiàn)：（1）使用ADO.NET連接數(shù)據(jù)庫；（2）查詢所有年齡大于20歲的女生記錄；（3）將查詢結(jié)果顯示在DataGridView控件中。八、錯誤處理11.編寫VB程序，要求用戶輸入一個文件路徑，嘗試打開該文件并讀取內(nèi)容。若文件不存在，提示"文件不存在，請檢查路徑"；若路徑格式錯誤（如包含非法字符），提示"路徑格式錯誤"；其他異常統(tǒng)一提示"未知錯誤"。要求使用Try...Catch結(jié)構(gòu)捕獲異常。答案1.執(zhí)行結(jié)果：Test2中x的值：8（全局變量x初始為5，Test2中x+=3后變?yōu)?）Test1中x的值：12（Test1中局部變量x初始為10，x+=2后變?yōu)?2）Main中x的值：8（全局變量x在Test2中被修改為8）2.參考代碼：```vbDimnAsInteger,sumAsInteger=0,iAsInteger=1n=Integer.Parse(Console.ReadLine())DoWhilei<=nIfiMod3=0AndAlsoiMod5<>0Thensum+=iEndIfi+=1LoopConsole.WriteLine("和為："&sum)```3.實現(xiàn)步驟：（1）聲明動態(tài)數(shù)組并調(diào)整大?。篟eDimscores(4,3)（5行4列，索引0-4）；（2）嵌套循環(huán)輸入成績，外層循環(huán)5次（學(xué)生），內(nèi)層循環(huán)3次（課程），第4列計算總分；（3）遍歷數(shù)組比較總分，記錄最大值索引后輸出。關(guān)鍵代碼：```vbReDimscores(4,3)ForiAsInteger=0To4ForjAsInteger=0To2scores(i,j)=Double.Parse(InputBox($"輸入第{i+1}名學(xué)生第{j+1}門課成績"))Nextscores(i,3)=scores(i,0)+scores(i,1)+scores(i,2)'計算總分NextDimmaxIndexAsInteger=0ForiAsInteger=1To4Ifscores(i,3)>scores(maxIndex,3)ThenmaxIndex=iEndIfNextConsole.WriteLine($"最高分學(xué)提供績：語文{scores(maxIndex,0)}，數(shù)學(xué){scores(maxIndex,1)}，英語{scores(maxIndex,2)}，總分{scores(maxIndex,3)}")```4.ArrayList操作代碼：```vbImportsSystem.Collections.ArrayListDimfruitsAsNewArrayList()fruits.Add("蘋果")fruits.Add("香蕉")fruits.Add("橙子")fruits.Add("草莓")fruits.RemoveAt(2)'刪除"橙子"Iffruits.Contains("香蕉")ThenDimindexAsInteger=fruits.IndexOf("香蕉")fruits.Insert(index+1,"芒果")EndIfForEachfruitInfruitsConsole.WriteLine(fruit)'輸出：蘋果香蕉芒果草莓Next```5.CalculateTax函數(shù)實現(xiàn)：```vbFunctionCalculateTax(incomeAsDouble)AsDoubleDimtaxableAsDouble=income6000Iftaxable<=0ThenReturn0DimtaxAsDouble=0Iftaxable<=3000Thentax=taxable0.03ElseIftaxable<=12000Thentax=30000.03+(taxable3000)0.1Elsetax=30000.03+90000.1+(taxable12000)0.2EndIfReturntaxEndFunction```6.Swap過程對比：```vb'按值傳遞（無法交換外部變量）SubSwapByVal(ByValaAsInteger,ByValbAsInteger)DimtempAsInteger=aa=bb=tempEndSub'按引用傳遞（可交換外部變量）SubSwapByRef(ByRefaAsInteger,ByRefbAsInteger)DimtempAsInteger=aa=bb=tempEndSub'驗證代碼DimmAsInteger=5,nAsInteger=10SwapByVal(m,n)'m=5,n=10（未交換）SwapByRef(m,n)'m=10,n=5（已交換）```7.文件操作代碼：```vb'寫入文件DimpathAsString="D:\Log.txt"UsingswAsNewStreamWriter(path)sw.WriteLine("2025-01-01登錄成功")sw.WriteLine("2025-01-02數(shù)據(jù)異常")sw.WriteLine("2025-01-03操作超時")EndUsing'讀取并統(tǒng)計DimcountAsInteger=0UsingsrAsNewStreamReader(path)DimlineAsStringWhile(line=sr.ReadLine())IsNotNothingIfline.Contains("異常")Thencount+=1EndWhileEndUsingConsole.WriteLine("包含'異常'的行數(shù)："&count)'輸出1```8.二進(jìn)制文件操作代碼：```vb'寫入UsingfsAsNewFileStream("D:\Students.dat",FileMode.Create)UsingbwAsNewBinaryWriter(fs)ForiAsInteger=1To5bw.Write($"S00{i}")bw.Write(85.5+i2)'模擬成績NextEndUsingEndUsing'讀取UsingfsAsNewFileStream("D:\Students.dat",FileMode.Open)UsingbrAsNewBinaryReader(fs)ForiAsInteger=1To5DimsnoAsString=br.ReadString()DimscoreAsDouble=br.ReadDouble()Console.WriteLine($"學(xué)號：{sno}，成績：{score}")NextEndUsingEndUsing```9.窗體程序關(guān)鍵代碼（btnCalc_Click事件）：```vbPrivateSubbtnCalc_Click(senderAsObject,eAsEventArgs)HandlesbtnCalc.ClickDimnum1,num2,resultAsDoubleIfNotDouble.TryParse(txtNum1.Text,num1)OrElseNotDouble.TryParse(txtNum2.Text,num2)ThenMessageBox.Show("請輸入有效數(shù)字")ReturnEndIfSelectCasecmbOp.TextCase"+"result=num1+num2Case"-"result=num1num2Case""result=num1num2Case"/"Ifnum2=0ThenMessageBox.Show("除數(shù)不能為0")ReturnEndIfresult=num1/num2CaseElseMessageBox.Show("無效運算符")ReturnEndSelectlblResult.Text=result.ToString("F2")EndSub```10.數(shù)據(jù)庫訪問代碼：```vbImportsSystem.Data.OleDbPrivateSubForm1_Load(senderAsObject,eAsEventArgs)HandlesMyBase.LoadDimconnStrAsString="Provider=Microsoft.ACE.OLEDB.12.0;DataSource=D:\School.accdb"UsingconnAsNewOleDbConnection(connStr)conn.Open()DimsqlAsString="SELECTFROMStudentsWHERESAge>20ANDSSex='女'"DimdaAsNewOleDbDataAdapter(sq