歷年VB省等考試卷

2009年春省等考卷

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

i.在下列有關(guān)現(xiàn)代信息技術(shù)的一些敘述中，正確的是1。

A.集成電路是20世紀(jì)90年代初出現(xiàn)的，它的出現(xiàn)直接導(dǎo)致了微型計(jì)算機(jī)的誕生

B.集成電路的集成度越來越高，目前集成度最高的已包含兒百個電子元件

C.目前所有數(shù)字通信均不再需要使用調(diào)制解調(diào)技術(shù)和載波技術(shù)

D.光纖主要用于數(shù)字通信，它采用波分多路復(fù)用技術(shù)以增大信道容量

2.最大的十位無符號二進(jìn)制整數(shù)轉(zhuǎn)換成八進(jìn)制整數(shù)是2。

A.1023

B.1777

C.1000

D.1024

3.在下列有關(guān)目前PC機(jī)CPU的敘述中，錯誤的是3。

A.CPU芯片主要是由Intel公司和AMD公司提供的

B.“雙核”是指PC機(jī)主板上含有兩個獨(dú)立的CPU芯片

C.Pentium4微處理器的指令系統(tǒng)由數(shù)百條指令組成

D.Pentium4微處理器中包含一定容量的Cache存儲器

4.在下列有關(guān)PC機(jī)主板和內(nèi)存的敘述中，正確的是4。

A.主板上的BIOS芯片是一種只讀存儲器，其內(nèi)容不可在線改寫

B.絕大多數(shù)主板上.僅有―個內(nèi)存插座，因此PC機(jī)只能安裝一根內(nèi)存條

C.內(nèi)存條上的存儲器芯片屬于SRAM（靜態(tài)隨機(jī)存取存儲器）

D.目前內(nèi)存的存取時間大多在兒個到十幾個ns（納秒）之間

5.在下列有關(guān)PC機(jī)輔助存儲器的敘述中，正確的是5。

A.硬盤的內(nèi)部傳輸速率遠(yuǎn)遠(yuǎn)大于外部傳輸速率

B.對于光盤刻錄機(jī)來說，其刻錄信息的速度一般小于讀取信息的速度

C.使用USB2.0接口的移動硬盤，其數(shù)據(jù)傳輸速率大約為每秒數(shù)百兆字節(jié)

D.CD-ROM的數(shù)據(jù)傳輸速率一般比USB2.0還快

6.在下列PC機(jī)I/O借口中，數(shù)據(jù)傳輸速率最快的是」

A.USB2.0

B.IEEE-1394

C.IrDA（紅外）

D.SATA

7.計(jì)算機(jī)軟件可以分為商品軟件、共享軟件和自由軟件等類型。在下列相關(guān)敘述中，錯誤

的是7。

A.通常用戶需要付費(fèi)才能得到商品軟件的使用權(quán)，但這類軟件的升級總是免費(fèi)的

B.共享軟件通常是一種“買前免費(fèi)試用”的具有版權(quán)的軟件

C.自由軟件的原則是用戶可共享，并允許拷貝和自由傳播

D.軟件許可證是一種法律合同，它確定用戶對軟件的使用權(quán)限

8.人們通常將計(jì)算機(jī)軟件劃分為系統(tǒng)軟件和應(yīng)用軟件。下列軟件中，不屬于應(yīng)用軟件類型

的是8。

A.AutoCAD

B.MSN

C.Oracle

D.WindowsMediaPlayer

9.在下列有關(guān)Windows98/2000/XP操作系統(tǒng)的敘述中，錯誤的是一9。

A.系統(tǒng)采用并多任務(wù)方式支持多個任務(wù)在計(jì)算機(jī)中同時執(zhí)行

B.系統(tǒng)總是將一定餓硬盤空間作為虛擬內(nèi)存來使用

C.文件（夾）名的長度可達(dá)200多個字符

D.硬盤、光盤、優(yōu)盤等均使用FAT文件系統(tǒng)

10.在下列有關(guān)算法和數(shù)據(jù)結(jié)構(gòu)的敘述中，錯誤的是10。

A.算法通常是用于解決某一個特定問題，且算法必須有輸入和輸出

B.算法的表示可以有多種形式，流程圖和偽代碼都是常用的算法表示方法

C.常用的數(shù)據(jù)結(jié)構(gòu)有集合結(jié)構(gòu)、線性結(jié)構(gòu)、樹形結(jié)構(gòu)和網(wǎng)狀結(jié)構(gòu)等

D.數(shù)組的存儲結(jié)構(gòu)是一種順序結(jié)構(gòu)

11.因特網(wǎng)的IP地址由三個部分構(gòu)成，從左到右分別代表11。

A.網(wǎng)絡(luò)號、主機(jī)號和類型號

B.類型號、網(wǎng)絡(luò)號和主機(jī)號

C.網(wǎng)絡(luò)號、類型號和主機(jī)號

D.主機(jī)號、網(wǎng)絡(luò)號和類型號

12.在下列有關(guān)ADSL技術(shù)及利用該技術(shù)接入因特網(wǎng)的敘述中，錯誤的是12。

A.從理論上看，其上傳速度與下載速度相同

B.一條電話線上可同時接聽/撥打電話和進(jìn)行數(shù)據(jù)傳輸

C.利用ADSL技術(shù)進(jìn)行數(shù)據(jù)傳輸時，有效傳輸距離可達(dá)幾公里

D.目前利用ADSL技術(shù)上網(wǎng)的計(jì)算機(jī)一般需要使用以太網(wǎng)網(wǎng)卡

13.人們往往會用“我用的是10M寬帶上網(wǎng)”來說明自己計(jì)算機(jī)連網(wǎng)的性能，這里的“10M”

指的是數(shù)據(jù)通信中的13指標(biāo)。

A.最高數(shù)據(jù)傳輸速率

B.平均數(shù)據(jù)傳輸速率

C.每分鐘數(shù)據(jù)流量

D.每分鐘IP數(shù)據(jù)包的數(shù)目

14.計(jì)算機(jī)局域網(wǎng)按拓?fù)浣Y(jié)構(gòu)進(jìn)行分類，可以分為環(huán)型、星型和14型等。

A.電路交換

B.以太

C.總線

D.對等

15.網(wǎng)絡(luò)信息安全主要涉及數(shù)據(jù)的完整性、可用性、機(jī)密性等問題。保證數(shù)據(jù)的完整性就是

15(>

A.保證傳送的數(shù)據(jù)信息不被第三方監(jiān)視和竊取

B.保證發(fā)送方的真實(shí)身份

C.保證傳送的數(shù)據(jù)信息不被篡改

D.保證發(fā)送方不能抵賴曾經(jīng)發(fā)送過某數(shù)據(jù)信息

16.某計(jì)算機(jī)系統(tǒng)中，西文使用標(biāo)準(zhǔn)ASCII碼、漢字采用GB2312編碼。設(shè)有一段純文本，

其機(jī)內(nèi)碼為CBF5DOB45043CAC7D6B8,則在這段文字中含有16。

A.2個漢字和1個西文字符

B.4個漢字和2個西文字符

C.8個漢字和2個西文字符

D.4個漢字和1個西文字符

17.以下關(guān)于漢字編碼標(biāo)準(zhǔn)的敘述中，錯誤的是17。

A.GB2312標(biāo)準(zhǔn)中所有漢字的機(jī)內(nèi)碼均用雙字節(jié)表示

B.我國臺灣地區(qū)使用的漢字編碼標(biāo)準(zhǔn)BIG5收錄的是繁體漢字

C.GB18030漢字編碼標(biāo)準(zhǔn)收錄的漢字在GB2312標(biāo)準(zhǔn)中一定能找到

D.GB18030漢字編碼標(biāo)準(zhǔn)既能與UCS(Unicode)接軌，又能保護(hù)已有中文信息資源

18.若波形聲音未進(jìn)行壓縮時的碼率為64kb/s,已知取樣頻率為8kHz,量化位數(shù)為8,那

么它的聲道數(shù)是18。

A.1

B.2

C.4

D.8

19.從信息處理的深度來區(qū)分信息系統(tǒng)，可分為業(yè)務(wù)處理系統(tǒng)、信息檢索系統(tǒng)和信息分析系

統(tǒng)等。在下列幾種信息系統(tǒng)中，不屬于業(yè)務(wù)處理系統(tǒng)的是一

A.DSS

B.CAI

C.CAM

D.OA

20.在下列有關(guān)信息系統(tǒng)開發(fā)、管理及其數(shù)據(jù)庫設(shè)計(jì)的敘述中，錯誤的是20。

A.常用的信息系統(tǒng)開發(fā)方法可分為結(jié)構(gòu)化生命周期方法、原型法、面向?qū)ο蠓椒ê虲ASE

方法等

B.在系統(tǒng)分析中常常使用結(jié)構(gòu)化分析方法，并用數(shù)據(jù)流程圖和數(shù)據(jù)字典來表達(dá)數(shù)據(jù)和處理

過程的關(guān)系

C.系統(tǒng)設(shè)計(jì)分為概念結(jié)構(gòu)設(shè)計(jì)、邏輯結(jié)構(gòu)設(shè)計(jì)和物理結(jié)構(gòu)設(shè)計(jì)，通常用E-R模型作為描述

邏輯結(jié)構(gòu)的工具

D.從信息系統(tǒng)開發(fā)過程來看，程序編碼、編譯、連接、測試等屬于系統(tǒng)實(shí)施階段的工作

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

一、選擇題

21.在列表框Listl中有若干列表項(xiàng)，可以刪除選定列表項(xiàng)的語句是一21。

A.Listl.text=B.Listl.List(List.Listlndex)=,,M

C.Listl.ClearD.Listl.RemoveitemListl.Listindex

22.執(zhí)行22語句時,會出現(xiàn)出錯提示信息。

A.Print5+7=14B.Print16384*2

C.Print32768*2D.Print“14”+32

23.數(shù)學(xué)表達(dá)式e'lnx+si/Qx)對應(yīng)的VB表達(dá)式是23。

Vsinx-cosx2

A.(eA(2*Ji*x—5)*Log(x)+(Sin(2x))A3)/Sqr(Sin(x)—Cos(xA2))

B.(Exp(2*3,14159*x—5)*Log(x)+(Sin(2*x))A3)/Sqr(Sin(x)—Cos(xA2))

C.(Exp(2*n*x—5)*Ln(x)+(Sin(2*x))A3)/Sqr(Sin(x)—Cos(xA2))

D.(eA(2*3.14159*x—5)*Ln(x)+(Sin(2*x))A3)/Sqr(Sin(x)—Cos(xA2))

24.以下關(guān)于數(shù)組的說法中，錯誤的是24。

A.使用了Preserve字句的ReDim語句，只允許改變數(shù)組最后一維的上界

B.對于動態(tài)數(shù)組，ReDim語句可以改變其維界但不可以改變其數(shù)據(jù)類型

C.Erase語句的功能只是對固定大小的數(shù)組進(jìn)行初始化

D.LBound函數(shù)返回值是指定數(shù)組某一維的下界

25.下列有關(guān)過程的說法中，錯誤的是25。

A.在Sub或Function過程內(nèi)部不能再定義其他Sub或Function過程

B.對于使用ByRef說明的形參，在過程調(diào)用時形參和實(shí)參只能按傳址方式結(jié)合

C.遞歸過程既可以是遞歸Function,也可以是遞歸Sub過程

D.可以像調(diào)用Sub過程一樣使用Call語句調(diào)用Function過程

26.以下有關(guān)對象屬性的說法中，錯誤的是26。

A.工具箱中的控件并不是VB中所有的控件

B.若將Frame的Enabled屬性設(shè)置為False,則不能使用放置在Frame里面的控件

C.對象的Name屬性在運(yùn)行時不能改變

D.對象的所有屬性都可以在屬性窗口中設(shè)置

27.以下關(guān)于變量作用域的敘述中，正確的是27。

A.窗體中凡用Private聲明的變量只能在某個指定的過程中使用

B.模塊級變量只能用Dim語句聲明

C.凡是在窗體模塊或標(biāo)準(zhǔn)模塊的通用聲明段用Public語句聲明的變量都是全局變量

D.當(dāng)不同作用域的同名變量發(fā)生沖突時，優(yōu)先訪問局限性小的變量

28.表達(dá)式CInt(4.5)+CInt(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0Mod2的運(yùn)算結(jié)果是一28。

A.1B.-1C.-2D.-3

29.若要使邏輯表達(dá)式x>yXory<z結(jié)果為True,則x、y、z的取值應(yīng)為下列選項(xiàng)中的29。

A.x=3>y=3>z=4B.x=2>y=l>z=2

C.x=l>y=3>z=2D.x=2^y=2^z=2

30.在一個多窗體程序中，可以僅將窗體Form2從內(nèi)存中卸載的語句是一300

A.Form2.UnloadB.UnloadForm2C.Form2.EndD.Form2.Hide

二、填空題

1.執(zhí)行下面程序，單擊Command1，則圖片框中顯示的第一行是(1),顯示的第二

行是.(2),最后一行顯示的是(3)。

PrivateSubCommand1_Click()

Dima(3,3)AsInteger

DimiAsInteger,jAsInteger

Fori=1To3

Forj=3To1Step-1

Ifi>=jThen

a(i,j)=i-j

Else

a(i,j)=j-i

EndIf

Nextj

Nexti

Fori=1To3

Forj=3To1Step-I

Picture1.Printa(i,j);

Nextj

Picture1.Print

Nexti

EndSub

2.運(yùn)行下面程序，如果連續(xù)三次單擊命令按鈕之后，A數(shù)組共有(4)個元素;數(shù)組

元素A(2)的值是(5),A(5)的值是一(6)。

OptionExplicit

OptionBase1

PrivateSubCommand1_Click()

StaticA()AsInteger,NAsInteger

DimIAsInteger,KAsInteger

K=N

N=N+2

ReDimPreserveA(N)

ForI=K+1ToN

A(I)=I*N+1

NextI

ForI=1ToN

PrintA(I);

NextI

Print

EndSub

3.運(yùn)行下面的程序，單擊Commandl,在窗體上顯示的變量A的值為(7),變量B

的值為(8)。

OptionExplicit

DimAAsInteger

PrivateSubCommand1_Click()

DimBAsInteger

B=3

A=4

B=Fun(Fun(A,B+2),A)+B

PrintA,B

EndSub

PrivateFunctionFun(NAsInteger,KAsInteger)

N=N+A

K=N-K

Fun=N+K+A

EndFunction

4.執(zhí)行下面的程序,單擊Command1,窗體上顯示的第一行是一(9),第二行是一(10),

第四行是一(11),最后一行是一(12)。

OptionExplicit

PrivateSubCommand1_Click()

DimnAsInteger

n=5

Calltest(n)

Printn

EndSub

PrivateSubtest(ByValnAsInteger)

DimiAsInteger,sAsString

Ifn>0Then

Fori=1Ton

s=s&CStr(i)

Nexti

Prints

Calltest(n-2)

Else

Print"OVERM

EndIf

EndSub

5.運(yùn)行下列程序，單擊Command］，在窗體上顯示的第一行內(nèi)容是一(13),第二行的

內(nèi)容是一(14),第三行的內(nèi)容是一(15)。("A”的ASCII碼是65,“Z”是90)

OptionExplicit

PrivateSubCommand1_Click()

DimiAsInteger,stAsString,nAsInteger,pAsString*1

p=uBn

Fori=3To1Step-1

n=Asc(p)-i

Ifn<65Thenn=n+26

st=Chr(n)

st=st&F(i)

Printst

Nexti

EndSub

PrivateFunctionF(nAsInteger)

DimiAsInteger

StaticsAsInteger

Fori=1Ton

s=s+i

Nexti

F=s

EndFunction

6.用以下公式求f(x)的值。當(dāng)通項(xiàng)的絕對值小于10-7時停止計(jì)算，x的值由鍵盤輸入。

2

/(x)=axx"-a2x+%/一...+(一I)"”。/"+...\x\<1

=

上L中—1，。2=2，dn—，n3,4,5,...

?！ㄒ?十%

OptionExplicit

PrivateSubCommand1_Click()

DimxAsSingle,fxAsSingle

DimaAsSingle,alAsSingle,a2AsSingle

DimtAsSingle

al=1:a2=2

x=Textl

If(16)Then

MsgBox("x必須在-1?1之間”)

ExitSub

EndIf

fx=al*x?a2*x*x

t=(-1)*x*x

Do

a=1/(al+a2)

t=(-1)*t*x

fx=(17)

al=a2

(18)

LoopUntilAbs(a*

0.0000001

Text2=fx

EndSub

7.學(xué)生的某次課程測驗(yàn)中，選擇題的答案已記錄在列表框Listl中，其數(shù)據(jù)行格式是：學(xué)

號為6個字符長度、2個空格、選擇題的答案為15個字符長度。程序根據(jù)標(biāo)準(zhǔn)答案進(jìn)行批

改，每答對?題給1分，并將得分存放到列表框List2中。標(biāo)準(zhǔn)答案存放在變量Exact中。

OptionExplicit

PrivateSubCommand1_Click()

DimAnwAsString,StudIDAsString

DimScorAsInteger,ExactAsString

DimIAsInteger,JAsInteger

lol回5-1.

Exact=nABCCBAACBBDCCDA"E3Form1

ForI=(19)

學(xué)生答卷學(xué)生成績

Anw=(20)

StudID=Left(Anw,6)071001ABDCBACCBADBCAA▲07100110▲

071002ABCCBAACBADBCAApi07100212

Anw=Right(Anw,Len(Anw)-8)071003ABBCBAACBBDBCAA=07100312目

(21)071004ABCCBAACBBDCCDA07100415

071005ACBCBAACBDDBCAA▼07100510V

ForJ=1ToLen(Anw)

If(22)Then

I計(jì)算成績I

Scor=Scor+1

EndIf

NextJ

List2.AddItemStudID&"n&Scor

NextI

EndSub

8.下面程序的功能是：統(tǒng)計(jì)存放在數(shù)組A中的N個數(shù)有多少個是不同的。具體做法是：變

量Left指向要被處理的數(shù)(從第2個元素開始)，Right指向數(shù)組最后一個元素。若A(Left)

與排在它前面的某個數(shù)組元素相同，就用數(shù)組元素A(Right)的值來替換A(Left)的值，

同時將變量Right的值減1；否則將變量Left的值加1,處理數(shù)組下一個元素，重復(fù)上過程,

直到Left>Right為止。Right的值即為不同的數(shù)的個數(shù)。

OptionExplicit

OptionBase1

PrivateSubCommand1_Click()

DimA()AsInteger,NAsInteger,IAsInteger

DimOPAsInteger

N=InputBox("請輸入數(shù)據(jù)個數(shù)”,，10)

ReDimA(N)

Randomize

ForI=1ToN

A(I)=Int(Rnd*10)+1

Textl=Textl&A(I)&nn

NextI

CallStatistic(A,OP)

Text2="有“&OP&”個不同的數(shù)：”

ForI=1ToOP

Text2=Text2&A(I)&MH

NextI

EndSub

PrivateSubStatistic(A()AsInteger,RightAsInteger)

DimLeftAsInteger,KAsInteger,IAsInteger

Right=(23)

Left=2

DoWhileLeft<=Right

K=(24)

ForI=KTo1Step-1

IfA(Left)=A(I)ThenExitFor

NextI

If(25)Then

Left=Left+1

Else

A(Left)=A(Right)

(26)

EndIf

Loop

EndSub

9.在計(jì)算機(jī)中用一個字節(jié)(8位)來存儲一個字符的ASCH碼，其中低7位二進(jìn)制數(shù)對應(yīng)

字符的編碼，每個字節(jié)的最高位一般保持為“0”，在數(shù)據(jù)傳輸時可用作奇偶校驗(yàn)位。傳輸時

ASCII代碼轉(zhuǎn)換成傳輸碼的方法是，若7位ASCII碼有偶數(shù)個1,則最高位為1。有奇數(shù)個

1,則最高位為0o例如字母“A”的ASCII碼卜進(jìn)制表示為65,二進(jìn)制表示為01000001。

“A”的傳輸碼則為“10100001”。本程序的功能就是把ASCH代碼轉(zhuǎn)換成這種傳輸碼。

OptionExplicit

PrivateSubCommand1_Click()

DimiAsInteger,sAsString

DimstrAsString,chAsString

str=Text1.Text

Fori=1ToLen(str)

(27)

Callconvert(ch,s)

List1.Additemch&n==>n&s

Nexti

EndSub

PrivateSubconvert(chAsString,sAsString)

DimmAsInteger,kAsInteger,nAsInteger,iAsInteger

s=(28)

n=Asc(ch)

DoWhilen>0

(29)

s=m&s

Ifm=1Then

k=k+1

EndIf

n=n\2

Loop

，將字符的二進(jìn)制代碼補(bǔ)足7位

Fori=1To7-Len(s)

s=n0"&s

Nexti

IfkMod2=0Then

(30)

Else

s=n0"&s

EndIf

EndSub

2009年秋省等考卷

-選擇題（用答題卡答題，答案一次填在21?30答題號內(nèi)）

21、要將焦點(diǎn)設(shè)置在某個控件上，以下四個選項(xiàng)中正確的是21。

A、只能使用鼠標(biāo)直接點(diǎn)擊該控件

B、只能使用TAB鍵將焦點(diǎn)移到該控件上

C、只能在程序中調(diào)用該控件的SetFocus方法

D、A、B、C三選項(xiàng)中涉及的方法均可使用

22、在下列屬性中，屬于CommandButton控件、ListBox控件共有的是22.

A、Cpation>TextB、VisiblesFont

C、Caption、VisibleD、List>Visible

23、數(shù)學(xué)表達(dá)式)+對應(yīng)的丫心也kBasic表達(dá)式是23。

21+ey

A、Sin(30*3.14159/180)+Sqr(Log(x)+y)/2*3.14159+Exp(x+y)

B、(Sin(30*^/180)+Sqr(Ln(x)+y))/(2*7t+Exp(x+y))

C、Sin(30*180/3.14159)+Sqr(Log(x)+y)/(2*3.14159+eA(x+y))

D、(Sin(30*3.14159/180)+Sqr(Log(x)+y))/(2*3.14159+Exp(x+y))

24、下面的關(guān)系表達(dá)式中，運(yùn)算結(jié)果為True的是24。

A、Cint(1.5)=Int(1.5)B、Fix(1.5)=Int(1.5)

C、Fix(-1.5)=CInt(-1.5)D、Fix(-1.5)=Int(-1.5)

25、下面有關(guān)數(shù)組的敘述中，不正確的是25。

①在過程中用ReDim語句定義的動態(tài)數(shù)組，其下標(biāo)的上下界可以是變量

②數(shù)組作為形式參數(shù)時，傳遞的是每個數(shù)組元素的值

③在窗體模塊的通用聲明處可以用Public說明一個全局?jǐn)?shù)組

④數(shù)組定義語句中可以用負(fù)數(shù)或小數(shù)來指定某一維的維下界或維上界的值

A、②③B、①③④C、①②③?D、③④

26、以下關(guān)于文件的敘述中，錯誤的是26。

A、用Output模式打開一個順序文件，即使不對它進(jìn)行寫操作，原來的內(nèi)容也被清除

B、可以用Print#語句或Writer#語句將數(shù)據(jù)寫到順序文件中

C、若以O(shè)utput、Append、Random、Binary方式打開一個不存在的文件，系統(tǒng)會出錯

D、順序文件或隨機(jī)文件都可以用二進(jìn)制訪問模式打開

27、下列有關(guān)控件數(shù)組的說法中，錯誤的是27。

A、控件數(shù)組山一組具有相同名稱和相同類型的控件組成，不同類型的控件無法組成控

件數(shù)組

B、控件數(shù)組中的所有控件不得具有各自不同的屬性設(shè)置值

C、控件數(shù)組中的所有控件共享同一個事件過程

D、控件數(shù)組中的每個元素的下標(biāo)由控件的Index屬性指定

28、以下Case語句中，能正確描述Y的絕對值大于6的是28。

A、CaseAbs(Y)>6B、Case-6To6

C、CaseNot(-6To6)D、CaseIs<-6,Is>6

29、若在模塊中用PrivateFunctionFun(AAsSingle,BasInteger)AsInteger定函數(shù)Fun。

調(diào)用函數(shù)Fun的過程中定義了I、J和K三個Integer變量，則下列語句中不能正確調(diào)用函數(shù)

Fun的語句是290

A、Fun3.14,JB、CallFun(I,365)

C、Fun(I),(J)D、K=Fun(“24"，"35'')

30、若需要在同一個窗體內(nèi)安排兩組相互獨(dú)立的單選按鈕(OptionBulton),可使用

30控件做容器將它們分開。

①TextBox?PictureBox③Image④Frame

A、①或②B、②或③C、②或④D、③或④

二、填空題(請將答案填寫在答題紙的相應(yīng)答題號內(nèi)，每個答案只占一行)

1、執(zhí)行下面程序，單擊Command1,組數(shù)組元素a(1,2)的數(shù)值是(1),a

(2,3)的激侑是一(2)一,a(4,3)的數(shù)值是(3)。

OptionExplicit

PrivateSubCommand1_Click()

Dima(4,4)AsInteger,iAsInteger

DimjAsInteger,kAsInteger,nAsInteger

n=16:k=2

Do

Fori=1To4

Forj=1To4

Ifi+j=kThen

a(i,j)=n

n=n-1

EndIf

Nextj

Nexti

LoopUntilk>8

Fori=1To4

Forj=1To4

PrintRight(H”&a(i,j),3)

Nextj

Print

Nexti

EndSub

2、執(zhí)行下面程序，單擊Command］，窗體上顯示的第一行是(4),第三行是

(5),最后一行是G6)。

OptionExplicit

PrivateSubCommand1_Click()

DimiAsInteger,sAsInteger

Fori=1To9Step3

s=fun((i))+fun(i)

Prints

Nexti

EndSub

PrivateFunctionfun(mAsInteger)AsInteger

StaticaAsInteger

IfmMod2=0Then

a=a+1

m=m=1

Else

a=a+2

m=m+2

EndIf

fun=a+m

Printfun

EndFunction

3、運(yùn)行下面的程序，單擊Commandl,窗體上顯示的第一行是(7),第二行是

(8),最后~>行是(9)o

OptionExplicit

PrivateSubCommand1_Click()

DimaAsInteger

DimbAsInteger

a=1

b=2

Printfun(a+2,fun(2*a,b))

Printa;b

EndSub

PrivateFunctionfun(xAsInteger,ByVaiyAsInteger)AsInteger

x=x+2

y=x-y+3

fun=x+y

Printx;y;fun

EndFunction

4、執(zhí)行下面的程序，單擊Commandl,窗體上顯示的第二行是(10),第三行

是(11)一，第四行是一(12).。

OptionExplicit

PrivateSubCommand1_Click()

DimNAsInteger,KAsInteger

N=36:K=5

PrintTrans(N,K)

EndSub

PrivateFunctionTrans(NAsInteger,KAsInteger)AsString

DimRAsInteger

IfNoOThen

R=NModK

IfR<10Then

Trans=Trans(N\K,K)&R

PrintN

Else

Trans=Trans(N\K,K)&Chr(55+R)

EndIf

EndIf

EndFunction

5、運(yùn)行下列程序，單擊Commands窗體上顯示的第一行內(nèi)容是(13)一，第二

行內(nèi)容是_(14)一，第三行內(nèi)容是(15).°

OptionExplicit

PrivateSubCommandl_Click()

DimsAsString,kAsInteger

DimkeyAsString

s=,,10101n

key=M111000*1

k=1

Do

Callencrypt(s,key)

Prints

s=Right(s,k)&Left(s,4-k)&Mid(s,4,2)

k=k+1

LoopUntilk>3

EndSub

PrivateSubencrypt(aAsString,bAsString)

DimspAsString,nAsInteger,iAsInteger

sp二“0000”

n=Len(b)-Len(a)

Ifn>0Thena=Right(sp&a,Len(b))

Fori=1ToLen(b)

IfMid(a,i,1)=Mid(b,i,1)Then

Mid(a,i,l)=',0,'

Else

Mid(a,i,=

EndIf

Nexti

EndSub

6、下面程序的功能是求序列：1/2、2/3、3/5、5/8、8/13、13/21、……前若干項(xiàng)的和，項(xiàng)數(shù)

山文本框輸入。試完善程序使其達(dá)到功能要求。

OptionExplicit

PrivateSub計(jì)算_Click()

DimnAsInteger,alAsInteger,a2AsInteger

DimiAsInteger,tAsSingle,sAsSingle

n=Val(Textl.Text)

al=1

a2=2

Fori=1Ton

(16)

s=s+t

a2=al+a2

07)

Nexti

Text2=s

EndSub

7、卜面程序的功能是，從一組以16進(jìn)制數(shù)形式表示的若干個字節(jié)數(shù)據(jù)中，找出其中的漢字

代碼(若干相鄰的兩個字節(jié)中，每個字節(jié)的最高一位的數(shù)值大于或等于8,則這兩個字節(jié)為

?個漢字的代碼)。試完善程序使其達(dá)到功能要求。

PrivateSubCommand1_Click()

Dimst()AsString,pAsString,kAsInteger

DimnAsInteger,iAsInteger

p=Trim(Textl)

Do

n=InStr(p,u")

if(18)then

k=k+1

ReDimPreservest(k)

st(k)=Left(p,n-1)

p=Right(p,Len(p)-n)

Else

ReDimPreservest(k+1)

(19)

EndIf

LoopUntiln=0

Fori=1ToUBound(st)-1

Ifchinese(st(i),st(i+1))Then

List1.Additemst(i)&&st(i+1)

.(20)一

EndIf

Nexti

EndSub

PrivateFunctionchinese(pAsString,qAsString)AsBoolean

DimstAsString,kAsInteger,nAsInteger

DimiAsInteger

st="0123456789ABCDEFn

Fori=1ToLen(st)

IfLeft(p,1)=Mid(st,i,1)Thenk=i-1

(21)

Nexti

Ifk>=8Andn>=8ThenChinese=True

EndFunction

8、本程序的功能是求出n~m之間所有的可分解整數(shù)。所謂可分解整數(shù)是指具有以下性質(zhì)的

數(shù)，它的各位數(shù)字之和等于其所有質(zhì)因子各數(shù)字之和(注意：素?cái)?shù)不是可分解整數(shù))。例如

整數(shù)121,各位數(shù)字之和是4,其質(zhì)因子是11、11,質(zhì)因子的各位數(shù)字之和也是4(1+1+1+1=4),

所以121是可分解整數(shù)。試完善程序使其達(dá)到功能要求。

OptionExplicit

PrivateSubCommand1_Click()

DimnAsInteger,mAsInteger,kAsInteger

n=TextI

m=Text2

Fork=nTom

Ifsuml(k)=sum2(k)Then

List1.Additemk

EndIf

Nextk

EndSub

PrivateFunctionsunml((22))AsInteger'求一個數(shù)的各位數(shù)字之和

Do

suml=(23)

n=n\10

LoopUntiln=0

EndFunction

PrivateFunctionsunm2(ByValnAsInteger)AsInteger'求質(zhì)因子及其各位數(shù)字之和

DimkAsInteger,nnAsInteger

(24)

nn=n

Do

IfnModk=0Then

sum2=sum2+suml(k)

n=n\k

Else

L25)

EndIf

LoopUntilk>nn/2

EndFunction

9、下面程序的功能是：將a、b兩個數(shù)組的數(shù)據(jù)按從小到大的順序合并到數(shù)組c中。a、b

兩個數(shù)組的數(shù)據(jù)分別從文本框A和文本框B輸入，數(shù)據(jù)以空格分隔。合并結(jié)果在文本框C

中輸出。試完善程序使其達(dá)到功能要求。

國致組排序合并

OptionExplicit

OptionBase1

PrivateSubCommand1_Click()

Dima()AsInteger,b()AsInteger,c()AsInteger

DimiAsInteger,stAsInteger

st=Trim(Textl)

Callload_a(st,a)

st=Trim(Text2)

Callload_a(st,b)

ReDimc(l)

(26)

Fori=2ToUBound(a)

Callchange(a(i),c)

Nexti

Fori=1ToUBound(b)

Callchange(b(i),c)

Nexti

Fori=1ToUBound(c)

Text3=Text3&Str(c(i))

Nexti

EndSub

PrivateSubload_a(sAsString,a()AsInteger)

DimiAsInteger,kAsInteger,pAsInteger,qAsString*1

Fori=1ToLen(s)

q=Mid(s,i,1)

Ifq>="0"Andq<="9"Orq=H-nThen

(27)

Elselfpo,,nThen

k=k+1

ReDimPreservea(k)

a(k)=Val(p)

(28)

EndIf

Nexti

Ifpo',nThen

ReDimPreservea(k+1)

a(k+1)=p

EndIf

EndSub

PrivateSubchange(nAsInteger,c()AsInteger)

DimiAsInteger,jAsInteger

ReDimPreservec(UBound(c)+1)

Fori=1ToUBound(c)-1

Ifn>c(i)Then

Forj=UBound(c)Toi+1Step-1

c(j)=c(j-1)

Nextj

(29)

EndIf

Nexti

(30)一

EndSub

2008年春省等考卷

一、選擇題(用答題卡答題，答案依次填在21?30答題號內(nèi))

21.對于某對象的SetFocus與GotFocus描述正確的是21。

A.SetFocus是事件，GotFocus是方法B.SetFocus和GotFocus都是事件

C.SelFocus和GotFocus都是方法D.SelFocus是方法，GotFocus是事件

22.Print方法可在.22上輸出數(shù)據(jù)。

①窗體②文本框③圖片框④標(biāo)簽⑤列表框⑥立即窗口

A.①③⑥B.②③⑤C.①@⑤D.③④⑥

r5_

23.數(shù)學(xué)表達(dá)式義Cos29°對應(yīng)的VB表達(dá)式是23。

"+1”)+5

A.(xA5-Cos(29))/Sqr(eAx+ln(y))+5

B.(xA5-Cos(29))/(Sqr(Exp(x)+Log(y))+5)

C.(xA5-Cos(29*3.14159/180))/(Sqr(Exp(x)+Log(y))+5)

D.(xA5-Cos(29*3.14159/180))/(Sqr(eAx+Log(y))+5)

24.以下有關(guān)數(shù)組參數(shù)的說明中正確的是24。

A.在過程中也可用Dim語句對形參數(shù)組進(jìn)行說明

B.動態(tài)數(shù)組作為實(shí)參時，可用ReDim語句在過程中改變對應(yīng)形參數(shù)組的維界

C.調(diào)用過程時，數(shù)組名不能作為實(shí)參

D.數(shù)組可以按地址傳遞也可以按值傳遞

25.以下子過程或函數(shù)群義正確的是25。

A.Subfl(nAsString*1)B.Subfl(nAsInteger)AsInteger

C.Functionfl(flAsInteger)AsIntegerD.Functionfl(ByVainAsInteger)

26.以下關(guān)于數(shù)值常量說法錯誤的是26。

A.八進(jìn)制數(shù)的表示方法是在數(shù)字前面加&O

B.卜六進(jìn)制數(shù)的表示方法是在數(shù)字前面加&H

C.在浮點(diǎn)數(shù)值中使用D來分隔尾數(shù)和指數(shù)時，系統(tǒng)將把該數(shù)值作為單精度型數(shù)處理

D.32768是合法的數(shù)值常量

27.下列有關(guān)對象的敘述中，正確的是27。

A.對象由屬性、事件和方法構(gòu)成

B.對象的所有屬性既可以在屬性窗口設(shè)置，又可以在程序運(yùn)行時，用賦值語句設(shè)置

C.對象的事件一定就是由VB預(yù)先設(shè)置好的，能夠被對象識別的人工干預(yù)的動作

D.對象的方法是對象響應(yīng)某個事件后所執(zhí)行的一段程序代碼

28.已知X<Y,A>B,則下列表達(dá)式中結(jié)果成立的是28。

A.Sgn(X-Y)+Sgn(A-B)=-lB.Sgn(X-Y)+Sgn(A-B)=-2

C.Sgn(Y-X)+Sgn(A-B)=2D.Sgn(Y-X)+Sgn(A-B)=0

29.下列能夠正確表示條件"XWY<Z”的VB邏輯表達(dá)式是29。

A.XWY<ZB.XYOrY<Z

C.X<=YAndY<ZD.X<=Y<Z

30.下面有關(guān)數(shù)組的說法中，正確的是30。

A.數(shù)組的維下界不可以是負(fù)數(shù)

B.模塊通用聲明處有OptionBase1,則模塊中數(shù)組定義語句DimA(0To5)會與之沖突

C.模塊通用聲明處有OptionBase1,模塊中DimA(0To5),則A數(shù)組第一維維下界為

0

D,模塊通用聲明處有OptionBaseI,模塊中DimA(0To5),則A數(shù)組第一維維下界仍

為1

二、填空題(請將答案填寫在答題紙的相應(yīng)答題號內(nèi)，每個答案只占一行)

1.執(zhí)行下面程序，單擊Command1,則窗體上顯示的第一行是(1),第三行是

⑵，最后一行是(3)。

OptionExplicit

PrivateSubCommandI_Click()

DimxAsInteger,yAsInteger

x=12:y=0

DoWhilex>0

IfxMod3=0Then

y=y+x

Else

x=x+1

EndIf