第二部分VISUAL BASIC 考點(diǎn)習(xí)題及解答

第二部分VISUALBASIC考點(diǎn)習(xí)題及解答下面是我為大家整理的第二部分VISUALBASIC考點(diǎn)習(xí)題及解答，希望能夠幫助到大家。

第二部分VisualBasic考點(diǎn)習(xí)題及解答

一、對象及其操作

（一）、選擇題

1決定一個(gè)窗體有無控制菜單的屬性是

(A)MinButton(B)Caption(C)MaxButton(D)ControlBox

2要使一個(gè)文本框具有水平和垂直滾動條,則應(yīng)先將其MultiLine屬性設(shè)置為True,然后再將ScrollBar屬性設(shè)置為:

(A)O(B)1(C)2(D)3

3要使文本框獲得輸入焦點(diǎn),則應(yīng)采用文本框控件的哪個(gè)方法?

(A)GotFocus(B)LostFocus(C)keypress(D)SetFocus

4要想改變一個(gè)窗體的標(biāo)題內(nèi)容,則應(yīng)設(shè)置以下哪個(gè)屬性的值?

(A)Name(B)FontName(C)Caption(D)Text

5能夠改變窗體邊框線類型的屬性是

(A)Fontstyle(B)Borderstyle(C)BackStyle(D)Border

6能夠獲得一個(gè)文本框中被選取文本的內(nèi)容的屬性是

(A)Text(B)Length(C)SelText(D)SelStart

7要使標(biāo)簽?zāi)軌蝻@示所需要的文本,則在程序中應(yīng)設(shè)置其哪一屬性的值?

(A)Caption(B)Text(C)Name(D)Autosize

8要使標(biāo)簽中顯示的文本靠右顯示,則應(yīng)將其Alignment屬性設(shè)置為

(A)O(B)1(C)2(D)3

9要把一個(gè)命令按鈕設(shè)置成無效,應(yīng)設(shè)置其哪一屬性值?

(A)Visible(B)Enabled(C)Default(D)Cancel

10要使一個(gè)命令按鈕成為圖形命令按鈕,則應(yīng)設(shè)置其哪一屬性值?

(A)Picture(B)Style(C)DownPicture(D)DisablePicture

11要使標(biāo)簽所在處透明顯示背景,應(yīng)把其Backstyle屬性設(shè)置為

(A)O(B)1(C)True(D)False

12為了在按下回車鍵時(shí)執(zhí)行某個(gè)命令按鈕的事件過程,需要把該命令按鈕的一個(gè)性設(shè)置為True,這個(gè)屬性是:

(A)Value(B)Cancel(C)Enabled(D)Default

參考答案：

（一）、選擇題

1D2D3D4C5B6C7A

8B9B10B11A12D

二、數(shù)據(jù)類型及其運(yùn)算

(一)、選擇題

1.下面給出的符號中,不能作為VisualBasic的變量名的是

(A)abed(B)4A12(C)AA-123(D)BB%

2.下面給出的符號中,可以作為VisualBasic的變量名的是

(A)abc-123(B)πR(C)Print(D)Beta

3下列可作為VisualBasic的常量的是

(A)π(B)1.O*E-3(C)-1E5(D)E-6

4.下列不可作為VisualBasic的常量的是

(A)1OE01(B)-l00.98#(C).0001(D)1.OE

5.按照VisualBasic的規(guī)定,下面作為字符串常量合法的是

(A)ABC$(B)“ABCπ”(C)“AB”$(D)‘a(chǎn)bc123

6.按照VisualBasic的規(guī)定,123#所表示的數(shù)據(jù)類型是

(A)整型(B)雙精度型(C)單精度型(D)長整型

7.下面給出的符號中,可以作為VisualBasic的變量名的是

(A)PRINT(B)LET(C)%by(D)S#

8.下面給出的符號中,不可以作為VisualBasic的變量名的是

(A)E*(B)e!(C)E#(D)e%

9.常量4.5123843D-5是一個(gè)以指數(shù)形式表示的合法的VisualBasic常量,下面與該數(shù)的值等價(jià)的是

(A)0.000045123843(B)0.0045123843

(C)0.00045123843(D)0.045123843

10.下面不可以作為VisualBasic常量的是

(A)"01-12-1999"(B)#1999-12-21#

(C)True(D)π

11.下面能夠作為VisualBasic的表達(dá)式的是

(A)4*sin(π)(B)b^2-4ac

(C)[-b+sqr(dlt)]/(2*a*c)(D)exp(x)+ABS(Y)

12.下面表達(dá)式中,其值為0的是

(A)4/5(B)5Mod4(C)4\5(D)4Mod5

13.在VisualBasic中,以下表達(dá)式的值與其他三個(gè)不同的是

(A)Int(-3.5)+0.5(B)exp(-3.5)

(C)SGN(一3.5)-2.5(D)-ABS(一3.5)

14.在VisualBasic中,執(zhí)行下面四個(gè)賦值語句時(shí)出現(xiàn)錯(cuò)誤的是

(A)x=SGN(O)(B)Y=sqr(O)(C)z=LOG(O)(D)x=SIN(O)

15.下面不可以作為VisualBasic常量的是

(A)b的輸出結(jié)果為:(輸出結(jié)果中的└┘表示一個(gè)空格符,下同)

(A)└┘153└┘-45└┘(B)153└┘-45

(C)└┘153└┘└┘-45└┘(D)└┘153└┘└┘-45

3語句Print"44+66=";44+66的輸出結(jié)果為:

(A)"44+66="└┘110(B)44+66=└┘110

(C)"44+66=";└┘44+66(D)"44+66=",└┘44+66

4下列語句中,不正確的打印語句是:d

(A)Printa=3+5(B)Print"a=;3+5"

(C)Print"a=3+5"(D)Printa=;3+5

5設(shè)有賦值語句Stt1="abede"和Str2="xyz",則語句PrintStr1;Str2的輸出結(jié)果為

(A)abede└┘xyz(B)abedexyz

(C)

└┘

abede└┘xyz(D)

└┘

abede└┘└┘xyz└┘

6Printsgn(-6^2)+abs(int(-234.12))的輸出結(jié)果為:

(A))-300(B)300(C)236(D)234

7Printsgn(一20)*sqr(3)0Thenx=y-3Elsey=x+3

Printx-y;gy-x

EndSub

則當(dāng)程序運(yùn)行時(shí),在窗體上單擊鼠標(biāo)時(shí)的輸出結(jié)果是

(A)-33(B)5-88-5(C)3-3(D)25-25

3以下哪個(gè)程序段的執(zhí)行結(jié)果為"OK”.

(A)(B)

DimyAsIntegerDimyAsInteger

y=10y=20

SelectCaseySelectCasey

Case11To1CaseIs>20,Is6,1,2to5Case1,3,Is>6

Print"OK”Print"OK”

EndSelectEndSelect

參考答案：

（一）、選擇題

1C2A3D

六、循環(huán)程序結(jié)構(gòu)

（一）、選擇題

1對于下面結(jié)構(gòu)的循環(huán)語句

DoUntil條件

循環(huán)體

loop

正確的描述是:

(A)如果"條件"是一個(gè)為0的常數(shù),則不執(zhí)行循環(huán)體

(B)如果"條件"是一個(gè)為0的常數(shù),則至少執(zhí)行一次循環(huán)體

(C)如果"條件"是一個(gè)不為0的常數(shù),則至少執(zhí)行一次循環(huán)體

(D)不論條件是否為"真",至少要執(zhí)行一次循環(huán)體

2序運(yùn)行時(shí),在窗體上單擊左鍵,則輸出結(jié)果為:

PrivateSubForm-click()

DimmAsInteger,nsInteger,jasinteger,kAsInteger

n=0

Form=1To3

Forj=1Tom

Fork=jTo3

n=n+1

Nextk,j,m

Printn

EndSub

(A)6(B)10(C)14(D)21

3設(shè)有以下程序段：

DimiAsInteger,jAsInteger

i=1

DoWhilei10,1,-1)后，變量a的值為：

(A)5(B)10(C)1(D)-1

8下面程序的執(zhí)行結(jié)果為:

PrivateSubForm-Click()

DimkAsInteger,nAsInteger,mAsInteger

k=1:m=1:n=10

DoWhilek〈=n

m=m*2

k=k+1

loop

printm

EndSub

(A)20(B)1(C)1024(D)200

9設(shè)有以下循環(huán)

X=1

Do

x=x十3

LoopUntilx>10

Printx

該程序段的輸出結(jié)果為:

(A)1(B)4(C)12(D)13

10下面程序執(zhí)行時(shí),當(dāng)在窗體上單擊左鍵時(shí)的輸出結(jié)果是:

PrivateSubForm_Click()

DimxAsInteger,yAsInteger

x=1

Fory=1To50

Ifx>=10Then

ExitFor

EndIf

IfxMod2=lThen

x=x+5

Else

x==x-3

EndIf

Nexty

Printx

EndSub

(A)4(B)6(C)8(D)10

11下面程序執(zhí)行時(shí),當(dāng)在窗體上單擊左鍵時(shí)的輸出結(jié)果是:

PrivateSubForm-Click()

DimiAsInteger,jAsInteger,sAsSingle

Fori=6To5Step-1

s=0#

Forj=iTo4Step-1

s=s+i*j

Nextj

Nexti

Prints

EndSub

(A)90(B)45(C)135(D)60

12下面程序執(zhí)行時(shí),當(dāng)在窗體上單擊左鍵時(shí)的輸出結(jié)果是:

PrivateSubForm-Click()

DimkAsInteger,cAsString*l

k=0:C="A"

Do

SelectCaseC

Case"A"

k=k+l

Case"B"

k=k-1

Case"C"

k=k+2

Case"D"

Case"E"

k=k*2

CaseElse

k=k/3

EndSelect

c=Chr(Asc(c)+1)

k=k+1

LoopWhilec="A"AndMid(pa1,i,1)=”0”AndMid(pal,i,1)<=”9”then

b=b+1

EndIf

Nexti

EndSub

PrivateSubCommand1.-click()

DimxAsInteger,yAsInteger

x=0:y