2009年春省等考卷

第一部分計算機基礎知識

i.在下列有關現代信息技術的一些敘述中，正確的是1。

A.集成電路是20世紀90年代初出現的，它的出現直接導致了微型計算機的誕生

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

C.目前所有數字通信均不再需要使用調制解調技術和載波技術

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

2.最大的十位無符號二進制整數轉換成八進制整數是2。

A.1023

B.1777

C.1000

D.1024

3.在下列有關目前PC機CPU的敘述中，錯誤的是3。

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

B.“雙核”是指PC機主板上含有兩個獨立的CPU芯片

C.Pentium4微處理器的指令系統由數百條指令組成

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

4.在下列有關PC機主板和內存的敘述中，正確的是4。

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

B.絕大多數主板上.僅有―個內存插座，因此PC機只能安裝一根內存條

C.內存條上的存儲器芯片屬于SRAM（靜態隨機存取存儲器）

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

5.在下列有關PC機輔助存儲器的敘述中，正確的是5。

A.硬盤的內部傳輸速率遠遠大于外部傳輸速率

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

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

D.CD-ROM的數據傳輸速率一般比USB2.0還快

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

A.USB2.0

B.IEEE-1394

C.IrDA（紅外）

D.SATA

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

的是7。

A.通常用戶需要付費才能得到商品軟件的使用權，但這類軟件的升級總是免費的

B.共享軟件通常是一種“買前免費試用”的具有版權的軟件

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

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

8.人們通常將計算機軟件劃分為系統軟件和應用軟件。下列軟件中，不屬于應用軟件類型

的是8。

A.AutoCAD

B.MSN

C.Oracle

D.WindowsMediaPlayer

9.在下列有關Windows98/2000/XP操作系統的敘述中，錯誤的是一9。

A.系統采用并多任務方式支持多個任務在計算機中同時執行

B.系統總是將一定餓硬盤空間作為虛擬內存來使用

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

D.硬盤、光盤、優盤等均使用FAT文件系統

10.在下列有關算法和數據結構的敘述中，錯誤的是10。

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

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

C.常用的數據結構有集合結構、線性結構、樹形結構和網狀結構等

D.數組的存儲結構是一種順序結構

11.因特網的IP地址由三個部分構成，從左到右分別代表11。

A.網絡號、主機號和類型號

B.類型號、網絡號和主機號

C.網絡號、類型號和主機號

D.主機號、網絡號和類型號

12.在下列有關ADSL技術及利用該技術接入因特網的敘述中，錯誤的是12。

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

B.一條電話線上可同時接聽/撥打電話和進行數據傳輸

C.利用ADSL技術進行數據傳輸時，有效傳輸距離可達幾公里

D.目前利用ADSL技術上網的計算機一般需要使用以太網網卡

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

指的是數據通信中的13指標。

A.最高數據傳輸速率

B.平均數據傳輸速率

C.每分鐘數據流量

D.每分鐘IP數據包的數目

14.計算機局域網按拓撲結構進行分類，可以分為環型、星型和14型等。

A.電路交換

B.以太

C.總線

D.對等

15.網絡信息安全主要涉及數據的完整性、可用性、機密性等問題。保證數據的完整性就是

15(>

A.保證傳送的數據信息不被第三方監視和竊取

B.保證發送方的真實身份

C.保證傳送的數據信息不被篡改

D.保證發送方不能抵賴曾經發送過某數據信息

16.某計算機系統中，西文使用標準ASCII碼、漢字采用GB2312編碼。設有一段純文本，

其機內碼為CBF5DOB45043CAC7D6B8,則在這段文字中含有16。

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

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

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

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

17.以下關于漢字編碼標準的敘述中，錯誤的是17。

A.GB2312標準中所有漢字的機內碼均用雙字節表示

B.我國臺灣地區使用的漢字編碼標準BIG5收錄的是繁體漢字

C.GB18030漢字編碼標準收錄的漢字在GB2312標準中一定能找到

D.GB18030漢字編碼標準既能與UCS(Unicode)接軌，又能保護已有中文信息資源

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

么它的聲道數是18。

A.1

B.2

C.4

D.8

19.從信息處理的深度來區分信息系統，可分為業務處理系統、信息檢索系統和信息分析系

統等。在下列幾種信息系統中，不屬于業務處理系統的是一

A.DSS

B.CAI

C.CAM

D.OA

20.在下列有關信息系統開發、管理及其數據庫設計的敘述中，錯誤的是20。

A.常用的信息系統開發方法可分為結構化生命周期方法、原型法、面向對象方法和CASE

方法等

B.在系統分析中常常使用結構化分析方法，并用數據流程圖和數據字典來表達數據和處理

過程的關系

C.系統設計分為概念結構設計、邏輯結構設計和物理結構設計，通常用E-R模型作為描述

邏輯結構的工具

D.從信息系統開發過程來看，程序編碼、編譯、連接、測試等屬于系統實施階段的工作

第二部分VisualBasic程序設計

一、選擇題

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

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

C.Listl.ClearD.Listl.RemoveitemListl.Listindex

22.執行22語句時,會出現出錯提示信息。

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

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

23.數學表達式e'lnx+si/Qx)對應的VB表達式是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.以下關于數組的說法中，錯誤的是24。

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

B.對于動態數組，ReDim語句可以改變其維界但不可以改變其數據類型

C.Erase語句的功能只是對固定大小的數組進行初始化

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

25.下列有關過程的說法中，錯誤的是25。

A.在Sub或Function過程內部不能再定義其他Sub或Function過程

B.對于使用ByRef說明的形參，在過程調用時形參和實參只能按傳址方式結合

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

D.可以像調用Sub過程一樣使用Call語句調用Function過程

26.以下有關對象屬性的說法中，錯誤的是26。

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

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

C.對象的Name屬性在運行時不能改變

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

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

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

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

C.凡是在窗體模塊或標準模塊的通用聲明段用Public語句聲明的變量都是全局變量

D.當不同作用域的同名變量發生沖突時，優先訪問局限性小的變量

28.表達式CInt(4.5)+CInt(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0Mod2的運算結果是一28。

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

29.若要使邏輯表達式x>yXory<z結果為True,則x、y、z的取值應為下列選項中的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從內存中卸載的語句是一300

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

二、填空題

1.執行下面程序，單擊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.運行下面程序，如果連續三次單擊命令按鈕之后，A數組共有(4)個元素;數組

元素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.運行下面的程序，單擊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.執行下面的程序,單擊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.運行下列程序，單擊Command］，在窗體上顯示的第一行內容是一(13),第二行的

內容是一(14),第三行的內容是一(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)的值。當通項的絕對值小于10-7時停止計算，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.學生的某次課程測驗中，選擇題的答案已記錄在列表框Listl中，其數據行格式是：學

號為6個字符長度、2個空格、選擇題的答案為15個字符長度。程序根據標準答案進行批

改，每答對?題給1分，并將得分存放到列表框List2中。標準答案存放在變量Exact中。

OptionExplicit

PrivateSubCommand1_Click()

DimAnwAsString,StudIDAsString

DimScorAsInteger,ExactAsString

DimIAsInteger,JAsInteger

lol回5-1.

Exact=nABCCBAACBBDCCDA"E3Form1

ForI=(19)

學生答卷學生成績

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計算成績I

Scor=Scor+1

EndIf

NextJ

List2.AddItemStudID&"n&Scor

NextI

EndSub

8.下面程序的功能是：統計存放在數組A中的N個數有多少個是不同的。具體做法是：變

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

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

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

直到Left>Right為止。Right的值即為不同的數的個數。

OptionExplicit

OptionBase1

PrivateSubCommand1_Click()

DimA()AsInteger,NAsInteger,IAsInteger

DimOPAsInteger

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

ReDimA(N)

Randomize

ForI=1ToN

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

Textl=Textl&A(I)&nn

NextI

CallStatistic(A,OP)

Text2="有“&OP&”個不同的數：”

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.在計算機中用一個字節(8位)來存儲一個字符的ASCH碼，其中低7位二進制數對應

字符的編碼，每個字節的最高位一般保持為“0”，在數據傳輸時可用作奇偶校驗位。傳輸時

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

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

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

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

，將字符的二進制代碼補足7位

Fori=1To7-Len(s)

s=n0"&s

Nexti

IfkMod2=0Then

(30)

Else

s=n0"&s

EndIf

EndSub

2009年秋省等考卷

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

21、要將焦點設置在某個控件上，以下四個選項中正確的是21。

A、只能使用鼠標直接點擊該控件

B、只能使用TAB鍵將焦點移到該控件上

C、只能在程序中調用該控件的SetFocus方法

D、A、B、C三選項中涉及的方法均可使用

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

A、Cpation>TextB、VisiblesFont

C、Caption、VisibleD、List>Visible

23、數學表達式)+對應的丫心也kBasic表達式是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、下面的關系表達式中，運算結果為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、下面有關數組的敘述中，不正確的是25。

①在過程中用ReDim語句定義的動態數組，其下標的上下界可以是變量

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

③在窗體模塊的通用聲明處可以用Public說明一個全局數組

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

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

26、以下關于文件的敘述中，錯誤的是26。

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

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

C、若以Output、Append、Random、Binary方式打開一個不存在的文件，系統會出錯

D、順序文件或隨機文件都可以用二進制訪問模式打開

27、下列有關控件數組的說法中，錯誤的是27。

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

件數組

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

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

D、控件數組中的每個元素的下標由控件的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定函數Fun。

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

Fun的語句是290

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

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

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

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

①TextBox?PictureBox③Image④Frame

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

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

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

(2,3)的激侑是一(2)一,a(4,3)的數值是(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、執行下面程序，單擊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、運行下面的程序，單擊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、執行下面的程序，單擊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、運行下列程序，單擊Commands窗體上顯示的第一行內容是(13)一，第二

行內容是_(14)一，第三行內容是(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、……前若干項的和，項數

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

OptionExplicit

PrivateSub計算_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進制數形式表示的若干個字節數據中，找出其中的漢字

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

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

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之間所有的可分解整數。所謂可分解整數是指具有以下性質的

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

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

所以121是可分解整數。試完善程序使其達到功能要求。

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'求一個數的各位數字之和

Do

suml=(23)

n=n\10

LoopUntiln=0

EndFunction

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

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兩個數組的數據按從小到大的順序合并到數組c中。a、b

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

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

國致組排序合并

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答題號內)

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

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

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

22.Print方法可在.22上輸出數據。

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

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

r5_

23.數學表達式義Cos29°對應的VB表達式是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.以下有關數組參數的說明中正確的是24。

A.在過程中也可用Dim語句對形參數組進行說明

B.動態數組作為實參時，可用ReDim語句在過程中改變對應形參數組的維界

C.調用過程時，數組名不能作為實參

D.數組可以按地址傳遞也可以按值傳遞

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

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

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

26.以下關于數值常量說法錯誤的是26。

A.八進制數的表示方法是在數字前面加&O

B.卜六進制數的表示方法是在數字前面加&H

C.在浮點數值中使用D來分隔尾數和指數時，系統將把該數值作為單精度型數處理

D.32768是合法的數值常量

27.下列有關對象的敘述中，正確的是27。

A.對象由屬性、事件和方法構成

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

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

D.對象的方法是對象響應某個事件后所執行的一段程序代碼

28.已知X<Y,A>B,則下列表達式中結果成立的是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邏輯表達式是29。

A.XWY<ZB.XYOrY<Z

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

30.下面有關數組的說法中，正確的是30。

A.數組的維下界不可以是負數

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

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

0

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

為1

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

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

⑵，最后一行是(3)。

OptionExplicit

PrivateSubCommandI_Click()

DimxAsInteger,yAsInteger

x=12:y=0

DoWhilex>0

IfxMod3=0Then

y=y+x

Else

x=x+1

EndIf