2025年VB考試核心試題及答案一、單項選擇題（每題2分，共20分）1.以下關(guān)于VB數(shù)據(jù)類型的描述中，正確的是（）A.Integer類型變量在內(nèi)存中占8個字節(jié)B.Double類型可以存儲比Single類型更大的整數(shù)范圍C.Boolean類型變量在內(nèi)存中默認(rèn)存儲為0（False）或-1（True）D.String類型變量聲明時若未指定長度，則為定長字符串答案：C2.設(shè)有聲明語句`Dima(3,4)AsInteger`，則數(shù)組a的元素個數(shù)是（）A.12B.20C.15D.24答案：B（行數(shù)0-3共4行，列數(shù)0-4共5列，4×5=20）3.執(zhí)行以下代碼段后，變量x的值是（）```vbDimxAsIntegerx=1DoWhilex<5IfxMod2=1Thenx=x+2Elsex=x+1EndIfLoop```A.5B.6C.7D.8答案：B（x=1→3→5，此時x=5不滿足x<5，退出循環(huán)前最后一次x=5時，判斷xMod2=1，x=5+2=7？不，仔細(xì)看循環(huán)條件：當(dāng)x<5時執(zhí)行循環(huán)體。初始x=1，進入循環(huán)，x=1是奇數(shù)，x=3；x=3<5，進入循環(huán)，x=3是奇數(shù)，x=5；此時x=5不滿足x<5，退出循環(huán)，所以最終x=5？這里可能我之前分析錯誤。重新看代碼：第一次循環(huán)x=1，x<5成立，x=1是奇數(shù)，x=1+2=3；第二次循環(huán)x=3<5成立，x=3是奇數(shù)，x=3+2=5；第三次循環(huán)x=5<5不成立，退出。所以最終x=5。但選項中無5？原題可能設(shè)置錯誤，正確應(yīng)為5，但選項A是5，所以答案A。）修正：正確執(zhí)行流程：x初始為1，進入循環(huán)（1<5），xMod2=1，x=1+2=3；第二次循環(huán)（3<5），xMod2=1，x=3+2=5；第三次循環(huán)條件5<5不成立，退出。最終x=5，選A。4.以下關(guān)于過程作用域的描述，錯誤的是（）A.用Private聲明的過程只能在本模塊中調(diào)用B.用Public聲明的過程可以在所有模塊中調(diào)用C.窗體模塊中的通用過程默認(rèn)作用域是PublicD.標(biāo)準(zhǔn)模塊中的通用過程默認(rèn)作用域是Public答案：C（窗體模塊中的通用過程默認(rèn)是Private）5.要向順序文件"d:\data.txt"中追加寫入一行字符串"HelloWorld"，正確的代碼是（）A.```vbOpen"d:\data.txt"ForInputAs1Print1,"HelloWorld"Close1```B.```vbOpen"d:\data.txt"ForOutputAs1Print1,"HelloWorld"Close1```C.```vbOpen"d:\data.txt"ForAppendAs1Print1,"HelloWorld"Close1```D.```vbOpen"d:\data.txt"ForBinaryAs1Print1,"HelloWorld"Close1```答案：C6.執(zhí)行以下代碼后，立即窗口輸出的結(jié)果是（）```vbDimsAsString,iAsIntegers="abc123def456"Fori=1ToLen(s)IfMid(s,i,1)Like"[0-9]"ThenDebug.PrintMid(s,i,1);EndIfNexti```A.abcdefB.123456C.abc123def456D.123答案：B（提取所有數(shù)字字符）7.以下關(guān)于VB對象事件的說法，正確的是（）A.所有對象都有Click事件B.文本框（TextBox）的Change事件在文本內(nèi)容改變時觸發(fā)C.窗體的Load事件在窗體顯示后觸發(fā)D.命令按鈕（CommandButton）的DblClick事件默認(rèn)會被觸發(fā)答案：B（文本框內(nèi)容改變時觸發(fā)Change；A錯誤，如標(biāo)簽Label沒有Click；C錯誤，Load在顯示前；D錯誤，命令按鈕默認(rèn)不響應(yīng)DblClick）8.設(shè)有數(shù)組聲明`Dimarr()AsInteger={3,1,4,2,5}`，執(zhí)行`BubbleSort(arr)`后，數(shù)組元素的順序是（）（注：BubbleSort為升序冒泡排序）A.1,2,3,4,5B.3,1,4,2,5C.5,4,3,2,1D.2,4,1,3,5答案：A（冒泡排序升序排列結(jié)果）9.要在VB中連接Access數(shù)據(jù)庫"d:\test.accdb"，使用ADODB.Connection對象，正確的連接字符串是（）A."Provider=Microsoft.Jet.OLEDB.4.0;DataSource=d:\test.accdb"B."Provider=Microsoft.ACE.OLEDB.12.0;DataSource=d:\test.accdb"C."Driver={MicrosoftAccessDriver(.mdb)};DBQ=d:\test.accdb"D."Server=d:\test.accdb;Database=test;Trusted_Connection=True"答案：B（Access2007及以上使用ACE引擎）10.以下關(guān)于函數(shù)返回值的說法，錯誤的是（）A.函數(shù)可以通過函數(shù)名返回值B.函數(shù)可以通過ExitFunction語句提前返回C.子過程（Sub）不能返回值D.函數(shù)必須有返回值類型聲明答案：C（子過程可以通過參數(shù)ByRef返回值）二、填空題（每空2分，共20分）1.聲明一個靜態(tài)變量count，在過程中保持值的持久性，聲明語句是______。答案：StaticcountAsInteger2.表達(dá)式`3+5\226Mod4`的計算結(jié)果是______。（注：\為整除，Mod為取余）計算過程：5\2=2，22=4，6Mod4=2，3+4-2=5→答案：53.要將文本框Text1的內(nèi)容清空，應(yīng)執(zhí)行的語句是______。答案：Text1.Text=""4.設(shè)有二維數(shù)組`Dima(2,3)AsInteger`，若要遍歷所有元素，外層循環(huán)變量i的取值范圍是______。答案：0To2（默認(rèn)下界為0）5.執(zhí)行以下代碼后，變量m的值是______。```vbDimmAsInteger,nAsIntegern=10m=IIf(n>5,n\2,n2)```答案：5（n=10>5，執(zhí)行n\2=5）6.要將圖片框Picture1中的圖像保存為BMP文件，應(yīng)使用的方法是______。答案：SavePicturePicture1.Image,"路徑\文件名.bmp"7.執(zhí)行以下代碼后，數(shù)組b的元素為______。```vbDima()AsInteger={1,3,5},b()AsIntegerReDimb(2)Fori=0To2b(i)=a(i)2Nexti```答案：2,6,10（每個元素乘2）8.在VB中，使用`Line`方法繪制直線時，若要繪制紅色虛線，需要設(shè)置的屬性是______和______。答案：ForeColor（設(shè)置為vbRed）、DrawStyle（設(shè)置為vbDot）9.設(shè)有SQL語句`Select姓名,成績From學(xué)生Where成績>80`，該語句的功能是______。答案：查詢所有成績大于80分的學(xué)生的姓名和成績?nèi)?、程序分析題（每題8分，共40分）1.分析以下代碼，寫出程序運行后窗體上的輸出結(jié)果。```vbPrivateSubForm_Click()DimiAsInteger,jAsInteger,sAsIntegers=0Fori=1To3Forj=1Tois=s+jNextjNextiPrint"s=";sEndSub```執(zhí)行過程：i=1時，j=1→s=0+1=1i=2時，j=1→s=1+1=2；j=2→s=2+2=4i=3時，j=1→s=4+1=5；j=2→s=5+2=7；j=3→s=7+3=10輸出s=10答案：s=102.分析以下函數(shù)，說明其功能并寫出調(diào)用`f(5)`的返回值。```vbFunctionf(nAsInteger)AsIntegerIfn=0Orn=1Thenf=1Elsef=nf(n1)EndIfEndFunction```功能：計算n的階乘（n!）f(5)=5×4×3×2×1×1=120答案：功能是計算n的階乘，返回值為1203.分析以下代碼，寫出列表框List1中最終顯示的內(nèi)容。```vbPrivateSubForm_Load()Dimarr()AsString={"蘋果","香蕉","橙子","葡萄"}Fori=0ToUBound(arr)IfLen(arr(i))>2ThenList1.AddItemarr(i)EndIfNextiEndSub```數(shù)組元素長度："蘋果"（2）、"香蕉"（2）、"橙子"（2）、"葡萄"（2）→均不大于2，列表框無內(nèi)容答案：列表框無顯示內(nèi)容4.分析以下代碼，寫出程序運行后文本框Text1的內(nèi)容。```vbPrivateSubCommand1_Click()DimstrAsString,iAsIntegerstr="VisualBasic"Fori=1ToLen(str)IfMid(str,i,1)Like"[A-Z]"Thenstr=Replace(str,Mid(str,i,1),LCase(Mid(str,i,1)))EndIfNextiText1.Text=strEndSub```功能：將字符串中的大寫字母轉(zhuǎn)為小寫。原字符串"VisualBasic"中V和B是大寫，轉(zhuǎn)為v和b，結(jié)果為"visualbasic"答案：visualbasic5.分析以下文件操作代碼，說明其功能并指出潛在問題。```vbPrivateSubbtnRead_Click()DimsAsStringOpen"d:\data.txt"ForInputAs1DoWhileNotEOF(1)Input1,sText1.Text=Text1.Text&s&vbCrLfLoopClose1EndSub```功能：讀取d盤data.txt文件的所有內(nèi)容，并逐行顯示在文本框中。潛在問題：未處理文件不存在的情況，若文件不存在會引發(fā)運行時錯誤；文本框內(nèi)容追加時未清空原有內(nèi)容，多次點擊會重復(fù)添加。答案：功能是讀取文件內(nèi)容并顯示在文本框中；潛在問題是未處理文件不存在錯誤和重復(fù)追加內(nèi)容。四、編程題（每題10分，共40分）1.編寫程序：輸入一個整數(shù)n（n≥1），計算1!+2!+…+n!的值，結(jié)果顯示在標(biāo)簽Label1中。要求使用InputBox輸入，用Sub過程計算階乘。參考代碼：```vbPrivateSubCommand1_Click()DimnAsInteger,sumAsLong,iAsIntegern=Val(InputBox("請輸入n（n≥1）："))sum=0Fori=1Tonsum=sum+Factorial(i)NextiLabel1.Caption="1!+2!+…+"&n&"!="&sumEndSubFunctionFactorial(kAsInteger)AsLongDimresAsLong,jAsIntegerres=1Forj=1Tokres=resjNextjFactorial=resEndFunction```2.編寫程序：將數(shù)組`arr={7,3,9,2,5}`進行降序排序，結(jié)果輸出到立即窗口（每行一個元素）。要求使用選擇排序算法。參考代碼：```vbPrivateSubCommand2_Click()Dimarr()AsInteger={7,3,9,2,5}DimiAsInteger,jAsInteger,maxIndexAsInteger,tempAsIntegerFori=0ToUBound(arr)1maxIndex=iForj=i+1ToUBound(arr)Ifarr(j)>arr(maxIndex)ThenmaxIndex=jEndIfNextjIfmaxIndex<>iThentemp=arr(i)arr(i)=arr(maxIndex)arr(maxIndex)=tempEndIfNextiFori=0ToUBound(arr)Debug.Printarr(i)NextiEndSub```3.編寫程序：從文本框Text1中輸入一個字符串，統(tǒng)計其中英文字母（區(qū)分大小寫）、數(shù)字字符和其他字符的個數(shù)，結(jié)果分別顯示在標(biāo)簽Label2（字母數(shù)）、Label3（數(shù)字?jǐn)?shù)）、Label4（其他數(shù)）中。參考代碼：```vbPrivateSubCommand3_Click()DimstrAsString,iAsIntegerDimletterCountAsInteger,numCountAsInteger,otherCountAsIntegerstr=Text1.TextletterCount=0numCount=0otherCount=0Fori=1ToLen(str)DimcAsStringc=Mid(str,i,1)If(c>="A"Andc<="Z")Or(c>="a"Andc<="z")ThenletterCount=letterCount+1ElseIfc>="0"Andc<="9"ThennumCount=numCount