南京工業(yè)大學(xué)vb考試(含答案)

vbzj523滿分：60分姓名：________1、單項選擇題(本題共計40分)1、________在用戶的應(yīng)用程序執(zhí)行期間發(fā)生，比如鼠標(biāo)單擊或敲擊鍵盤。()A、方法B、屬性C、事件D、工程2、執(zhí)行語句PrintFormat(1234.567,“##,##0.00”)后，輸出結(jié)果是____________。()A、1234.57B、1,234.57C、1，234.567D、1,234.563、想要設(shè)置窗體狀態(tài)為不顯示控制菜單，應(yīng)設(shè)置下列____________屬性。()A、StyleB、PictureC、ControlBoxD、Caption4、用于字符串連接的運算符是________。()A、&B、+C、AndD、A、B選項皆可5、VisualBasic是一種面向________的程序設(shè)計語言。()A、過程B、用戶C、方法D、對象6、執(zhí)行語句"Printformat(5459.478,"##,##0.00")"，正確的輸出結(jié)果是________。()A、5459.48B、5,459.48C、5,459.478D、5,459.477、執(zhí)行下列程序，輸出結(jié)果為___________。PrivateSubCommand1_Click()DimbAsSingleB=2/3PrintbEndSub()A、0.6666666666667B、1C、0D、0.66666678、VisualBasic中的標(biāo)準(zhǔn)模塊文件的擴展名是____________。()A、.regB、.frmC、.basD、.vbp9、下面程序的內(nèi)層循環(huán)次數(shù)是________。Fori=1TO3Forj=1TOiFork=jTO3...NextkNextjNexti()A、3B、14C、9D、2110、以下有關(guān)對象屬性的說法中錯誤的是____________。()A、所有的對象都具有Name(名稱)屬性B、只能在執(zhí)行時設(shè)置或改變的屬性為執(zhí)行時屬性C、對象的某些屬性只能在設(shè)計時設(shè)定，不能使用代碼改變D、Enabled屬性值設(shè)為False的控件對象在窗體上將不可見11、下列4個表達(dá)式中，不能對Single類型變量x(正數(shù))的第三位小數(shù)正確地進行四舍五入的是()A、Format(x,"#.00")B、Int(100*(x+0.005))/100C、CInt(100*(x+0.005))/100D、Fix(100*(x+0.005))/10012、以下語句的輸出結(jié)果是____________。printFormats(3678.234,"000，000，000")()A、000,003.678B、003,678.23C、003,678,234D、000,003,67813、當(dāng)用戶單擊命令按鈕時，________屬性可以使得命令按鈕對激發(fā)事件無效。()A、NameB、EnableC、DefaultD、Cancel14、語句x=x+1的正確含義是__________.()A、變量X的值與X+1的值相等B、將變量X的值存在X+1中去C、將變量X的值加1后賦給變量XD、變量X的值為115、要想改變窗體邊框線型，可使用的屬性是____________。()A、FonStyleB、BorderStyleC、BackStyleD、Border16、在窗體中添加一個命令按鈕，并編寫如下程序代碼：PrivateSubCommand1_Click()DimyAsIntegery=0DoWhiley<7y=y+3LoopMsgBoxyEndSub程序運行后，消息對話框中顯示________。()A、6B、7C、8D、917、如果單擊一個當(dāng)前沒有被選中的復(fù)選框，其他已被選中的復(fù)選框會處于_________狀態(tài)。()A、不選中B、不顯示C、禁止D、選中18、以下__________程序段可以實施X，Y變量值的變換.()A、Y=X:X=YB、Z=X:Y=Z:X=YC、Z=X:X=Y:Y=ZD、Z=X:W=Y:Y=Z:X=Y19、在窗體上畫一個命令按鈕名為Command1，然后編寫如下事件過程:OptionBase0PrivateSubCommand1_Click()DimcityAsVariantcity=Array("Beijing","Shanghai","NewYork","London")Printcity(4)EndSub程序運行后，屏幕顯示________()A、BeijingShanghaiNewYorkLondonB、LondonC、出錯D、空白20、下述語句段運行時的顯示結(jié)果是____________。CLSx=2.34+8printLen(x)()A、5B、10C、11D、非法使用，無輸出21、當(dāng)文本框的ScrollBars屬性設(shè)置了非零值，卻沒有效果，原因可能是____________。()A、文本框中沒有內(nèi)容B、文本框的MultiLine屬性為FalseC、文本框的MultiLine屬性為TrueD、文本框的Locked屬性為True22、表達(dá)式（7\3+1）*(18\5-1)的值是___________.()A、8.67B、7.8C、6D、6.6723、下面____________是合法的單精度型變量。()A、num!B、sum%C、xinte$D、mm24、假設(shè)如下的Sub過程：SubCalCul(aAsInteger,bAsInteger)a=a/bb=a*bEndSub在窗體上畫一個命令按鈕，然后編寫如下事件過程PrivateSubCommand1_Click()DimxAsSingle,yasSinglex=8y=5CalCulx,yPrintx,yEndSub程序運行后，單擊命令按鈕，輸出結(jié)果為()A、85B、1.68.0C、2.08.0D、2825、下列語句中的語句可以用來正確地聲明一個動態(tài)數(shù)組。()A、PrivateA(n)AsIntegerB、DimA()AsIntegerC、DimA(,)AsIntegerD、DimA(1ton)26、只有當(dāng)一個對象的________和________屬性為True時，它才能獲得焦點。()A、Enabled;VisibleB、Visible;CaptionC、Visible;NameD、Enabled;Caption27、用復(fù)制粘貼的方法建立了一個命令按鈕數(shù)組Command1，以下對該數(shù)組的說法錯誤的是________。()A、命令按鈕的所有Caption屬性都是Command1B、在代碼中訪問命令按鈕只需使用名稱Command1C、命令按鈕的大小都相同D、命令按鈕共享相同的事件過程28、結(jié)構(gòu)化程序設(shè)計方法的核心是規(guī)定了三種基本結(jié)構(gòu)：________結(jié)構(gòu)、分支結(jié)構(gòu)、循環(huán)結(jié)構(gòu)。()A、條件B、順序C、當(dāng)型D、邏輯29、在下列說法中，正確的是____________。()A、通過適當(dāng)?shù)脑O(shè)置，可以在程序運行期間，讓時鐘控件顯示在窗體上B、在列表框中不能進行多項選擇C、在列表框中能夠?qū)㈨椖堪醋帜疙樞驈拇蟮叫∨帕蠨、框架也有Click和DblClick事件30、下面____________是不合法的整常數(shù)。()A、100B、&O100C、&H100D、%10031、VB也提供了結(jié)構(gòu)化程序設(shè)計的三種基本結(jié)構(gòu)，三種基本結(jié)構(gòu)是________。()A、遞歸結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)B、選擇結(jié)構(gòu)、過程結(jié)構(gòu)、順序結(jié)構(gòu)C、過程結(jié)構(gòu)、輸入、輸出結(jié)構(gòu)、轉(zhuǎn)向結(jié)構(gòu)D、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、順序結(jié)構(gòu)32、下列語句執(zhí)行后的輸出結(jié)果是____________。(一個方格表示一個空格)Wage=26Print"工資";PrintWage()A、工資□26B、工資□□26C、“工資”□26D、“工資”□□2633、任何控件都具有__________屬性。()A、TextB、CaptionC、NameD、ForeColor34、表達(dá)式(-1)*Sgn(-100+Int(Rnd*100))的值是____________。()A、隨機數(shù)B、0C、1D、-135、執(zhí)行以下語句后，a的值為________。DimaAsIntegera=1DoUntila=100a=a+2Loop()A、99B、100C、101D、溢出36、<spanlang="EN-US">VisualBasic</span><span>是一種面向<u><spanlang="EN-US"><span></span><span></span></span></u>的程序設(shè)計語言。</span>()A、<span>過程</span>B、<span>用戶</span>C、<span>方法</span>D、<span>對象</span>37、VB也提供了結(jié)構(gòu)化程序設(shè)計的三種基本結(jié)構(gòu)，這三種基本結(jié)構(gòu)是________。()A、遞歸結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)B、選擇結(jié)構(gòu)、過程結(jié)構(gòu)、順序結(jié)構(gòu)C、過程結(jié)構(gòu)、輸入\輸出結(jié)構(gòu)、轉(zhuǎn)向結(jié)構(gòu)D、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、順序結(jié)構(gòu)38、所謂____________就是使某個對象進入活動狀態(tài)（又稱激活）的一種操作或動作。()A、事件B、屬性C、方法D、對象39、要從自定義對話框Form2中退出，可以在該對話框的“退出”按鈕的Click事件過程中使用的語句是________。()A、UnloadForm2B、HideForm2C、Unload.Form2D、Form2.Unload40、下列語句正確的是____________。()A、IfK<3*NAndK>NThenN=K^3B、IfK<3*NAndK>NThenN=K3C、IfK<3*N：K>NThenN=K^3D、IfK<3*NAndK>NThenN=K**32、填空題(本題共計20分)1、執(zhí)行下面的程序，單擊窗體后在窗體上顯示的第一行結(jié)果是_______，第三行結(jié)果是_______。PrivateSubCommand1_Click()s1="B"Fori=1To3s2=LCase(s1)s1=s1&s2s=s&s1Printss1=Chr(Asc(s1)+i)NextiEndSub2、a=100Dos=s+aa=a+1Loopwhilea>120Printa3、要把在Label控件中顯示的文字顏色設(shè)置為紅色，應(yīng)設(shè)置Label控件的__(1)__屬性。4、已知下列程序運行結(jié)果是ABCD，請將程序補充完整。PrivateSubCommand1_Click()a=""Forn=65To68a=a+______NextnPrintaEndSub5、某人編寫如下函數(shù)來判斷a是否為素數(shù)，若是，則函數(shù)返回True；否則返回False。Functionprime(aAsInteger)AsBooleanDimkAsInteger,isprimeAsBooleanIfa<2Thenisprime=FalseElseisprime=Truek=2DoWhilek<a/2AndisprimeIfaModk=0Thenisprime=FalseElsek=k+1EndIfLoopEndIfprime=isprimeEndFunction在測試時發(fā)現(xiàn)有1個非素數(shù)也被判斷為素數(shù)，這個被錯判的數(shù)是________6、找出1～10000之間的同構(gòu)數(shù)。所謂同構(gòu)數(shù)，是指此數(shù)的平方數(shù)的最后幾位與該數(shù)相等。例如，25的平方為625，25是同構(gòu)數(shù)。完善下列程序。程序代碼如下：PrivateSubCommand1_Click()DimiAsInteger,yAsLongForx=1To1000y=x*xIf___(1)___ThenPrintxEndIfNextxEndSub7、有下列程序：PrivateSubCommand1_Click()x$="Apply"y$="Action"z$="Study"z$=Left$(x$,4)+Mid(y,4,1)+LCase$(z)+""+z$Printz$EndSub運行后窗體上顯示的是_______。8、下列程序的功能是輸出如下數(shù)列的前20項，按每行5個數(shù)的形式輸出。1，1，2，3，5，8，13,......DimaAsInteger,bAsIntegerDimiAsIntegera=1:b=1:i=3Printa,b,DoWhile(i<=20)c=a+bt=bb=a+b____(1)____Printc,If____(2)____ThenPrintEndIf_____(3)_____Loop9、執(zhí)行下面的程序，在窗體上顯示的輸出結(jié)果的第一行是_____(1)_____，第二行是_____(2)_____。OptionExplicitPrivateSubForm_Click()DimsAsString,iAsInteger,flagAsBooleans="THISISABOOK"s=LCase(s)Printsflag=TrueFori=1ToLen(s)IfMid(s,i,1)=""Thenflag=TrueElseIfflagThens=Left(s,i-1)&UCase(Mid(s,i,1))&Right(s,Len(s)-i)flag=FalseEndIfNextiPrintsEndSub10、有如下程序：PrivateSubCommand1_Click()a=Val(InputBox("請輸入"))b=Val(InputBox("請輸入"))x=a+bIfa>bThenx=a-bText1.Text=xEndSub運行后，從InputBox對話框中連續(xù)輸入3和4，文本框中顯示的是_________；若連續(xù)輸入4和3，文本框中又顯示的是_________。11、下列程序的運行結(jié)果為________。PrivateSubCommand1_Click()x=1Fork=1To3Ifk=1Thena=x*xIfk<=2Thena=x*x+1Ifk>=3Thena=x*x+2Printa;NextkEndSub12、表示"A+B+C大于等于255，或A與B分別大于90且C大于80"的VB表達(dá)式的____13、Print"125+32=";125+32執(zhí)行后的結(jié)果是________。14、下列程序執(zhí)行時，從鍵盤上依次輸入123和234，則程序的輸出結(jié)果是__(1)___。a