2023年江蘇省計(jì)算機(jī)二級(jí)VB模擬試卷

江蘇省高等學(xué)校計(jì)算機(jī)等級(jí)考試

二級(jí)VisualBasic考試

模擬試卷1

（本試卷完畢時(shí)間120分鐘）

第一部分計(jì)算機(jī)基礎(chǔ)知識(shí)

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

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

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

2.下列關(guān)于PC機(jī)主板的敘述對(duì)的的是（2）。

A.不同廠家生產(chǎn)的主板，尺寸各不相同

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

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

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

3.下面關(guān)于BIOS的一些敘述對(duì)的的是⑶o

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

B.BIOS中具有系統(tǒng)工作時(shí)所需的所有驅(qū)動(dòng)程序

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

圍設(shè)備的驅(qū)動(dòng)程序組成

D.沒有BIOS的PC機(jī)也可以正常啟動(dòng)工作

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

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

A.軟件的版權(quán)所有者不一定是軟件作者

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

C.用戶購買一個(gè)軟件后，就獲得該軟件版權(quán)

D.共享軟件是一種買前免費(fèi)試用，具有版權(quán)的軟件

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

A.將CPU時(shí)間劃提成許多小片，輪流為多個(gè)程序服務(wù)，這些小片稱為“時(shí)間片”

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

解決

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

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

6.以下關(guān)于IP地址的敘述錯(cuò)誤的是(6)。

A.正在上網(wǎng)(online)的每一臺(tái)計(jì)算機(jī)都有一個(gè)IP地址

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

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

D.IP地址是計(jì)算機(jī)的邏輯地址，每臺(tái)計(jì)算機(jī)尚有各自的物理地址

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

(7),

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

C.幀格式轉(zhuǎn)換D.IP數(shù)據(jù)報(bào)的轉(zhuǎn)發(fā)

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

的是(8)°

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

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

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

D.同一連接段中多個(gè)用戶的信號(hào)都在同一電纜上傳輸

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

A.無論采用那種編碼標(biāo)準(zhǔn)(如GBK、UCS-4等)，漢字的機(jī)內(nèi)碼都是采用16位二進(jìn)制表達(dá)的

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

C.GB2312-80是我國(guó)頒布的第一個(gè)漢字信息編碼的國(guó)家標(biāo)準(zhǔn)。

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

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

A.WAVB.MP3C.MIDID.WMA

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

第二部分Visua1Basic程序設(shè)計(jì)

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

1,下列控件中，無法用于顯示程序運(yùn)營(yíng)結(jié)果的是—1。

A.TextBoxB.ListBoxC.PictureBoxD.Timer

2.下列有關(guān)轉(zhuǎn)換函數(shù)的說法中，對(duì)的的是2—。

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

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

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

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

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

3.數(shù)學(xué)式相應(yīng)的VB表達(dá)式是—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.下列有關(guān)數(shù)組的說法中，錯(cuò)誤的是__4一。

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

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

C.只能在標(biāo)準(zhǔn)模塊中用Pub1ic語句定義全局?jǐn)?shù)組

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

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

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

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

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

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

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

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

第二行內(nèi)容是—(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,則窗體上顯

示的第一行內(nèi)容是一(6)—,最后一行內(nèi)容是一⑺—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中顯示的第

一行內(nèi)容是一(8)悌二行內(nèi)容是(9)—，第三行內(nèi)容是一(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）打開"考生文獻(xiàn)夾"中"Pl.vbp"文獻(xiàn)，完善程序后，直接保存所有文獻(xiàn)。

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

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

史密夫數(shù)，由于2+0+2=4,202的質(zhì)因子分解為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)'質(zhì)因子分解

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.改錯(cuò)題(共16分)

【規(guī)定】

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

2)改錯(cuò)時(shí)，不得增長(zhǎng)或刪除語句但可適當(dāng)調(diào)整位置。

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

’0找素?cái)?shù)子宴101洞

數(shù)字串》21709473

素?cái)?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）打開“考生文獻(xiàn)夾”中“P3.vbp”文獻(xiàn)，按參考界面形式編輯窗體，根據(jù)題目規(guī)定

編寫和調(diào)試程序后,直接保存所有文獻(xiàn)；

2）程序代碼書寫應(yīng)呈鋸齒形，否則適當(dāng)扣分。

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

【編程規(guī)定】

1）程序參考界面如圖所示，編程時(shí)不得增長(zhǎng)或減少對(duì)象改變的窗體種類，窗體及界面元素大

小適中，且均可見；

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

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

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

焦點(diǎn)置于“生成”按鈕上；

3）程序中至少應(yīng)定義一個(gè)通用過程,用于將數(shù)組中的反復(fù)數(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.改錯(cuò)題(共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