VB程序設(shè)計(jì)期末模擬試卷

《VB程序設(shè)計(jì)》期末模擬試卷一、單項(xiàng)選擇（b)1．被對(duì)象所識(shí)別的動(dòng)作與對(duì)象可執(zhí)行的動(dòng)作分別稱為對(duì)象的_______＿_(dá)__。?

A.方法、事件

B．事件、方法?

C．事件、屬性

Ｄ.過(guò)程、屬性?(c)2.下列___＿_(dá)___是Sinｇle型變量。

A.Tｉme％?

Ｂ．Nａｍｅ$?

C.Sheighｔ!

?

Ｄ．ＣＸＹＺ&?(ａ）3．以下四個(gè)VB的變量名中,合法的是_＿＿＿_(dá)＿＿_(dá)＿_(dá)__。?

A.X2３

B.$Rｅ

Ｃ.Leｎ

Ｄ．3xｙ

(d）４.在程序中使用Ｄimstｒ1,str2AsLonｇ語(yǔ)句對(duì)變量str1、str2進(jìn)行聲明后,下面正確的說(shuō)法是＿＿_(dá)＿_(dá)___。

A.str1是整型，sｔr2是長(zhǎng)整型

?

Ｂ.ｓtr1是長(zhǎng)整型，str2變體型

C.str1、ｓｔr２都是長(zhǎng)整型

?

D.str１是變體型，stｒ2是長(zhǎng)整型?(b）５.表達(dá)式（&O3６>３1)aｎd（“Ａ”>”B”)的結(jié)果是___＿_(dá)＿_(dá)____＿。?

A．True

B．Faｌｓe

?

C．”&O３63１ＡB”

D．&O３63１?（ｃ)6．表達(dá)式“１00”+100和表達(dá)式“１00”＆１０0的值分別是________＿_(dá)_＿。

A．200、200

?

B．“1０01００”、“10０100”

?

C．200、“100１０0”

D．“１00100”、２０0?（b）7.以下語(yǔ)句執(zhí)行時(shí),從鍵盤上輸入Ｚhao，并按回車鍵。執(zhí)行結(jié)果是＿_(dá)___＿_(dá)_。

DimａAsStｒinｇ?

Ａ=InputBｏx（＂Inpｕt","","Nａｍe")?

Printａ?

A．Input

?

Ｂ.Ｚhａo

?

C．Nａme

?

D.空字符串?(b)8．語(yǔ)句Prinｔ4+５＼６*7/8Mod9的運(yùn)行結(jié)果是_＿_(dá)＿_(dá)_＿_(dá)。?

A.4

B．5

?

C.6

D．７?（d）9.在窗體的通用段聲明變量時(shí),不能使用____＿＿_(dá)__＿關(guān)鍵字。

A.Ｄｉm

B.Publｉc

?

C.Priｖａｔe

?

D．Ｓtatic?(c）１0．表達(dá)式Abｓ（-９)+Ｌen("Iａmastｕdeｎt")的值是__＿_(dá)____。?

Ａ．9Iaｍaｓtudeｎt

B.–９Iａmastudent

C.23

?

Ｄ．出錯(cuò)?(a）11．設(shè)a為整型變量，不能正確表達(dá)數(shù)學(xué)關(guān)系10<a<１５的ＶB表達(dá)式是____＿_(dá)＿_(dá)_。?

A.10＜a<１５

B．a(chǎn)=1１O(jiān)ｒａ=１2Ｏｒa=13Ora=１4?

C.a>10Anｄa<15

Ｄ．Not(ａ<=１0)AｎｄNｏt(a＞=15)

（b）12．在窗體的“通用”部分用Prｉｖａｔe定義的變量,其作用域是＿_(dá)_____。

A．局部變量

B.窗體/模塊級(jí)變量?

Ｃ.全局變量

D.靜態(tài)變量?(b）13.假設(shè)A="GoｏｄＭorｎing.＂，B="Ａfｔernoｏn,Bｏyｓ."，則下列＿_(dá)__＿_(dá)表達(dá)式的結(jié)果等于"GｏodＢｏys．"。?

Ａ.Ｌeｆt(A，10)+Ｒｉght（B,6)

?

B.Ｌefｔ(A，5)＋Right（B,5)?

C．Mid(A，1，5)+Mid（Ｂ，1,6)

D．Mid（A＋B,1,１１)?（a）1４．執(zhí)行下面的程序段后，Ｘ的值為＿＿_(dá)_＿_(dá)＿＿。?

X＝３

ＦorI=1To10Sｔｅp–2

Ｘ＝x+Ｉ\３

ＮexｔＩ

A.3

B．10

?

C．－1

Ｄ．4

（a）15.在窗體上添加一個(gè)名稱為Coｍmand1的命令按鈕,然后編寫(xiě)如下程序：

Prｉvａt(yī)eSubCommａnd１＿Clｉcｋ()

DｉmＡＡsＩｎteger?

StatiｃBAｓＩｎｔeger

Cｌs?

B=2

Ｂ=B+3?

A＝3+A?

PｒiｎｔA,B

ＥｎdSuｂ

程序運(yùn)行時(shí)，三次單擊命令按鈕Cｏmmand1后，窗體上顯示的結(jié)果為_(kāi)______。?

A．35

B.６6?

C.9５

D.33?(d)１6．下列＿_(dá)_＿_(dá)__事件不屬于文本框的事件。

A.Chａnge

?

B．KeyPreｓｓ

Ｃ．LoｓtＦocus

?

D．DrｏpDｏwn?(b）17．在程序中可以通過(guò)復(fù)選框和單選按鈕的＿_(dá)__＿_(dá)屬性值來(lái)判斷它們的當(dāng)前狀態(tài)。?

Ａ．Caｐtion

?

B．Vａlｕe?

C.Checkｅd

?

D.Sｅｌecteｄ

(c）1８.決定窗體標(biāo)題條顯示內(nèi)容的屬性是＿_(dá)____。?

Ａ．Tｅxt

?

Ｂ.Nａｍｅ

Ｃ.Captioｎ

Ｄ.BackStylｅ?(c）19．用戶在組合框中輸入或選擇的數(shù)據(jù)可以通過(guò)一個(gè)屬性獲得，這個(gè)屬性是_＿_(dá)_＿_(dá)。

Ａ.List

B．LｉstInｄex

?

C.Teｘt

D．LiｓtCount?(b)2０.在窗體上有兩個(gè)文本框控件，名稱分別為Text1和Text2,以下程序?qū)崿F(xiàn)的功能是希望在文本框Tｅxt1中輸入字符時(shí),輸入的字符也將出現(xiàn)在Tｅxt２文本框中。下劃線處應(yīng)填____＿_(dá)_。?

Privａt(yī)eＳuｂText1______＿_(dá)__()

Tｅｘｔ2.Tｅxｔ=Text１.Text?

EｎdSｕｂ

Ａ.SｅtFoｃｕs

B．Ｃhaｎge

Ｃ.GetFoｃus

?

Ｄ．Clｉck?（ｃ）21.要把名稱為Ｌiｓt1的列表框中當(dāng)前選中的一項(xiàng)刪除,應(yīng)執(zhí)行______語(yǔ)句。

A.List１.Cｌeaｒ

B.Ｌist1.DｅleｔeLｉst1.ListIｎdex

C.Lｉｓt1.RemｏveItemＬist1.LｉstIndｅx

?

D．Lｉst１.ＣlearＬist1．LiｓtInｄex

(ｃ）22．要使文本框能顯示多行文字,則需設(shè)定它的＿_(dá)_＿_(dá)_＿屬性為Trｕe。

A.Caｐtioｎ

?

B.PasswoｒｄCｈａr

?

C．ＭulｔｉL(zhǎng)ine

?

D．Vaｌue?(c)2３．列表框的_＿_(dá)__＿_(dá)屬性代表著列表框中項(xiàng)目的總數(shù)目。?

A．List

?

B.ListＩｎdeｘ

Ｃ.ListCoｕnt

D.Seｌecteｄ

（d)24．用下面語(yǔ)句定義的數(shù)組元素個(gè)數(shù)是__________。?

ＤiｍArr1(-2Ｔo6)AsIntｅgｅr?

Ａ．６

?

Ｂ.7

Ｃ.８

D．9

（d）25．當(dāng)Forｍ1＿Click事件發(fā)生時(shí)，程序的輸出結(jié)果是__＿_(dá)__。

ＰriｖateSｕbForm_Cliｃk(）?

ＤimＭAsInｔeger，kAsInteger,tAｓIｎｔeger?

M=６:k=８

SｅlｅctCaseM?

CaseIs<0

M=M+5

Cａsｅ1To1０?

t=M:M=k:k＝t

CａｓeIｓ>１0?

M=kMｏd３?

EｎdＳｅlecｔ

PrintM，ｋ,t

EndSｕb

A.668

B．686

Ｃ．86８

Ｄ．８6６?(a）26.假定有以下程序段:

ＦorI＝1To3?

Fｏrj＝５To1Ｓtep–1?

PrintＩ＊j

Nexｔj,I?則語(yǔ)句PrｉnｔＩ*ｊ的執(zhí)行次數(shù)是_____＿。

Ａ.15

Ｂ.１6

C．１7

?

D.１8

(b）２7．當(dāng)拖動(dòng)某對(duì)象A經(jīng)過(guò)對(duì)象B時(shí),將會(huì)發(fā)生對(duì)象B的__＿_(dá)___事件。?

A．DｒaｇDrｏｐ

B．DrａgＯveｒ?

C．DｒａgDown?

D．Ｄｒag?(ａ）28.參數(shù)傳遞有按值傳遞和按地址傳遞,______關(guān)鍵字表示按值傳遞。?

Ａ．BｙVal?

B．ＢｙＲeｆ

C.Valuｅ?

Ｄ.Ｒefreｎｃe?（a）２9．當(dāng)Ｆorm＿Ｃliｃk事件發(fā)生時(shí)，寫(xiě)出在窗體上顯示的第二行和第三行是_＿_(dá)__＿_(dá)_。?

Ｐrｉｖａt(yī)eａAsInteger,cAsIntｅgｅr

PrｉvatｅSubForm_Clｉck()?

DimaAsＩｎtegｅr,ｂAｓIｎｔｅger?

a＝10:b=10：c=１０?

Printa,b,c

Caｌltest１（ａ，b）

Pｒｉnta,ｂ,ｃ

EｎdSub

PriｖateＳuｂtest1(ｍＡsInteｇer，ByValnＡsIntｅger)

DiｍcAsIntｅgeｒ?

ｍ＝5:n=5:c=5

Prｉｎtm,n,c

EnｄSub

Ａ.555

510１0

B．555

5510

C.55１0?

51０10

D.555?

１0101０?（c)30．如果想要名為MｅnuIteｍ1的菜單項(xiàng)在運(yùn)行時(shí)變灰顯示，則應(yīng)執(zhí)行_＿＿＿_(dá)__＿語(yǔ)句。?

A.MenuItem１.Ｅnaｂleｄ=True?

Ｂ.MenuＩtem1.Cheｃｋeｄ=Tｒｕe?

C．MｅnuItem1.Eｎabled=Fａlse

D．MeｎuIteｍ1．Ｖisiｂlｅ=Faｌse二、填空題1．設(shè)置對(duì)象屬性的方法有兩種，其一是在設(shè)計(jì)階段，在_＿屬性窗口__中直接修改相應(yīng)屬性的值;其二是在應(yīng)用程序運(yùn)行時(shí)，通過(guò)_賦值語(yǔ)句_＿來(lái)動(dòng)態(tài)設(shè)置。

2.書(shū)寫(xiě)程序時(shí),要在一行內(nèi)寫(xiě)多個(gè)語(yǔ)句，語(yǔ)句間用__＿_(dá)，＿_(dá)_間隔；語(yǔ)句前有一個(gè)'(單引號(hào)）的語(yǔ)句是_＿_(dá)__注釋＿_(dá)_＿語(yǔ)句。?3．寫(xiě)出數(shù)學(xué)式的ＶB表達(dá)式_＿_(dá)_＿_(dá)_＿_(dá)____＿＿_(dá)__＿_(dá)＿_(dá)__。?4.當(dāng)用戶增加、刪除或修改文本框（ＴeｘtBox）的內(nèi)容時(shí)，都會(huì)觸發(fā)文本框的_＿_(dá)____＿_(dá)＿＿_(dá)事件。?5．ＩｎpuｔBox函數(shù)返回值的類型為_(kāi)string_＿。

6.可使用列表框的_＿adｄiｔｅm__方法向列表框中增加一個(gè)項(xiàng)目。?7．要使文本框Ｔext1中顯示的字符為宋體，使用的語(yǔ)句是_foｎtｎame=宋體____＿。

8．組合框有三種不同的風(fēng)格：下拉式組合框、_＿_(dá)簡(jiǎn)單組合框___和下拉式列表框,可通過(guò)它的__style_＿屬性進(jìn)行設(shè)置。

9．計(jì)時(shí)器事件之間的時(shí)間間隔通過(guò)_＿intｅｒｖal＿_(dá)屬性設(shè)置。?1０.某菜單項(xiàng)顯示出來(lái)的標(biāo)題為“文件(F)”，那么在菜單編輯器中輸入的標(biāo)題應(yīng)為_(kāi)______＿_(dá)____。?11.在VB中,有三種文件訪問(wèn)的類型：順序訪問(wèn)、＿＿_(dá)隨機(jī)訪問(wèn)＿_(dá)＿和二進(jìn)制訪問(wèn)。

12.當(dāng)采用手工拖放模式時(shí),需要使用____＿＿方法來(lái)實(shí)現(xiàn)控件的拖放操作。

13.在ＶisｕａlBaｓic中,通用過(guò)程分為兩類，F(xiàn)uncｔion和___sub_＿_(dá)。

1４．VｉｓｕalBａsic的數(shù)組下標(biāo)的下界默認(rèn)為＿＿0＿_(dá)，可通過(guò)_＿ｏpertionｂase1_語(yǔ)句使數(shù)組下標(biāo)從1開(kāi)始。

１５．表達(dá)式Ａｂs(-3２)+Inｔ(-23.02）的值為＿_(dá)__＿8_＿＿＿_(dá)_____。?1６．下列程序執(zhí)行時(shí)，從鍵盤上依次輸入12３和４5６，則程序的輸出結(jié)果是12３456

PrivaｔeSubForm_Ｃlｉck（)

Ａ=ＩnpuｔBoｘ（"請(qǐng)輸入第一個(gè)整數(shù)")

B=InpuｔBoｘ(＂請(qǐng)輸入第二個(gè)整數(shù)")

Printa+b

EndＳub三、按要求填空1.下列程序執(zhí)行時(shí),要求輸入一個(gè)密碼,如果密碼不正確則顯示出非法用戶的對(duì)話框。請(qǐng)?zhí)羁?

CoｎsｔPassWorｄ="1２３45678＂?

ＤiｍiｎpassAｓStｒing

Inpass=＿＿_(dá)___＿＿_(dá)___("請(qǐng)輸入你的密碼","輸入密碼＂)

Ifinpass=ＰassWordThen

?

ExiｔSub?

Else

msgbox＂對(duì)不起！你是非法用戶。＂?

UｎloａdＭe?

EndＩf2．以下程序的輸出結(jié)果是___＿_(dá)_13_＿_(dá)＿_(dá)_。

X=１2．7

X=Int(ｘ+0．５)?

ＰrintX3.下面程序的功能是求１0０~９99之間的所有素?cái)?shù),所謂素?cái)?shù)是指只能被1和它本身整除的數(shù)。

PrivatｅＳuｂFoｒm_Cｌｉcｋ(）

ＤimiAsInｔeger?

DiｍkAsＩntegeｒ?

Foｒi=1０0Tｏ９99?

Fork＝2Tｏi-１

Ｉf_＿_(dá)_＿iModｋ＝0______Ｔｈen

_＿_(dá)___ＥｘitFor_＿_(dá)_?

EnｄＩf?

Nextk

If＿_(dá)_k>＝ｉ_(kāi)＿_(dá)___Then

Printi?

EnｄIf

Nexｔi?

EｎdSub4．下列程序的功能是:單擊窗體時(shí)將隨機(jī)生成１２個(gè)三位正整數(shù),分別賦給3*4的數(shù)組，找出數(shù)組中最大元素,并指出該元素所在的行和列。請(qǐng)?zhí)羁铡?

OｐｔioｎBase1

Privａt(yī)eＳuｂForm＿Ｃlick()

Diｍa(3，4）AｓIｎｔegeｒ，ｉAsIntｅger,jAsＩnteｇer

DｉｍｍａxAsＩntｅger，max＿iAｓＩnteger,maｘ_jAsInｔeger?

Randomize

Fｏri=1Tｏ3

Ｆorj=1To4?

ａ(i,j）＝Int（(9９9-100)*Ｒnｄ）+1００?

Nexｔj?

Nexti

maｘ=_____a（１,1)___＿:maｘ_i=1：max_j＝1?

Fori=1Tｏ3?

Ｆorj=1To4

If___＿_(dá)_ａ（i，j)>ｍax______Ｔhen?

max=a(ｉ，j)?

mａx_ｉ＝i?

mａx＿ｊ=j

EｎｄIｆ

Nexｔj?

Nｅxti?

Priｎtmax，ｍax_i，maｘ_j?

EndＳｕb

5．編寫(xiě)一個(gè)對(duì)列表框進(jìn)行項(xiàng)目添加、修改和刪除操作的應(yīng)用程序,如圖1所示。列表框（名為ｌsｔBｏoｋｓ）中的選項(xiàng)在Foｒm_ｌoaｄ事件中加載?！疤砑印卑粹o（cmdＡdｄ)的功能是將文本框（tｘｔItem）中的內(nèi)容添加到列表框中,“刪除”按鈕(cmdDelete)的功能是刪除列表框中選定的項(xiàng)目。如果要修改列表框中的選項(xiàng)，可先選定選項(xiàng)，然后單擊“修改”(cmdModify)按鈕,所選的項(xiàng)目顯示在文本框（txtItｅm）中，當(dāng)在文本框中修改完之后，單擊“確定修改”按鈕（ｃｍdModｉfty_OK)將更新列表框。程序運(yùn)行之初，“確定修改”按鈕是處于無(wú)效狀態(tài)(灰色)。程序代碼如下，請(qǐng)?zhí)羁?。圖1

ＰrｉｖateＳubcｍdAdd_Cliｃk()

lstBooks.＿_(dá)____＿_(dá)__txｔItem?

ｔｘｔItｅｍ.Ｔｅxt=""

EｎdＳub

Pｒｉvａt(yī)eSubｃｍdＤelｅte＿Click()

lstＢooｋｓ.ＲｅmｏveIｔem____＿_(dá)____＿＿_(dá)__

EndSub

PｒivaｔｅＳubcｍdＭｏｄify_Click(）

tｘtＩtem.Ｔeｘt=ｌstBoｏkｓ.Teｘｔ?

tｘtItｅｍ.SeｔFｏｃus

cmｄAｄd.Ｅnａｂled=False

cｍdDelｅte.Enaｂlｅd=Faｌse?

cmdModiｆy.Ｅnaｂｌed=Ｆaｌsｅ?

ｃmｄMoｄｉfy＿OK.Ｅnａｂled=___＿_(dá)___＿_(dá)__＿_(dá)?

EndＳuｂ?

ＰrivateＳubｃmdModify_ＯK_Cliｃk()?

ｌｓｔBooks.List（______＿_(dá)_＿_(dá)＿＿_(dá)_____)=txtItem?

cmｄModify_OK.Enabled=Faｌｓe

cｍdＡｄd．Enablｅd=True?

cmdＤｅlｅte.Eｎabled＝Tｒue

cｍdModｉfｙ.Enaｂled=Tｒue

txtIteｍ.Tｅｘt=""?

EnｄＳub?

ＰrivateSuｂForｍ_Ｌoａd()?

lstBｏoks.AddIｔem＂計(jì)算機(jī)文化基礎(chǔ)"

lｓtＢｏoks.AddIteｍ＂VB6程序設(shè)計(jì)教程"

lstBooｋs.AｄdIｔｅm"操作系統(tǒng)＂?

EndSub6．窗體中有命令按鈕Cｏmｍanｄ１，當(dāng)程序運(yùn)行時(shí),只要鼠標(biāo)移到命令按鈕上,該按鈕就會(huì)隨機(jī)移動(dòng)到新位置,用戶很難用鼠標(biāo)單擊到它。請(qǐng)補(bǔ)充完善以下程序：?

Privａt(yī)eSubCｏｍmanｄ1_MｏuseMｏvｅ（)?

X=Ａbｓ(Rnd(1)*Foｒｍ1．Widｔh－Coｍｍand1．Ｗiｄtｈ)

Y=Ａbs(Ｒnd(１)*Ｆorm１．Ｈeight－Commanｄ1.Hｅight*2)?

____＿_(dá)Commａnd1.MovｅX,Y_____＿＿_(dá)___＿＿_(dá)＿_(dá)______＿_(dá)__

EndSub

7．求Fｉbｏnacｃi數(shù)列中的前20個(gè)數(shù),并存放在一個(gè)數(shù)組中。在窗體上按每行5個(gè)數(shù)的形式輸出。Fｉboｎ