《高級(jí)語(yǔ)言程序的設(shè)計(jì)-(VB)》試題樣題

1、高級(jí)語(yǔ)言程序設(shè)計(jì)（VB）試題樣題考試時(shí)間:90分鐘機(jī)號(hào)成績(jī)一、登錄網(wǎng)絡(luò)及文件操作1 .用桌面上的4位機(jī)器號(hào)作為用戶(hù)名，登錄到FS3,刪除F盤(pán)中的所有容。2 .左F盤(pán)根目錄下以專(zhuān)業(yè)（中文）+班號(hào)仃位）+班序號(hào)（2位）十（中文）一為名建立考試目錄，并在該文件夾下分創(chuàng)建NO1、N02、N03和N04等四個(gè)文件夾下列四題分別存放在上述對(duì)應(yīng)的四個(gè)文件夾中（否則無(wú)分）。二.用VB編寫(xiě)下列程序1 .用文本框籌控件和自定義過(guò)程實(shí)現(xiàn)輸入n的值，計(jì)算1!+2!+3!+n!,并輸出結(jié)2 .隨機(jī)產(chǎn)生10個(gè)0、100之間的隨機(jī)數(shù).并求出最大值.最小值及最大值和最小值的位置。3 .用繪圖方法繪制曲線：y=x-100（-1

2、0"10）o4 .用圖像框和公共對(duì)話(huà)框（打開(kāi)文件對(duì)象）等控件實(shí)現(xiàn)一個(gè)圖像瀏覽器。VisualBasic語(yǔ)言程序設(shè)計(jì)筆試樣卷（考試時(shí)間90分鐘,滿(mǎn)分100分）一、選擇題（1） 一（35）題每題2分，共70分。下列各題A）、B）、C）、D）四個(gè)先項(xiàng)中，只有一個(gè)選擇是正確的，請(qǐng)將正確選項(xiàng)涂寫(xiě)在答題卡相應(yīng)位4上,答在試卷上不得分。（1）下列不能打開(kāi)屬性窗口的操作是A）執(zhí)行“視圖”菜單中的“屬性窗口”命令B）按F4鍵0按Ctrl+TD）單擊工具欄上的“屬性窗口按鈕下列可以打開(kāi)立即窗口的操作是A) Ctrl+DB) Ctrl+E0 Ctrl+FD)Ctrl+GinputBox函數(shù)反回值的類(lèi)型為A

3、）數(shù)值0變體（視輸入的數(shù)據(jù)而定）B）字符串D）數(shù)值或字符串可以同時(shí)刪除字符串前導(dǎo)和尾部空白的函數(shù)是.A) LtrimB) Rtrim0 TrimD) Mid-1表達(dá)式4+56*7/8Mod9的值是B)A)D)7（6） 如果在立即窗口中執(zhí)行以下操作:a=8<CR>（«R）是回車(chē)鍵,下同）b二9<CR>printa>b<CR>則輸出結(jié)果是A)-1B)FalseD)True以下語(yǔ)句的輸出結(jié)果是PrintFormat$(32548.5,000.000.00")A) 3254& 5 B) 32, 548. 5C) 032, 548.5

4、0D)32. 548. 50執(zhí)行以下程序段后，變量c$的值為a$=VisualBasicPrograminRMb$="Quick”c$=b$&UCase(Mid$(a$7.6)&Right$(a$Jl)A)VisualBASICProgramingB)C)QuickQUICKBasicBasicProgramingProgramingD)QuickBASICPrograming為了在按下回車(chē)鍵時(shí)執(zhí)行某個(gè)命令按鈕的事件過(guò)程，需要把該命令按鈕的一個(gè)屬性設(shè)置為T(mén)rue,這個(gè)屬性是A) ValueB) DefaultC) CancelD) Enabled（10）為了把焦點(diǎn)移到

5、某個(gè)指定的控件，所使用的方法是A) SetFocusB) VisibleC) RefreshD) GetFocus(11)設(shè)a=6,則執(zhí)行x=Hf(a>5,-L0)卮x的值為A) 5B) 6C) 0D)執(zhí)行下面的程序段后，X的值為x=5Fori=lTo20Step2x=x+i5NextiA)21B)2223D)24(13)在窗體上畫(huà)一個(gè)命令按鈕，然后編寫(xiě)如下事件過(guò)程：PrivateSubCommand1ClickOFor1=1T。4x=4PJ=1To3Forx=3Fork=lTo2x=x+6NextkNextJNextiPrintXEndSub程痔運(yùn)行后，單擊命令按鈕，輸出結(jié)果是A)7B

6、)15rD)538(14)在繇上畫(huà)一個(gè)命令按鈕，然后編寫(xiě)如下事件過(guò)程：PrevateSubCommand1ClickOx=0DoUntilx-1a=InputBox(請(qǐng)輸入A的值)a=Vai(a)b=Vai(b)InputBox(請(qǐng)輸入X的值”)Vai(X)a+b+xInputBox（"請(qǐng)輸入B的侑”）b=a=LoopPrintaEndSub程序運(yùn)行后，單擊命令按鈕，依次在輸入對(duì)話(huà)框中輸入5、4、3、2、1、T,則輸出結(jié)果為A）2B）14D）15在窗體（NameM性為Forml）Ji®兩個(gè)文本框（其N(xiāo)ame屬性分別為T(mén)extl和Text2）和一，個(gè)命令按鈕（Name屬性為C

7、ommand1）.然后編寫(xiě)如卜兩個(gè)事件過(guò)程:(15)PrivateSubCommandlClick()a=Textl.Text+Text2-TextPrintaEndSubPrivateSubFornunLoad()TextlText=*Text2Text="*Endsub程序運(yùn)行后，在第一個(gè)文本框(Textl)和第二個(gè)文本框(Text2)中分別輸入123和321,然后單擊命令按鈕，則輸出結(jié)果為。A)444B)321123C)123321D)132231(16)閱讀下面的程序段：Fori=lTo3Forj=lToiFork=jTo3a.a+1NextkNextjNexti執(zhí)行上面的三

8、重循環(huán)后，a的值為_(kāi)A)3B)14D)21(17)在窗體上畫(huà)一個(gè)文本框(其中Name屬性為T(mén)extl),然后編寫(xiě)如下事件過(guò)程：PrivateSubFormLoad()TtextLText=*TextLSetFocusFori=lTo10Sum=Sum+iNextiTextl-Text,SumEndSub上述程序的運(yùn)行結(jié)果是。A)在文本框Textl中輸出55在文B)本框Textl中輸出0出錯(cuò)C)在文本框Textl中輸出不定值D)(18)在窗體上畫(huà)兩個(gè)文本框(其N(xiāo)ame屬性分別為T(mén)extl和Text2)和一個(gè)命令按鈕(其N(xiāo)ame屬性為Command1),然后編寫(xiě)如下事件過(guò)程：PrivateSubC

9、ommand1ClickOx=0DoWhilex<50D)4x=Cx+2)*(x+3)n=n+lLoopTextLText=Str(n)Text2Text=Str(x)EndSub程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別為A)1和0B)2和72C)3和50和168(19)用下面語(yǔ)句定義的數(shù)組的元素個(gè)數(shù)是DimA(-3To5)AsIntegerA)6B)8D)9(20)以下程序的輸出結(jié)果是OptionBase1PrivateSubCommand1ClickODima(10).p(3)AsIntegerk=5Fori=lTo10a(i)=iNextiFori=lTo3p(i)=a

10、(i*i)NextIFori=lTo3k=k+p(i)*2NextiPrintksub33EndA)B)2835D)37(21)在窗體上面畫(huà)一個(gè)命令按鈕，然后編寫(xiě)如下事件過(guò)程：OptionBase1PrivateSubCommand1ClickODimaa=Array(1,2,3,4)J二i=4ToStep-1s=s+a(i)*jj=j*10NextiPrintsEndSub運(yùn)行上面的程序，單擊命令按鈕，其輸出緒果是A) 432134B) 12D) 1234C)(22)在窗體上面一個(gè)命令按鈕(其N(xiāo)ame屬性為Command!),然后編寫(xiě)如下代碼:Option Base 1Private Sub

11、 Commandl Click()Dim a (4, 4)For i =1 To 4For j =1 To 4Next jNext iFor i =3 To 4For j =3 To 4Print a (j. i)；Next jPrintNext iEnd Sub程痔運(yùn)行后，單擊命令按鈕，其輸出結(jié)果為0 8 11D)A) 69B) 7 109128 1112(23)710假定有如下的Sub過(guò)程:10 13Sub S (X As Single, y As Single)X -t/yy T Mod yEnd Sub在窗體上畫(huà)一個(gè)命令按鈕，然后編寫(xiě)如下事件過(guò)程:Private Sub Command

12、l Click C )Dim a As SingleDim b As Singleb =4S a, bPi*int a,bEnd Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為A) 54B) 1 IL25 IC) 1.25D)(24)閱讀程序:輸出結(jié)果為B)C)輸出結(jié)果為FunctionF(aAsInteger)b=0Staticcb=b+1c=c+1f=a+b+cEndFunctionPrivateSubCommand1ClickDimaAsIntegera=2Fori=1To3PrintF(a)NextiEndSub運(yùn)行上面的程序，單擊命令按鈕，A)44D)445(25)閱讀程序：Subsub

13、P(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubCommand1Click()Da(1To4)AsIntegera(1) 5(2) 6(3) 7a(4)8subPa0Fori=1To4Printa(i)NextiEndSub運(yùn)行上面的程序，單擊命令按鈕,A)2B)5出錯(cuò)41416(26)下列不能打開(kāi)菜單編輯器的操作是A)按Ctrl+EB)單擊工具欄中的“菜單編輯器”按鈕執(zhí)行”工具”菜單中的“菜單編輯器”命令按、Shift+Alt+MD)(27)假定有一個(gè)萊單項(xiàng)，名為Menultenu為了在運(yùn)行時(shí)使該萊單項(xiàng)失效(變灰)，應(yīng)使用的語(yǔ)句為oA

14、) Menuitem.Enabled二FalseB) Menuitem.Enabled二TrueC) Menuitem.Visible二TrueD) Menuitem.Visible,False(28)在程序運(yùn)行期間，如果拖動(dòng)滾動(dòng)條上的滾動(dòng)塊，則觸發(fā)的滾動(dòng)條事件是.A) MoveB) ChangeC) ScrollD)GetFocus(29)假定窗體上有一個(gè)標(biāo)簽.名為L(zhǎng)abelb為了使該標(biāo)簽透明并且沒(méi)有邊框，則正確的屬性設(shè)置為0A) LabelLBackStyle=OLabelLBorderstyle=OB) LabelLBackStyle=lLabell.Borderstyle=lC) La

15、belLBackStyle=TrueLabelLBorderStyle.TrueD)Labell.BackStyle,FalseLabell.Borderstyle=False(30)在窗體上畫(huà)一個(gè)列表框和一個(gè)文本框，然后編寫(xiě)如下兩個(gè)事件過(guò)程：PrivateSubFormLoad()ListLAddItem，357,'ListLAddltem*246ListLAddItem123''ListLAddItemM56''TextLText=*EndSubPrivateSubList1DblClick()a=ListlTextPrinta+TextLTextE

16、ndSub程痔運(yùn)行后，在文本框中輸入“789”(見(jiàn)圖1),然后雙擊列表框中的-456,則輸出結(jié)果為A) 1245B) 456789C) 789456D) 0(31)為了暫時(shí)關(guān)閉計(jì)時(shí)器，應(yīng)把該計(jì)時(shí)冢的某個(gè)屬性設(shè)置為False ,這個(gè)屬性是A) VisibleB) Timer(32)為了把一 Get文件號(hào)，記錄號(hào)，變量名C) EnabledD) Interval(33)Get文件號(hào)，變量名，記錄號(hào) Put文件號(hào)，變量名，記錄號(hào) Put文件號(hào)，記錄號(hào)，變量名寫(xiě)入文件中指定的位置，所使用的語(yǔ)句的格式為A)B)0D)End對(duì)窗體編寫(xiě)如下事件過(guò)程:EndSubPrivateSubFormMouseUp(B

17、uttonAsInteger,ShiftAsInteger,XAsSingle*YAsSingle)PHntBBBBB*EndSub程痔運(yùn)行后，如果單擊鼠標(biāo)右鍵，則輸出結(jié)果為A)AAAAAB)BBBBB。AMAAD)BBBBBBBBBBPrivateSubFormMouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingleYAsSingle)IfButtonThenPi4ntJAAAAA"IfAAAAA(34)為了在運(yùn)行時(shí)能顯示窗體左上命的控制框(系統(tǒng)菜單)必須oA)把窗體的ControlBox屬性設(shè)置為Fale,其他屬性任意B)把窗體的Con

18、trolBoxIM性設(shè)置為T(mén)rue,并且把BoderStyle屬性設(shè)置為1-5把窗體的C)ControlBox屬性設(shè)置為False,同時(shí)把BoderStyle屬性調(diào)協(xié)為非0值把窗體的D)ControlBox屬性設(shè)置為T(mén)rue,同時(shí)把BoderStyle屬性設(shè)置為0值(35)對(duì)窗體編寫(xiě)如下代碼：OptionBase1PrivateSubFormKeyPress(KeyAsciiAsInteger)a=Array(237J26.87,4&498)ml=aCl)m2=IIfKeyAscii=13ThenFori=2To5Ifa(i)>mlThenml=a(j)m2=iEndIfNext

19、iEndIfPrintmlPrintm2EndSubC) 498D) 498程痔運(yùn)行后，按回車(chē)鍵，輸出結(jié)果為A)48B)2374 1二、填空題(每空2分，共30分)請(qǐng)將每空的正確答案寫(xiě)在答題卡1-15序號(hào)的橫線上，答在試卷上不得分。C1)設(shè)有如卜的VisualBasic表達(dá)式25 *x2-3*X-2*Sin(a)/3它相當(dāng)于代數(shù)式【1】o(2)執(zhí)行下面的程序段后，S的值為【2】S=5For1=2-6To4.9Step06S=s+1Nexti(3)表達(dá)式Fix(-32-68)+Int(-2302)的值為【3】。為了在運(yùn)行時(shí)把圖形文件Picf訂&jp£裝入圖片框Picturel,

20、所便用的語(yǔ)句為【4】。在窗體上畫(huà)一個(gè)命令按鈕，然后編寫(xiě)如下事件過(guò)程：PrivateSubCommand1ClickOa=InputBoxC請(qǐng)輸入一個(gè)整數(shù))b=InputBoxC*請(qǐng)輸入一個(gè)整數(shù))Printa+bEndSub程序運(yùn)行后，單擊命令按鈕，在輸入對(duì)話(huà)框中分別輸入321和456,輸出結(jié)果為【5】o執(zhí)行下面的程序段后，b的值為【6】0a=300b=20a=a+bb二a-ba二a-b(7)以下程序段的輸出結(jié)果是7】。num=0Whilenum<=2num=num+lPrintnumWend在窗體畫(huà)一個(gè)命令按鈕.然后編寫(xiě)如下事件過(guò)程：PrivateSubCommand1ClickODim

21、a(l10)DimP(1Fori二lNext , iFor i=l二a (i*i)ForTo 3k=k+p*2NextiPrintkEndSub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是8】o下面的程序用“冒泡法將數(shù)組a中的10個(gè)整數(shù)按升序排列，請(qǐng)?jiān)?】、【10】、【11】處將程序補(bǔ)充完整。OptionBase1PrivateSubCommand1ClickODimaa二Array(67&45.324,52&439,387.87.875,273,823)Fori=9Forr10Ifa(i)【11】a(j)Thenal=a(i)a=a(j)a(j)=alEndIfNextjNextiFori=lTo10Printa(i)NextiEndSub(10)在窗體畫(huà)一個(gè)命令按鈕，然后編寫(xiě)如下過(guò)程:Functionfun(ByVainumAsLong)AsLongDimkAsLongk=lnum=Abs(num)DoWhilenumk-k*(numMod10)num=nu