2023秋VB筆試試卷 有答案

本文格式為Word版，下載可任意編輯——2023秋VB筆試試卷有答案其次部分VisualBasic程序設計

一、選擇題（用答題卡答題，答案依次填在21～30答題號內(nèi)）21．以下可以設置為VB程序運行啟動對象的是21。

①工程文件②任意一個窗體③窗體模塊中的Main()過程④標準模塊中的Main()過程A.①②③B.②③④C.②③D.②④

22．若要引用列表框List1中最終一個數(shù)據(jù)項的內(nèi)容應使用22。

A．List1.List(List1.Count)B．List1.List(List1.Count-1)C．List1.ListIndexD．List1.Text

23．以下關(guān)于變量的說法中，錯誤的是23。

A.在不同窗體中用Public語句定義的變量可以同名

B.在過程中用Dim語句聲明的變量都是局部變量，過程運行終止它們將不再存在

C.靜態(tài)變量在過程終止時，其值仍保存以供再次調(diào)用該過程時使用，因此它不是局部變量D.在窗體通用聲明部分聲明的模塊級變量，可以在本窗體內(nèi)的所有過程中使用24．數(shù)學表達式Sin(30?)?x?2y?ex?log10n對應的VB表達式為24。

A．Sin(30*3.14159/180)+Abs(x^2+Sqr(y))+Exp(x)-Log(n)/Log(10)B．Sin(30)+Abs(x^2+Sqr(y))+e^x-Log(n)/Log(10)

C．Sin(30*3.14159/180)+Abs(x^2+Sqr(y))+Exp(x)-Log(n)D．Sin(30)+Abs(x^2+Sqr(y))+e^x-Log(n)

25．以下關(guān)于If分支結(jié)構(gòu)語句的說法中，正確的是25。

A．有If一定有與之配對的ElseB．有If一定有與之配對的ElseIfC．有If一定有與之配對的EndIfD．有EndIf一定有與之配對的If

26．設有字符串變量s，其值為\，以下可將s的值替換為\的語句是26。

A.Left(s,1)=\B.Mid(s,1,2)=\

C.s=\

D.s=\

27．以下表達式中不能將一個4位整數(shù)N的百位數(shù)字提取出來的是27。

A．N\\100Mod10B．Mid(CStr(N),2,1)C．(NMod1000)\\100D．N\\10Mod100

28．以下有關(guān)轉(zhuǎn)換函數(shù)的說法中，正確的是28。

第4頁VisualBasic

A.Int和CInt函數(shù)的區(qū)別僅在于結(jié)果的數(shù)據(jù)類型不同

B.Int和Fix函數(shù)將非整數(shù)數(shù)據(jù)轉(zhuǎn)換成整數(shù)，轉(zhuǎn)換后的結(jié)果類型是LongC.CInt函數(shù)的功能是將其他類型的數(shù)據(jù)轉(zhuǎn)換成Integer類型D.在處理負數(shù)時，Int和Fix函數(shù)的處理效果是一致的

29．以下有關(guān)數(shù)組的說法中，錯誤的是29。

A．用ReDim語句重新定義動態(tài)數(shù)組時，其下標的上下界可以使用賦了值的變量B．定義數(shù)組時，數(shù)組維界值可以不是整數(shù)

C．定義數(shù)組時，數(shù)組每一維的上界值必需大于下界值D．定義數(shù)組時，數(shù)組維界值可以是負數(shù)

30．以下有關(guān)自定義函數(shù)過程的說法中，錯誤的是30。

A．在自定義函數(shù)過程中可以屢屢為函數(shù)名賦值

B．假使在函數(shù)體內(nèi)沒有給函數(shù)名賦值，則該函數(shù)無返回值

C．函數(shù)定義時假使沒有說明函數(shù)名的類型，則該函數(shù)的返回值為變體類型D．若用Call語句調(diào)用函數(shù)，則將丟棄函數(shù)的返回值二、填空題（請將答案填寫在答題紙的相應答題號內(nèi)，每個答案只占一行）

1.執(zhí)行下面程序，單擊窗體后，窗體上顯示的第一行內(nèi)容是（1），第三行內(nèi)容是

（2），最終一行內(nèi)容是（3）。31,53,41OptionExplicit

PrivateSubForm_Click()

DimxAsInteger,yAsInteger,sumAsIntegerForx=1To3Fory=1To2sum=sum+y

Ifsum>2ThenExitForNexty

Printsum;xNextx

Printx;yEndSub

2.執(zhí)行下面程序，單擊Command1按鈕，則窗體上顯示的a(1,3)的值為（4），a(2,1)

的值為（5），a(2,2)的值為（6）。31,23,22OptionExplicitOptionBase1

PrivateSubCommand1_Click()

Dima(3,3)AsInteger,iAsInteger,jAsIntegerFori=1To3Forj=1To3

第5頁VisualBasic

a(i,j)=i*10+jNextjNexti

CallJH(a)EndSub

PrivateSubJH(x()AsInteger)

DimiAsInteger,jAsInteger,tAsIntegerFori=1To2

Forj=1To4-it=x(i,j)

x(i,j)=x(4-i,4-j)x(4-i,4-j)=tNextjNexti

Fori=1To3Forj=1To3Printx(i,j);NextjPrintNextiPrintEndSub

3.執(zhí)行下面程序，單擊Command1按鈕，在Text1中輸入“12123152〞，則在窗體上顯示（7）行

內(nèi)容，其中第一行內(nèi)容是（8），最終一行內(nèi)容是（9）。12,123,15OptionExplicitOptionBase1

PrivateSubCommand1_Click()

DimsAsString,iAsInteger,a()AsIntegers=Text1.Text

Fori=1ToLen(s)ReDimPreservea(i)

a(i)=Val(Mid(s,i,1))Nexti

CallSub1(a)EndSub

PrivateSubSub1(a()AsInteger)

DimiAsInteger,jAsInteger,kAsIntegeri=2

DoUntili>=UBound(a)k=i-1

第6頁VisualBasic

DoUntila(i-1)>a(i)i=i+1Loop

Forj=kToi-1Printa(j);NextjPrinti=i+1LoopEndSub

4.執(zhí)行下面程序，單擊Command1按鈕，則在窗體上顯示（10）行內(nèi)容，其中第一行內(nèi)容

是（11），最終一行內(nèi)容是（12）。3,22,66OptionExplicit

PrivateSubCommand1_Click()DimiAsInteger

Fori=1To6Step2CallSub1(i)NextiEndSub

PrivateSubSub1(aAsInteger)StaticbAsIntegerb=b+1

If(a+b)Mod4=0ThenPrinta;bElse

CallSub1(a+1)EndIfEndSub

5.執(zhí)行下面程序，單擊Command1按鈕，則在窗體上顯示的第一行內(nèi)容是（13），其次行

內(nèi)容是（14），最終一行內(nèi)容是（15）。0001,0011,0100OptionExplicit

PrivateSubCommand1_Click()DimiAsIntegerFori=1To7

PrintGray_Code(i)NextiEndSub

PrivateFunctionGray_Code(ByValxAsInteger)AsStringDimiAsInteger,d2bAsString

第7頁VisualBasic

Do

d2b=xMod2&d2bx=x\\2LoopUntilx=0

d2b=Right(\Fori=4To2Step-1

IfMid(d2b,i,1)=Mid(d2b,i-1,1)ThenMid(d2b,i,1)=\Else

Mid(d2b,i,1)=\EndIfNexti

Gray_Code=d2bEndFunction

6.本程序驗證西西弗斯串數(shù)學黑洞123，任意一個位數(shù)不限的自然數(shù)，如35962，數(shù)出這個數(shù)中的偶

數(shù)個數(shù)2，奇數(shù)個數(shù)3，總位數(shù)5，按偶數(shù)個數(shù)、奇數(shù)個數(shù)和總位數(shù)的順序重新組成一個數(shù)：235，對235重新組數(shù)，偶數(shù)個數(shù)1，奇數(shù)個數(shù)2，總位數(shù)3，得到一個數(shù)123。任意自然數(shù)通過若干次重新組數(shù)，總能得到123。OptionExplicit

PrivateSubCommand1_Click()'“驗證〞按鈕DimmAsString,sAsString,tAsStringm=Text1.TextDo

t=Test(m)

s=s&\

（16）‘m=tLoopUntilt=\

Text2.Text=Text1.Text&sEndSub

PrivateFunctionTest(（17）)AsString‘sAsStringDimiAsInteger,xAsInteger,yAsIntegerFori=1ToLen(s)

If（18）Then‘Val(Mid(s,i,1))Mod2=0x=x+1Else

y=y+1EndIfNexti

Test=x&y&Len(s)EndFunction

第8頁VisualBasic

7.下面程序的功能是檢查表達式中的括號是否匹配。

OptionExplicit

PrivateSubCommand1_Click()'\判斷\按鈕IfKHPP(Text1.Text)Then

Text2.Text=\表達式正確\Else

Text2.Text=\括號不匹配\EndIfEndSub

PrivateFunctionKHPP(SAsString)AsBoolean

DimiAsInteger,pAsString*1,LAsInteger,RAsInteger

Fori=1ToLen(S)

（19）‘p=Mid(S,i,1)SelectCasepCase\L=L+1Case\IfL>RThen'必需先有左括號，才有右括號（20）‘R=R+1Else

（21）ExitFunctionEndIfEndSelectNexti

If（22）ThenKHPP=True‘L=REndFunction

8.下面程序的功能是：找出滿足以下條件的n（2≤n≤4）位正整數(shù)，該數(shù)的n倍乘積也是n位數(shù)，

且這兩個n位數(shù)由1～9之間的不同數(shù)字組成。例如：四位數(shù)1368由四位不同數(shù)字組成，其4倍5472由其他四位不同數(shù)字組成。OptionExplicitOptionBase1

PrivateSubCommand1_Click()'\查找\按鈕DimnAsInteger,iAsInteger,jAsLongFori=12To19876

n=（23）‘Len(CStr(i))j=1#*i*n

IfLen(CStr(j))=nAndrep(i&j)ThenList1.AddItemi&\EndIf

第9頁VisualBasic

NextiEndSub

PrivateFunctionrep(stAsString)AsBoolean

Dima()AsInteger,iAsInteger,kAsInteger,xAsLongIfInStr(st,\（24）‘ExitFunctionx=Val(st)Do

i=i+1

ReDimPreservea(i)a(i)=xMod10x=x\\10LoopUntilx=0

Fori=1ToUBound(a)-1Fork=i+1ToUBound(a)

If（25）ThenExitFunction‘a(chǎn)(i)=a(k)NextkNexti

rep=TrueEndFunction

9.本程序的功能是比較三個不同進制數(shù)的大小。請完善程序。（說明：函數(shù)conv用于把8進制數(shù)或

16進制數(shù)轉(zhuǎn)換為10進制數(shù)，函數(shù)chan用于將8或16進制數(shù)的數(shù)符轉(zhuǎn)換為10進制整數(shù)。）（注：“A〞的ASCII碼值為65。）OptionExplicit

PrivateSubCommand1_Click()

DimaAsString,bAsString,cAsIntegerDimaqAsInteger,bhAsInteger

a=Text1.Text:b=Text2.Text:c=Text3.Text