llvb期末考試模擬題

1、單項(xiàng)選擇題(本題共計(jì)80分)

1、能被對(duì)象所識(shí)別的動(dòng)作與可執(zhí)行的活動(dòng)分別稱為對(duì)象的o()

A、方法、事件

B、事件、方法

C、事件、屬性

D、過程、方法

2、一個(gè)應(yīng)用程序窗體。()

A、只許有一個(gè)

B、可以沒有

C、應(yīng)該有兩個(gè)

D、可包括多個(gè)

3、VisualBasic中的工程文件的擴(kuò)展名是。()

A、.reg

B、.frm

C>.bas

D、.vbp

4、所謂就是使某個(gè)對(duì)象進(jìn)入活動(dòng)狀態(tài)(又稱激活)的一種操作或動(dòng)作。()

A、事件

B、屬性

C、方法

D、對(duì)象

5、將調(diào)試通過的工程經(jīng)“文件”菜單的“生成.exe文件”編譯成.exe后，將該可執(zhí)行文件到

其他機(jī)器上不能運(yùn)行的主要原因是。()

A、運(yùn)行的機(jī)器上無VB系統(tǒng)

B、缺少.frm窗體文件

C、該可執(zhí)行文件有病毒

D、以上原因都不對(duì)

6、一只白色的足球踢進(jìn)球門，則白色、足球、踢、進(jìn)球門是。()

A、屬性、對(duì)象、方法、事件

B、屬性、對(duì)象、事件、方法

C、對(duì)象、屬性、方法、事件

D、對(duì)象、屬性、事件、方法

7、下面語句，可以將列表框Listl中當(dāng)前選定的列表項(xiàng)的值替換成“ABC”。()

A、Listl.Additem“ABC”，Listl.Listindex

B、Listl.Text=“ABC”

C、Listl.List(Listl.ListIndex>"ABC”

D、前三項(xiàng)均可

8、在VB中，下列關(guān)于控件的屬性或方法中，搭配錯(cuò)誤的有個(gè)。

?Timerl.Interval

②Listl.Cis

③Text1.Print

?List1.Removeitem

?Vscrolll.Value

?Picture1.Print()

A、0

B、1

C、2

D、3

9、在過程中可以用語句定義變量。()

A、Dim>Private

B、Dim>Static

C、Dim、Public

D、Dim、Static>Private

10^VisualBasic程序設(shè)計(jì)時(shí)常用的Print、Cis屬于。()

A、屬性

B、打印字庫

C、方法

D、事件

11、只能由系統(tǒng)觸發(fā)的是事件。()

A、Resize

B、DblClick

C、Timer

D、Paint

12、關(guān)于窗體Name屬性的敘述，正確的是。()

A、窗體Name屬性可以具有與別的公共對(duì)象相同的名字

B、窗體Name屬性和變量定義一樣

C、窗體Name屬性最長可達(dá)255個(gè)字符

D、窗體Name屬性不能具有與別的公共對(duì)象相同的名字

13、當(dāng)對(duì)象失去焦點(diǎn)時(shí)，將會(huì)發(fā)生____________事件。()

A、GetFocus

B、LostFocus

C、Focus

D、SetFocus

14、以下不屬于標(biāo)簽屬性的是o()

A、Font

B、Value

C、Caption

D、Index

15、對(duì)于一?個(gè)含有計(jì)時(shí)器控件的窗體，每經(jīng)過?段由屬性指定的時(shí)間間隔，就會(huì)產(chǎn)

生一個(gè)Timer事件。()

A、Name

B、Enabled

C、Caption

D、Interval

16、在運(yùn)行過程中要把某控件變灰，應(yīng)把屬性設(shè)置為False。()

A、Default

B、Visible

C>Activate

D、Enabled

17、如果在窗體上有命令按鈕OK,在代碼編輯窗口有與之對(duì)應(yīng)的CmdOK_Click()事件,

則命令按鈕控件的名稱屬性和Caption屬性分別為。()

A、OK,Cmd

B、CmdQK

C、CmdOK,OK

D、OK,CmdOK

18、以下有關(guān)對(duì)象屬性的說法中錯(cuò)誤的是o()

A、所有的對(duì)象都具有Name(名稱)屬性

B、只能在執(zhí)行時(shí)設(shè)置或改變的屬性為執(zhí)行時(shí)屬性

C、對(duì)象的某些屬性只能在設(shè)計(jì)時(shí)設(shè)定，不能使用代碼改變

D、Enabled屬性值設(shè)為False的控件對(duì)象在窗體上將不可見

19、對(duì)正實(shí)數(shù)X的第四位小數(shù)四舍五入的VB表達(dá)式是o()

A、0.001*Int(x+0.0005)

B、0.001*(1000*x+0.5)

C、0.001*Int(1000*x+5)

D、0.001*Int(1000*(x+0.0005))

20、函數(shù)Cint(-3.5),Int(-3.5),Fix(-3.5)的值分別是。()

A、-3,-4,-3

B、-4,-4?-3

C、-3,-4,-4

D、-4,-3,-3

21、有如下程序代碼：

PrivateSubCommandl_Click()

s=Sin(3.1415926/2)

MsgBoxs

EndSub

程序運(yùn)行后，消息對(duì)話框顯示O()

A、0

B、1

C、1.5708

D、2

22、有如下程序：

PrivateSubCommandl_Click()

s=Fix(23.1)

e=Int(-23.1)

PrintSgn(e+s)

EndSub

運(yùn)行時(shí)輸出的結(jié)果是o()

A、-1

B、0

C、1

D、23

23、執(zhí)行語句"PrintFormat(1234.567J##,##0.00")”,正確的輸出結(jié)果是。()

A、1234.57

B、1,234.57

C、1,234.56

D、01,234.57

24、己知A$="12345678”，則表達(dá)式Val(Left$(A$,4)+Mid$(A$,4,2))的值為

)

A、123456

B、123445

C、8

D、6

25、Int(198.555*100+0.5)/100的值。()

A、198

B、199.6

C、198.56

D、200

26、x+y小于10且x?y大于0的邏輯表達(dá)式是。()

A^x+y<10Orx-y>0

B、(x+y)<10:(x-y)>0

C、x+y<10Andx-y>0

D、x+y<10.And.x-y>0

27、語句Print“Int(-13.2)="；Int(-13.2)的輸出結(jié)果為.()

A、Int(-13.2)=-13.2

B、Int(-13.2)=13.2

C、Int(-13.2)=-13

D、Int(-13.2)=-14

28、執(zhí)行下面的程序，單擊窗體后在窗體上顯示的結(jié)果是o

PrivateSubForm_Click()

DimStrlAsString,Str2AsString,!AsInteger

Strl="ab"

ForI=Len(Strl)To1Step-1

Str1=Str1&Chr(Asc(Mid(Str1,1,1))+1)

NextI

PrintStrl

EndSub()

A^abce

B、abed

C、abdb

D、abfd

29、有如下程序：

PrivateSubCommandl_Click()

score=65

selectCasescore

CaseIs<60

a$="F"

Case60To69

a$="DH

Case70To79

a$="CM

Case80To89

a$=nBn

Caseelse

a$=HAn

EndSelect

MsgBoxa$

EndSub

程序運(yùn)行后，消息對(duì)話框中顯示的內(nèi)容為O()

A、A

B、B

C、C

D、D

30、下列程序：

PrivateSubForm_Click()

Forj=lTo15

a=a+jMod3

Nextj

Printa

EndSub

運(yùn)行后輸出的結(jié)果是o()

A、1

B、15

C、90

D、120

31、在窗體上添加一個(gè)命令按鈕，名為Command］，一文本框，名為Textl,則執(zhí)行如下事件

過程后，文本框中的輸出為。

PrivateSubCommandl_Click()

Fori=1To4

x=3

Forj=1To3

Fork=1To3

x=x+3

Nextk

Nextj

Nexti

Textl.Text=Str(x)

EndSub()

A、6

B、12

C、18

D、30

32、給出下面的程序

PrivateSubCommandl_Click()

DimCheck,Counter

Check=True:Counter=0

Do

Counter=Counter+1

IfCounter=10ThenCheck=False:ExitDo

LoopUntilCheck=False

MsgBoxCounter

EndSub

程序最后彈出的消息對(duì)話框的內(nèi)容是O()

A、True

B、False

C、20

D、10

33、當(dāng)FormLClick事件發(fā)生時(shí)，程序的輸出結(jié)果是。

PrivateSubForm_Click()

DimMAsInteger,kAsInteger,tAsInteger

M=5:k=7

SelectCaseM

case1To10

t=M:M=k:k=t

CaseElse

M=kMod3

EndSelect

PrintM,k,t

EndSub()

A、557

B、575

C>755

D、757

34、在窗體上建立3個(gè)文本框:Textl、Text2、Text3,如果在Textl中輸入200,在Text2中

輸入150,則執(zhí)行下列程序段后，Text3的值為。

DimmAsInteger,nAsInteger

m=Val(Textl)

n=Val(Text2)

Ifn*m=0ThenExitSub

Ifm>nThen

t=m:m=n:n=t

EndIf

Do

r=mModn

m=n

n=r

LoopWhiler<>0

Text3=m()

A、200

B、150

C、100

D、50

35DimyAsInteger

m=1

DoWhilem<3

m=m+1

Printm

Loop()

A、2

B、23

C、234

D、2345

36、下面語句錯(cuò)誤的是o()

A、Ifa=lAndb=2Then

c=3

EndIf

Ifa=lThen

c=2

ElseIfa=2Then

c=3

EndIf

C>Ifa=lThen

c=2

Elselfa=2Then

c=3

EndIf

D、If(a=l,2,3)Thenc=2

37、下列程序運(yùn)行后的輸出結(jié)果是

PrivateSubCommand1_Click()

Fori=lTO3

Forj=OTOi-1

k=k+l

nextj

nexti

printk

EndSub()

A、6

B、5

C、4

D、3

38、在過程中有語句ForI=NlToN2StepN3,在該循環(huán)體內(nèi)有下列四條語句，其中

會(huì)影響循環(huán)執(zhí)行的次數(shù)。①N1=N1+I②N2=N2+N3③I=I+N3④N3=2*N3()

A、①②

B、①②③

C、③

D、①②③④

39、下列循環(huán)能正常結(jié)束循環(huán)的是。()

A、i=5

Do

i=i+l

LoopUntili<0

B、i=l

Do

i=i+2

LoopUntili=10

C、i=10

Do

i=i+l

LoopUntili>0

D、i=6

Do

i=i-2

LoopUntili=l

40、表達(dá)式(7\3+l)*(18\5-1)的值是.()

A、8.67

B、7.8

C、6

D、6.67

41、以下不合法的常量是.()

A、10A2

B、100

C>100.0

D、10E+01

42、對(duì)窗體編寫如下代碼：

OptionBase1

PrivateSubCommandl_Click()

a=Array(237,l26,87,48,498)

m1=a(1)

m2=l

Fori=2To5

Ifa(i)>mlThen

ml=a(i)

m2=i

EndIf

Nexti

Printml;m2

EndSub

程序運(yùn)行后，按回車鍵，輸出結(jié)果為。()

A、484

B、2371

C、4985

D、4984

43、在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：

OptionBase1

PrivateSubCommandl_Click()

DimaAsVariant

a=Array。,2,3,4)

j=1

Fori=4To1Step-1

s=s+a(i)*j

j=j*10

Nexti

Prints

EndSub

運(yùn)行上面的程序，單擊命令按鈕，其輸出結(jié)果是。()

A、4321

B、12

C、34

D、1234

44、程序代碼如下，當(dāng)單擊窗體上Commandl控件時(shí)，窗體上顯示的結(jié)果是

OptionBase1

PrivateSubCommandl_Click()

DimiAsInteger

Dimx(3,3)AsInteger

Fori=1To3

Forj=1To3

x(i,j)=(i-l)*3+j

Nextj

Nexti

Fori=1To3

Printx(i,4-i)；

Nexti

EndSub()

A>159

B、147

C、357

D、369

45、以下程序的輸出結(jié)果是o

OptionBase1

PrivateSubCommand1_Click()

Dima(10)AsInteger,p(3)AsInteger

k=5

Fori=lTo10

a(i)=i

Nexti

Fori=lTo3

p(i)=a(i*i)

Nexti

Fori=lTo3

k=k+p(i)*2

Nexti

Printk

EndSub()

A、33

B、28

C、35

D、37

46、當(dāng)發(fā)生Commandl_Click事件后，程序輸出結(jié)果是

OptionBase1

PrivateSubCommand1_Click()

Dima(4,4)AsInteger,!AsInteger,sAsInteger

s=0

Fori=lTo4

Forj=lTo4

a(i,j)=(i-l)*4+j*2

Nextj

Nexti

Fori=ITo4

s=s+a(i,i)

Nexti

Prints

EndSub()

A、28

B、32

C、30

D、44

47、下列程序段的輸出結(jié)果是o

DimiAsInteger

Dima(8)AsInteger

y=18:i=0

Do

a(i)=yMod2

i=i+1

y=y\2

LoopUntily<1

Forj=i-1To0Step-1

Printa(j);

Nextj

A、1000

B、10010

C、00110

D、10100

48、當(dāng)發(fā)生Commandl_Clik事件后，下列程序的輸出結(jié)果是,

DimiAsInteger

Dima(10)AsInteger

Fori=9To0Step-I

a(i)=10-i

Nexti

Printa(2);a(5);a(8)()

A>258

B、741

C、852

D、369

49、當(dāng)發(fā)生Commandl_Clik事件后，下列程序的執(zhí)行結(jié)果是

PrivateSubCommand1_Click()

Dima

a=Array(1,2,3,4,5)

Fori=1To4

Printa(i)-a(i-l);

Nexti

EndSub()

A、11111

B、1111

C>111

D、222

50、下列程序段的執(zhí)行結(jié)果是o

DimA(3,3)

ForM=1TO3

ForN=1TO3

IfN=MOrN=3-M+lThen

A(M,N)=1

Else

A(M,N)=0

EndIf

NextN

NextM

ForM=1TO3

ForN=1TO3

PrintA(M,N);

NextN

Print

NextM()

A、100

010

001

B.1I1

111

111

C、000

000

000

D>101

010

101

51、下列程序段的輸出結(jié)果是

DimA(5)

For1=0TO4

A(I)=I+1

M=I+1

IfM=3Then

A(M-1)=A(I-1)

Else

A(M)=A(I)

EndIf

If1=3ThenA(I+l)=A(M-4)

PrintA(I);

NextI()

A、11122

B、21144

C、12245

D、22141

52、如下數(shù)組聲明語句，則數(shù)組a包含元素的個(gè)數(shù)有o

Dima(3,-2to2,5)()

A、120

B、75

C、60

D、13

53、如下二維數(shù)組聲明語句，____________正確。()

A、Dima[3,4]AsInteger

B、Dima(3,4)AsInteger

C、Dima(n,n)AsInteger

D、Dima(34)AsInteger

54、要分配存放如卜.方陣的數(shù)據(jù)，數(shù)組聲明語句能實(shí)現(xiàn)(不能浪費(fèi)空間)。每行

三個(gè)元素，第?行為：第二行為：第三行為：()

A、Dima(9)AsSingle

B、Dima(3,3)AsSingle

C>Dima(-lTo1,-5To-3)AsSingle

D、Dima(-3To-L5To7)AsInteger

55、在窗體的通用聲明處有語句DimA()AsSingle,以下在某事件過程中重定義此數(shù)組的一

組正確語句是：。()

A、ReDimA(3,3)

ReDimA(4,4)AsInteger

B、ReDimA(3,3)

ReDimPreserveA(4,4)

C、ReDimA(3)

ReDimA(3,3)AsInteger

D、ReDimA(3,3)

ReDimPreserveA(3,4)

56、單擊按鈕,輸出為?

PrivateSubfun()

StaticaAsInteger

a=a+2

Printa

EndSub

PrivateSubCommandl_Click()

DimmAsInteger

Form=1To3<br/>

Callfun

Nextm

EndSub

A、222

B>000

C、248

D>246

57、在單擊命令按鈕時(shí)的輸出結(jié)果是。

PrivateSubCommand1_Click()

Dimx%,y%

x=l:y=l

Forn=lto3

z=First(x,y)

Printn,z

Nextn

EndSub

PrivateFunctionFirst%(x%,y%)

Dimn%

DoWhilen<=4

x=x+y

n=n+l

Loop

First=x

EndFunction

A、16211316

B、26131116

C、123456

D、213133

58、程序運(yùn)行后，如果單擊命令按鈕，則在文本框中顯示的內(nèi)容是

PrivateSubCommandl_Click()

dimx,y,zAsInteger

x=5:y=7:z=0

textl=

callpl(x,y,z)

textl=str(z)

EndSub

PrivateSubpl(ByVaia%,ByVaib%,c%)

c=a+b

EndSub

A、0

B、12

C、Str⑵

D、沒有顯示

59、當(dāng)在Cmdl按鈕上單擊時(shí)，程序的輸出是

PublicFunctionFunc(a%,b%)AsInteger

StaticmAsInteger:DimiAsInteger

m=0:i=2:i=i+m+l:m=i+a+b:Func=m

EndFunction

PrivateSubCmdl_Click()

Dimk%,m%,n%

k=4:m=l:n=Func(k,m)

Printn,Func(k,m)

EndSub()

A、88

B、820

C、816

D、817

60、在Cmdl_Click事件中有效的地址傳遞的調(diào)用語句是

PublicSubFl(n%)

n=3*n+4

EndSub

PrivateSubCmdl_Click(

Dimn%,m%

n=3:m&=4

…'調(diào)用Fl語句

EndSub()

A^Fln+m

B、Flm

C、Fl5

D、Flm+5

61、調(diào)用由語句PrivateSubConvert(YAsInteger)定義的Sub過程時(shí)，以卜不是按值傳遞的語

句是()

A^CallConvert((X))

B、CallConvert(X*l)

C、Convert(X)

D、ConvertX

62、程序中用uPrivateFunctionFun(XAsInteger,YAsSingle)w定義了函數(shù)Fun。調(diào)用函數(shù)Fun

的過程中的變量i、j均定義為Integer型，能正確引用函數(shù)Fun的是①Fun(i,j)②CallFun(i,3.65)

③Fun(3.14,234)④Fun(H245,,,,,231.5n)()

A、①③

B、②③④

C、①②③

D、①②③④

63、設(shè)變量D為Date型、A為Integer型、S為String型、L為Long型，下面賦值語句中

不能執(zhí)行的是()

A、D=#12:30:00PM#

B、A="3277e1”

C、S=Now

D、L="4276D3”

64、vfontsize="2">vstrong>以下關(guān)于方法的敘述中，錯(cuò)誤的是()

A、方法是構(gòu)成對(duì)象實(shí)體的一個(gè)部分

B、方法是一種特殊的過程或函數(shù)

C、調(diào)用方法的般格式是：對(duì)象名稱.方法名稱［參數(shù)］

D、在調(diào)用方法時(shí)，對(duì)象名稱是不可缺少的

65、<fontface="TimesNewRoman"size="2"><strong>在調(diào)用Sub或Function過程時(shí)，采用

傳送相應(yīng)過程的變量名、數(shù)組名、常數(shù)或表達(dá)式。</strong></font>()

A、形式參數(shù)

B、實(shí)際參數(shù)

C、對(duì)象參數(shù)

D、數(shù)組參數(shù)

66、Sub過程與Function過程的本質(zhì)區(qū)別是。()

A、Sub過程可以使用Call語句或直接使用過程名調(diào)用，而Function過程不可以

B、Function過程可以有形參，Sub過程不能有形參

C、兩種過程參數(shù)傳遞方式不同

D、Sub過程沒有返回值，F(xiàn)unction過程能返回值

67有關(guān)過程的說法中錯(cuò)誤的是。()

A^在Sub或Function過程中不能再定義其他Sub或Function過程

B、在調(diào)用過程時(shí)，與使用ByRef說明的形參對(duì)應(yīng)的實(shí)參只能按地址傳遞方式結(jié)合

C、遞歸過程既可以是遞歸Function過程，也可以是遞歸Sub過程

D、在調(diào)用過程時(shí)，形參為數(shù)組的參數(shù)對(duì)應(yīng)的實(shí)參只能是數(shù)組

68、在過程中定義的變量，如果希望在離開該過程后，還能保持過程中局部變量的值，則應(yīng)

該使用關(guān)鍵字在過程中定義局部變量。()

A、Dim

B、Private

C、Public

D、Static

69、以下有關(guān)變量作用域的說明中，錯(cuò)誤的是()

A、只有在標(biāo)準(zhǔn)模塊中用語句說明的變量才是全局變量

B、(fontface="TimesNewRoman"size="2"><strong>在過程中不能使用Public語句說明全

局變量

C、在標(biāo)準(zhǔn)模塊的通用聲明處可用語句說明模塊級(jí)變量

D、在窗體的通用聲明處可用語句說明窗體級(jí)變量

70、<strongxfontsize="2">要想在過程調(diào)用后返回兩個(gè)結(jié)果，下面的過程定義語句合法的是

。</font></strong>()

A^SubProcl(ByVain,ByVaim)

B、SubProcl(n,ByVaim)

C、SubProcl(n,m)

D^SubProcl(ByVain,m)

71、<fontface="宋體"size="2"xstrong>如果在被調(diào)用過程中改變了形參值，只影響副本，而

不會(huì)影響實(shí)參的變量本身，這種參數(shù)傳遞方式稱為()

A、按值

B、按地址

C、ByRef

D、按形參

72、系統(tǒng)默認(rèn)的參數(shù)傳遞方式是()

A、按值

B、按地址

C、ByVai

D、按實(shí)參

73、窗體上畫一個(gè)按鈕，然后編寫如下的事件代碼。在按鈕上單擊，輸出為o

PrivateSubfun()

StaticaAsInteger

a=a+2

Printa;

EndSub

PrivateSubCommandl_Click()

DimmAsInteger

Form=1To3

Callfun

Nextm

EndSub()

A>222

B、000

C>248

D、246

74、在窗體上添加一個(gè)命令按鈕，名為Command］，事件過程如下。執(zhí)行結(jié)果是。

Subpb(b()AsInteger)

Fori=lTo4

B(i)=2*i

Nexti

EndSub

PrivateSubCommandl_Click()

Dima(lTo4)AsInteger

a(l)=5:a(2)=6:a(3)=7:a(4)=8

pba

Fori=lTo4

Printa(i);

Nexti

EndSub()

A、555

51010

B、555

5510

C、5510

51010

D、555

101010

75、在窗體上畫一個(gè)名稱Commandl的命令按鈕和一個(gè)名稱為Textl的文本框，然后編寫如

F程序:

PrivateSubCommandl_Click()

Dimx,y,zAsInteger

x=5:y=7:z=0

Textl.Text=,,M

Callpl(x,y,z)

Text1.Text=Str(z)

EndSub

PrivateSubpl(ByVaiaAsInteger,ByVaibAsInteger,cAsInteger)

c=a+b

EndSub

程序運(yùn)行后，如果單擊命令按鈕，則在文本框中顯示的內(nèi)容是o()

A、0

B、12

C、Str(z)

D、沒有顯示

76、程序中未定義的變量均為inleger,單擊Commandl,程序的輸出是。

PrivateSubCommand1_Click()

k=4：m=l

n=Func(k,m

Printn,Func(k,m)

EndSub

PublicFunctionFunc(aAsInteger,bAsInteger)AsInteger

StaticmAsInteger

m=0：i=2

i=i+m+l

m=i+a+b

Func=m

EndFunction()

A、88

B、820

C、816

D、817

77、以下說法正確的是。()

A、在VB中，過程可以嵌套定義也可以嵌套調(diào)用

B、在VB中，過程可以嵌套定義但不可以嵌套調(diào)用

C、在VB中，過程不可以嵌套定義但可以嵌套調(diào)用

D、在VB中，過程不可以嵌套定義也不可以嵌套調(diào)用

78、在過程調(diào)用中，參數(shù)的傳遞可以分為和兩種方式。

)

A、按值傳遞按地址傳遞

B、按地址傳遞按參數(shù)傳遞

C、按參數(shù)傳遞按值傳遞

D、按位置傳遞按參數(shù)傳遞

79、在參數(shù)傳遞過程中，使用關(guān)鍵字來修飾參數(shù)，可以使之按值傳遞。

A、ByVai

B、ByRef

C、Value

D、Reference

80、可以在窗體模塊的通用聲明段中聲明的是.()

A、全局變量

B、全局常量

C、全局?jǐn)?shù)組

D、全局用戶自定義類型

2、填空題(本題共計(jì)142分)

1、執(zhí)行下面的程序，擊窗體后在窗體上顯示的第一行結(jié)果是―(I)，第三行結(jié)果是

____(2)oPrivateSubForm_click()

Dimmystr,mystrl,mysrr2AsString

mystr1=

Fori=1To3

mystr2=LCase(mystrl)

mystr1=mystr1&mystr2

mystr=mysre&mystr1

Printmystr

mystr1=Chr(Asc(mystrl)+i)

Nexti

EndSub

2、執(zhí)行下面的程序段后，s的值為o

s=5

Fori=2.6To4.9Step0.6

s=s+i

Nexti

prints

3、窗體上有一按鈕和一個(gè)列表框，執(zhí)行下列程序后的輸出結(jié)果為一。

PrivateSubCommandl_Click()

Listl.Additem“China”

List1.Additem“USA”

Listl.Additem"Japan”』

PrintListl.List(2)

EndSub

4、可通過列表框的—(1)—屬性或List(—⑵)來取得列表框中被選中的選項(xiàng)。

5、文本框的—屬性用來表示文本框中被選定的字符長度。

6、文本框的屬性用來設(shè)置在文本框中顯示的最多字符個(gè)數(shù)。

7、要使文本框可以顯示多行文本，應(yīng)把文本框的_(1)—屬性設(shè)置為True。

8、在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：

PrivateSubCommandl_Click()

DimYAsString

X=5

Y=X&Space(3)&X

PrintX;

PrintTrim(Y);Len(Trim(Y))

EndSub

該程序的執(zhí)行結(jié)果是。

9、已知K=2,J=3,A=True,則VB表達(dá)式(K-J<=K)AND(NOTA)OR(K+J>=J)的值為。

10、表示”A+B+C大于等于255,或A與B分別大于90且C大于80"的VB表達(dá)式的___

11、表示"A和B之一為零但不同時(shí)為零”的VB表達(dá)式為。

12、表達(dá)式Fix(-48.65)+Int(-5215)的值是。

13、已知A=7.5,B=2,C=-3.6,表達(dá)式a>bandc>aora<bandnotc>b的值為___(1)____.

14、X是小于100的非負(fù)數(shù)，對(duì)應(yīng)的表達(dá)式是___(1).

15、有下列程序:

PrivateSubCommandl_Click()

x$="Apply11

y$="Action"

z$="Study”

z$=Left$(x$,4)+Mid(y,4,1)+LCase$(z)+',H+z$

Printz$

EndSub

運(yùn)行后窗體上顯示的是o

16、表達(dá)式7八2Mod5A2\3的值為

17、2Sinx4-3Cosx+Tan2x+LnxLny的VB表達(dá)式為

18、下列程序的功能是輸出如下數(shù)列的前20項(xiàng)，按每行5個(gè)數(shù)的形式輸出。

1,1,2,3,5,8,13,......

DimaAsInteger,bAsInteger

DimiAsInteger

a=l:b=l:i=3

Printa,b,

DoWhile(i<=20)

c=a+b

t=b

b=a+b

一(1)—

Printc,

If____(2)____Then

Print

EndIf

_____(3)_____

Loop

19、以下程序的輸出結(jié)果是。

x=l2.7

x=Int(x+0.5)

Printx

20、下列程序執(zhí)行時(shí)，從鍵盤上依次輸入123和234,則程序的輸出結(jié)果是。

DimaAslnteger,bAsInteger

a=InputBox("請(qǐng)輸入第一個(gè)整數(shù)

b=lnputBox("請(qǐng)輸入第二個(gè)整數(shù)

Printa+b

21、語句Print"125+32=";125+32執(zhí)行后，窗體上打印結(jié)果是.

22、若一個(gè)數(shù)的各因子之和正好等于該數(shù)本身，則該數(shù)稱為完全數(shù)。如6的因子為1,2,3,

其和為6,則6為完全數(shù)。編程找出1?100之間的所有完全數(shù)。完善下列程序。

PrivateSubCommandl_Click()

DimaAsInteger,bAsInteger,cAsInteger,iAsInteger

Fora=2To100

—(1)

Forb=2Toa-1

IfaModb=0Then

c=b+c

EndIf

Nextb

If___⑵___Then

Printa

EndIf

Nexta

EndSub

23、5面和程序功能是將一個(gè)由字母與數(shù)字相混的字符串中選出字符串，并把該字符串在窗

體上打印出來，請(qǐng)完善下面程序。

OptionExplicit

PrivateSubCommand1_Click()

DimsAsString,kAsInteger

DimrAsString,iAsInteger,tAsString

s="aallbb22Cc33”

Fori=lToLen(s)

t=(1)

Ift>="a"Andtv="z"Ort>="A"Andtv="Z'Then

r=r&t

EndIf

Nexti

Printr

EndSub

24、在窗體上畫?個(gè)命令按鈕，名稱為Command］。然后編寫如下程序：

PrivateSubCommandl_Click()

DimtAsInteger,bAsString,kAsInteger

t=InputBox("輸入一個(gè)8")

DoUntilt<l

k=tMod2

b=CStr(k)&b

t=t\2

Loop

IfLen(b)<4Then

b=u0000u&b

t=Right(b,4)

Else

t=b

EndIf

Printt

EndSub

程序運(yùn)行后，如果單擊命令按鈕，如在輸入框輸入數(shù)值"8”,則在窗體上顯示的內(nèi)容是

25、執(zhí)行下面的程序，在窗體上顯示的輸出結(jié)果的第一行是,第三行是_

Form_Click()事件過程中的第二個(gè)For-Next循環(huán)共執(zhí)行了次。

OptionExplicit

OptionBase1

PrivateSubForm_Click()

Dimx(6)AsInteger,!AsIntegerjAsInteger

Fori=lTo6

x(i)=iA2

Printx(i);

Nexti

Print

Forj=lToi-2

Callsubl(x(j),j)

Printj

Nextj

EndSub

PublicSubsubl(xAsInteger,mAsInteger)

Ifx-m<=2Then

m=m+2

Else

m=m+3

EndIf

EndSub

26、下面的程序用“冒泡”法將數(shù)組a中的10個(gè)整數(shù)按升序排列，請(qǐng)將程序補(bǔ)充完整。

OptionBase1

PrivateSubCommandl_Click()

Dima,i,j,kAsInteger

a=Array(678,45,324,528,439,387,87,875,273,823)

Fori=_________

Forj=_________

Ifa(i)a(j)Then

al=a(j):a(j)=a(i):a(i)=al

EndIf

Nextj

Nexti

fork=lTo10

Printa(k);

Nextk

EndSub

27、執(zhí)行下面程序后，A(l,3)的值是,A(2,2)的值是，A(3，1)的值是

OptionExplicit

OptionBase0

PrivateSubForm_Click()

DimA(3,3)AsInteger,!AsInteger

DimkAsInteger,mAsInteger

m=16

Fork=6To0Step-1

Ifk>=2Then

For1=0To5-k

A(k-2+I,I)=m

m=m-l

NextI

Else

For1=0Tok

A(k-I,3-I)=m

m=m-l

NextI

EndIf

Nextk

Fork=0To3

For1=0To3

PrintA(k,I);

NextI

Print

Nextk

EndSub

28、以下程序代碼將整型動(dòng)態(tài)數(shù)組X聲明為具有20個(gè)元素的數(shù)組，并給數(shù)組的所有元素賦

值.

(1)asinteger

privatesubcommand1_click()

redim___(2)____

fori=lto20

x(i)=l

printx(i)

nexti

endsub

29、用以下程序找出50以內(nèi)所有能構(gòu)成直角三角形的整數(shù)組。閱讀下列程序，請(qǐng)?jiān)?/p>

處填上正確內(nèi)容。

PrivateSubCommandl_Click()

Fora=1To50

Forb=aTo50

c=Sqr(aA2+bA2)

IfThenPrinta;b;c

Nextb

Nexta

EndSub

30、下列程序計(jì)算1!,3!,5!,7!的值。完善下列程序。

PrivateSubCommandl_Click()

forx=1To7Step2

Fory=1Tox

fact=fact*y

Nexty

Printx;"!=u;fact

Nextx

EndSub

31、輸入一?個(gè)三位的正整數(shù)，將之反向輸出。如輸入123,則輸出321,完善下列程序。

PrivateSubCommandl_Click()

DimaAsInteger,bAsInteger,cAsInteger,mAsInteger

m=InputBox("輸入一個(gè)正整數(shù)”)

a=m\100

b=(m-a*100)\10

c=-(1)一

MsgBox"結(jié)果="+Str(c*100+b*10+a)

EndSub

32、下面程序的功能是統(tǒng)計(jì)隨機(jī)產(chǎn)生的10個(gè)三位正整數(shù)中被5整除數(shù)的個(gè)數(shù)，并求出這些數(shù)

的總和°完善程序

OptionExplicit

PrivateSubForm_Click()

DimxAsInteger,siAsInteger

DimnlAsInteger^AsInteger

Randomize

Fori=1To10

x=____(1)

Printx;

IfxMod5=0Then

—(2)

si=sl+x

EndIf

Nexti

Print”被5整除數(shù)的個(gè)數(shù)和為";si

EndSub

33、33.下列程序的功能是：單擊窗體事件后，在窗體上顯示1!+2!+3!+…+9!的和。

PrivateSubForm_Click()

Dims&,i%

s=0

Fori=lTo9

s=s+①

Nexti

Prints

EndSub

PrivateFunctionfact(②)AsLong

Dimi%,f&

③

Fori=2lbn

f=f*i

Nexti

④

EndFunction

34、用二分法求函數(shù)f(x)=x3-4x+1=0在x=0?5范圍內(nèi)的x=2附近的一個(gè)實(shí)根，其計(jì)算誤

差為Ixl-x2l<l()r。

PrivateSubform_Click()

Dimx!,t!,xlAsSingle,x2AsSingle

xl=0:x2=5

DoWhile_(D____

x=(xl+x2)/2

IfSgn(func(x))②Then

x2=x

Else

xl=x

EndIf

Loop

Print,,x=',;x

EndSub

PrivateFunctionfunc(x!)AsSingle

fl=③

EndFunction

35、執(zhí)行程序單擊命令按鈕后，調(diào)試窗口中顯示的結(jié)果是①；將人、B語句交

換位置，運(yùn)行程序后調(diào)試窗口的內(nèi)容是②。

OptionExplicit

Subqq(k,x)

DimiAsInteger

x=l

Fori=lTok

x=x*i

Nexti

EndSub

PrivateSubCommandl_Click()

Dimn%,i%,x%

n=l:x=l

Fori=lTo3

Callqq(i,x)*A

n=n+x'B

Nexti

Debug.Printun="&n

EndSub

36、運(yùn)行下列程序，在窗體上顯示的第一行是①」第二行是②。

PrivateFunctiont(nAsInteger,kAsInteger)AsInteger

t=0

DoWhilek>0

t=nMod10

n=n\10

k=k-1

Loop

EndFunction

PrivateSubForm_Click()

Printt(1234,2)

Printt(1234,4)

Endsub

37、執(zhí)行下列程序，在窗體上顯示的第一行是①，第二行是②，第三行是③。

OptionExplicit

PrivateSubCommand1_Click()

dimxAsSingle,iAsInteger

x=1.2

Fori=1To3

x=x*i

Printfunl(x)

Nexti

EndSub

PrivateFunctionfunl(xAsSingle)AsSingle

StaticyAsSingle

y=y+x

funl=y/2

EndFunction

38、當(dāng)sub過程value形參表中存在byval關(guān)鍵字時(shí)，執(zhí)行本程序，單擊窗體在窗體上顯示的

第一行內(nèi)容是—(1):若將形參表的byval關(guān)鍵字刪掉，在執(zhí)行本程序，單擊窗體后在窗

體上顯示的第一行內(nèi)容是___⑵;第二行內(nèi)容是____(3)?

PrivateSubvalue(ByValmAsInteger,ByVainAsInteger)

m=m*2

n=n-5

Printm,nn=H;n

EndSub

PrivateSubForm_Click()

DimxAsInteger,yAsInteger

x=10:y=15

Callvalue(x,y)

Print