上海海事大學(xué)VB題庫(kù)教學(xué)提綱

上海海事大學(xué)VB題

庫(kù)1、寫(xiě)出用隨機(jī)函數(shù)產(chǎn)生一個(gè)200至300之間整數(shù)的VB表達(dá)式[1].答案：200*+*lnt(*Rnd*100*)或200*+*lnt(*100*Rnd*)2,已知文本框的內(nèi)容為"ABCDE"，若文本框Selstart=4,Sellength=2,則SelText為【1】.答案：DE3、VB提供了列表框控件，當(dāng)列表框中的項(xiàng)目較多，超過(guò)了列表框的長(zhǎng)度時(shí)，系統(tǒng)會(huì)自動(dòng)的在列表框邊上加一個(gè)【1】.答案：垂直滾動(dòng)條或滾動(dòng)條4、想擁有"快捷鍵”這項(xiàng)功能,必須在"菜單編輯器"中增加一些特殊的設(shè)置，也就是在字母之前加上[1].答案：&5、列表框(ListBox)顯示【1】，用戶(hù)可以從中選擇一個(gè)或多個(gè)項(xiàng)目.答案：項(xiàng)目列表或列表6、設(shè)置控件背景顏色的屬性名稱(chēng)是【1】.答案：backcolor7、如果在模塊的聲明段中有OptionBase0語(yǔ)句，則在該模塊中使用Dima(6,3To5)聲明的數(shù)組有【1】個(gè)元素.答案：218、定時(shí)器控件的Interval屬性值是指時(shí)間間隔，單位為毫秒;當(dāng)每隔此間隔的時(shí)間，定時(shí)器會(huì)觸發(fā)一次【1】事件.答案：Timer9、寫(xiě)出清除標(biāo)簽Labell的顯示信息的語(yǔ)句為【1】.答案：Labell,caption=""或Labell=""或Label1.Caption=""10、寫(xiě)出清除圖片框的文字或圖形信息的語(yǔ)句【1】.答案：Picturel.cis或cis11、滾動(dòng)條控件有水平滾動(dòng)條和【1】滾動(dòng)條.答案：垂直12、文本框中所顯示的內(nèi)容是它的［1］屬性的值.答案：Text13、要使命令按鈕cmdEnd可以以快捷鍵E訪問(wèn)，應(yīng)設(shè)置屬性【1】.答案:Caption14、當(dāng)程序運(yùn)行時(shí)，要求窗體中的文本框呈現(xiàn)空白，則在設(shè)計(jì)時(shí)，把此文本框的【1】屬性設(shè)置成空白.答案：Text15、如果要使用命令按鈕表面顯示文字"退出(X)"(在字符X之下加下劃線)，則其Caption屬性設(shè)置為［1］.答案：退出(&X)16、所有控件都具有的共同屬性是【1】屬性.答案：name17、VisualBasic為添加到窗體上的第一個(gè)圖片框picture提供的默認(rèn)對(duì)象名為［1］.答案：Picturel18、使用Scale方法建立窗體Forml的用戶(hù)坐標(biāo)系淇中窗體左上角坐標(biāo)為(-200,250),右下角坐標(biāo)為(300,-100),具體形式為［1］.答案：forml.scale(-200,250)-(300,-100)19、如果在模塊的聲明段中有OptionBase1語(yǔ)句，則在該模塊中使用Dima(3To5,6)聲明的數(shù)組有【1】個(gè)元素.答案：1820、把"VisualBasic程序設(shè)計(jì)”添加到列表框IstBooks的語(yǔ)句為［1］.答案：IstBooks.Additem"VisualBasic程序設(shè)計(jì)”21、如果要指明mystring為固定15個(gè)字長(zhǎng)的全局變量,應(yīng)該在標(biāo)準(zhǔn)模塊中用以下說(shuō)明語(yǔ)句定義［11.答案：public*mystringik-as^string*1522、若要在字符串a(chǎn)sdgewl中取dge,則使用函數(shù)［1］實(shí)現(xiàn).答案:Mid$(asdgewl$,2,3)或Mid(asdgewl,2,3)23、欲使在自己設(shè)計(jì)VB程序運(yùn)行過(guò)程中，不中止本程序的運(yùn)行,同時(shí)又可調(diào)用系統(tǒng)中已有的應(yīng)用程序c:\windows\Calc.exe,可在程序代碼窗口必要的地方添加語(yǔ)句【1】.答案:shell("c:\windows\Calc.exe")或shell("calc.exe")24、設(shè)置計(jì)時(shí)器控件只能觸發(fā)【1】事件.答案：timer25、要使鼠標(biāo)停留在按鈕上顯示特殊的鼠標(biāo)形狀，應(yīng)設(shè)置的屬性值是【1】.答案：mousepointer26、使用Circle方法在窗體Forml上以(15,15)為圓心,10為半徑畫(huà)圓，具體形式為［1］.答案:forml.circle(15,15),1027、使用Move方法把圖形框Picturel的左上角移動(dòng)到距窗體頂部100Twip,距窗體左邊框200Twip,同時(shí)圖形框縮小50%,具體形式為［1］.答案:Picturel.move200,100,picture1.width/sqr(2),picturel.height/sqr(2)28、對(duì)象是既包含m又包含對(duì)數(shù)據(jù)進(jìn)行操作的方法,并將其封裝起來(lái)的一個(gè)邏輯實(shí)體.答案：數(shù)據(jù)29、拖動(dòng)滾動(dòng)條中的滾動(dòng)框?qū)?huì)產(chǎn)生Scroll和【1】事件.答案：Change30、以圖片框Pic1的中心位置為圓心，以700為半徑在Pic1上畫(huà)?個(gè)圓的方法是【1】.pic1.Circle(pic1,width/2,pic1.height/2),70031、設(shè)置計(jì)時(shí)器對(duì)象觸發(fā)事件的時(shí)間間隔用【1】屬性.答案：interval32、對(duì)象具有屬性和【1】答案：方法33、打開(kāi)"工程窗口"的方法之一是按下【1】組合鍵.答案：CTRL+R34、列表框控件不支持Click事件,但支持［1］事件.答案：dblclick35、VisualBasic中的文本框中要使該框不允許多行輸入,應(yīng)設(shè)置［11屬性為false.答案：MultiLine36、如果要在單擊鈕時(shí)執(zhí)行一段代碼,則應(yīng)將這段代碼寫(xiě)在【1】事件過(guò)程中.答案：click37、將焦點(diǎn)定位于命令按鈕Commandl之上的語(yǔ)句為【1】.答案：Commandl.SetFocus或SetFocus38、滾動(dòng)條控件主要支持兩個(gè)事件,它們是scroll和11】事件.答案：change39、文件按照存取方式及其組成結(jié)構(gòu)可以分為順序文件和【1】.答案：隨機(jī)文件或隨機(jī)40、由Fork=35to0step3:nextk循環(huán)語(yǔ)句控制的循環(huán)次數(shù)是【1】.答案：041、循環(huán)語(yǔ)句FORK=1TO10STEP-1控制的循環(huán)次數(shù)為［1］.答案：042、由Fork=35to0step3:nextk循環(huán)語(yǔ)句控制的循環(huán)次數(shù)是【1】.43、VB中，變量的聲明可分為兩種方法：【1】數(shù)組和動(dòng)態(tài)數(shù)組.答案：靜態(tài)44、OptionBase1的作用是確定數(shù)組的下界為［1］.答案：145、VB中,變量的聲明可分為兩種方法:隱式聲明和［1］.答案：顯式聲明46、一元兩次方程ax2+bx+c=0有實(shí)根的條件為aWO,并且b2-4ac20,列出邏輯表達(dá)式［1］答案：a<>0★and★bA2-4*a*c>=047、在VB6.0中，設(shè)Single型變量XYZ的值為123.45,若要將其轉(zhuǎn)換成字符串，應(yīng)使用的類(lèi)型轉(zhuǎn)換函數(shù)是［1］.答案：STR或CSTR48、由Dima(10)Assingle定義的數(shù)組占用［1］字節(jié)的內(nèi)存空間.答案：4449、在VB中,若要將字符串"12345"轉(zhuǎn)換成數(shù)字值應(yīng)使用的類(lèi)型轉(zhuǎn)換函數(shù)是【1】.答案：VAL或Cint50、在VB中，若要使一個(gè)文本框(Text)中的內(nèi)容在超過(guò)文本框的寬度時(shí)能夠自動(dòng)換行顯示，應(yīng)當(dāng)將這個(gè)文本框的［1］屬性的值設(shè)置為T(mén)rue.答案：MultiLine51,大于X的最小整數(shù)的VB表示形式為【1】.答案：lnt(x)+1或lnt(x)*+*152、一個(gè)工程可以包括多種類(lèi)型的文件，其中擴(kuò)展名為.bas的文件表示【1】文件.答案：標(biāo)準(zhǔn)模塊或模塊53、在VB6.0中，變量名最長(zhǎng)可達(dá)【1】個(gè)字符. 答案：25554、在VB中，若要改變一個(gè)窗體的標(biāo)題，應(yīng)在屬性窗口中改變這個(gè)窗體的【1】屬性的值.答案：Caption55、在控件之中，【1］不能從工具箱中被刪除.答案：內(nèi)部控件或標(biāo)準(zhǔn)控件56、在VB中，若要求在模塊中強(qiáng)制顯式地指定變量的數(shù)據(jù)類(lèi)型,應(yīng)當(dāng)在模塊首部的申明部分使用【1】語(yǔ)句.答案：OptionExplicit57、一般情況下，控件有兩個(gè)屬性項(xiàng)的缺省值是相同的，這兩個(gè)屬性項(xiàng)是name和11】.答案：caption58、一個(gè)工程可以包括多種類(lèi)型的文件，其中ActiveX控件的文件擴(kuò)展名為【1】.答案：OCX59、在利用VisualBasic設(shè)計(jì)應(yīng)用程序時(shí),一般會(huì)遇到三類(lèi)錯(cuò)誤:語(yǔ)法錯(cuò)誤、執(zhí)行錯(cuò)誤和［1］ 答案：邏輯錯(cuò)誤60、要使一個(gè)按鈕無(wú)效，則可把它的Enable屬性設(shè)為【1】.答案：False61、在VB中,窗體由屬性定義外觀，由［1］定義行為，由事件定義其與用戶(hù)的交互.答案：方法62、一個(gè)工程可以包括多種類(lèi)型的文件，其中，擴(kuò)展名為.vbp的文件表示【1】文件.答案：工程63、一個(gè)工程可以包括多種類(lèi)型的文件，其中，擴(kuò)展名為.frm的文件表示【1】文件.答案：窗體64、要使同一類(lèi)型控件組成一個(gè)控件數(shù)組，必須要求【1】.答案：Name相同或名稱(chēng)相同65、要使一個(gè)按鈕設(shè)為默認(rèn)按鈕，應(yīng)把此按鈕的【1】屬性的值設(shè)為T(mén)rue.答案：Default66、在VB中，若要重新定義一個(gè)動(dòng)態(tài)數(shù)組的元素個(gè)數(shù)，應(yīng)當(dāng)使用【1】語(yǔ)句對(duì)其進(jìn)行重新定義.答案：ReDim67、在控件之中，【1】單獨(dú)保存在.OCX文件中，在必要時(shí)可以加入到工具箱中.答案：ACTIVEX控件68、VB中的變量按其作用分為全局變量，模塊變量，【1】.答案：局部變量69、在一條Dim語(yǔ)句中可以聲明多個(gè)變量，如DimstrVar,intVar,sngVarAsInteger,則strVar、intVar與sngVar的數(shù)據(jù)類(lèi)型分別是Variant、Variant和【1】.答案：Integer70、設(shè)x為大于零的實(shí)數(shù),則大于x的最小奇數(shù)的VisualBasic表達(dá)式是[1].答案:IIF(int(x)mod2=0,int(x)+2,int(x)+1)71、說(shuō)明變量類(lèi)型有隱含類(lèi)型說(shuō)明和【1】?jī)煞N方法.答案：強(qiáng)制類(lèi)型或強(qiáng)制類(lèi)型說(shuō)明72、表達(dá)式(-3)Mod8的值為【1】.答案：-373、設(shè)X$="abc123456"則"a"+str$(val(right(X$,4)))的值是[1].答案:a345674、設(shè)a=2,b=3,c=4,d=5,則NOTa<=cOR4*c=bA2ANDb<>a+c的值為[1].答案：False75、String(3,"abc")的結(jié)果為[1].答案：aaa76、VB的工作模式可分為三種:"設(shè)計(jì)"、"運(yùn)行"以及"[1]答案：中斷77、VB的運(yùn)算符包括算術(shù)運(yùn)算符、【1】運(yùn)算符、關(guān)系運(yùn)算符、邏輯運(yùn)算符和特殊運(yùn)算符.答案：連接78、Integer類(lèi)型的變量占用【1】字節(jié)空間.答案：279、表達(dá)式81\7MOD2A2的值是[1].答案：380、設(shè)x為一個(gè)兩位數(shù)，將x個(gè)位數(shù)和十位數(shù)交換后所得兩位數(shù)VB的表達(dá)式是【1】.答案：(xmod10)***10*+*int(x/10)81、求x與y之積除以z的余數(shù)的VB表達(dá)式為【1】.答案：x*y*Mod*z82、變量min&表示【1】類(lèi)型的變量.答案：長(zhǎng)整型83、A和B同為正整數(shù)或同為負(fù)整數(shù)的VB表達(dá)式為[1].答案：A=INT(A)*AND*B=INT(B)*AND*A*B>084、Val(T23.55ab456")的值是多少[1].答案：123.5585、表達(dá)式"[A]"Like"[A]"的值為[1].答案：False86、sst="ABC12DE",則Val(sst)=[1].答案：087、VB表達(dá)式9A2MOD45\2*3的值【1】.88、表達(dá)式32\7MOD3八2的值是[1].答案：489、默認(rèn)情況下，所有未經(jīng)顯示聲明的變量均視為Variant類(lèi)型，如果要強(qiáng)制變量的聲明，應(yīng)在模塊的聲明段使用【1】語(yǔ)句.答案：OptionExplicit90、征兵的條件:男性(sex)年齡(age)在18—20歲之間，身高(size)在1.65米以上;或者女性年齡在16—18歲之間，身高在1.60以上，列出邏輯表達(dá)式【1】.答案：(sexandage>=18andage<=20andsize>=1.65)or(notsexandage>=16andage<=18andsize>=1.60)91、把整數(shù)0賦給一個(gè)邏輯型變量，則邏輯變量的值為【1】.答案：False92、a和b中有僅只有一個(gè)為1,相應(yīng)的VisualBasic邏輯表達(dá)式為[1].答案：a=1★xor^b=193、設(shè)x=2,y=4,a=4,b=6,表達(dá)式(a>xXorb<x)ORx<yIMPy<b的結(jié)果為[1].答案：True94、把整型數(shù)1賦給一個(gè)邏輯型變量，則邏輯變量的值為【1】.答案：True95、如果:l=12:J=3:l=int(-8.6)+l\J+13/3MOD5,則I值是[1].答案：-196、如果：1=11力=3:1=祈耳-8.6)+14+13/31\/10。5,則1值是[1].答案：-297、把條件1<=X<12寫(xiě)成VB關(guān)系表達(dá)式為【1】.答案：x>=1andx<12或x<12andx>=198、聲明單精度常量g(重力加速度)代表9.8可寫(xiě)成【1】.答案：constg=9.8constsingleg=9.8100,X=2:丫=8:PRINTX+Y=10的結(jié)果是［1］.答案：True101、聲明單精度常量P1代表3.14159的語(yǔ)句為【1】.答案：ConstPl=3.14159或ConstpiAsSingle=3.14159102、VB6.0的基本表達(dá)式包括算術(shù)表達(dá)式、關(guān)系表達(dá)式和【1】表達(dá)式.答案：邏輯103、表達(dá)式93\7MOD2"3的值是［1］.答案：5104、VB6.0的連接運(yùn)算符包括【1】運(yùn)算符和【2】運(yùn)算符兩種.答案：(1).&或+ (2).&或+105、表達(dá)式1and0的值［1］.答案：False106、變量min@表示【1】類(lèi)型的變量.答案：貨幣數(shù)據(jù)變量或貨幣107、當(dāng)x=2時(shí)，語(yǔ)句ifx=2thenPrintx=2的結(jié)果值是［1］.答案：True108、設(shè)x為大于零的實(shí)數(shù),則大于x的最小偶數(shù)的VisualBasic表達(dá)式是【1】答案:iif(int(x)mod2=0,int(x)+2,int(x)+1)109、聲明定長(zhǎng)為10個(gè)字符變量Sstr的語(yǔ)句為【1】.答案:DimSstrasString*10或SstrasString*10110、表達(dá)式(-3)And8的值為［11.答案：True111、Print"x="&(2=4)的結(jié)果為【1】.答案：x=False(1)在設(shè)計(jì)時(shí)，為了把窗體上的某個(gè)控件變?yōu)榛顒?dòng)的,應(yīng)執(zhí)行雙擊該控件。(錯(cuò)誤)(2)確定一個(gè)控件在窗體上位置的屬性是Top和Left。 正確(5)窗體的NAME屬性的值是顯示在窗體標(biāo)題欄中的文本。 錯(cuò)誤(6)A[B]7是VB中的合法變量名。 錯(cuò)誤(8)設(shè)有如下聲明：DimxAsInteger如果Sgn(x)的值為-1,則x的值是大于。的整數(shù)。 錯(cuò)誤(9)如果x是一個(gè)正實(shí)數(shù)，對(duì)x的第3位小數(shù)四舍五入的表達(dá)式是0.01*lnt(100*(x+0.005))o正確(10)表達(dá)式4+5\6*7/8Mod9的值是4。 錯(cuò)誤(11)Textl是文本框的名稱(chēng)，Textl.Print25使文本框Textl輸出25。錯(cuò)誤(15)下列語(yǔ)句a%=3.14156Printa%的輸出結(jié)果是3.14%。 錯(cuò)誤(18)記時(shí)器控件能有規(guī)律地以一定時(shí)間間隔觸發(fā)Time事件，并執(zhí)行該事件過(guò)程中的程序代碼。錯(cuò)誤(19)"X是小于100的非負(fù)數(shù)"，用VB表達(dá)式表示正確的是0<=x0rx<100。錯(cuò)誤(20)表達(dá)式"12345"<>"12345"&"ABC"的值是True。 正確(23)DoUntil條件循環(huán)體Loop上面的循環(huán)結(jié)構(gòu)如果"條件"是一個(gè)為0的常數(shù)，則一次循環(huán)體也不執(zhí)行。錯(cuò)誤(24)K=0DoWhileK=k+1Loop上面循環(huán)的執(zhí)行次數(shù)是11次。 錯(cuò)誤(26)若有一個(gè)動(dòng)態(tài)數(shù)組a有兩個(gè)元素a(0)和a(1),先要令數(shù)組a有3個(gè)元素a(0)a⑴和a(2),應(yīng)當(dāng)使用的語(yǔ)句是ReDima(3)。 錯(cuò)誤(27)由Array函數(shù)建立的數(shù)組必須是Variant類(lèi)型。 正確(31)按地址傳遞參數(shù)通過(guò)子過(guò)程不會(huì)影響變量本身；按值傳遞參數(shù)通過(guò)子過(guò)程可以改變變量本身的值。 錯(cuò)誤(32)在過(guò)程定義中出現(xiàn)的變量名叫做形式參數(shù)；在調(diào)用過(guò)程時(shí)傳送給過(guò)程的變量、常量、表達(dá)式叫做實(shí)際參數(shù)。 正確(33)Sub過(guò)程可返回一個(gè)值到調(diào)用的過(guò)程。 錯(cuò)誤(34)如果過(guò)程被定義為Static類(lèi)型，則該過(guò)程中的局部變量都是Static類(lèi)型。正確(35)過(guò)程的定義可以嵌套，過(guò)程的調(diào)用也可以嵌套。 正確(107)一個(gè)變量在剛被定義尚未被賦值之前沒(méi)有值。 錯(cuò)誤(108)如果A和B都是整型變量，A的值為1,B的值為256,則變量A所占用的內(nèi)存空間比變量B小。 錯(cuò)誤(109)If和EndIf關(guān)鍵字必須成對(duì)地使用，有一個(gè)If就有一個(gè)EndIf與之相對(duì)應(yīng)。錯(cuò)誤(110)For和ExitFor必須成對(duì)地使用，有一個(gè)For就必須有一個(gè)ExitFor與之相對(duì)應(yīng)。錯(cuò)誤(114)如果有多重Do循環(huán)嵌套，位于最里層循環(huán)體語(yǔ)句中的ExitDo語(yǔ)句可以跳出所有的循環(huán)。 錯(cuò)誤(115)通用過(guò)程中使用Static關(guān)鍵字定義的過(guò)程級(jí)變量都是靜態(tài)變量。 正確(116)通過(guò)改變屬性窗口中的Name屬性，可以改變窗體上顯示的標(biāo)題 錯(cuò)誤(119)無(wú)論是在定義時(shí)，還是在訪問(wèn)其元素時(shí)，數(shù)組的下標(biāo)不能是變量，只能是常量表達(dá)式。 錯(cuò)誤(120)數(shù)組下標(biāo)的下界可以是負(fù)值，但上界只能是正數(shù)。 錯(cuò)誤(123)在函數(shù)過(guò)程中，如果不給函數(shù)名賦值，則函數(shù)不返回任何值。 錯(cuò)誤(125)數(shù)組作通用過(guò)程的參數(shù)時(shí)，一定是按地址傳遞。 正確(127)時(shí)鐘控件的屬性Interval值為0時(shí)，表示屏蔽計(jì)時(shí)器 正確(126)文本框控件有Caption屬性. 錯(cuò)誤(128)在過(guò)程中用Dim和Static定義的變量都是局部變量。 正確(130)單選鈕和復(fù)選框都有Value屬性，當(dāng)選中它們時(shí)，Value屬性都為T(mén)rue。錯(cuò)誤(131)在VB開(kāi)發(fā)環(huán)境中，可同時(shí)創(chuàng)建、打開(kāi)和設(shè)計(jì)多個(gè)工程項(xiàng)目。 正確(132)面向?qū)ο蟪绦蛟O(shè)計(jì)是一種以對(duì)象為基礎(chǔ)，由事件驅(qū)動(dòng)對(duì)象執(zhí)行的設(shè)計(jì)方法。正確(134)通過(guò)代碼設(shè)置屬性的一般格式是：屬性名.對(duì)象名=屬性值。錯(cuò)誤(135)TextBox與Label有許多共同特點(diǎn)，它們都能顯示和輸入文本。 錯(cuò)誤(136)所有的控件在程序運(yùn)行以后都是可見(jiàn)的。 錯(cuò)誤(138)ListBox控件和ComboBox控件一樣，都只能選擇一項(xiàng)。 錯(cuò)誤(139)一個(gè)應(yīng)用程序中只能創(chuàng)建一個(gè)窗體。 錯(cuò)誤(140)Msgbox函數(shù)建立的信息框能顯示信息又能輸入用戶(hù)的信息。 錯(cuò)誤(106)因?yàn)镾ingle類(lèi)型的變量可表示的范圍大于Long類(lèi)型的變量，所以Single類(lèi)型占用的內(nèi)存空間大于Long類(lèi)型。 錯(cuò)誤(103)標(biāo)簽控件是專(zhuān)門(mén)用來(lái)顯示信息的，所以不能響應(yīng)鼠標(biāo)的單擊事件。 錯(cuò)誤(87)窗體的Enabled屬性為False時(shí)，窗體上的按鈕、文本框等控件都不會(huì)對(duì)用戶(hù)的操作作出反應(yīng)。 正確(102)窗體的Move方法不但可以移動(dòng)窗體，而且可以改變窗體的大小，同時(shí)也會(huì)改變與窗體的大小和位置有關(guān)的屬性值。 正確(104)命令按鈕支持Click事件，但不支持DbICIick事件，所以雙擊按鈕不會(huì)有任何反應(yīng)。 錯(cuò)誤(105)VisualBasic工程文件的擴(kuò)展名為.vbp,窗體文件的擴(kuò)展名為.frm。 正確(4)VisualBasic窗體設(shè)計(jì)器的主要功能是建立用戶(hù)界面。 正確52(7)表達(dá)式2*3八2+2*8/4+3A2的值為31。 正確53(12)a=27b=65Printa;b的輸出結(jié)果是2765 正確54(13)設(shè)有語(yǔ)句x=lnputBox("輸入數(shù)值","0","示例")程序運(yùn)行后，如果從鍵盤(pán)上輸入數(shù)值10并按回車(chē)鍵，變量x的值是字符串"10"。正確55(14)文本框失去焦點(diǎn)能夠觸發(fā)文本框Change事件的操作。 錯(cuò)誤56(16)設(shè)a=3,b=5,表達(dá)式(a>b)Or(b>0)的值為真。 正確57.(17)設(shè)a=5,b=6,c=7,d=8,則執(zhí)行x=IIF((a>b)And(c<d),10,20)語(yǔ)句后，x的值為20o正確(21)為了清除列表框中的所有內(nèi)容，應(yīng)使用的方法是Clear。 正確(22)為了清除列表框中的所有內(nèi)容，應(yīng)使用的方法是Remove。 錯(cuò)誤(111)SelectCase語(yǔ)句實(shí)現(xiàn)的是一個(gè)循環(huán)結(jié)構(gòu)。 錯(cuò)誤（118）DimA（6）定義了A（1）到A（6）共6個(gè)元素。 錯(cuò)誤（133）vb應(yīng)用程序是分層管理的，其最高的層次為工程。 正確（137）設(shè)有如下變量聲明:DimTestDateAsDate,為變量TestDate正確賦值的表達(dá)方式是TestDate=#"1/1/2002"# 錯(cuò)誤一、選擇題改變控件在窗體中的上下位置，應(yīng)修改控件的_A屬性A.TopB.LeftC.WidthD.Right將通用對(duì)話(huà)框類(lèi)型，設(shè)置為字體對(duì)話(huà)框，可修改該控件的D屬性A.fontB.filenameC.filterD.action標(biāo)簽控件最重要的屬性是_AA.captionB.textC.nameD.width文本框中選定的內(nèi)容，由下列C屬性反映。A.TextB.CaptionC.SeitextD.sellenght選中復(fù)選框控件時(shí)，value屬性的值，可以是_DA.trueB.falseC.0 D.1設(shè)置列表框選中的文本用D屬性A.selectedB.captionC.textD.list簡(jiǎn)單組合框的style值為BA.0B.1C.2D,3在文件列表框的實(shí)現(xiàn)文件的多重選擇，應(yīng)修改該控件的—D屬性A.filenameB.patternC.pathD.multiselect語(yǔ)句listl.removeitem1將刪除list.listindext等于 D的項(xiàng)目。A.0B.2C.3D.1計(jì)時(shí)器的interval屬性為0時(shí)，表示A。A.計(jì)時(shí)器失效 C.相隔0毫秒B.相隔。秒 D.計(jì)時(shí)器的enable屬性為false以下的vb常量中非法的是（B）a."GoodLuck"b.PIc.1.5E-03d.16.3412要想返回文本框中輸入的內(nèi)容則可利用其（B）屬性進(jìn)行編程d.righttoleft下列不能用commondialog控件調(diào)用的對(duì)話(huà)框是（D）a.open/saveb.helpc.fontd.searchvb應(yīng)用程序是分層管理的，其最高的層次為（A）a.工程b.模塊c.窗體d.過(guò)程vb程序設(shè)計(jì)中的窗體在oop中稱(chēng)為（C）a.屏幕b.事件c.對(duì)象d.控件欲使某命令按鈕失效，應(yīng)修改命令按鈕的（D）屬性。A.VisibleB.CaptionC.EnableD.Enabled要使標(biāo)簽?zāi)芡赋龃绑w的背景，必須設(shè)置 （A）屬性。A.BackStyleB.BorderStyleC.AppearanceD.BackColor用鼠標(biāo)拖動(dòng)滾動(dòng)條中滾動(dòng)框并釋放，將觸發(fā)滾動(dòng)條的（D）事件。A.ScrollB.Change C.DragOverD.A和B組合框的類(lèi)型由Style屬性決定，簡(jiǎn)單組合框的Style屬性值應(yīng)為（B）.A.0B.1C.2D.3下面哪些控件不會(huì)影響到界面設(shè)計(jì)效果。（A）A.定時(shí)器B.文本框C.標(biāo)簽D.Line控件Clear方法適用于（D）控件。A.圖片框B.窗體 C.復(fù)選框D.組合框下列哪個(gè)變量的取法是不正確的（C）A.sTmeB.T_TempC.T12%D.T_12如果要設(shè)置窗體的標(biāo)題欄，應(yīng)選擇以下那種屬性（B）A.NameB.CaptionC.TipsD.Text如果要給字體加刪除線，可以選擇下列那種屬性（C）A.FontNameB.FontSizeC.FontStrikethruD.FontUnderLine下列哪個(gè)變量的取法是不正確的（D）A.TNameB.T_TempC.T32D.T32#清除列表框的所有選項(xiàng)應(yīng)選擇下列哪種方法（A）A.ClearB.CisC.ClearltemD.Removeitem下面哪些控件不會(huì)影響到界面設(shè)計(jì)效果。（C）A.LabelB.TextC.CommonDialogD.Frame要使得窗體在出現(xiàn)之前就完成相關(guān)的程序設(shè)置可在（C）事件中進(jìn)行編程A.linkopenB.KeyPressC.loadD.click要使文本框中顯示密碼符有效，必須首先設(shè)置 （B）屬性。A.TextB.MultiLineC.Locked D.Enabled要在垂直位置上移動(dòng)控件，應(yīng)利用控件的（C）屬性。A.LeftB.WidthC.TopD.Height下列表達(dá)式中，其值為0的是（C）A.7/9B.7mod15C.7\9D.15mod9一個(gè)對(duì)象可以執(zhí)行的動(dòng)作和可被對(duì)象識(shí)別的動(dòng)作分別稱(chēng)為 （A）oA、事件、方法B、方法、事件C,屬性、方法D、過(guò)程、事件在窗體Forml的Click事件過(guò)程中有以下語(yǔ)句：LabeH.Caption="VisualBasic"若本語(yǔ)句執(zhí)行之前，標(biāo)簽控件的Caption屬性為默認(rèn)值，則標(biāo)簽控件的Name屬性和Caption屬性在執(zhí)行本語(yǔ)句之前的值分別為 （B）。A.”Label"、"Label"B,"Label1\"VisualBasic"C、"Label1'\"LabeH"D、"Caption","Label"（D）對(duì)象不具有Caption屬性。A、LabelB、OptionC、FormD、TimerInterger類(lèi)型的變量可存的的最大整數(shù)是（D）。A、250B、256C、32768D、32767下列數(shù)據(jù)類(lèi)型中，占用內(nèi)存最小的是 （B）oA、BooleanB、ByteC、IntegerD、Single已知A、B、C中C最小，則判斷A、B、C可否構(gòu)成三角形三條邊長(zhǎng)的邏輯表達(dá)式是（B）oA、A>=BAndB>=CAndC>0B、A+C>BAndB+C>AAndC>0C、(A+C)>=CAndA-C<=C)AndC>0D、A+B>CAndA-B>CAndC>0下面(C) 是日期型常量。A、"12/19/99"B、12/19/99C、#12/19/99#D、｛12/19/99)二、判斷題：全局變量用global或public關(guān)鍵字聲明，且僅在通用聲明處可以定義。（F）如果某子程序add用publicstaticsubadd（）定義，則該子程序的變量都是局部變量。（F）move方法的一般形式是：對(duì)象名.moveA,B[,C,D],其中A指Left,C指width?（F）TOC\o"1-5"\h\z清除list"（列表框?qū)ο蟮膬?nèi)容的語(yǔ)句是listl.cls。 （F）清除combo"）對(duì)象的內(nèi)容是combol.clear。 （T）對(duì)■象的可見(jiàn)性用enabled屬性設(shè)置，可用性用visible屬性設(shè)置。 （F）滾動(dòng)條控件不可作為用戶(hù)輸入數(shù)據(jù)的一種方法。 （F）只要用拖拽的方法，將工具箱中所需的控件拖到窗體上即可完成。 （F）控件是對(duì)象，而窗體不是對(duì)象，它只是控件對(duì)象的窗口。 （F）TextBox與Label有許多共同特點(diǎn)，它們都能顯示和輸入文本。 （F）有的對(duì)象屬性既可在屬性窗口中設(shè)定又可在程序代碼中設(shè)定。 （T）在框架控件內(nèi)的幾個(gè)單選按鈕中，只能有一個(gè)單選按鈕的Value屬性為T(mén)rue.（T）標(biāo)簽沒(méi)有Change事件和SetFocus方法。 （T）事件過(guò)程與Sub過(guò)程，它們相同點(diǎn)都是事件驅(qū)動(dòng)，而不同的只是事件過(guò)程由控件屬性決定，而Sub過(guò)程是由戶(hù)自定義。 （F）Function函數(shù)有參數(shù)傳遞，并且一定有返回值。 （F）滾動(dòng)條控件不可作為用戶(hù)輸入數(shù)據(jù)的方法。 （T）Msgbox函數(shù)建立的信息框能顯示信息又能輸入用戶(hù)的信息。 （F）Dimi,jasinteger表明i和j都是整型變量。（F）菜單每一菜單項(xiàng)都是控件，可以通過(guò)點(diǎn)擊菜單項(xiàng)或通過(guò)光標(biāo)選擇并按回車(chē)鍵，以觸發(fā)Click事件。（T）某一過(guò)程中的靜態(tài)變量在過(guò)程結(jié)束后，靜態(tài)變量及其值可以在其它過(guò)程中使用。（F）目錄列表框中的列表項(xiàng)不可以通過(guò)Additem方法進(jìn)行添加。（T）在表達(dá)式中，運(yùn)算符兩端的數(shù)據(jù)類(lèi)型要求一致。（T）VisualBasic程序的運(yùn)行，僅能從某一窗體啟動(dòng)，如Form1窗體。（F）VB是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言。（T）在VB的工具欄中包括了所有的VB控件，我們不能再加載其他的控件。（F）在VB中，文件菜單的“刪除工程”的作用是將當(dāng)前VB工程在硬盤(pán)中刪除掉。（F）有一個(gè)程序在屬性窗口中設(shè)置了它的窗體字體大小為10號(hào)，而程序代碼若設(shè)置了它的窗體字體大小為20號(hào)，那么當(dāng)程序運(yùn)行后實(shí)際的窗體字體大小為20號(hào)。（T）所有的VB的變量，都有隱含說(shuō)明字符和強(qiáng)調(diào)聲明兩種方法來(lái)定義。（F）所有的控件在程序運(yùn)行以后都是可見(jiàn)的。（F）標(biāo)簽控件可以用來(lái)讓用戶(hù)輸入數(shù)據(jù)。（F）在框架控件上放置的控件可以移動(dòng)到框架控件的外面。（F）如果一個(gè)列表框一共有5個(gè)選項(xiàng)，而當(dāng)選中第三項(xiàng)時(shí)，這時(shí)列表框的Listindex屬性為2。（T）單擊并拖拽工具箱中所需的控件到窗體上即可完成添加控件任務(wù)。（F）除了標(biāo)準(zhǔn)控件外，還可引入其它控件及第三方廠商研制的控件。（T）TextBox與Label有許多共同特點(diǎn)，它們都能顯示和輸入文本。（F）Listl.clear是清除Listl的全部列表項(xiàng)，所以Clear是對(duì)象的方法。（T）有的對(duì)象屬性既可在屬性窗口中設(shè)定又可在程序代碼中設(shè)定。（F）在框架控件內(nèi)的幾個(gè)單選按鈕中，可有一個(gè)或多個(gè)單選按鈕的Value屬性為T(mén)rue.（F）Variant是一種特殊的數(shù)據(jù)類(lèi)型，Variant類(lèi)型變量可以存儲(chǔ)除了定長(zhǎng)字符串?dāng)?shù)據(jù)及自定義類(lèi)型外的所有系統(tǒng)定義類(lèi)型的數(shù)據(jù)。Variant類(lèi)型變量還可具有Empty、Error和Null等特殊值。（T）窗體的Enabled屬性值為False時(shí)，該窗體上的按鈕、文本框等控件就不會(huì)對(duì)用戶(hù)的操作做出反應(yīng)。（T）框架控件和形狀控件都不能響應(yīng)用戶(hù)的鼠標(biāo)的單擊事件。（T）在一個(gè)窗體的代碼中不能使用Unload語(yǔ)句來(lái)卸載本窗體，即一個(gè)窗體只能由其它窗體卸載。（F）當(dāng)在一個(gè)簡(jiǎn)單組合框的文本框中輸入一個(gè)它的列表框中的沒(méi)有的條目時(shí)，組合框會(huì)自動(dòng)反這一條目添加到它的列表框中。（F）當(dāng)定時(shí)器控件的interval屬性值設(shè)置為0時(shí)，會(huì)連續(xù)不斷地激發(fā)Timer事件。（F）如果一個(gè)菜單項(xiàng)的Visible屬性為False,則它的子菜單也不會(huì)顯示。（T）填空題1. 如果要指明mystring為固定15個(gè)字長(zhǎng)的全局變量，應(yīng)該在標(biāo)準(zhǔn)模塊中用以下說(shuō)明語(yǔ)句定義： Publicmystringasstring*152.設(shè)X$=匕"123456”則七"+5T$“21（的忖儀$,4）））的值是a34563.拖動(dòng)滾動(dòng)條中的滾動(dòng)框?qū)?huì)產(chǎn)生 Scroll、Change4.請(qǐng)寫(xiě)出清除以下對(duì)象內(nèi)容的語(yǔ)句：文本框 Text1.text=^^^^ ，窗體—Forml.CIs _，列表框_Listl.Clear，組合框 comboil.Clear變量min@表示_貨幣數(shù)據(jù)變量 類(lèi)型的變量。如果：1=11：J=3：l=int(-8.6)+l\J+13/3MOD5,則I值是_-2請(qǐng)寫(xiě)出滿(mǎn)足以下條件的VB表達(dá)式：0<X<10,X>0andx<10—.X為[0-100]之間的數(shù)，能被2整除，但不能被3整除—x>=0andx<=100andxmod2=0andxmod3<>0.下列循環(huán)語(yǔ)句控制的循環(huán)次數(shù)為_(kāi)0_FORK=1TO10STEP-1表達(dá)式1and0的值(False).設(shè)a=2,b=3,c=4,d=5,表達(dá)式(a>bXorb<c)ORb<dEQVa<c的結(jié)果為(True).TOC\o"1-5"\h\za和b中有僅只有一個(gè)為1,相應(yīng)的VisualBasic邏輯表達(dá)式為(a=1xorb=1) 。設(shè)1=5,則由下列循環(huán)語(yǔ)句控制的循環(huán)次數(shù)是 (6) oDo1=1+2LoopWhilel<=15表達(dá)式32\7MOD3A2的值是(4) 。PrivateSubcmdSum_Click()staticSumasintegerSum=2*Sum+1EndSub問(wèn)：第三次單擊命令按鈕cmdSum后，Sum的值為：(7) 。欲定義一個(gè)定長(zhǎng)為10的字符串變量Mystr,可寫(xiě)成：(DimMystrasString*10)o下列表達(dá)式返回的值為T(mén)rue還是FalseTrue。9>4+3Or5+3>10AndNot(4+2>5EQV3+5>2)按照數(shù)據(jù)文件的存儲(chǔ)方法的不同，文件可以分為三種不同的類(lèi)型：―順序文件隨機(jī)文件和二進(jìn)制文件。下列循環(huán)語(yǔ)句控制的循環(huán)次數(shù)為_(kāi)0oFORK=1TO20STEP-2TOC\o"1-5"\h\zVB表達(dá)式9A2MOD45\2*3的值 4。設(shè)x=2,y=4,a=4,b=6,表達(dá)式(a>xXorb<x)ORx<yIMPy<b的結(jié)果為(True)oa和b中有僅只有一個(gè)不為1,相應(yīng)的VisualBasic邏輯表達(dá)式為(av>1xorb<>1) °當(dāng)x=2時(shí)，語(yǔ)句ifx=2thenPrintx=2的結(jié)果值是(True)。聲明單精度常量g(重力加速度)代表9.8可寫(xiě)成：(constg=9.8) 。VB的工作模式可分為三種：“_設(shè)計(jì)一”、運(yùn)行—”以及中斷由Fork=35to0step3:nextk循環(huán)語(yǔ)句控制的循環(huán)次數(shù)是(0)。想擁有“快捷鍵”這項(xiàng)功能，必須在“菜單編輯器”中增加一些特殊的設(shè)置，也就是在字母之前加上—&若要在字符串a(chǎn)sdgewl中取dge,則使用函數(shù)_(Mid$(asdgewl$,2,3)實(shí)現(xiàn)。設(shè)x為大于零的實(shí)數(shù)，則大于x的最小偶數(shù)的VisualBasic表達(dá)式是(iif(int(x)mod2=0,int(x)+2,int(x)+1))設(shè)x的初值為5,則由下列循環(huán)語(yǔ)句控制的循環(huán)次數(shù)是(1)oDoWhilex>=5x=x-1Loop在上程序中，若x的初值為-5,則循環(huán)次數(shù)為(0)sst="ABC12DE”,則Val(sst)=(0)四、程序閱讀(假如所有的變量類(lèi)型都已定義)程序1FORJ=10TO5step-2K=J+1IfK<6thenexitforNEXTJPRINTK；J輸出的結(jié)果_74—程序2A=1：l=0SELECTCASEA*2A=A+1A=A+2CASEELSEA=A+3ENDSELECTA的值為_(kāi)3—程序4C=lnputBox(“請(qǐng)輸入字符串：”)P二””ForL=Len(c)To2Step-2P=Mid(C,L-1,2)+PNextLPrintPEndSub如果輸入：ABCDEFG,則結(jié)果：BCDEFG程序4DimYAsIntegerPrivateSubCommand_Click()DimXAsIntegerX=1Y=1CallAA(Y+1)Z=BB(X)PrintX,Y,ZEndSubPrivateSubAA(ByValZAsInteger)Y=Z+XZ=X+YEndSubPrivateFunctionBB(ByRefYAsInteger)Y=Y+1BB=X+YEndFunction 結(jié)果：222程序5PrivateSubCommand1_Click()DimSAsInteger,IAsIntegerS=0ForI=1To10IfZS(I)ThenIfl*2<=10ThenPrintStr(l*2)S=S+1ElseExitForEndIfEndIfNext1Prirt“S二”&Str(S)EndSubPublicFunctionZS(ByVaiXAsInteger)ASBooleanDimJAsIntegerJ=2DoWhileJ<XIfInt(X/J)=X/JThenExitDoJ=J+1LoopIfJ=XThenZS=TrueElseZS=FalseEndIfEndFunction結(jié)果：610S=3程序6PrivateSubForm_Click()Dima1AsInteger,a2AsIntegera1=10:a2=100wua1,a2printtta1=";a1,na2=w;a2EndSubPrivateSubwu(b1AsInteger,Byvalb2AsInteger)b1=b1\2:b2=b2Mod13printMb1=";b1,wb2=M;b2EndSub寫(xiě)出程序運(yùn)行時(shí)單擊窗體后，在Forml上的輸出結(jié)果。結(jié)果為：b1=5b2=9a1=5a2=100程序7PrivateSubForm_Click()Dimkasinteger,sasinteger,jasintegerForml.clsFork=1to5s=0forj=kto5s=s+1nextjnextkPrint"s=”,sEndSub寫(xiě)出程序運(yùn)行時(shí)單擊窗體后的輸出結(jié)果。結(jié)果為：s=1程序8DimaAsIntegerPrivateSubCommand1_Click()StaticsAsIntegerIfs<5Thens=s+aElses=s*aEndIfa=sEndSubPrivateSubForm_Load()a=5EndSub當(dāng)連續(xù)按三次Commandl按鈕后，s的值 625程序9PrivateSubForm_Click()Fori=1To7PrintSpc(7-i);Ifi=1ThenPrintElsePrintSpc(2*(i-1)-1);H*HEndIfNextiEndSub以上程序的輸出結(jié)果：(32)程序10PrivateSubForm_Click()Dimstr1,str2AsStringDimsAsStringDimiAsIntegerstr1="abcdefghijk”Fori=Len(str1)To1Step-2str2=str2&Mid(str1,i,1)NextiEndSub以上程序運(yùn)行完成以后，str2的值為kigeca.程序11DimYAsIntegerPrivateStubCommand_Click()DimXAsIntegerX=1Y=1CallAA(Y+1)Z=BB(X)PrintX,Y,ZEndSubPrivateSubAA(ByValZAsInteger)Y=Z+XZ=X+YEndSubPrivateFunctionBB(ByRefYAsInteger)Y=Y+1BB=X+YEndFunction 結(jié)果：2 2 2程序12privatesubForm_click()N=3DimA(3,3)AsIntegerForI=IToNForJ=IToNA(l,J)=(J-1)*N+INextJNextIForI=2ToNForJ=1ToI-1TEMP=A(I,J)A(l,J)=A(J,I)A(J,I)=TEMPNextJNextIForX=1ToNPrintX,A(X,N+X-1),A(X,X)NextXEndSub結(jié)果：1 0 42 7 8程序13PrivateSubCommand1_Click()N=0:x=1:y=0DoWhilex<20n=n+1y=x+yx=x*(x+1)LoopTextl.Text="n="&Str(n)Text2.Text="x="&Str(x)Text3.Text="y="&Str(y)EndSub結(jié)果為：n=3x=42y=97.程序14PrivateSubForm_Click()DimaAsInteger,bAsInteger,zAsIntegera=1b=1Forn=1To3z=chg(a,b)Forml.Print"n="；n,Mz=H,zNextnEndSubFunctionchg(aAsInteger,bAsInteger)AsIntegerDimnAsIntegerForn=0To2a=a+bNextnchg=aEndFunction寫(xiě)出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orml上的輸出結(jié)果。n=1z=4n=2z=7n=3z=101.程序15PrivateSubForm_Click()Dimx(5)AsIntegerx(1)=8x(2)=3x(3)=1x(4)=6x(5)=4Fori=1To4Forj=i+1To5Ifx(i)<x(j)Thent=x(i):x(i)=x(j):x(j)=tNextj,iFork=1To5Forml.Print”x(";k;x(k)NextkEndSub寫(xiě)出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orml上的輸出結(jié)果。x(1)=8x(2)=6x(3)=4x(4)=3x(5)=1五、程序填空以下程序是單擊命令按鈕，將用戶(hù)在組合框中輸入的某一值，與組合框其他項(xiàng)進(jìn)行比較，如有相同，則將相同表項(xiàng)刪除，其他項(xiàng)，則不動(dòng)。PrivateSubcommand1_click()DimaAsString,IAsIntegerA$=Trim(Combo1.Text)Ifa<>MMThenforl=0toCombol.ListCount-1IfCombol.List(i)=aThenCombol.RemoveitemiNextIEndIfCombol.SetFocusEndSub下列程序用于對(duì)輸入的x和n的值，進(jìn)行計(jì)算S=X/2!-X2/3!+x3/4!-x4/5!+....+(-1)n-1xn/(n+1)lPrivatefunctionFs(byvalxassingle.byvalnasinteger)assingleDimsumassingleDimremultiplyaslongDimIasintegerSum=0Remultiply= I1=1Dountill>nRemultiply=remultiply*lSum=sum+remultiply 『1+1 _loop Fs=sumEndfunction輸入三個(gè)數(shù)，由大到小排序DimAAsIntegerDimBAsIntegerDimCAsIntegerPrivateSubForm_Click()DimnTempAsIntegerA=Val(lnputBox(HPleaseinputfirstinteger「輸入正整數(shù)”))B=Val(lnputBox(HPleaseinputsecondinteger"，”輸入正整數(shù)”))C=Val(lnputBox(MPleaseinputthirdinteger"，”輸入正整數(shù)”))IfA<=BThennTemp=A:A=B:B=nTempEndIfIfA<=CThennTemp=A:A=C:C=nTempEndIfIfB<=CThennTemp=B:B=C:C=nTempEndIfPrint“Theintegersinorderis";A;B;CEndSub歌德巴赫猜想:任何一個(gè)大于或等于六的偶數(shù)都可以分解成兩個(gè)素?cái)?shù)之和.PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,kAsInteger,mAsIntegerDimnAsInteger,mlAsInteger,m2AsInteger,numnum=val(inputbox(“請(qǐng)輸入要驗(yàn)證的整數(shù)范圍最大值(MAX)”))Fori=6TonumStep2Forj=3Toik= (lnt(Sqr(j)))Form=2TokIfjModm=0Then(ExitFor)NextmIfm>kThenn=i-jml=(lnt(Sqr(n)))Form2=2TomlIfnModm2=0Then(Exitfor)Nextm2If(m2>ml)ThenPrinti;j;n;,EndIfNextjPrintNextiEndSub從計(jì)算機(jī)輸入三個(gè)數(shù)，找出中間數(shù)PrivateSubFindMidNum()X=INPUTBOX(HPLEASEINPUTTHEFIRSTNUMBER")Y=INPUTBOX(UPLEASEINPUTTHESECONDNUMBER)Z=INPUTBOX(HPLESSEINPUTTHETHIRDNUMBER)IF(X<Y)THENA=XX=YY=AENDIFIF(Y>=Z)THENPRINTYELSEIF(X>=Z)THENPRINTZELSEPRINTXENDIFEndSub［程序說(shuō)明］由輸入對(duì)話(huà)框輸入n(設(shè)n為大于零且小于30的自然數(shù))，計(jì)算下列表達(dá)式的值，并在標(biāo)簽框Label1上顯示。［程序］PrivateSubForm_Click()DimnAsInteger,sumasDouble,kAsIntegern=Val(lnputBox("n=”「請(qǐng)輸入自然數(shù)n(n>0且n<30)M))Do(Whilen<=0orn>=30)n=丫21(即此0乂(“田”請(qǐng)重輸入”))LoopSum=0(k=0)dok=k+1sum=(sum+1/(k*(k+1)))LoopUntilk>=nLabell.Caption-'Sum-'+St^sum)EndSub一、判斷共10題(共計(jì)10分)第1題Shape控件和Line控件可以在窗體中移動(dòng),因此它們具有Move方法.答案：N第2題VisualBasic程序的運(yùn)行可以從Main。過(guò)程啟動(dòng)，也可以從某個(gè)窗體啟動(dòng).答案：丫第3題圖片框的屬性Enabled設(shè)置為FALSE,圖片框上的控件仍可響應(yīng)用戶(hù)操作.答案：N第4題若已在窗體中加入了一個(gè)通用對(duì)話(huà)框:要求在運(yùn)行時(shí)，通過(guò)ShowOpen打開(kāi)對(duì)話(huà)框時(shí),只顯示擴(kuò)展名為DOC的文件，則對(duì)通用對(duì)話(huà)框的FHter的屬性設(shè)置應(yīng)該是:"(*.DOC)|(.DOC)".N第5題設(shè)計(jì)菜單中每一個(gè)菜單項(xiàng)分別是一個(gè)控件,每個(gè)控件都有自己的名字. 答案：丫第6題清除listl列表框?qū)ο蟮膬?nèi)容的語(yǔ)句是listl.cls.答案：N第7題圖片框的Move方法不僅可以移動(dòng)圖片框，而且還可以改變?cè)搱D片框的大小，同時(shí)也會(huì)改變?cè)搱D片框有關(guān)屬性的值. 答案：N第8題當(dāng)窗體的ScaleTop=0,ScaleLeft=0時(shí)，這個(gè)窗體Top和Left值也是0.答案：N第9題框架控件和形狀控件都不能響應(yīng)用戶(hù)的鼠標(biāo)的單擊事件.答案：丫第10題通用對(duì)話(huà)框只能用SHOW方法進(jìn)行調(diào)用.答案：N二、單項(xiàng)選擇共10題(共計(jì)10分)第1題用戶(hù)可以通過(guò)設(shè)置菜單項(xiàng)的()屬性值為FALSE來(lái)使該菜單項(xiàng)不可見(jiàn).A:HideB:CheckedC:VisibleD:Enabled答案：C第2題定時(shí)器的Interval屬性以()為單位指定Timer事件之間的時(shí)間間隔.A:分B:秒C:毫秒D:微秒 答案：C第3題要在圖片框P1中打印字符串"HowAreYou",應(yīng)使用語(yǔ)句().A:Picture1.Print="HowAreYou"B:P1.Picture=LoadPicture("HowAreYou")C:P1.Print"HowAreYou"D:Print"HowAreYou"答案：C第4題F列關(guān)于設(shè)置控件屬性的敘述正確的是().A:用戶(hù)必須設(shè)置屬性值 B:所有的屬性值都可以由用戶(hù)隨意設(shè)定C:屬性值不必一一重新設(shè)置 D:不同控件的屬性項(xiàng)都完全一樣 答案：C第5題啟動(dòng)Visua舊asic后,系統(tǒng)為用戶(hù)新建的工程起一個(gè)名為()的臨時(shí)名稱(chēng).A:工程1B:窗體1C:工程D:窗體答案：A第6題設(shè)a=10,b=5,c=1,執(zhí)行語(yǔ)句Printa>b>c后，窗體上顯示的是().A:TrueB:FalseC:1D:出錯(cuò)信息 答案：B第7題MSGBOX函數(shù)中有4個(gè)參數(shù)，其中必須寫(xiě)明的參數(shù)是().A:指定對(duì)話(huà)框中顯示按鈕的數(shù)目B:設(shè)置對(duì)話(huà)框標(biāo)題C:提示信息D:所有參數(shù)都是可選的C第8題應(yīng)用程序設(shè)計(jì)完成后，應(yīng)將程序保存,保存的過(guò)程是().A:只保存窗體文件即可B:只保存工程文件即可C:先保存工程文件，之后保存窗體文件D:先保存窗體文件(或標(biāo)準(zhǔn)模塊文件)，之后還要保存工程文件 答案：D第9題改變控件在窗體中的左右位置應(yīng)修改該控件的()屬性.A:TopB:LeftC:WidthD:Right答案：B第10題VB認(rèn)為下面()組變量是同一個(gè)變量.A:A1和a1B:SUM和SUMMARYC:AVER和AVERAGED:A1和A_1答案：A三、程序填空共3題(共計(jì)30分)第1題’【程序填空】'功能：以下程序的功能如(圖1)。PrivateSubForm_Click()Dima%,b%,c%,d!Dimx1,x2Dimp,q,ra=InputBoxf請(qǐng)輸入a的值”)b=InputBoxC,請(qǐng)輸入b的值”)c=lnputBox(M請(qǐng)輸入c的值”)d=b*b-4*a*cp=-b/(2*a)Ifd>=0Then，***m*Space**********If[?]Thenr=Sqr(d)/(2*a)x1=p+rx2=p-rElsex1=px2=p，*★*★****★★Spac[?]Print"x1=H;x1,"x2=";x2，**********Space**********[?]q=Sqr(-d)/(2*a)PrintHx1=M;p;H+”；q;“i“，“x2=”;p;“?“；q;“i”EndIfEndSub答案：1).d>0或Ovd2).EndIf3).日se第2題’【程序填空】'功能：完成程序，使程序輸出值為15PrivateSubCommand1_Click()nm*SPACE****mDimi,j,x,[?]AsIntegerFori=1To4x=4Forj=1To3x=3，*m***SPACE**********For[?]=1To2，***m*SpACE**********x=x+(?)NextkNextjNextiPrintxEndSub答案：1).k2).k3).6第3題’【程序填空】'功能：用輸入對(duì)話(huà)框輸入X,根據(jù)如圖公式計(jì)算對(duì)應(yīng)的y,,在窗體上輸出y的值。PrivateSubCommand1_Click()，**********space**********DimxAsSingle,[?]AsSinglex=Val([?]CPleaseinputx:"」輸入X的值”))Ifx=10Then，m****SPACE***m*(?]Elselfx>10Then，**m**Space**********y=Sqr(x)[?]Elsey=2*xA3+6EndIfPrintyEndSub答案：1).y2).InputBox3).y=04).+Sin(x)四、程序改錯(cuò)共3題(共計(jì)30分)第1題’【程序改錯(cuò)】'題目:設(shè)窗體中有圖片框Pic1,現(xiàn)要求在其中繪制10個(gè)同心圓,'然后將此圖以Test.BMP作文件名存入磁盤(pán)。OptionExplicitPrivateSubCommand1_Click()DimXAsIntegerDimYAsIntegerDimIAsIntegerDimrad(9)AsIntegerX=Pic1.ScaleWidth/2Y=Pic1.ScaleHeight/2t***m*FounQ**********ForI=1To9rad(l)=500*RndNextImn*FOUND**********DoUntilI<1Pic1.Circle(X,Y),rad(l),RGB(256*Rnd,256*Rnd,256*Rnd)?**m**FouN0**********LoopSavePicturePic1.Image,*'Test.BMP*'EndSub答案：1).fori=0to9或fori=0to9step1.DoUntilIv0或dountil0>i.I=I-1或i=-1+i第2題，【程序改錯(cuò)】'題目：從計(jì)算機(jī)輸入三個(gè)數(shù)，找出中間數(shù)OptionExplicitPrivateSubFindMidNum()DimxAsInteger,yAsInteger,zAsInteger,AAsIntegerx=InputBoxf'PLEASEINPUTTHEFIRSTNUMBER")y=InputBoxf'PLEASEINPUTTHESECONDNUMBER")z=lnputBox(MPLESSEINPUTTHETHIRDNUMBER")m*****FOUNIfx>yThenEndIft***m*Foun0**********Ify=zThenPrinty?**m**FounQ**********Elselfx=zThenPrintzElsePrintxEndIfEndSubPrivateSubForm_Click()FindMidNumEndSub答案：1).IfxvyThen或lfy>xThen.Ify>=zThen或Ifzv=yThen.Elselfx>=zThen或Elselfz<=xThen第3題’【程序改錯(cuò)】，題目：輸出40以?xún)?nèi)能夠被3整除的數(shù)，要求輸出結(jié)果為5,個(gè)數(shù)一行。OptionExplicitPrivateSubForm_Click()CisDimxAsIntegerDimiAsIntegerI****★★****PQU **********i=1Forx=1To40If(x/3)=(x\3)Then，***m*FounD**********Printxi=i+1EndIfl**********PQU^JQ*★★*****★★IfiMod3=0ThenPrintEndIfNextxEndSub答案：1).i=02).Printx;3).ifimod5=0then五、程序設(shè)計(jì)共2題(共計(jì)20分)第1題’【程序設(shè)計(jì)】'題目：編寫(xiě)函數(shù)fun其功能是：根據(jù)整型形參m,計(jì)算如下公式的<7=1/5+1/6+1/7+1/8+1/9+1/10...+1/(m+5)^iJ^：若m=9,則應(yīng)輸出：1.168229'要求:函數(shù)中用到的中間變量必須聲明為Single類(lèi)型。答案： DimyAsDoubleDimiAsIntegerFori=0Tomy=y+1/(i+5)NextFun=y第2題（10.0分）題號(hào):488'【程序設(shè)計(jì)】'題目：（事件）單擊窗體。（響應(yīng)）已知sum=1/2!?1/4!+1/6!?1/8!+1/10!,請(qǐng)將sum結(jié)果值輸出到窗體上。使用dowhile...loop語(yǔ)句完成程序答案： DimiAsIntegerDimnAsIntegeri=1P=1DoWhilei<=10P=P*iIfiMod2=0Thenn=n+1sum=sum+(-1)A(n-1)/pEndIfi=i+1LoopPrintsum一、判斷共10題(共計(jì)10分)第1題所有的對(duì)象都有caption屬性.答案：N第2題喜件過(guò)程由某個(gè)用戶(hù)事件或系統(tǒng)事件觸發(fā)執(zhí)行，它不能被其它過(guò)程調(diào)用.答案：N第3題當(dāng)定時(shí)器控件的interval屬性值設(shè)置為0時(shí)，會(huì)連續(xù)不斷地激發(fā)Timer事件.答案：N第4題當(dāng)需要在同一窗體中建立幾組相互獨(dú)立的單選鈕時(shí)，就要用框架將每一組單選鈕框起來(lái).答案：丫第5題在窗體模塊的聲明部分中用Private聲明的變量的有效范圍是其所在的工程.答案：N第6題VisualBasic程序的運(yùn)行可以從Main()過(guò)程啟動(dòng)，也可以從某個(gè)窗體啟動(dòng).答案：丫第7題VB允許設(shè)計(jì)和使用用戶(hù)自己設(shè)計(jì)的控件. 答案：丫第8題在VB中，可以將在Picture控件中繪制的圖形以文件的形式保存在磁盤(pán)上.答案：Y第9題Function函數(shù)有參數(shù)傳遞,并且一定有返回值. 答案：N第10題在VB的工具欄中包括了所有的VB控件，我們不能再加載其他的控件.答案：N置頂二、單項(xiàng)選擇共10題(共計(jì)10分)第1題代數(shù)式x1-|a|+ln10+sin(x2+2n)/cos(57o)對(duì)應(yīng)的Visua舊asic表達(dá)式是().A:X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57*3.14/180)B:X1-Abs(A)+Log(10)+Sin(X2+2*n)/Cos(57*3.14/180)C:X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57)D:X1-Abs(A)+Log(10)+Sin(X2+2*n)/Cos(57) 答案：A第2題設(shè)計(jì)動(dòng)畫(huà)通常使用時(shí)鐘控件()來(lái)控制動(dòng)畫(huà)速度.AiEnabledB:IntervalC:TimerD:Move答案：B第3題要把一個(gè)命令按鈕設(shè)置成無(wú)效,應(yīng)設(shè)置其哪-屬性值().A:VisibleB:EnabledC:DefaultD:Cancel答案：B第4題設(shè)a=10,b=5,c=1,執(zhí)行語(yǔ)句Printa>b>c后，窗體上顯示的是().A:TrueBrFalseC:1D:出錯(cuò)信息 答案：B第5題任何控件都具有的屬性是().A:TEXTB:CAPTIONC:NAMED:FORECOLOR答案：C第6題當(dāng)事件能被觸發(fā)時(shí),()就會(huì)對(duì)該事件作出響應(yīng).A:對(duì)象B:程序C：控件D:窗體答案：A第7題F列敘述正確的是().A:對(duì)象是包含數(shù)據(jù)又包含對(duì)象數(shù)據(jù)進(jìn)行操作的方法的物理實(shí)體B:對(duì)象的屬性只能在屬性窗口中設(shè)置C：不同的對(duì)象能識(shí)別不同的事件D:事件過(guò)程都要由用戶(hù)點(diǎn)擊對(duì)象來(lái)觸發(fā) 答案：C第8題下列關(guān)于設(shè)置控件屬性的敘述正確的是().A:用戶(hù)必須設(shè)置屬性值 B:所有的屬性值都可以由用戶(hù)隨意設(shè)定C:屬性值不必一一重新設(shè)置D:不同控件的屬性項(xiàng)都完全一樣 答案：C第9題表達(dá)式2+3*4A5-SIN(X+1)/2中最先進(jìn)行的運(yùn)算是().A:4"5B:3*4C:x+1D:SIN答案：C第10題一個(gè)對(duì)象可以執(zhí)行的動(dòng)作和可被對(duì)象識(shí)別的動(dòng)作分別稱(chēng)為().A:事件、方法B:方法、事件C:屬性、方法D:過(guò)程、事件答案：A三、程序填空共3題(共計(jì)30分)第1題’【程序填空】’下面過(guò)程max()用于求3個(gè)數(shù)中最大值，利用這個(gè)過(guò)程求5個(gè)數(shù)中最大值。PrivateSubForm_Click()Print”5個(gè)數(shù)34、124、68、73>352的最大值是：”maxi=max(34,124,68)，*m***SPACEm****maxi=[?)PrintmaxiEndSubPublicFunctionmax(ByVala%,ByVaib%,ByVaic%)，**********space**********If[?]Thenm=a日sem=bEndIf，m****Space**********If[?]Thenmax=mElsemax=cEndIfEndFunction答案：1).max(max1,73,352)2).a>b或bva3).m>c或cvm第2題’【程序填空】'功能：輸入數(shù)字1?7,顯示其對(duì)應(yīng)是星期幾(例:輸入1,顯示星期日，*如果輸入其它內(nèi)容，一律顯示“輸入錯(cuò)誤")PrivateSubCommand1_Click()dimxasintegerdimyasstringx=val(text1.text)，***m*Space**********[?]y="今天是星期日"y="星期一“y="星期二"y="星期三"y="星期四"，***m*Space**********[?]y="星期六”，**m**Space**********[?]y="輸入錯(cuò)誤”endselectText2.Text=yEndSub答案:1).selectcasex2)?y="星期五"3).CaseElse第3題’【程序填空】’功能：以下程序段用于求gn!PrivateSubForm_Click()DimsumAsInteger,nAsIntegern=InputBoxC請(qǐng)輸入一個(gè)正整數(shù)”)sum=0Fori=1Ton，******pacE**********sum=[?]NextiPrintsumEndSubPrivateFunctionmul(ByValxAsInteger)DimsAsInteger,iAsInteger，*m***Space**********Fori=1To[?]Nexti，****mSPACE***m*[?]EndFunction答案：1).sum+mul(i)2).x3).mul=s四、程序改錯(cuò)共3題（共計(jì)30分）第1題’【程序改錯(cuò)】題目：輸出40以?xún)?nèi)能夠被3整除的數(shù)，要求輸出結(jié)果為5個(gè)數(shù)-行。OptionExplicitPrivateSubForm_Click()CisDimxAsIntegerDimiAsIntegerFound**********Forx=1To40If(x/3)=(x\3)Then1**********PrintxEndIfIfiMod5=0ThenPrintEndIfI*******★★★PQ Q★★★*★*****stepiEndSub答案：1).i=02).Printx;或？x;3).Nextx或Next第2題U程序改錯(cuò)】'題目:程序功能為求解一