《VB程序設(shè)計(jì)》試卷 試卷九

《VB程序設(shè)計(jì)》試卷試卷九語言基礎(chǔ)題（40分）判斷題（本題10分，每小題1分）1. 可以在窗體的通用部分聲明靜態(tài)變量。2. 事件過程也可以用Sub過程調(diào)用語句進(jìn)行調(diào)用。3. 表達(dá)式#5/22/996:22:30PM#-#4/22/99#的值是數(shù)值型的。4. 表達(dá)式-5^2>Rnd*10的值為False.5. 對(duì)象的Top和Left屬性值都必須大于或等于零。6. 控件數(shù)組的每個(gè)元素都有相同的Name屬性值和不同的Index屬性值。7. 執(zhí)行Hscroll1.Value=Hscroll1.Value+1賦值語句，就會(huì)產(chǎn)生Hscroll1滾動(dòng)條的Change事件。8. 每個(gè)Vb對(duì)象都有Name屬性。9. 組合框ComboBox和列表框ListBox都有Selected屬性。10. CommonDialog對(duì)象的ShowSave方法能保存用戶指定的文件。單選題（本題10分，每小題1分）1. 菜單條的頂層菜單控件＿＿。 [A]不允許設(shè)置快捷鍵 [B]允許設(shè)置快捷鍵[C]不存在ShortOut屬性 [D]有子菜單時(shí)允許有快捷鍵 2. 當(dāng)某文本框?qū)ο缶哂薪裹c(diǎn)時(shí)，擊鍵盤上的一個(gè)鍵會(huì)觸發(fā)該文本框?qū)ο蟮腒eyPress事件，＿＿。 [A]該事件發(fā)生在文本框?qū)ο蟮腒eyDown事件前。[B]該事件發(fā)生在文本框?qū)ο蟮腒eyDown事件后。[C]隨后便發(fā)生文本框?qū)ο蟮腖ick事件。[D]隨后便發(fā)生文本框?qū)ο蟮腉otFocus事件。 3. 程序運(yùn)行時(shí)，單擊水平滾動(dòng)條右邊的箭頭，滾動(dòng)條的Value屬性值＿＿。 [A]增加一個(gè)SmallChange量 [B]減少一個(gè)SmallChange量[C]增加一個(gè)LargeChange量 [D]減少一個(gè)LargeChange量 4. 執(zhí)行Form1.Scale(10,-20)-(-30,20)語句后，F(xiàn)orm1窗體座標(biāo)系X和Y軸的正方向是＿＿。 [A]向左和向下 [B]向右和向上[C]向左和向上 [D]向右和向下 5. 執(zhí)行List1.List(List1.ListCount)=“80”語句后，＿＿。 [A]會(huì)產(chǎn)生出錯(cuò)信息 [B]List1列表框最后一個(gè)表項(xiàng)被改為“80”[C]List1列表框會(huì)增加一個(gè)“80”表項(xiàng)[D]指定List1列表框的表項(xiàng)個(gè)數(shù)為80個(gè) 6. 為了使Drive1驅(qū)動(dòng)器列表框、Dir1目錄路徑列表框和File1文件列表框能同步協(xié)調(diào)工作，需要在＿＿。[B]Drive1的Change事件過程中加入Drive1.Drive=Dir1.Path,在Dir1的Change事件中加入Dir1.Path=File1.Path代碼7. 在Form1窗體啟動(dòng)時(shí)，為使Form1.Text1文本框首先獲得焦點(diǎn)，可以在窗體的Form_Load事件過程中加入＿＿語句。 [A]Text1.Index=0 [B]Text1.TabIndex=0[C]Text1.Appearance=0 [D]Text1.Tag=0 8. 窗體Form、框架Frame、圖片框Picture、圖像框Image中＿＿是容器控件。 [A]Image、Form、Frame [B]Frame、Picture、Image[C]Picture、Image、Form [D]Form、Frame、Picture 9. DimB1,B2AsBoolean語句顯式聲明變量＿＿。 [A]B1和B2都為布爾型變量 [B]B1是整型，B2是布爾型變量[C]B1是變體型，B2是布爾型變量 [D]B1和B2都為是變體型變量 10. 如果文本框Text1的GotFocus事件過程有Text1.Text=“abcd”:Text1.SelStart=1:Text1.SelLength=2代碼，程序運(yùn)行時(shí)，當(dāng)文本框獲得焦點(diǎn)后，文本框內(nèi)會(huì)＿＿。 [A]顯示abcd且ab字符被選取 [B]顯示abcd且bc字符被選取[C]顯示選取的ab字符 [D]顯示選取的bc字符 填空題（本題20分，每小題2分）1. 表達(dá)式-2^2+43\5的值是＿＿＿＿。 2. 函數(shù)Int(Rnd*10)產(chǎn)生的隨機(jī)數(shù)范圍是＿＿＿＿。 3. 循環(huán)語句ForI=20To10Step–3.3…Next的循環(huán)次數(shù)是＿＿＿＿。4. 用＿＿＿＿方法可以在列表框中插入列表項(xiàng)。 5. DoUntil條件…Loop循環(huán)結(jié)構(gòu)中，當(dāng)條件為＿＿＿＿時(shí)結(jié)束循環(huán)。6. Text文本框能接受的最長字符數(shù)由文本框的＿＿＿＿屬性確定。7. 執(zhí)行＿＿＿＿語句，會(huì)清除Picture1l圖片框內(nèi)的圖片。 8. 如果要新建一個(gè)順序文件，用Open語句時(shí)，操作方式關(guān)鍵詞是＿＿＿＿。9. 要設(shè)置命令按鈕的背景色，首先必須使它的Style屬性值設(shè)置為＿＿＿＿。Msgbox函數(shù)的數(shù)據(jù)類型是＿＿＿＿。 程序閱讀題（本題20分，每小題5分）1.寫出單擊窗體的運(yùn)行結(jié)果PrivateSubForm_Click()ForI=1To5 PrintTab(11-I); ForJ=1ToI*2-1 Print“*”; Next PrintNextIEndSub 2.寫出單擊窗體的運(yùn)行結(jié)果OptionBase1PrivateSubForm_Click()Dima(5,5)AsIntegerDimiAsInteger,jAsIntegerFori=1To5Forj=1To5Ifj<=iThena(i,j)=1EndIfPrinta(i,j);"";NextjPrintNextiEndSub 3.程序運(yùn)行時(shí)，連續(xù)二次單擊窗體后，寫出屏幕上顯示的結(jié)果：DimxAsIntegerPrivateSubForm_Load()x=2EndSubPrivateSubForm_Click()StaticaAsIntegerDimbAsInteger,yAsIntegerb=x^2abcx,ba=a+xy=y+bPrinta,b,x,yEndSubSubabc(ByRefyAsInteger,ByValzAsInteger)y=y+zz=y-zEndSub4.寫出單擊窗體的運(yùn)行結(jié)果PrivateSubForm_Click()Dima(4,4)AsIntegerDimcAsInteger,rAsIntegerDimiAsInteger,jAsInteger,kAsIntegerc=4:r=1:i=1:j=1Fork=1To16a(i,j)=kIfi<cAndj=rTheni=i+1ElseIfi=cAndj<cThenj=j+1ElseIfi>rAndj=cTheni=i-1ElseIfi=rAndj>r+1Thenj=j-1EndIfIfi=rAndj=r+1Thenc=c-1r=r+1EndIfNextFori=1To4Forj=1To4PrintTab(j*4);a(i,j);Ifj=4ThenPrintNextNextEndSub程序填空題（本題20分，每空2分）程序啟動(dòng)后，界面如右圖所示：輸入兩點(diǎn)坐標(biāo)，單擊命令按鈕，顯示座標(biāo)系、座標(biāo)原點(diǎn)和兩點(diǎn)的連線.PrivateSubForm_Load()Command1.Caption="顯示連線"Picture1.Scale(-100,100)-(100,-100)Frame1.＿＿(1)＿＿="輸入兩點(diǎn)坐標(biāo)"Label1.Caption="x1"Label2.Caption="y1"Label3.Caption="x2"Label4.Caption="y2"Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text1.TabIndex=0EndSubPrivateSubCommand1_Click()Picture1.Currentx=-30Picture1.Currenty=0Picture1.Print＿＿(2)＿＿Picture1.Line＿＿(3)＿＿Picture1.Line＿＿(4)＿＿Picture1.Line＿＿(5)＿＿EndSub冒泡排序BubbleSort過程是冒泡排序過程,使a數(shù)組中的數(shù)按降序排列。Swap過程交換兩個(gè)變量數(shù)值。GenerateData過程產(chǎn)生10個(gè)[1，20]之間互不相同的隨機(jī)整數(shù)存入a數(shù)組。程序如下：PrivateConstn=10Privatea(1Ton)AsIntegerPublicSubBubbleSort()DimiAsInteger,jAsIntegerGenerateDatai=1DoForj=i+1TonIfa(j)>a(i)Then ＿＿(1)＿＿EndIfNextji=i+1LoopWhile＿＿(2)＿＿Form1.Print"排序結(jié)果"Fori=1TonForm1.Printa(i);NextiEndSubPublicSubGenerateData()DimiAsIntegerDimjAsIntegerDimbAsBooleanFori=1Tonb=FalseDoWhile＿＿(3)＿＿a(i)=Int(20*Rnd+1)b=TrueForj=1To＿＿(4)＿＿Ifa(i)=a(j)Thenb=FalseExitForEndIfNextjLoopForm1.Printa(i)NextiEndSubPublicSubSwap(ByrefaAsInteger,ByrefbAsInteger)DimtempAsIntegertemp=aa=＿＿(5)＿＿b=tempEndSub 程