2025年vb考試的程序填空試題及答案本文借鑒了近年相關(guān)經(jīng)典試題創(chuàng)作而成，力求幫助考生深入理解測(cè)試題型，掌握答題技巧，提升應(yīng)試能力。---2025年VB考試程序填空試題一、程序填空題（每空2分，共30分）注意：下列程序中缺少了部分代碼，請(qǐng)根據(jù)程序的功能和上下文，在橫線上填寫合適的代碼，使程序能夠正確運(yùn)行。1.計(jì)算兩個(gè)數(shù)的最大公約數(shù)```vbPrivateSubCommandButton1_Click()DimaAsInteger,bAsInteger,tempAsIntegera=48b=18DoWhileb<>0temp=bb=aModba=tempLoopLabel1.Text="最大公約數(shù)是："&aEndSub```2.輸出1到100之間所有奇數(shù)的和```vbDimsumAsIntegerFori=1To100Step2sum=sum+iNextiLabel2.Text="奇數(shù)和是："&sum```3.判斷一個(gè)數(shù)是否為素?cái)?shù)```vbPrivateSubCommandButton2_Click()DimnumAsIntegerDimisPrimeAsBooleannum=29isPrime=TrueIfnum<=1ThenisPrime=FalseElseFori=2Tonum-1IfnumModi=0ThenisPrime=FalseExitForEndIfNextiEndIfIfisPrimeThenLabel3.Text=num&"是素?cái)?shù)"ElseLabel3.Text=num&"不是素?cái)?shù)"EndIfEndSub```4.計(jì)算階乘```vbPrivateSubCommandButton3_Click()DimnAsIntegerDimfactorialAsLongn=5factorial=1Fori=1Tonfactorial=factorialiNextiLabel4.Text="5的階乘是："&factorialEndSub```5.輸出斐波那契數(shù)列的前20項(xiàng)```vbDimfib(1To20)AsLongfib(1)=0fib(2)=1Fori=3To20fib(i)=fib(i-1)+fib(i-2)NextiFori=1To20Label5.Text=Label5.Text&fib(i)&""Nexti```6.求矩陣的轉(zhuǎn)置```vbDimmatrix(1To3,1To3)AsIntegerDimtransposed(1To3,1To3)AsIntegermatrix(1,1)=1:matrix(1,2)=2:matrix(1,3)=3matrix(2,1)=4:matrix(2,2)=5:matrix(2,3)=6matrix(3,1)=7:matrix(3,2)=8:matrix(3,3)=9Fori=1To3Forj=1To3transposed(j,i)=matrix(i,j)NextjNextiFori=1To3Forj=1To3Label6.Text=Label6.Text&transposed(i,j)&""NextjLabel6.Text=Label6.Text&vbCrLfNexti```7.統(tǒng)計(jì)字符串中字符的個(gè)數(shù)```vbDimstrAsString,charAsStringDimcountAsIntegerstr="Hello,VB!"char="o"count=0Fori=1ToLen(str)IfMid(str,i,1)=charThencount=count+1EndIfNextiLabel7.Text="字符'o'出現(xiàn)的次數(shù)："&count```8.計(jì)算圓的面積```vbDimradiusAsDouble,areaAsDoubleradius=5area=3.14159radiusradiusLabel8.Text="圓的面積是："&area```9.排序數(shù)組```vbDimarr(1To5)AsIntegerarr(1)=5:arr(2)=2:arr(3)=8:arr(4)=1:arr(5)=3Fori=1To4Forj=i+1To5Ifarr(i)>arr(j)Thentemp=arr(i)arr(i)=arr(j)arr(j)=tempEndIfNextjNextiFori=1To5Label9.Text=Label9.Text&arr(i)&""Nexti```10.計(jì)算字符串的長(zhǎng)度```vbDiminputStrAsStringinputStr="VisualBasic"Label10.Text="字符串的長(zhǎng)度："&Len(inputStr)```11.判斷一個(gè)數(shù)是否為偶數(shù)```vbDimnumAsIntegernum=22IfnumMod2=0ThenLabel11.Text=num&"是偶數(shù)"ElseLabel11.Text=num&"不是偶數(shù)"EndIf```12.輸出九九乘法表```vbFori=1To9Forj=1ToiLabel12.Text=Label12.Text&j&""&i&"="&ji&""NextjLabel12.Text=Label12.Text&vbCrLfNexti```13.求兩個(gè)數(shù)的乘積```vbDimaAsInteger,bAsInteger,productAsIntegera=7b=6product=abLabel13.Text="乘積是："&product```14.判斷一個(gè)年份是否為閏年```vbDimyearAsIntegeryear=2024If(yearMod4=0AndyearMod100<>0)Or(yearMod400=0)ThenLabel14.Text=year&"是閏年"ElseLabel14.Text=year&"不是閏年"EndIf```15.輸出100到200之間所有能被3整除的數(shù)```vbFori=100To200IfiMod3=0ThenLabel15.Text=Label15.Text&i&""EndIfNexti```---答案與解析1.計(jì)算兩個(gè)數(shù)的最大公約數(shù)```vbPrivateSubCommandButton1_Click()DimaAsInteger,bAsInteger,tempAsIntegera=48b=18DoWhileb<>0temp=bb=aModba=tempLoopLabel1.Text="最大公約數(shù)是："&aEndSub```解析：使用輾轉(zhuǎn)相除法計(jì)算最大公約數(shù)。初始時(shí)，a為48，b為18。在循環(huán)中，每次用b替換a，用aModb替換b，直到b為0。此時(shí)a的值即為最大公約數(shù)。2.輸出1到100之間所有奇數(shù)的和```vbDimsumAsIntegerFori=1To100Step2sum=sum+iNextiLabel2.Text="奇數(shù)和是："&sum```解析：通過For循環(huán)從1到100，步長(zhǎng)為2，即只遍歷奇數(shù)。每次將當(dāng)前奇數(shù)加到sum中，最后輸出sum的值。3.判斷一個(gè)數(shù)是否為素?cái)?shù)```vbPrivateSubCommandButton2_Click()DimnumAsIntegerDimisPrimeAsBooleannum=29isPrime=TrueIfnum<=1ThenisPrime=FalseElseFori=2Tonum-1IfnumModi=0ThenisPrime=FalseExitForEndIfNextiEndIfIfisPrimeThenLabel3.Text=num&"是素?cái)?shù)"ElseLabel3.Text=num&"不是素?cái)?shù)"EndIfEndSub```解析：判斷一個(gè)數(shù)是否為素?cái)?shù)，需要檢查從2到該數(shù)減1的所有數(shù)，看是否有能整除它的數(shù)。如果有，則不是素?cái)?shù)；否則是素?cái)?shù)。4.計(jì)算階乘```vbPrivateSubCommandButton3_Click()DimnAsIntegerDimfactorialAsLongn=5factorial=1Fori=1Tonfactorial=factorialiNextiLabel4.Text="5的階乘是："&factorialEndSub```解析：階乘的計(jì)算通過For循環(huán)實(shí)現(xiàn)，從1乘到n。初始時(shí)，factorial為1，每次乘以當(dāng)前的i。5.輸出斐波那契數(shù)列的前20項(xiàng)```vbDimfib(1To20)AsLongfib(1)=0fib(2)=1Fori=3To20fib(i)=fib(i-1)+fib(i-2)NextiFori=1To20Label5.Text=Label5.Text&fib(i)&""Nexti```解析：斐波那契數(shù)列的定義是：第1項(xiàng)為0，第2項(xiàng)為1，后續(xù)每一項(xiàng)為前兩項(xiàng)之和。通過For循環(huán)計(jì)算并存儲(chǔ)前20項(xiàng)，最后輸出。6.求矩陣的轉(zhuǎn)置```vbDimmatrix(1To3,1To3)AsIntegerDimtransposed(1To3,1To3)AsIntegermatrix(1,1)=1:matrix(1,2)=2:matrix(1,3)=3matrix(2,1)=4:matrix(2,2)=5:matrix(2,3)=6matrix(3,1)=7:matrix(3,2)=8:matrix(3,3)=9Fori=1To3Forj=1To3transposed(j,i)=matrix(i,j)NextjNextiFori=1To3Forj=1To3Label6.Text=Label6.Text&transposed(i,j)&""NextjLabel6.Text=Label6.Text&vbCrLfNexti```解析：矩陣的轉(zhuǎn)置是將原矩陣的行變?yōu)榱?，列變?yōu)樾?。通過雙重For循環(huán)實(shí)現(xiàn)轉(zhuǎn)置，并存儲(chǔ)在transposed數(shù)組中，最后輸出轉(zhuǎn)置后的矩陣。7.統(tǒng)計(jì)字符串中字符的個(gè)數(shù)```vbDimstrAsString,charAsStringDimcountAsIntegerstr="Hello,VB!"char="o"count=0Fori=1ToLen(str)IfMid(str,i,1)=charThencount=count+1EndIfNextiLabel7.Text="字符'o'出現(xiàn)的次數(shù)："&count```解析：通過For循環(huán)遍歷字符串的每一個(gè)字符，使用Mid函數(shù)提取每個(gè)字符，與目標(biāo)字符比較。如果相等，則count加1。最后輸出count的值。8.計(jì)算圓的面積```vbDimradiusAsDouble,areaAsDoubleradius=5area=3.14159radiusradiusLabel8.Text="圓的面積是："&area```解析：圓的面積公式為πr2。直接使用公式計(jì)算，并將結(jié)果輸出。9.排序數(shù)組```vbDimarr(1To5)AsIntegerarr(1)=5:arr(2)=2:arr(3)=8:arr(4)=1:arr(5)=3Fori=1To4Forj=i+1To5Ifarr(i)>arr(j)Thentemp=arr(i)arr(i)=arr(j)arr(j)=tempEndIfNextjNextiFori=1To5Label9.Text=Label9.Text&arr(i)&""Nexti```解析：使用冒泡排序算法對(duì)數(shù)組進(jìn)行排序。通過雙重For循環(huán)，比較相鄰元素，如果前一個(gè)比后一個(gè)大，則交換。最終數(shù)組按升序排列。10.計(jì)算字符串的長(zhǎng)度```vbDiminputStrAsStringinputStr="VisualBasic"Label10.Text="字符串的長(zhǎng)度："&Len(inputStr)```解析：使用Len函數(shù)直接計(jì)算字符串的長(zhǎng)度，并將結(jié)果輸出。11.判斷一個(gè)數(shù)是否為偶數(shù)```vbDimnumAsIntegernum=22IfnumMod2=0ThenLabel11.Text=num&"是偶數(shù)"ElseLabel11.Text=num&"不是偶數(shù)"EndIf```解析：判斷一個(gè)數(shù)是否為偶數(shù)，只需看其除以2的余數(shù)是否為0。如果為0，則是偶數(shù)；否則不是偶數(shù)。12.輸出九九乘法表```vbFori=1To9Forj=1ToiLabel12.Text=Label12.Text&j&""&i&"="&ji&""NextjLabel12.Text=Label12.Text&vbCrLfNexti```解析：通過雙重For循環(huán)，外層循環(huán)控制行，內(nèi)層循環(huán)控制列。每次輸出當(dāng)前行的乘法式，最后換行。13.求兩個(gè)數(shù)的乘積```vbDimaAsInteger,bAsInteger,productAsIntegera=7b=6product=abLabel13.Text="乘積是："&product```解析：直接使用乘法運(yùn)算符計(jì)算兩個(gè)數(shù)的乘積，并將結(jié)果輸出。14.判斷一個(gè)年份是否為閏年```vbDimyearAsIntegeryear=2024If(yearMod4=0AndyearMod100<>0)Or(yearMod400=0)ThenLabel14.Text=year&"是閏年"ElseLabel14.Text=year&"不是閏