2023年江蘇省計算機二級VB模擬試卷

江蘇省高等學校計算機等級考試

二級VisualBasic考試

模擬試卷1

（本試卷完畢時間120分鐘）

第一部分計算機基礎知識

1.下列不同進位制的四個數(shù)中，最小的數(shù)是⑴

A.二進制數(shù)1100010B.十進制數(shù)65

C.八進制數(shù)77D.十六進制數(shù)45

2.下列關于PC機主板的敘述對的的是（2）。

A.不同廠家生產的主板，尺寸各不相同

B,主板上安裝有存儲器芯片，如ROM芯片、CMOS芯片等

C.CPU是直接固定在主板上的，不可更換

D.主板上安裝有電池，在計算機斷開交流電后，臨時給計算機提供電流,供計算機工作

3.下面關于BIOS的一些敘述對的的是⑶o

A.BIOS是存放于ROM中的一組高級語言程序

B.BIOS中具有系統(tǒng)工作時所需的所有驅動程序

C.BIOS系統(tǒng)由加電自檢程序、系統(tǒng)主引導記錄的裝入程序、CMOS設立程序、基本外

圍設備的驅動程序組成

D.沒有BIOS的PC機也可以正常啟動工作

4.計算機軟件（簡稱軟件）指的是能指揮計算機完畢特定任務的、以電子格式存儲的程序、數(shù)

據(jù)和相關的文檔。在下列有關軟件的敘述中，錯誤的是一（4）_0

A.軟件的版權所有者不一定是軟件作者

B.自由軟件指的是一種無版權的軟件，允許修改其源代碼

C.用戶購買一個軟件后，就獲得該軟件版權

D.共享軟件是一種買前免費試用，具有版權的軟件

5.以下關于操作系統(tǒng)中多任務解決的敘述錯誤的是(5)o

A.將CPU時間劃提成許多小片，輪流為多個程序服務，這些小片稱為“時間片”

B.由于CPU是計算機系統(tǒng)中最寶貴的硬件資源，為了提高CPU的運用率，一般采用多務

解決

C.正在cPU中運營的程序稱為前臺任務，處在等待狀態(tài)的任務稱為后臺任務

D.在單CPU環(huán)境下，多個程序在計算機中宏觀上同時運營，微觀上由CPU輪流執(zhí)行

6.以下關于IP地址的敘述錯誤的是(6)。

A.正在上網(wǎng)(online)的每一臺計算機都有一個IP地址

B.現(xiàn)在廣泛使用的IPv4協(xié)議規(guī)定IP地址使用32個二進位表達

C.IPv4規(guī)定的IP地址快要用完了，取而代之的將是64位的IPv5

D.IP地址是計算機的邏輯地址，每臺計算機尚有各自的物理地址

7.路由器用于連接異構的網(wǎng)絡，它收到一個IP數(shù)據(jù)報后要進行許多操作，這些操作不包含

(7),

A.域名解析B.路由選擇

C.幀格式轉換D.IP數(shù)據(jù)報的轉發(fā)

8.通過有線電視接入因特網(wǎng)時需使用電纜調制解調(CableMODEM)技術，以下敘述錯誤

的是(8)°

A.采用同軸電纜和光纖作為傳輸介質

B.收看電視時不能上網(wǎng)

C.能提供語音、數(shù)據(jù)、圖像傳輸?shù)榷喾N業(yè)務

D.同一連接段中多個用戶的信號都在同一電纜上傳輸

9.至目前為止,已發(fā)布多種漢字信息的編碼標準。在下列敘述中，錯誤的是(9)―。

A.無論采用那種編碼標準(如GBK、UCS-4等)，漢字的機內碼都是采用16位二進制表達的

B.中文版Windows9跳2023操作系統(tǒng)都支持GB2312-80、GBK等多種漢字編碼標準。

C.GB2312-80是我國頒布的第一個漢字信息編碼的國家標準。

D.不同的漢字輸入法，其可以輸入的不同漢字個數(shù)也許有所不同。

10.下列四種聲音文獻中，不也許用于保存歌曲的是_____(10).

A.WAVB.MP3C.MIDID.WMA

1.C2.B3.C4.C5.C6.C7.A8.B9.A10.C

第二部分Visua1Basic程序設計

一、選擇題(共10分，每題2分)

1,下列控件中，無法用于顯示程序運營結果的是—1。

A.TextBoxB.ListBoxC.PictureBoxD.Timer

2.下列有關轉換函數(shù)的說法中，對的的是2—。

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

B.Int和Fix函數(shù)將非整數(shù)數(shù)據(jù)轉換成整數(shù)，轉換后的結果類型是Long

C.在解決正數(shù)時，Int函數(shù)和Fix函數(shù)的返回結果是相同的

D.在解決負數(shù)時,Int函數(shù)和Fix函數(shù)的返回結果是相同的

log1。才-OE30。)+*二+Jy+ex

3.數(shù)學式相應的VB表達式是—3

__O

A.Log(x)/Log(10)-Cos(30*3.14159/180)+Abs(xA2+Sqr(y))+Ex

P(x)

B.Log(x)/Log(lO)-Cos(30)+Abs(x~2+Sqr(y))+eAx

C.Log(x)-Cos(30*3.14159/180)+Abs(xA2+Sqr(y))+Exp(x)

D.Log(x)-Cos(30)+Abs(xA2+Sqr(y))+eAx

4.下列有關數(shù)組的說法中，錯誤的是__4一。

A.若模塊中有“OptionBase1”語句，則該模塊中的數(shù)組的維下界都為1

B.定長字符串類型的數(shù)組也可以作為過程的形式參數(shù)

C.只能在標準模塊中用Pub1ic語句定義全局數(shù)組

D.若A是固定大小數(shù)組，執(zhí)行語句EraseA后，數(shù)組A的所有元素被初始化

5.下列關于過程參數(shù)的敘述中，對的的是5o

A.符號常數(shù)名可以出現(xiàn)在定義過程的形式參數(shù)表中

B.過程調用時，與用ByRef說明的形參結合的實在參數(shù)不可以是常數(shù)或表達式

C.在自定義過程中，用ByVai說明的形參值發(fā)生改變，不會影響與之結合的實參的值

D.VB對過程的形式參數(shù)的類型沒有任何限制

二、填空題（共20分，每空2分）

1.執(zhí)行下面程序，單擊命令按鈕Commandl,則窗體上顯示的第一行內容是一⑴

第二行內容是—(2)一。

OptionExp1icit

PrivateSubCommandl_CIick()

DimiAsInteger,jAsSingle,kAsInteger

j=11

Fori=2To10Step2.5

J=j-2.5

Ifj=Int(j)Then

i=i+jMod10

Else

i=i+1

EndIf

k=i+j

Nexti

Printi

Printk

EndSub

2.執(zhí)行下面程序，單擊命令按鈕執(zhí)行下面程序，單擊命令按鈕Commandl,則數(shù)組元

素，則數(shù)組元素，則數(shù)組元素A(l,2)的值是(3)―、A(2,1)的值是_

_(4)、A(3,3)的值是—(5)o

OptionExplicit

OptionBase1

PrivateSubCommandl_C1ick()

DimA(3,3)AsInteger,KAsInteger

DimiAsInteger,jAsInteger

i=2

j=1

A(i,j)=39

ForK=38To31Step-1

Ifi-1=0Andj-1>0Then

i=3:j=j-1

EIselfi-1>0Andj-1=0Then

i=i-1:j=3

Elselfi-1=0Andj-1=0Then

i=1:j=2

E1selfA(i-1,j—1)<>0Then

j=j+1

日se

i

EndIf

A(iJ)=K

NextK

Fori=ITo3

Forj=1To3

Textl.Text=Textl.Text&A(i,j)&""

Nextj

Textl.Text=Textl.Text&vbCrLf

Nexti

EndSub

3.執(zhí)行下面程序，單擊命令按鈕執(zhí)行下面程序，單擊命令按鈕Commandl,則窗體上顯

示的第一行內容是一(6)—,最后一行內容是一⑺—o

OptionExplicit

PrivateSubCommand1_C1ick()

DimaAsInteger,bAsInteger,kAsInteger

Fora=2To3

b=a+1

k=Fun(Fun(a,b),b)

Printk

Nexta

Printb

EndSub

PrivateFunctionFun(aAsInteger,bAsInteger)AsInteger

b=a+b

a=a+b

Fun=a+b

EndFunction

4.執(zhí)行下面程序，單擊命令按鈕Commandl,則多行文本框Text1中顯示的第

一行內容是一(8)悌二行內容是(9)—，第三行內容是一(10)

0ptionExplicit

PrivateSubCommand1_Click()

DimsiAsString,s2AsString,dataiAsString,data2AsString

DimiAsInteger

data1="101110101110”

data2='*101011011010M

Fori=1ToLen(datal)Step5

si=Mid(data1zi,4)

s2=Mid(data2,iz4)

Text1.Text=Tex11.Text&Subtract(si,s2)&vbCrLf

Nexti

EndSub

PrivateFunctionSubtract(siAsString,s2AsString)AsString

DimiAsInteger,kAsInteger;LAsInteger

DimjAsInteger,sAsString

L—Len(si)

Fori=1ToL

nn

lfMid(sl,i,1)="0AndMid(s2zi,1)=0"Then

Subtract=Subtract&"0"

Else

Subtract=Subtract&"1

EndIf

Nexti

EndFunction

三、操作題（共50分）

1.完善程序。（共12分）

【規(guī)定】

1）打開"考生文獻夾"中"Pl.vbp"文獻，完善程序后，直接保存所有文獻。

【題目】本程序的功能是找出4~500之間的史密夫數(shù)。所謂史密夫數(shù)是指該數(shù)的各位

數(shù)字和等于其質因子分解中所有質因子的各位數(shù)字和。例如在十進制下，202就是一個

史密夫數(shù)，由于2+0+2=4,202的質因子分解為2X101,2+1+0+1=

4。

二史密夫數(shù)1=?向13M

4

22

27

58

85

94

121

166

202

265

274

OptionExplicit

OptionBase1

PrivateSubCommandl_Click()

DimiAsinteger,heAsInteger

DimnAsInteger,pf()AsInteger

Forn=4To500

Ca11Pfactor(nzpf)

IfUBound(pf)>1Then

___(1)_______

Fori=1ToUBound(pf)

he=he+Sum(pf(i))

Nexti

IfSum(n)=heThen

List1.AddItemn

EndIf

EndIf

Nextn

EndSub

PrivateSubPfactor(ByVaInAsInteger,f()AsInteger)'質因子分解

DimkAsInteger,PAsInteger

k=2

Do

DoWhile⑵

P=P+1

ReDimPreservef(P)

f(P)=k

n=n\k

Loop

_____(3)________

LoopUntiIn=1

EndSub

PrivateFunctionSum(ByVa1nAsInteger)AsInteger

DimSAsString,LAsInteger,kAsInteger,iAsInteger

S—CStr(n)

________(4)________

Fori=1ToL

k=Val(Mid(S,iz1))

Sum=Sum+k

Nexti

EndFunction

2.改錯題(共16分)

【規(guī)定】

1)打開"考生文獻夾"中"P2.vbp"文獻，改正程序中的錯誤后，直接保存所有文獻；

2)改錯時，不得增長或刪除語句但可適當調整位置。

【題目】本程序的功能是在給定的數(shù)字串中(在給定的數(shù)字串中()找出所有的素數(shù)子串。

’0找素數(shù)子宴101洞

數(shù)字串》21709473

素數(shù)子串

27737

174773

709947_

121717099473

1709473

12170947

查找I

OptionExp1icit

PrivateSubCommandl_Click()

DimnAsInteger,StAsString,LAsInteger,F1gAsBoolean

DimiAsInteger,jAsInteger,CAsString,sAsString

n=Val(Textl.Text)

St=CStr(n)

L=Len(n)

Fori=1ToL

Fig=Faise

Forj=1ToL-i+1

C=Mid(St,j,i)

IfLeft(C,1)<>"0"AndPrime(Va1(C))Then

s=s&C&""

FIg=True

EndIf

Nextj

IfFigThens=s&vbCrLf

Nexti

Text2.Text=s

EndSub

PrivateFunctionPrime(MAsLong)AsBoolean

DimiAsLong

Fori=2ToInt(Sqr(M))

IfMModi=0ThenExitFor

Nexti

Prime=True

EndFunction

3.編程題（22分）

【規(guī)定】

1）打開“考生文獻夾”中“P3.vbp”文獻，按參考界面形式編輯窗體，根據(jù)題目規(guī)定

編寫和調試程序后,直接保存所有文獻；

2）程序代碼書寫應呈鋸齒形，否則適當扣分。

【題目】編寫程序，生成由兩位隨機整數(shù)組成的數(shù)組，刪除數(shù)組中數(shù)值相同的數(shù)組元素。

【編程規(guī)定】

1）程序參考界面如圖所示，編程時不得增長或減少對象改變的窗體種類，窗體及界面元素大

小適中，且均可見；

2）運營程序，單擊“生成”按鈕，在InputBox對話框中輸入需要生成的數(shù)組元素

個數(shù)，并生成由兩位隨機整數(shù)組成的數(shù)組顯示在文本框1中;單擊“刪除反復數(shù)”按鈕將

數(shù)組中出現(xiàn)的反復數(shù)刪除后顯示在文本框2中；單擊“清除”按鈕，將所有文本框清空,

焦點置于“生成”按鈕上；

3）程序中至少應定義一個通用過程,用于將數(shù)組中的反復數(shù)刪除。

參考答案

一、VB選擇題（共10分，每題2分）

1.D2.C3.A4.A5.C

二、VB填空題（共20分，每空2分）

1.13

2.17

3.33

4.39

5.36

6.46

7.17

8.1011

9.1111

10.1110

三、VB操作題(共50分)

1.完善程序(共12分)

⑴he=0

(2)nModk=0

(3)k=k+1

(4)L=Len(S)

2.改錯題(共16分)

OptionExp1icit

PrivateSubCommandl_Click()

DimnAsLong,StAsString,LAsInteger,FigAsBoolean

DimiAsInteger;jAsInteger;CAsString,sAsString

n=Val(Text1.Text)

St=CStr(n)

L=Len(St)

Fori=1ToL

Flg=False

Forj=1ToL-i+1

C=Mid(St,j,i)

IfLeft(C,1)<>"O'*AndPrime(Val(C))Then

s=s&C&”"

F1g=True

EndIf

Nextj

IfFIgThens=s&vbCrLf

Nexti

Text2.Text=s

EndSub

PrivateFunctionPrime(MAsLong)AsBoo1ean

DimiAsLong

Fori=2ToInt(Sqr(M))

IfMModi=0ThenExitFunct