Visual Basic 程序設(shè)計期末考試

VisualBasic程序設(shè)計期末考試一、單項選擇（共20題，每題2分）.VisualBasic用于開發(fā)環(huán)境下的應(yīng)用程序。I單項選擇題］*LinuxWindows（正確答鄉(xiāng)IOSAndrio.一個工程可以包括多種類型的文件，其中，擴展名為.vbp的文件表示文件［單項選擇題］*標準窗體代碼工程（正確答案）.包含ActiveX控件的文件擴展名為［單項選擇題］*frmbasocx（正確答案）bat.以下選項中都是VisualBasic對象的一組是［單項選擇題］*代碼、數(shù)據(jù)、變量CaseElsePrint”輸入無效”EndSelectEndSub［填空題］*空1答案:userinput空2答案：i空3答案：3.在購買某物品時，假設(shè)所標明的價錢x在下述范圍內(nèi)，所付錢y按對應(yīng)折扣支付：□PrivateSubForm_Click()Dimx!,y!x=Val(InputBox("輸入x的值”))IfTheny=xElselfTheny=0.9*xElselfx<3000Theny=0.8*xElsey=0.7*xEndIfPrintyEndSub［填空題］*空1答案：x<1000空2答案:x<2000.輸入x,y,z三個數(shù)，按從大到小的次序顯示，如下圖?！鮌rivateSubCommand1_Click()Dimx!,y!,z!x=InputBox("inputx")y=InpulBoxC'inputy")z=InpulBoxC'inputz")Print"xyz”Print"排序前"；x;"y;"zIfx<yThent=:x=y:y=tIfx<zThent=x:x=:z=tIfy<zThent=y:y=z:z=tPrint"排序后“；x;"y;…;zEndSub［填空題］*空1答案：X空2答案：Z窗體、控件、字符串菜單、控件、窗體正確答案)常量、變量、表達式5.假設(shè)A=30,B=90,C=70tD=80,貝lj表達式A+B>160Or(B*C>200AndNotD>60)的值是o［單項選擇題］*TrueFalse確答案)016.關(guān)系式-5<X<5所對應(yīng)的布爾表達式是［單項選擇題］*X>5orX>-5-5<X<5X>-5and5<XX>-5andX<5(1.假定窗體的名稱為Forml,那么把窗體的標題設(shè)置為“VBTest”的語句為［單項選擇題］*Forml="VBTest"FormI.Caption="VBTest"Forml.Text=nVBTest,'(7Forml.Name=nVBTest".執(zhí)行以下程序后，變量c$的值為a$=HVisualBasicProgramming"b$="Quick"c$=b$&UCase(Mid(a$,7,6)&Right(a$,11)［單項選擇題］*VisualBAISCProgrammingQuickBasicProgrammingQUICKBasicProgrammingQuickBASICProgramming正推言至）.ViusalBasic程序一般都可以用三種控制結(jié)構(gòu)組合而成。［單項選擇題］*循環(huán)、分支、遞歸順序、循環(huán)、嵌套循環(huán)、遞歸、選擇順序、選擇、循環(huán)正嵌答案）.以下不屬于常量的是［單項選擇題］*12“ch”abc（H確答案）1.23.以下代碼，循環(huán)次DimnasintegerDimsasstringForn=ITo50Step5s=Str（n）Nextn［單項選擇題］*II10（正確答案）501212.以下可以作為VisualBasic變量名的是（）［單項選擇題］*SIN（正確答案）CO1COS（X）x（-l）.表達式5人2Mod25\2A2的值是［單項選擇題］*1（正確答案）064.表達式Int（-17.8）的值為（）［單項選擇題］*18-17-18（正確答案）-16.表達式Abs（-5）+Lcn（"ABCDE"）的值為（）［單項選擇題］*131410（正確答案）1.在一個語句行內(nèi)寫多條語句時，語句之間應(yīng)該用（）分隔。［單項選擇題］*逗號分號頓號冒號正確答案）.a="12345678”,那么表達式Left（a,4）+Mid（a,4,2）的值是.［單項選擇題］*123456“123445”（正確答案）123445"1279".表達式Mid（”Beijing2008”,4,4）的值是［單項選擇題］*Beijjing（正確答案）inj22008.在代碼編輯器中，如果一條語句太長，無法在一行內(nèi)寫下（不包括注釋），要折行書寫，可以在行末使用續(xù)行字符表示下一行是當(dāng)前行的繼續(xù)。［單項選擇題］*一個下劃字符（一）直接回車一個空格加一個下劃字符（J正確答案）一個空格加一個連字符（-）.如果將文本框的屬性設(shè)置為True,那么運行時不能對文本框中的內(nèi)容進行編輯。［單項選擇題］*TabStopLocked（正確答案）MultiLineVisible21.以下程序段能夠正確實現(xiàn)條件:“X〈Y,那么A=15,否那么A=15”的是［單項選擇題］*AIfX<YThenA=15A=-I5PrintAEndIfBIfX<YThenA=15:PrintAA=-15:PrintAEndIfC（正確答案）IfX<YThenA=15:PrintA臼seA=-15:PrintAEndIfDIfX<YThenA=15Else:A=-15PrintAEndIf22.以下程序段的執(zhí)行結(jié)果為1=0ForG=10To19Step31=1+1NextGPrintI［單項選擇題］*4（正確答案）5.以下程序段的執(zhí)行結(jié)果為N=0J=1DoUntilN>3N=N+1J=J+N*（N+1）LoopPrintN;J［單項選擇題］*0147321441（正確答案）.以下程序執(zhí)行的結(jié)果是一N=0ForI=1To3ForJ=5To1Step-1N=N+1NextJ,IPrintN;J;I［單項選擇題］*12041504（正確答案）1231153125.如果要在文本框中鍵入字符時，只顯示某個字符，如星號（*），應(yīng)設(shè)置文本框的屬性。［單項選擇題］*CaptionPasswordChar確答案)TextChar二、程序填空(共5題，每題10分).編寫程序，計算l+2+3+4+...+100oPrivateSubForm_Click()dimSumAsIntegerFori=To100Sum=+INextIPrintSumEndSub［填空題］*空1答案：1空2答案：Sum.求N!(N為自然數(shù))N!=1x2x3....x(N-1)xNSubForm_Click()dimNasIntegerN=InputBox("EnterN")k=1Fori=ltok=k*NextiprintN;”!=";kEndsub［填空題］*空1答案：N空2答案：i.從鍵盤上輸入數(shù)字0-6,分別輸出星期日-星期六，如果輸入無效，輸出提示信息。SubForm_Click()Dimuserinpu