《VisualBasic程序設(shè)計(jì)》試題及其答案

一、填空題每題1分,共10分1.把數(shù)學(xué)式子：寫成VB的數(shù)值表達(dá)式為Sqr1+3.14159/2Sin253.14159/180;2．設(shè)A=5,B=6,C=7,D=8,表達(dá)式3>2BORA=CANDB<>CORC>D的值是True;3．若Case子句中的表達(dá)式表列具有形式：<表達(dá)式1>To<表達(dá)式2>,則它的含義是：當(dāng)測(cè)試表達(dá)式的值等于指定范圍內(nèi)的值時(shí),執(zhí)行該Case子句相應(yīng)的語(yǔ)句塊;4．執(zhí)行下面的程序段后,x的值為12;x=0Fori=1To8Step3x=x+iNexti5．在圖片框上放置的控件稱為圖片框的子對(duì)象,而窗體是圖片框的父對(duì)象;6．將命令按鈕Command1的Caption屬性值賦給文本框Text1的Text屬性使用的語(yǔ)句為Text1.Text=Command1.Caption7．復(fù)選框的Value屬性為1時(shí),表示復(fù)選框被選中;8.使用滾動(dòng)條可以獲取某一范圍內(nèi)的數(shù)值輸入;為使垂直滾動(dòng)條的Value屬性值從下往上遞增變化,應(yīng)設(shè)置滾動(dòng)條Min屬性值大于Max屬性值;9．語(yǔ)句：DimA-3to4asInteger定義的一維數(shù)組A的元素個(gè)數(shù)是8;10．給定如下子過(guò)程：FunctionfunByValnumAsLongAsLongDimkAsLong,iAsIntegerk=1Fori=1Tonum k=kiNextiEndFunction執(zhí)行語(yǔ)句Printfun5后在窗體上顯示的結(jié)果為0;二、單項(xiàng)選擇題每題1.5分,共30分1.裝載窗體是窗體的C;A對(duì)象B屬性C事件D方法2.設(shè)a="VisualBasic",下面使b的值為"Basic"的賦值語(yǔ)句正確的是B;Ab=Lefta,8,12Bb=Mida,8,5Cb=Righta,5,5Db=Lefta,8,53．設(shè)X為整型變量,不能正確表達(dá)1<X<5的邏輯表達(dá)式是A;A1<X<5BX=2orX=3orX=4C1<XAndX<5DNotX<=1AndNotX>=54．InputBox函數(shù)返回值的類型為B;A數(shù)值型B字符串型C邏輯型D貨幣型5．執(zhí)行語(yǔ)句：Print4+5\68/8Mod9輸出的值是A;A4B5C6D76.下列循環(huán)語(yǔ)句能正常結(jié)束循環(huán)的是C;Ai=5Bi=1DoDoi=i+1i=i+2LoopUntili<0LoopUntili=10Ci=10Di=6DoDoi=i+1i=i-2LoopUntili>0LoopUntili=17．以下敘述中正確的是A;A窗體的Name屬性指定窗體的名稱,用來(lái)標(biāo)識(shí)一個(gè)窗體B窗體的Name屬性的值是顯示在窗體標(biāo)題欄中的文本C可以在運(yùn)行期間改變窗體的Name屬性的值D窗體的Name屬性值可以為空8．VB為命令按鈕提供的Cancel屬性A;A用來(lái)指定命令按鈕是否為窗體的“取消”按鈕B用來(lái)指定命令按鈕的功能是停止一個(gè)程序的運(yùn)行C用來(lái)指定命令按鈕的功能是關(guān)閉一個(gè)運(yùn)行程序D用來(lái)指定命令按鈕的功能是中斷一個(gè)程序的運(yùn)行9．若使命令按鈕失效,要對(duì)A屬性設(shè)置為False;AEnabled BVisible CBackColor DCaption10．在窗體中添加兩個(gè)文本框其Name屬性分別為Text1和Text2和一個(gè)命令按鈕Name屬性為Command1,然后編寫如下兩個(gè)事件過(guò)程：PrivateSubCommand1_Clicka=UCaseText1.Text+LeftText2.Text,3PrintaEndSubPrivateSubForm_LoadText1.Text="abcDEF"Text2.Text="123456"EndSub程序啟動(dòng)后,單擊命令按鈕,輸出結(jié)果為CAabcDEF123456BabcDEF123CABCDEF123Dab12345611．在運(yùn)行程序時(shí),要使文本框獲得焦點(diǎn),則需使用B方法;AChange BSetFocus CGotFocus DMove12．下列語(yǔ)句中不能把圖片框Picture1中的圖形清除的是A;APicture1.DelBPicture1.Picture=LoadPicture""CPicture1.Picture=LoadPictureDPicture1.Picture=Nothing13．要?jiǎng)h除列表框中的某一個(gè)項(xiàng)目,需要使用D方法;AClear BReMove CMove DReMoveItem14．在組合框中選擇某一項(xiàng)目?jī)?nèi)容,在程序中可以通過(guò)D屬性獲得;AList BListIndex CListCount DText15．若有數(shù)組說(shuō)明語(yǔ)句：DimaASInteger,則a被定義為B;A定長(zhǎng)數(shù)組B可調(diào)數(shù)組C靜態(tài)數(shù)組D可變類型數(shù)組16．有如下語(yǔ)句：TypeStudentNameAsStringAgeAsIntegerSexAsStringEndTypeDimStuAsStudentWithStu.Name="李強(qiáng)".Age=21.Sex="男"EndWith執(zhí)行語(yǔ)句PrintStu.Age后在窗體上顯示的結(jié)果是B;A李強(qiáng)B21C“男17.要使子過(guò)程f1調(diào)用后能用形式參數(shù)返回兩個(gè)結(jié)果,下面子過(guò)程定義正確的是C;ASubf1ByValn%,ByValm%BSubf1n%,ByValm%<子過(guò)程體><子過(guò)程體>EndSubEndSubCSubf1n%,m%DSubf1ByValn%,m%<子過(guò)程體><子過(guò)程體>EndSubEndSub18.以下敘述中錯(cuò)誤的是D;A一個(gè)工程中可以包含多個(gè)窗體文件B在一個(gè)窗體文件中用Private定義的子過(guò)程或函數(shù)過(guò)程不能被其他窗體文件調(diào)用C在設(shè)計(jì)VB程序時(shí),窗體模塊和標(biāo)準(zhǔn)模塊需要分別保存為不同類型的文件D全局變量必須在標(biāo)準(zhǔn)模塊中定義19．從磁盤上打開順序文件"c:\t1.txt"為讀入數(shù)據(jù)做好準(zhǔn)備,如下語(yǔ)句A是正確的;AF="c:\t1.txt"BF="c:\t1.txt"OpenFForInputAs1Open"F"ForInputAs2COpen"c:\t1.txt"ForOutputAs1DOpenc:\t1.txtForInputAs220.以下敘述中正確的是B;A一個(gè)記錄中所包含的各個(gè)元素的數(shù)據(jù)類型必須相同B隨機(jī)文件中每個(gè)記錄的長(zhǎng)度是固定的COpen命令的作用是打開一個(gè)已經(jīng)存在的文件D使用Input語(yǔ)句可以從隨機(jī)文件中讀取數(shù)據(jù)三、程序閱讀題第1題3分,第2題5分,其余題各4分,共24分1．當(dāng)x的輸入值分別為4、8和12時(shí),寫出執(zhí)行下列事件過(guò)程的輸出結(jié)果;PrivateSubCommand1_ClickDimx%,y%x=InputBox"請(qǐng)輸入x的值："SelectCasexCase1,3,5,7y=x+10Case8To10y=x+2Case2,4,6y=5xCaseIs>10y=xx+1EndSelectPrint"x=";x,"y=";yEndSubx=4y=20x=8y=10x=12y=1452.寫出執(zhí)行下列事件過(guò)程的輸出結(jié)果;PrivateSubCommand1_ClickConstn=3DimiAsInteger,kAsIntegerFori=1TonPrintTabn-i2+1;Fork=1ToiPrintStrk;NextkFork=i-1To1Step-1PrintStrk;NextkPrintNextiEndSub1121123213.設(shè)在一個(gè)窗體如圖所示中已設(shè)置了一個(gè)組合框Combo1和文本框Text1,且有下列程序,試寫出事件過(guò)程Combo1_Click的功能;DimstrAsStringPrivateSubForm_Loadstr=""Combo1.AddItem"北京"Combo1.AddItem"天津"Combo1.AddItem"西安"Combo1.AddItem"上海"Combo1.AddItem"武漢"Combo1.AddItem"廣州"Combo1.AddItem"海口"Combo1.Text="北京"EndSubPrivateSubCombo1_Clickstr=str&Combo1.Text&","Text1.Text=strEndSub在文本框中顯示單擊組合框列表項(xiàng)目時(shí)該項(xiàng)目的內(nèi)容,而且以后來(lái)添加的方式在文本框中顯示所有選擇項(xiàng)目的內(nèi)容;4.寫出執(zhí)行下列事件過(guò)程的輸出結(jié)果;PrivateSubForm_ClickDima1To2,1To2AsIntegerDimiAsInteger,jAsIntegerFori=1To2Forj=1To2ai,j=2i-14+jNextjNextiFori=1To2Printai,3-i,a3-i,iNextiEndSub6131365．寫出執(zhí)行下列事件過(guò)程的輸出結(jié)果;PrivateSubCommand1_ClickDimaAsInteger,bAsIntegera=3:b=2Callf8,aPrint"a=";a,"b=";bCallfa,bPrint"a=";a,"b=";bEndSubPrivateSubfByValxAsInteger,yAsIntegerx=x+1y=y-1EndSuba=2b=2a=2b=16．若有如下窗體模塊：DimaAsIntegerPrivateSubtestDimbAsIntegera=a+1:b=b+1Print"Sub:";a,bEndSubPrivateSubCommand1_Clicka=2:b=3CalltestCalltestEndSub寫出當(dāng)程序啟動(dòng)并單擊命令按鈕后,在窗體中顯示的結(jié)果;Sub：31 Sub：41四、程序填空題每空2分,共22分1.下面事件過(guò)程的功能是：輸入某個(gè)學(xué)生某門課程的百分制成績(jī),并根據(jù)成績(jī)輸出評(píng)語(yǔ),若0≤成績(jī)＜60時(shí),評(píng)語(yǔ)為“差”；若60≤成績(jī)＜70時(shí),評(píng)語(yǔ)為“通過(guò)”；若70≤成績(jī)＜80時(shí),評(píng)語(yǔ)為“中等”；若80≤成績(jī)＜90時(shí),評(píng)語(yǔ)為“良好”；若90≤成績(jī)≤100時(shí),評(píng)語(yǔ)為“優(yōu)秀”,在橫線上填上適當(dāng)內(nèi)容;PrivateSubCommand1_ClickDimss=InputBox"請(qǐng)輸入學(xué)生的成績(jī)："If0<=sAnds<=100ThenSelectCase1sCaseIs>=90Print"優(yōu)秀"CaseIs>=80Print"良好"CaseIs>=70Print"中等"CaseIs>=60Print"通過(guò)"2CaseElse或Is>=0Print"差"EndSelectEndIfEndSub2.下面程序的功能是：計(jì)算f=1-1/2×3+1/3×4-1/4×5+…+1/19×20的值,在橫線上填上適當(dāng)內(nèi)容;PrivateSubForm_ClickDimfAsSingle,iAsInteger,signAsInteger3sign=-1f=14fori=2to19f=f+sign/ii+15sign=sign-1NextiPrint"f=";fEndSub3.下面窗體模塊的功能是：從鍵盤上輸入x,y和z的值,按如下公式求fx,y,z的值的程序,在橫線上填上適當(dāng)內(nèi)容;fx,y,z=sinx/sinx-ysinx-z+siny/siny-zsiny-x+sinz/sinz-xsinz-y其中x、y和z互不相等;FunctionfByValaAsSingle,ByValbAsSingle,ByValcAsSingle6AsSingle7f=Sina/SinbSincEndFunctionPrivateSubCommand1_ClickDimx,y,z,sx=InputBox"x="y=InputBox"y="z=InputBox"z="Ifx<>yAndy<>zAndz<>xThens=fx,x-y,x-z+fy,y-z,y-x+8fz,z-x,z-yPrint"s=";sElsePrint"數(shù)據(jù)輸入錯(cuò)誤"EndIfEndSub4.下面事件過(guò)程的功能是從學(xué)生分?jǐn)?shù)順序文件D:\file1.dat中讀取各個(gè)學(xué)生的分?jǐn)?shù),并求該班的平均成績(jī),在橫線上填上適當(dāng)內(nèi)容;PrivateSubcommand1_ClickDimn%,score,sOpen"D:\file1.dat"9As3ForInputn=0:s=0While10