判斷題：（共20題每題2分)1、事件過程是由用戶或系統事件觸發的,所以在程序中不能調用事件過程。參考答案:錯誤2、某數組聲明為字符型數組，它們的初始值為Ｆaｌse。參考答案:錯誤3、標簽控件是專門用來顯示信息的,所以不能響應鼠標的單擊事件。參考答案：錯誤4、窗體的Ｍｏve方法不光可以移動窗體,并且可以改變窗體的大小，同時也會改變窗體的有關屬性。參考答案：錯誤

5、窗體的Enａｂｅled屬性為Falsｅ時，窗體上的按鈕、文本框等控件就不會對用戶的操作作出反映。參考答案：對的6、使用Dｉm語句聲明了一個變量以后,還可以使用Ｒeｄim語句把此變量重新聲明為其他的類型。參考答案：對的7、一個使用Static語句聲明的過程級靜態變量，能在該過程的多次調用之間保持它的值，并且其他的過程也可以使用這個變量的值。參考答案:錯誤8、同一個過程中不能聲明同名的變量;在過程中不能聲明與同一模塊的模塊級變量同名的靜態過程級變量。參考答案：對的9、一個變量在剛被聲明尚未被賦值之間沒有值。參考答案:錯誤１0、可以聲明過程級自定義數據類型。參考答案：對的11、由于應用程序級和模塊級范圍不同，所以可以在同一個窗體模塊中聲明同名的應用程序級變量和模塊級變量。參考答案：對的１2、If與Endif必須成對的使用,有一個ｉｆ就有一個Enｄif與之相應。參考答案：對的13、在Ｆｏｒ循環的循環語句塊中,可以使用Nexｔ關鍵字提前結束循環。參考答案:對的1４、聲明一個過程時有幾個形參,則在調用該過程時就必須提供幾個實參。參考答案：錯誤15、由于Ｆunｃｔioｎ過程有返回值，所以只能用在表達式中，不能使用Call語句調用。參考答案:對的1６、文本框只能顯示單行文本,要顯示多行文本應當使用列表框控件。參考答案：錯誤17、標簽控件所顯示的文本只能在設計時設立，在運營時不能改變。參考答案:錯誤18、當定期器控件的Ｉnterｖａｌ屬性值為0時,會連續不斷的發送Timｅr事件。參考答案：錯誤1９、滾動條控件也可作為用戶輸入數據的一種方式。參考答案：對的２0、當定期器控件的Ｉｎterｖal屬性值設立為0時，會連續不斷地激發Tiｍer事件。參考答案:錯誤單選題:（共30道試題,每題1分)1、要在窗體的標題內顯示“myfｒm”,使用的語句是（

)?

A．Ｆｏrm１.Pｒint"mｙfrm"

Ｂ．Fｏｒm．Pｒｉnt"ｍyｆrｍ"

C．Form．caｐtion＝"myfrm"

D．Form１．caｐtioｎ=＂mｙfrm"

參考答案:D2、無論何種控件，共同具有的屬性是(

)

A．Text

B．Naｍｅ

C.Captioｎ

Ｄ.ＦoreColｏr

參考答案:Ｂ3、按照變量的作用域可將變量劃分為（

）

?

Ａ.公有、私有、系統

B．全局變量、模塊級變量、過程級變量

C．動態、常數、靜態

D．Publiｃ、Privatｅ、Prｏｔecｔｅd

參考答案:B4、擬定一個控件在窗體上位置的屬性是(

）?

A.Ｗidth或Ｈeigｈｔ

Ｂ.Ｗidth和Heiｇhｔ

C．Ｔop或Leｆt

Ｄ.Top和Left

參考答案：D5、下列關于變量的說法不對的的是（

)。?

A．局部變量是指那些在過程中用Ｄｉm語句或Statiｃ語句聲明的變量

B．局部變量的作用域僅限于聲明它的過程

C.靜態局部變量是在過程中用Ｓtatic語句聲明的

Ｄ.局部變量在聲明它的過程執行完畢后就被釋放了

參考答案：Ｄ6、要繪制多種形狀的圖形,需要設立Sｈape控件的（

）屬性?

A.Bｏｒdersｔylｅ

B.Shaｐe

C．FillStylｅ

D．Stylｅ

參考答案：Ｂ７、當Winsoｃk控件處在關閉狀態時，其Sｔａtｅ屬性的值是(

)?

A．0

B.1

C.２

D.6

參考答案:A８、目錄列表框的Path屬性的作用是(

）

Ａ．顯示當前驅動器或指定驅動器上的途徑

B.顯示當前驅動器或指定驅動器上的某目錄下的文獻名

Ｃ.顯示根目錄下的文獻名

D.只顯示當前程徑下的文獻

參考答案：A9、下列數據對象模型中采用OＬEＤＢ訪問數據庫的是（

)。

Ａ．ＤAC

B．ADＯ

C．RDC

Ｄ．RDC和ＡＤＯ

參考答案:Ｂ10、使用AＤO數據模型時，使Recorｄsｅt和Conneｃtｉon對象建立連接的屬性是()。

Ａ.CommandＴype

B．ＡctiveCｏnnｅctioｎ

C．Open

D．Ｅxecutｅ

參考答案:B1１、對于窗體，保存文獻時后綴名為()?

A..ｆrｍ

B．．fｍ

Ｃ.．fmr

D..fｒmm

參考答案：A12、以下說法錯誤的是（

）

A．VisuａlBaｓic是一種可視化編程工具

B.ViｓualBaｓic是面向對象的編程語言

C．ViｓualBasic是結構化程序設計語言

D．ＶisualBaｓic采用事件驅動編程機制

參考答案:Ｃ

1３、相對于傳統編程語言,ＶisｕaｌBasic最突出的特點是(）

A．可視化編程工具

B．面向對象的程序設計

C．結構化程序設計

D.事件驅動編程機制

參考答案：Ｂ14、對于窗體,下面（）屬性在程序運營時其屬性設立起作用

A.MaｘButｔon

B．ＢorｄｅrStylｅ

C．Nａｍe

Ｄ．Lefｔ

參考答案:D15、要使Prinｔ方法在Form_load事件中起作用，要對窗體的（）屬性進行設立。?

A.BackColor

Ｂ．ForｅCｏlor

C．AutoReｄraｗ

D.Captioｎ

參考答案:C16、若要使標簽控件顯示時不覆蓋其背景內容，要對(）屬性設立。

Ａ.BaｃkCｏlor

B．BordｅｒStylｅ

C．ＦoｒeＣolｏr

D．BackStyle

參考答案:Ｄ１7、若要使命令按鈕不可操作，要對(）屬性設立。?

Ａ．Ｅnaｂlｅd

B.Visiblｅ

C．BaｃkColor

D．Caption

參考答案:A18、文本框沒有（

)屬性。

A.Enabled

Ｂ.Ｖｉsiｂle

C．BackColoｒ

Ｄ.Ｃaption

參考答案:D1９、不管何對象，都具有()屬性。

A.Tｅxt

B.Name

C．ForeColoｒ

D．Capｔion

參考答案:Ｂ２0、要使某控件在運營時不可顯示，應對（）屬性進行設立。?

Ａ．Ｅｎableｄ

B．Ｖｉsible

C.ＢａckColor

D．Ｃapｔion

參考答案:Ｂ21、要使窗體在運營時沒有最大化按鈕，只要對(）屬性設立即可。?

Ａ．MaxButtoｎ

Ｂ．BordｅrＳtyle

Ｃ．Width

D．MinＢuttｏn

參考答案:Ａ２2、當運營程序時,系統自動執行啟動窗體的（)事件過程。?

A.Load

B．Ｃlick

C．ＵnLoad

D．MｉnBuｔｔon

參考答案：A23、改變控件在窗體中的左右位置應修改該控件的（）屬性。

A．Top

B．Left

Ｃ．Ｗidｔh

D.Rｉghｔ

參考答案:B２4、函數Inｔ(Rnd*１０0)是在()范圍內的整數。?

A.(0,10)

Ｂ.(1,100)

Ｃ．0和(0,1０0）

D．(１,99)

參考答案：C２5、假如Ｘ是一個正實數，對X的第３位小數四舍五入的表達式是（）。

Ａ．０．01*Inｔ(X＋0.005)

B.0．01*Iｎt(１0０*(Ｘ+0.005)）

C.0．01＊Int(100*(X+0.０5))

D．0.0１＊Int(X＋0．05)

參考答案：B26、已知變量A、B、C中C最小,則判斷Ａ、B、C可否構成三角形的邏輯表達式為()。

A．A>=BＡndB>＝CAｎｄC>0

B.A+C>BAndB+C＞AAndC>0

C.(A＋B＞ＣOrA－B<=C)AndC＞0

D.Ａ+B>CAnｄＡ-B>CＡndC>０

參考答案：B27、下面(）是算術運算符。?

A．Imp

B.Mｏd

Ｃ.Nｏt

Ｄ．Like

參考答案：Ｂ２8、以下不是ＶB變量名命名規則的是:(

)?

A．變量名的第一個字符必須是字母、漢字、下劃線和數字

Ｂ.

變量名不包含小數點

C.組成變量名的字符數不得超過255個字符

Ｄ.變量名在同一范圍內必須是唯一的

參考答案:Ａ２9、公用變量聲明的語句是(

)。?

A.ＳtaticCouｎtＡｓＢｏｏlｅaｎ

Ｂ.ＤimCｏｕntＡｓIntegｅｒ

C.PuｂliｃCouｎｔAｓString*6

D．

ＯｐｔｉonＥｘplicｉｔ

參考答案:C30、下列哪個語句是錯誤的VB語句(

）?

A.Ｔｅｘt1.Ｔext=＂你好！"

B.Text1.Tｅｘt="你好！":Text1.BacｋCｏｌor=Ｒed

C.Text１.Teｘt="你好!＂;Ｔeｘt1.BaｃkCoｌoｒ＝Red

D．OｐtionExpｌicit

參考答案：C單選題：（共６道試題,每題5分）1、閱讀程序，程序運營時單擊窗體后，在窗體中顯示c，k的值分別為(

）?PrivateSubFｏrm＿Click()

DｉmcAsInｔｅgｅr，jＡｓIntｅｇer,kAsInteger

k=０

c=1?Fｏrj＝1To６

Iｆｊ>４Tｈen?

ｃ=c+5

ExitFor?

Eｌse

k＝k＋1

EndIf?Nextｊ

Pｒiｎｔc，k

EｎdSuｂ

A．４,4

B.６，6

Ｃ．4，6

D．６,4

參考答案：D２、閱讀程序，程序運營時在文本框Text1中顯示值為(

）ＰrｉvatｅSubCommand1_Ｃlicｋ()

ＤimsAsDouble?ＤｉmiAsＩntｅｇer

s=５

i＝1?

DoWhilei<9

i=i＋2

s=s+ｉ

Loop

Teｘt１.Tｅｘt=s

EｎdSub

Ａ.２6

Ｂ.27

C.28

D.２9

參考答案：Ｄ３、閱讀程序,寫出程序運營時單擊窗體后，窗體Foｒm1上的結果為（

)

PｒiｖａｔeSubForm_Clｉck()

DimＡ(1To４)AｓＳtrｉng?

DiｍcAsＩｎｔｅgｅｒ

DimjAsInｔeｇeｒ

Ａ(１)="２"

A(2）＝"４"?

A(3)=＂６"?

A(3）=＂8"?

c＝1

Fｏｒj=１To4?

c=c+Val(A（j)）?

Nexｔj

Priｎtc

EｎdＳub?

Ａ．1６

Ｂ.15

C.18

D.2０

參考答案：B4、閱讀程序,寫出程序運營時，單擊Ｃommａnd１后，文本框Ｔeｘt1、Text2和Text3的輸出結果為（

）?PｒivateSｕbCommand１＿Cliｃk()

DｉmｎAｓＩntｅｇer,ｙAsInteｇer，xAｓIｎtｅgeｒ?

a=1?DoＷｈiｌea<20

n＝n+1

b＝a＋b?

a=ａ*(a+1）

Loop

Text1.Ｔｅxt=n

Tｅｘｔ２.Teｘt=a?

Tｅxt３．Teｘt=b?ＥndＳuｂ

A．3，４2,9

B．3,40，10

C.4，4２,９

D．３，42,8

參考答案：Ａ5、閱讀程序，寫出程序運營時,單擊Commaｎd1后，文本框Tｅxt１、Ｔｅxt2的輸出結果為(

）

PrｉｖateSubCommａnd1_Cｌiｃk()

DimA(1To５)ＡsＩnteger?

DimxＡsInteｇer?

Ｆｏｒi＝1Tｏ５

A(i）=ｉ?

Nexti?

i=1?

DoＷhiｌex<3

A(i)＝A（i)*ｘ

x=x+2?

i=ｉ+1?

Loop?

Texｔ１.Text=A(1)?

Text2.Tｅxt=A(2)?ＥnｄSｕb

A．0,４

B.4,１０

C．4,０