VB程序設計》復習題

一、選擇題

1-改變控件在窗體中的上下位置，應修改控件的_A屬性

A.TopB.LeftC.WidthD.Right

2.將通用對話框類型，設置為字體對話框，可修改該控件的D屬性

A.fontB.filenameC.filterD.action

3.標簽控件最重要的屬性是_A

A.captionB.textC.nameD.width

4.文本框中選定的內容，由下列C屬性反映。

A.TextB.CaptionC.SeitextD.sellenght

5.選中復選框控件時，value屬性的值，可以是_D

A.trueB.falseC.0D.1

6.設置列表框選中的文本用D屬性

A.selectedB.captionC.textD.list

7.簡單組合框的style值為B

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

8.在文件列表框的實現文件的多重選擇，應修改該控件的—D屬性

A.filenameB.patternC.pathD.multiselect

9.語句listLremoveitem1將刪除list.listindext等于_D的項目。

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

10.計時器的interval屬性為0時，表示A。

A.計時器失效C.相隔0毫秒

B.相隔0秒D.計時器的enable屬性為false

11.以下的vb常量中非法的是（B）

a.,■GoodLuck"b.PIc.1.5E-03d.16.3412

12.要想返回文本框中輸入的內容則可利用其（B）屬性進行編程

a.captionb.textc.named.righttoleft

13.下列不能用commondialog控件調用的對話框是（D）

a.open/saveb.helpc.fontd.search

14.vb應用程序是分層管理的，其最高的層次為（A）

a.工程b.模塊c.窗體d.過程

15.vb程序設計中的窗體在oop中稱為（C）

a.屏幕b.事件c.對象d.控件

16.欲使某命令按鈕失效，應修改命令按鈕的（D）屬性。

A.VisibleB.CaptionC.EnableD.Enabled

17.要使標簽能透出窗體的背景，必須設置（A）屬性。

A.BackStyleB.BorderStyleC.AppearanceD.BackColor

18.用鼠標拖動滾動條中滾動框并釋放，將觸發滾動條的（D）事件。

A.ScrollB.ChangeC.DragOverD.A和B

19.組合框的類型由Style屬性決定，簡單組合框的Style屬性值應為（B）。

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

20.下面哪些控件不會影響到界面設計效果。（A）

A.定時器B.文本框C.標簽D.Line控件

21.Clear方法適用于（D）控件。

A.圖片框B.窗體C.復選框D.組合框

22.下列哪個變量的取法是不正確的（C）

A.sTmeB.T_TempC.T12%D.T_12

23.如果要設置窗體的標題欄，應選搽以下那種屬性（B）

A.NameB.CaptionC.TipsD.Text

24.如果要給字體加刪除線，可以選擇下列那種屬性（C）

A.FontNameB.FontSizeC.FontStrikethruD.FontUnderLine

25.下列哪個變量的取法是不正確的（D）

A.TNameB.T_TempC.T32D.T32#

26.清除列表框的所有選項應選擇下列哪種方法（A）

A.ClearB.CisC.ClearitemD.Removeitem

27.下面哪些控件不會影響到界面設計效果。（C）

A.LabelB.TextC.CommonDialogD.Frame

28.要使得窗體在出現之前就完成相關的程序設置可在（C）事件中進行編程

A.linkopenB.KeyPressC.loadD.click

29.要使文本框中顯示密碼符有效，必須首先設置（B）屬性。

A.TextB.MultiLineC.LockedD.Enabled

30.要在垂直位置上移動控件，應利用控件的（C）屬性。

A.LeftB.WidthC.TopD.Height

31.下列表達式中，其值為0的是（C）

A.7/9B.7mod15C.7\9D.15mod9

32.一個對象可以執行的動作和可被對象識別的動作分別稱為（A）。

A、事件、方法B、方法、事件C、屬性、方法D、過程、事件

33.在窗體Forml的Click事件過程中有以下語句：

LabeH.Caption="VisualBasic"

若本語句執行之前，標簽控件的Caption屬性為默認值，則標簽控件的Name屬性

和Caption屬性在執行本語句之前的值分別為（B）。

A.”Label"、"Label”B、"LabeH\"VisualBasic"

C、"Label1"、"Label1"D、"Caption"、"Label”

34.（D）對象不具有Caption屬性。

A、LabelB,OptionC、FormD、Timer

35.Interger類型的變量可存的的最大整數是（D）。

A、250B、256C、32768D、32767

36.下列數據類型中，占用內存最小的是（B）。

A、BooleanB、ByteC^IntegerD、Single

37.已知A、B、C中C最小，則判斷A、B、C可否構成三角形三條邊長的邏輯表達式

是（B）o

A、A>=BAndB>=CAndC>0B、A+C>BAndB+C>AAndC>0

C、（A+C）>=CAndA-C<=C）AndC>0D、A+B>CAndA-B>CAndC>0

38.下面（C）是日期型常量。

A、"12/19/99"B、12/19/99C、#12/19/99#D、｛12/19/99）

二、判斷題:

1.全局變量用global或public關鍵字聲明，且僅在通用聲明處可以定義。（F）

2.如果某子程序add用publicstaticsubadd（）定義，則該子程序的變量都是局部變

量。（F）

3.move方法的一般形式是：對象名.moveA,B[,C,D],其中A指Left,C指width。

（F）

4.清除listl列表框對象的內容的語句是listl.cls。（F）

5.清除combed對象的內容是combol.clear。（T）

6.對象的可見性用enabled屬性設置，可用性用visible屬性設置。（F）

7.滾動條控件不可作為用戶輸入數據的一種方法。（F）

8.只要用拖拽的方法，將工具箱中所需的控件拖到窗體上即可完成。（F）

9.控件是對象，而窗體不是對象，它只是控件對象的窗口。（F）

10.TextBox與Label有許多共同特點，它們都能顯示和輸入文本。（F）

11.有的對象屬性既可在屬性窗口中設定又可在程序代碼中設定。（T）

12.在框架控件內的幾個單選按鈕中，只能有一個單選按鈕的Value屬性為True.（T）

13.標簽沒有Change事件和SetFocus方法。（T）

14.事件過程與Sub過程，它們相同點都是事件驅動，而不同的只是事件過程由控件屬

性決定，而Sub過程是由戶自定義。（F）

15.Function函數有參數傳遞，并且一定有返回值。（F）

16.滾動條控件不可作為用戶輸入數據的方法。（T）

17.Msgbox函數建立的信息框能顯示信息又能輸入用戶的信息。（F）

18.Dimi,jasinteger表明i和j都是整型變量。（F）

19.菜單每一菜單項都是控件，可以通過點擊菜單項或通過光標選擇并按回車鍵，以觸

發Click事件。（T）

20.某一過程中的靜態變量在過程結束后，靜態變量及其值可以在其它過程中使用。（F）

21.目錄列表框中的列表項不可以通過Additem方法進行添加。（T）

22.在表達式中，運算符兩端的數據類型要求一致。（T）

23.VisualBasic程序的運行，僅能從某一窗體啟動，如Form"!窗體。（F）

24.VB是一種面向對象的程序設計語言。（T）

25.在VB的工具欄中包括了所有的VB控件，我們不能再加載其他的控件。（F）

26.在VB中，文件菜單的“刪除工程”的作用是將當前VB工程在硬盤中刪除掉。（F）

27.有一個程序在屬性窗口中設置了它的窗體字體大小為10號，而程序代碼若設置了它

的窗體字體大小為20號，那么當程序運行后實際的窗體字體大小為20號。（T）

28.所有的VB的變量，都有隱含說明字符和強調聲明兩種方法來定義。（F）

29.所有的控件在程序運行以后都是可見的。任）

30.標簽控件可以用來讓用戶輸入數據。（F）

31.在框架控件上放置的控件可以移動到框架控件的外面。（F）

32.如果一個列表框一共有5個選項，而當選中第三項時，這時列表框的Listindex屬性

為2。（T）

33.單擊并拖拽工具箱中所需的控件到窗體上即可完成添加控件任務。（F）

34.除了標準控件外，還可引入其它控件及第三方廠商研制的控件。（T）

35.TextBox與Label有許多共同特點，它們都能顯示和輸入文本。（F）

36.Listl.clear是清除Listl的全部列表項，所以Clear是對象的方法。（T）

37.有的對象屬性既可在屬性窗口中設定又可在程序代碼中設定。（F）

38.在框架控件內的幾個單選按鈕中，可有一個或多個單選按鈕的Value屬性為True.（F）

39.Variant是一種特殊的數據類型，Variant類型變量可以存儲除了定長字符串數據及

自定義類型外的所有系統定義類型的數據。Variant類型變量還可具有Empty.Error

和Null等特殊值。（T）

40.窗體的Enabled屬性值為False時，該窗體上的按鈕、文本框等控件就不會對用戶

的操作做出反應。（T）

41.框架控件和形狀控件都不能響應用戶的鼠標的單擊事件。（T）

42.在一個窗體的代碼中不能使用Unload語句來卸載本窗體，即一個窗體只能由其它窗

體卸載。（F）

43.當在一個簡單組合框的文本框中輸入一個它的列表框中的沒有的條目時，組合框會

自動反這一條目添加到它的列表框中。（F）

44.當定時器控件的interval屬性值設置為0時，會連續不斷地激發Timer事件。（F）

45.如果一個菜單項的Visible屬性為False,則它的子菜單也不會顯示。（T）

三、填空題

1.如果要指明mystring為固定15個字長的全局變量，應該在標準模塊中用以下說明

語句定義：___Publicmystringasstring*15

2.設X$=uabc123456”則“a"+str$（val（right（X$,4）））的值是a3456

3.拖動滾動條中的滾動框將會產生______Scroll、_Change

4.請寫出清除以下對象內容的語句：

文本框Textl.text』"'窗體—Form1.Cis，列表框_

Listl.Clear，組合框___comboll.Clear

5.變量min@表示—貨幣數據變量類型的變量。

6.如果：1=11：J=3：l=int（-8.6）+l\J+13/3MOD5,則I值是_-2

7.請寫出滿足以下條件的VB表達式：0VX<10,X>0andx<10—。X為

[0-100]之間的數，能被2整除，但不能被3整除—x>=0andx<=100andxmod

2=0andxmod3<>0。

8.下列循環語句控制的循環次數為一0_

FORK=1TO10STEP-1

9.表達式1and0的值（False）。

10.設a=2,b=3,c=4,d=5,表達式（a>bXorb<c）ORb<dEQVavc的結果為

（True）。

11.a和b中有僅只有一個為1,相應的VisualBasic邏輯表達式為

（a=1xorb=1）。

12.設占5,則由下列循環語句控制的循環次數是（6）o

Do

l=l+2

LoopWhilel<=15

13.表達式32\7MOD3A2的值是(4)。

14.PrivateSubcmdSum_Click()

staticSumasinteger

Sum=2*Sum+1

EndSub

問：第三次單擊命令按鈕cmdSum后，Sum的值為：(7)。

15.欲定義一個定長為10的字符串變量Mystr,可寫成：(DimMystrasString

*10)。

16.下列表達式返回的值為True還是FalseTrue。

9>4+3Or5+3>10AndNot(4+2>5EQV3+5>2)

17.按照數據文件的存儲方法的不同，文件可以分為三種不同的類型：―順序文件

隨機文件和二進制文件。

18.下列循環語句控制的循環次數為—0o

FORK=1TO20STEP-2

19.VB表達式9人2MOD45\2*3的值4。

20.設x=2,y=4,a=4,b=6,表達式(a>xXorb<x)ORx<yIMPyvb的結果

為(True)?

21.a和b中有僅只有一個不為1,相應的VisualBasic邏輯表達式為(av>1xor

b<>1)o

22.當x=2時，語句ifx=2thenPrintx=2的結果值是(True)。

23.聲明單精度常量g(重力加速度)代表9.8可寫成：(constg=9.8)。

24.VB的工作模式可分為三種：“一設計—”運行_”以及“一中斷

25.由Fork=35to0step3:nextk循環語句控制的循環次數是(0)=

26.想擁有“快捷鍵”這項功能，必須在“菜單編輯器”中增加一些特殊的設置，也就是在字

母之前加上—&

27.若要在字符串asdgewl中取dge,則使用函數—(Mid$(asdgewl$,2,3)實現。

28.設x為大于零的實數,則大于x的最小偶數的VisualBasic表達式是(iif(int(x)mod

2=0,int(x)+2,int(x)+1))

29.設x的初值為5,則由下列循環語句控制的循環次數是(1)o

DoWhilex>=5

x=x-1

Loop

在上程序中，若x的初值為-5,則循環次數為(0)

30.sst="ABC12DE”,則Val(sst)=(0)

四、程序閱讀(假如所有的變量類型都已定義)

1.程序1

FORJ=10TO5step-2

K=J+1

IfK<6thenexitfor

NEXTJ

PRINTK；J

輸出的結果_74—

2.程序2

A=1：l=0

SELECTCASEA*2

CASE1

A=A+1

CASE2

A=A+2

CASEELSE

A=A+3

ENDSELECT

A的值為_3—

3.程序4

C=lnputBox(“請輸入字符串：”)

p="”

ForL=Len(c)To2Step-2

P=Mid(C,L-1,2)+P

NextL

PrintP

EndSub

如果輸入：ABCDEFG,則結果：BCDEFG

4.程序4

DimYAsInteger

PrivateSubCommand_Click()

DimXAsInteger

X=1

Y=1

CallAA(Y+1)

Z=BB(X)

PrintX,Y,Z

EndSub

PrivateSubAA(ByValZAsInteger)

Y=Z+X

Z=X+Y

EndSub

PrivateFunctionBB(ByRefYAsInteger)

Y=Y+1

BB=X+Y

EndFunction結果：222

5.程序5

PrivateSubCommand1_Click()

DimSAsInteger,IAsInteger

S=0

ForI=1To10

IfZS(I)Then

IfI*2<=10Then

PrintStr(l*2)

S=S+1

日se

ExitFor

EndIf

EndIf

Next1

Prirt"S="&Str(S)

EndSub

PublicFunctionZS(ByVaiXAsInteger)ASBoolean

DimJAsInteger

J=2

DoWhileJ<X

IfInt(X/J)=X/JThenExitDo

J=J+1

Loop

IfJ=XThen

ZS=True

日se

ZS=False

EndIf

EndFunction結果：610S=3

6.程序6

PrivateSubForm_Click()

Dima1AsInteger,a2AsInteger

a1=10:a2=100

wua1,a2

print"a1=”;a1,“a2=”;a2

EndSub

PrivateSubwu(b1AsInteger,Byvalb2AsInteger)

b1=b1\2:b2=b2Mod13

print"b1=”;b1,“b2=”;b2

EndSub

寫出程序運行時單擊窗體后，在Forml上的輸出結果。

結果為：b1=5b2=9

a1=5a2=100

7.程序7

PrivateSubForm_Click()

Dimkasinteger,sasinteger,jasinteger

Forml.cis

Fork=1to5

s=0

forj=kto5

s=s+1

nextj

nextk

Print"s=”,s

EndSub

寫出程序運行時單擊窗體后的輸出結果。

結果為：s=1

1.程序8

DimaAsInteger

PrivateSubCommand1_Click()

StaticsAsInteger

Ifs<5Then

s=s+a

日se

s=s*a

EndIf

a=s

EndSub

PrivateSubForm_Load()

a=5

EndSub

當連續按三次Commandl按鈕后，s的值____625

2.程序9

PrivateSubForm_Click()

Fori=1To7

PrintSpc(7-i);

Ifi=1Then

Print…

Else

PrintSpc(2*(i-1)-1);

EndIf

Nexti

EndSub

以上程序的輸出結果：(32)

3.程序10

PrivateSubForm_Click()

Dimstr1,str2AsString

DimsAsString

DimiAsInteger

str1="abcdefghijk”

Fori=Len(str1)To1Step-2

str2=str2&Mid(str1,i,1)

Nexti

EndSub

以上程序運行完成以后，str2的值為kigeca

4.程序11

DimYAsInteger

PrivateStubCommand_Click()

DimXAsInteger

X=1

Y=1

CallAA(Y+1)

Z=BB(X)

PrintX,Y,Z

EndSub

PrivateSubAA(ByValZAsInteger)

Y=Z+X

Z=X+Y

EndSub

PrivateFunctionBB(ByRefYAsInteger)

Y=Y+1

BB=X+Y

EndFunction結果：222

5.程序12

privatesubForm_click()

N=3

DimA(3,3)AsInteger

ForI=IToN

ForJ=IToN

A(l,J)=(J-I)*N+I

NextJ

NextI

ForI=2ToN

ForJ=1ToI-1

TEMP=A(l,J)

A(l,J)=A(J,I)

A(J,I)=TEMP

NextJ

NextI

ForX=1ToN

PrintX,A(X,N+X-I),A(X,X)

NextX

EndSub結果：104

278

6.程序13

PrivateSubCommand1_Click()

N=0:x=1:y=0

DoWhilex<20

n=n+1

y=x+y

x=X*(x+1)

Loop

Textl.Text=Hn="&Stp)

Text2.Text="x=M&Str(x)

Text3.Text=Hy="&Str(y)

EndSub

結果為：n=3x=42y=9

7.程序14

PrivateSubForm_Click()

DimaAsInteger,bAsInteger,zAsInteger

a=1

b=1

Forn=1To3

z=chg(a,b)

Forml.Printun=";n,"z=n,z

Nextn

EndSub

Functionchg(aAsInteger,bAsInteger)AsInteger

DimnAsInteger

Forn=0To2

a=a4-b

Nextn

chg=a

EndFunction

寫出程序運行時單擊窗體后，Forml上的輸出結果。

n=1z=4

n=2z=7

n=3z=10

1.程序15

PrivateSubForm_Click()

Dimx(5)AsInteger

x(1)=8

x(2)=3

Forj=i+1To5

Ifx(i)<x(j)Thent=x(i):x(i)=x(j):x(j)=t

Nextj,i

Fork=1To5

Forml.PrintHx(";k;”)="；x(k)

Nextk

EndSub

寫出程序運行時單擊窗體后，Forml上的輸出結果。

x(1)=8

x(2)=6

x(3)=4

x(4)=3

x(5)=1

五、程序填空

1.以下程序是單擊命令按鈕，將用戶在組合框中輸入的某一值，與組合框其他項進行

比較，如有相同，則將相同表項刪除，其他項，則不動。

PrivateSubcommand1_click()

DimaAsString,IAsInteger

A$=Trim(Combo1.Text)

Ifao,n,Then

forl=0toCombol.ListCount-1

IfCombol.List(i)=aThenCombol.Removeitemi

NextI

EndIf

Combol.SetFocus

EndSub

2.下列程序用于對輸入的x和n的值，進行計算

S=X/2!-X2/3!+x3/4!-x4/5!+.…+(-1)n-1xn/(n+1)!

PrivatefunctionFs(byvalxassingle.byvalnasinteger)assingle

Dimsumassingle

Dimremultiplyaslong

DimIasinteger

Sum=0

Remultiply=___I

1=1

Dountill>n

Remultiply=remultiply*I

Sum=sum4-remultiply

_____1=1+1_________

_loop

___Fs=sum

Endfunction

3.輸入三個數，由大到小排序

DimAAsInteger

DimBAsInteger

DimCAsInteger

PrivateSubForm_Click()

DimnTempAsInteger

A=Vai(InputBox(MPleaseinputfirstinteger“，”輸入正整數”))

B=Val(lnputBox("Pleaseinputsecondinteger“，”輸入正整數”))

C=Vai(InputBox(MPleaseinputthirdinteger"，”輸入正整數”))

IfA<=BThen

nTemp=A:A=B:B=nTemp

EndIf

IfA<=CThen

nTemp=A:A=C:C=nTemp

EndIf

IfB<=CThen

nTemp=B:B=C:C=nTemp

EndIf

Print"Theintegersinorderis";A;B;C

EndSub

1.歌德巴赫猜想:任何一個大于或等于六的偶數都可以分解成兩個素數之和.

PrivateSubCommand1_Click()

DimiAsInteger,jAsInteger,kAsInteger,mAsInteger

DimnAsInteger,mlAsInteger,m2AsInteger,num

num=val(inputbox(“請輸入要驗證的整數范圍最大值(MAX)”))

Fori=6TonumStep2

Forj=3Toi

k=(lnt(Sqr(j)))

Form=2Tok

IfjModm=0Then(ExitFor)

Nextm

Ifm>kThen

n=i-j

ml=(lnt(Sqr(n)))

Form2=2Toml

IfnModm2=0Then(Exitfor)

Nextm2

If(m2>ml)ThenPrinti;“="；j;"+“；n;,

EndIf

Nextj

Print

Nexti

EndSub

2.從計算機輸入三個數，找出中間數

PrivateSubFindMidNum()

X=INPUTBOXCPLEASEINPUTTHEFIRSTNUMBER")

Y=INPUTBOX(TLEASEINPUTTHESECONDNUMBER)

Z=INPUTBOX(UPLESSEINPUTTHETHIRDNUMBER)

IF(X<Y)THEN

A=X

X=Y

Y=A

ENDIF

IF(Y>=Z)THEN

PRINTY

ELSEIF(X>=Z)THEN

PRINTZ

ELSE

PRINTX

ENDIF

EndSub

3.［程序說明］

由輸入對話框輸入n(設n為大于零且小于30的自然數)，計算下列表達式的值,

并在標簽框Labell上顯示。

［程序］

PrivateSubForm_Click()

DimnAsInteger,sumasDouble,kAsInteger

n=Val(lnputBox(“n="，”請輸入自然數n(n>0且n<30)n))

Do(Whilen<=0orn>=30)

n=val(lnputBox(“n="，”請重輸入”))

Loop

Sum=0

(k=0)

do

k=k+1

sum=(sum+1/(k*(k+1)))

LoopUntilk>=n

Labell.Caption=,,Sum=,,+Str(sum)

EndSub

收禮盒

分享

應用程序

公共主頁

人人生活

人人小組

同名同姓

人人中學

大學百科

人人熱點

緲A幅

注冊

登錄

幫助

給我們提建議

更多

海大臨時抱佛腳

聽說，你們VB考的不錯，聽說你們VB掐過，聽說胡西川這回放水很厲害，。。。。。。。.

2012-01-08

全部人人公共主頁

公共主頁

資料

狀態

相冊

日志

分享

上一篇下一篇共36篇

[VB]VB題庫選擇，填空，判斷2012年01月11日15:22:38

一、判斷共10題（共計10分）

第1題Shape控件和Line控件可以在窗體中移動,因此它們具有Move方法.答案：N

第2題VisualBasic程序的運行可以從Main。過程啟動，也可以從某個窗體啟動.答案：Y

第3題圖片框的屬性Enabled設置為FALSE,圖片框上的控件仍可響應用戶操作.答案：

N

第4題若已在窗體中加入了一個通用對話框:要求在運行時，通過ShowOpen打開對話框時,

只顯示擴展名為DOC的文件，則對通用對話框的Filter的屬性設置應該是:"（*.DOC）|

（.DOC）".N

第5題設計菜單中每一個菜單項分別是一個控件,每個控件都有自己的名字.答案：Y

第6題清除listl列表框對象的內容的語句是listl.cls.答案：N

第7題圖片框的Move方法不僅可以移動圖片框，而且還可以改變該圖片框的大小，同時也會

改變該圖片框有關屬性的值.答案：N

第8題當窗體的ScaleTop=0,ScaleLeft=0時，這個窗體Top和Left值也是0.答案：N

第9題框架控件和形狀控件都不能響應用戶的鼠標的單擊事件.答案：Y

第10題通用對話框只能用SHOW方法進行調用.答案：N

二、單項選擇共10題(共計10分)

第1題用戶可以通過設置菜單項的0屬性值為FALSE來使該菜單項不可見.

A:HideB:CheckedC:VisibleD:Enabled答案：C

第2題定時器的Interval屬性以()為單位指定Timer事件之間的時間間隔.

A:分B:秒C:毫秒D:微秒答案：C

第3題要在圖片框P1中打印字符串"HowAreYou"，應使用語句

A:Picture1.Print-'HowAreYou"B:P1.Picture=LoadPicture("HowAreYou")

C:P1.Print"HowAreYou"D:Print"HowAreYou"答案：C

第4題下列關于設置控件屬性的敘述正確的是().

A:用戶必須設置屬性值B:所有的屬性值都可以由用戶隨意設定

C:屬性值不必一一重新設置D:不同控件的屬性項都完全一樣答案：C

第5題啟動VisualBasic后,系統為用戶新建的工程起一個名為()的臨時名稱.

A:工程1B:窗體1C:工程D:窗體答案：A

第6題設a=10,b=5,c=l,執行語句Printa>b>c后，窗體上顯示的是().

A:TrueB:FalseC:1D:出錯信息答案：B

第7題MSGBOX函數中有4個參數，其中必須寫明的參數是0.

A:指定對話框中顯示按鈕的數目B:設置對話框標題C:提示信息D:所有參數都是可選的

C

第8題應用程序設計完成后，應將程序保存,保存的過程是().

A:只保存窗體文件即可B:只保存工程文件即可C:先保存工程文件，之后保存窗體文件

D:先保存窗體文件(或標準模塊文件)，之后還要保存工程文件答案：D

第9題改變控件在窗體中的左右位置應修改該控件的()屬性.

A:TopB:LeftC:WidthD:Right答案：B

第10題VB認為下面0組變量是同一個變量.

A:A1和alB:SUM和SUMMARYC:AVERAVERAGED:A1和A_1答案：A

三、程序填空共3題(共計30分)

第1題，【程序填空】

'功能：以下程序的功能如(圖l)o

PrivateSubForm_Click（）

Dima%,b%,c%,d!

Dimxl,x2

Dimp,q,r

a=InputBox（"請輸入a的值"）

b=InputBox（"請輸入b的值”）

c=InputBox（"請輸入c的值"）

d=b*b-4*a*c

p=-b/(2*a)

Ifd>=0Then

t**********SPACE**********

If[?]Then

r=Sqr(d)/(2*a)

xl=p+r

x2=p-r

Else

xl=p

x2=p

，**********SPACE**********

[?]

Printnxl=";xl,Hx2=n;x2

，**********SPACE**********

r>i

q=Sqr(-d)/(2*a)

Printnxl=H;p;”+”；q;”in,nx2=";p;”?“；q;”i

EndIf

EndSub

答案：1).d>0或Ovd2).EndIf3).Else

第2題'【程序填空】

，功能：完成程序，使程序輸出值為15

PrivateSubCommandl_Click()

，**********Sp/^CE**********

Dimi,j,x,[?]AsInteger

Fori=1To4

x=4

Forj=1To3

x=3

，**********SPACE**********

For[?]=1To2

，**********SPACE**********

x=x+[?]

Nextk

Nextj

Nexti

Printx

EndSub

答案：l).k2).k3).6

第3題，【程序填空】

'功能：用輸入對話框輸入x,根據如圖公式計算對應的y,

’在窗體上輸出y的值。

PrivateSubCommand1_Click()

，**********SPACE**********

DimxAsSingle,[?]AsSingle

，**********Sp^cE**********

x=Val([?](”Pleaseinputx,n輸入X的值”))

Ifx=10Then

**********SPACE**********

[?]

Elselfx>10Then

，**********SPACE**********

y=Sqr(x)

Else

y=2*xA3+6

EndIf

Printy

EndSub

答案：1).y2).InputBox3).y=04).+Sin(x)

四、程序改錯共3題(共計30分)

第1題，【程序改錯】

題目:設窗體中有圖片框Piel,現要求在其中繪制10個同心圓,

1然后將此圖以Test.BMP作文件名存入磁盤。

OptionExplicit

PrivateSubCommandl_Click()

DimXAsInteger

DimYAsInteger

DimIAsInteger

Dimrad(9)AsInteger

X=Picl.ScaleWidth/2

Y=Picl.ScaleHeight/2

，**********FOUND**********

ForI=1To9

rad(I)=500*Rnd

NextI

1=9

，*******************

DoUntilI<1

Piel.Circle(X,Y),rad(I),RGB(256*Rnd,256*Rnd,256*Rnd)

，**********FOUND**********

1=1+1

Loop

SavePicturePiel.Image,MTest.BMP"

EndSub

答案：1).fbri=0to9或fori=0to9step1

2).DoUntilI<0dountil0>i

3).I=I-1或i=-l+i

第2題，【程序改錯】

題目：從計算機輸入三個數，找出中間數

OptionExplicit

PrivateSubFindMidNum()

DimxAsInteger,yAsInteger,zAsInteger,AAsInteger

x=InputBox(nPLEASEINPUTTHEFIRSTNUMBER")

y=InputBox(nPLEASEINPUTTHESECONDNUMBER11)

z=InputBox(uPLESSEINPUTTHETHIRDNUMBER”)

,**********FOUJSQD**********

Ifx>yThen

A=x

x=y

y=A

EndIf

，**********FOU^JD**********

Ify=zThen

Printy

i**********FOUND**********

Elselfx=zThen

Printz

Else

Printx

EndIf

EndSub

PrivateSubForm_Click()

FindMidNum

EndSub

答案：1).Ifx<yThen或Ify>xThen

2).Ify>=zThen或Ifzv=yThen

3).Elselfx>=zThen或Elselfz<=xThen

第3題，【程序改錯】

題目：輸出40以內能夠被3整除的數，要求輸出結果為5

1個數一行。

OptionExplicit

PrivateSubForm_Click()

Cis

DimxAsInteger

DimiAsInteger

，**********FOUND**********

i=1

Forx=1To40

If(x/3)=(x\3)Then

Printx

i=i+1

EndIf

，**********FOUND**********

IfiMod3=0Then

Print

EndIf

Nextx

EndSub

答案：1）.i=02）.Printx;3）.ifimod5=0then

五、程序設計共2題（共計20分）

第1題'【程序設計】

，題目：編寫函數fun其功能是：根據整型形參m,計算如下公式的

值:y=l/5+l/6+l/7+l/8+l/9+l/10...+l/（m+5）例如：若m=9,則應輸出：1.168229'要求：函數中

用到的中間變量必須聲明為Single類型。

答案：-------------

DimyAsDouble

DimiAsInteger

Fori=0Tom

y=y+1/(i+5)

Next

Fun=y

第2題（10.0分）題號:488

U程序設計】

'題目：（事件）單擊窗體。（響應）己知sum=l/2!-l/4!+1/6!-l/8!+l/10!,請將sum結果值輸出到

窗體上。使用dowhile...loop語句完成程序

答案：---------------

DimiAsInteger

DimnAsInteger

i=1

P=1

DoWhilei<=10

P=P*i

IfiMod2=0Then

n=n+1

sum=sum+(-1)A(n-1)/p

EndIf

i=i+1

Loop

Printsum

一、判斷共10題(共計10分)

第1題所有的對象都有caption屬性.答案：N

第2題事件過程由某個用戶事件或系統事件觸發執行，它不能被其它過程調用.答案：N

第3題當定時器控件的interval屬性值設置為0時，會連續不斷地激發Timer事件.答案：N

第4題當需要在同一窗體中建立幾組相互獨立的單選鈕時，就要用框架將每一組單選鈕框起

來.答案：Y

第5題在窗體模塊的聲明部分中用Private聲明的變量的有效范圍是其所在的工程.答案：

N

第6題VisualBasic程序的運行可以從Main。過程啟動，也可以從某個窗體啟動.答案：Y

第7題VB允許設計和使用用戶自己設計的控件.答案：Y

第8題在VB中，可以將在Picture控件中繪制的圖形以文件的形式保存在磁盤上.答案：Y

第9題Function函數有參數傳遞,并且一定有返回值.答案：N

第10題在VB的工具欄中包括了所有的VB控件，我們不能再加載其他的控件.答案：N

置頂

二、單項選擇共10題(共計10分)

第1題代數式*1-間+皿0+5出儀2+2”)/??(570)對應的丫1$皿e25元表達式是0.

A:Xl-Abs(A)+Log(l0)+Sin(X2+2*3.14)/Cos(57*3.14/l80)

B:X1-Abs(A)+Log(l0)+Sin(X2+2*^)/Cos(57*3.14/180)

C:Xl-Abs(A)+Log(l0)+Sin(X2+2*3.14)/Cos(57)

D:X1-Abs(A)+Log(10)+Sin(X2+2*^)/Cos(57)答案：A

第2題設計動畫通常使用時鐘控件()來控制動畫速度.

A:EnabledB:IntervalC:TimerD:Move答案：B

第3