上海海事大學VB題庫教學提綱

上海海事大學VB題

庫1、寫出用隨機函數(shù)產(chǎn)生一個200至300之間整數(shù)的VB表達式[1].答案：200*+*lnt(*Rnd*100*)或200*+*lnt(*100*Rnd*)2,已知文本框的內(nèi)容為"ABCDE"，若文本框Selstart=4,Sellength=2,則SelText為【1】.答案：DE3、VB提供了列表框控件，當列表框中的項目較多，超過了列表框的長度時，系統(tǒng)會自動的在列表框邊上加一個【1】.答案：垂直滾動條或滾動條4、想擁有"快捷鍵”這項功能,必須在"菜單編輯器"中增加一些特殊的設(shè)置，也就是在字母之前加上[1].答案：&5、列表框(ListBox)顯示【1】，用戶可以從中選擇一個或多個項目.答案：項目列表或列表6、設(shè)置控件背景顏色的屬性名稱是【1】.答案：backcolor7、如果在模塊的聲明段中有OptionBase0語句，則在該模塊中使用Dima(6,3To5)聲明的數(shù)組有【1】個元素.答案：218、定時器控件的Interval屬性值是指時間間隔，單位為毫秒;當每隔此間隔的時間，定時器會觸發(fā)一次【1】事件.答案：Timer9、寫出清除標簽Labell的顯示信息的語句為【1】.答案：Labell,caption=""或Labell=""或Label1.Caption=""10、寫出清除圖片框的文字或圖形信息的語句【1】.答案：Picturel.cis或cis11、滾動條控件有水平滾動條和【1】滾動條.答案：垂直12、文本框中所顯示的內(nèi)容是它的［1］屬性的值.答案：Text13、要使命令按鈕cmdEnd可以以快捷鍵E訪問，應(yīng)設(shè)置屬性【1】.答案:Caption14、當程序運行時，要求窗體中的文本框呈現(xiàn)空白，則在設(shè)計時，把此文本框的【1】屬性設(shè)置成空白.答案：Text15、如果要使用命令按鈕表面顯示文字"退出(X)"(在字符X之下加下劃線)，則其Caption屬性設(shè)置為［1］.答案：退出(&X)16、所有控件都具有的共同屬性是【1】屬性.答案：name17、VisualBasic為添加到窗體上的第一個圖片框picture提供的默認對象名為［1］.答案：Picturel18、使用Scale方法建立窗體Forml的用戶坐標系淇中窗體左上角坐標為(-200,250),右下角坐標為(300,-100),具體形式為［1］.答案：forml.scale(-200,250)-(300,-100)19、如果在模塊的聲明段中有OptionBase1語句，則在該模塊中使用Dima(3To5,6)聲明的數(shù)組有【1】個元素.答案：1820、把"VisualBasic程序設(shè)計”添加到列表框IstBooks的語句為［1］.答案：IstBooks.Additem"VisualBasic程序設(shè)計”21、如果要指明mystring為固定15個字長的全局變量,應(yīng)該在標準模塊中用以下說明語句定義［11.答案：public*mystringik-as^string*1522、若要在字符串a(chǎn)sdgewl中取dge,則使用函數(shù)［1］實現(xiàn).答案:Mid$(asdgewl$,2,3)或Mid(asdgewl,2,3)23、欲使在自己設(shè)計VB程序運行過程中，不中止本程序的運行,同時又可調(diào)用系統(tǒng)中已有的應(yīng)用程序c:\windows\Calc.exe,可在程序代碼窗口必要的地方添加語句【1】.答案:shell("c:\windows\Calc.exe")或shell("calc.exe")24、設(shè)置計時器控件只能觸發(fā)【1】事件.答案：timer25、要使鼠標停留在按鈕上顯示特殊的鼠標形狀，應(yīng)設(shè)置的屬性值是【1】.答案：mousepointer26、使用Circle方法在窗體Forml上以(15,15)為圓心,10為半徑畫圓，具體形式為［1］.答案:forml.circle(15,15),1027、使用Move方法把圖形框Picturel的左上角移動到距窗體頂部100Twip,距窗體左邊框200Twip,同時圖形框縮小50%,具體形式為［1］.答案:Picturel.move200,100,picture1.width/sqr(2),picturel.height/sqr(2)28、對象是既包含m又包含對數(shù)據(jù)進行操作的方法,并將其封裝起來的一個邏輯實體.答案：數(shù)據(jù)29、拖動滾動條中的滾動框?qū)a(chǎn)生Scroll和【1】事件.答案：Change30、以圖片框Pic1的中心位置為圓心，以700為半徑在Pic1上畫?個圓的方法是【1】.pic1.Circle(pic1,width/2,pic1.height/2),70031、設(shè)置計時器對象觸發(fā)事件的時間間隔用【1】屬性.答案：interval32、對象具有屬性和【1】答案：方法33、打開"工程窗口"的方法之一是按下【1】組合鍵.答案：CTRL+R34、列表框控件不支持Click事件,但支持［1］事件.答案：dblclick35、VisualBasic中的文本框中要使該框不允許多行輸入,應(yīng)設(shè)置［11屬性為false.答案：MultiLine36、如果要在單擊鈕時執(zhí)行一段代碼,則應(yīng)將這段代碼寫在【1】事件過程中.答案：click37、將焦點定位于命令按鈕Commandl之上的語句為【1】.答案：Commandl.SetFocus或SetFocus38、滾動條控件主要支持兩個事件,它們是scroll和11】事件.答案：change39、文件按照存取方式及其組成結(jié)構(gòu)可以分為順序文件和【1】.答案：隨機文件或隨機40、由Fork=35to0step3:nextk循環(huán)語句控制的循環(huán)次數(shù)是【1】.答案：041、循環(huán)語句FORK=1TO10STEP-1控制的循環(huán)次數(shù)為［1］.答案：042、由Fork=35to0step3:nextk循環(huán)語句控制的循環(huán)次數(shù)是【1】.43、VB中，變量的聲明可分為兩種方法：【1】數(shù)組和動態(tài)數(shù)組.答案：靜態(tài)44、OptionBase1的作用是確定數(shù)組的下界為［1］.答案：145、VB中,變量的聲明可分為兩種方法:隱式聲明和［1］.答案：顯式聲明46、一元兩次方程ax2+bx+c=0有實根的條件為aWO,并且b2-4ac20,列出邏輯表達式［1］答案：a<>0★and★bA2-4*a*c>=047、在VB6.0中，設(shè)Single型變量XYZ的值為123.45,若要將其轉(zhuǎn)換成字符串，應(yīng)使用的類型轉(zhuǎn)換函數(shù)是［1］.答案：STR或CSTR48、由Dima(10)Assingle定義的數(shù)組占用［1］字節(jié)的內(nèi)存空間.答案：4449、在VB中,若要將字符串"12345"轉(zhuǎn)換成數(shù)字值應(yīng)使用的類型轉(zhuǎn)換函數(shù)是【1】.答案：VAL或Cint50、在VB中，若要使一個文本框(Text)中的內(nèi)容在超過文本框的寬度時能夠自動換行顯示，應(yīng)當將這個文本框的［1］屬性的值設(shè)置為True.答案：MultiLine51,大于X的最小整數(shù)的VB表示形式為【1】.答案：lnt(x)+1或lnt(x)*+*152、一個工程可以包括多種類型的文件，其中擴展名為.bas的文件表示【1】文件.答案：標準模塊或模塊53、在VB6.0中，變量名最長可達【1】個字符. 答案：25554、在VB中，若要改變一個窗體的標題，應(yīng)在屬性窗口中改變這個窗體的【1】屬性的值.答案：Caption55、在控件之中，【1］不能從工具箱中被刪除.答案：內(nèi)部控件或標準控件56、在VB中，若要求在模塊中強制顯式地指定變量的數(shù)據(jù)類型,應(yīng)當在模塊首部的申明部分使用【1】語句.答案：OptionExplicit57、一般情況下，控件有兩個屬性項的缺省值是相同的，這兩個屬性項是name和11】.答案：caption58、一個工程可以包括多種類型的文件，其中ActiveX控件的文件擴展名為【1】.答案：OCX59、在利用VisualBasic設(shè)計應(yīng)用程序時,一般會遇到三類錯誤:語法錯誤、執(zhí)行錯誤和［1］ 答案：邏輯錯誤60、要使一個按鈕無效，則可把它的Enable屬性設(shè)為【1】.答案：False61、在VB中,窗體由屬性定義外觀，由［1］定義行為，由事件定義其與用戶的交互.答案：方法62、一個工程可以包括多種類型的文件，其中，擴展名為.vbp的文件表示【1】文件.答案：工程63、一個工程可以包括多種類型的文件，其中，擴展名為.frm的文件表示【1】文件.答案：窗體64、要使同一類型控件組成一個控件數(shù)組，必須要求【1】.答案：Name相同或名稱相同65、要使一個按鈕設(shè)為默認按鈕，應(yīng)把此按鈕的【1】屬性的值設(shè)為True.答案：Default66、在VB中，若要重新定義一個動態(tài)數(shù)組的元素個數(shù)，應(yīng)當使用【1】語句對其進行重新定義.答案：ReDim67、在控件之中，【1】單獨保存在.OCX文件中，在必要時可以加入到工具箱中.答案：ACTIVEX控件68、VB中的變量按其作用分為全局變量，模塊變量，【1】.答案：局部變量69、在一條Dim語句中可以聲明多個變量，如DimstrVar,intVar,sngVarAsInteger,則strVar、intVar與sngVar的數(shù)據(jù)類型分別是Variant、Variant和【1】.答案：Integer70、設(shè)x為大于零的實數(shù),則大于x的最小奇數(shù)的VisualBasic表達式是[1].答案:IIF(int(x)mod2=0,int(x)+2,int(x)+1)71、說明變量類型有隱含類型說明和【1】兩種方法.答案：強制類型或強制類型說明72、表達式(-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è)計"、"運行"以及"[1]答案：中斷77、VB的運算符包括算術(shù)運算符、【1】運算符、關(guān)系運算符、邏輯運算符和特殊運算符.答案：連接78、Integer類型的變量占用【1】字節(jié)空間.答案：279、表達式81\7MOD2A2的值是[1].答案：380、設(shè)x為一個兩位數(shù)，將x個位數(shù)和十位數(shù)交換后所得兩位數(shù)VB的表達式是【1】.答案：(xmod10)***10*+*int(x/10)81、求x與y之積除以z的余數(shù)的VB表達式為【1】.答案：x*y*Mod*z82、變量min&表示【1】類型的變量.答案：長整型83、A和B同為正整數(shù)或同為負整數(shù)的VB表達式為[1].答案：A=INT(A)*AND*B=INT(B)*AND*A*B>084、Val(T23.55ab456")的值是多少[1].答案：123.5585、表達式"[A]"Like"[A]"的值為[1].答案：False86、sst="ABC12DE",則Val(sst)=[1].答案：087、VB表達式9A2MOD45\2*3的值【1】.88、表達式32\7MOD3八2的值是[1].答案：489、默認情況下，所有未經(jīng)顯示聲明的變量均視為Variant類型，如果要強制變量的聲明，應(yīng)在模塊的聲明段使用【1】語句.答案：OptionExplicit90、征兵的條件:男性(sex)年齡(age)在18—20歲之間，身高(size)在1.65米以上;或者女性年齡在16—18歲之間，身高在1.60以上，列出邏輯表達式【1】.答案：(sexandage>=18andage<=20andsize>=1.65)or(notsexandage>=16andage<=18andsize>=1.60)91、把整數(shù)0賦給一個邏輯型變量，則邏輯變量的值為【1】.答案：False92、a和b中有僅只有一個為1,相應(yīng)的VisualBasic邏輯表達式為[1].答案：a=1★xor^b=193、設(shè)x=2,y=4,a=4,b=6,表達式(a>xXorb<x)ORx<yIMPy<b的結(jié)果為[1].答案：True94、把整型數(shù)1賦給一個邏輯型變量，則邏輯變量的值為【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寫成VB關(guān)系表達式為【1】.答案：x>=1andx<12或x<12andx>=198、聲明單精度常量g(重力加速度)代表9.8可寫成【1】.答案：constg=9.8constsingleg=9.8100,X=2:丫=8:PRINTX+Y=10的結(jié)果是［1］.答案：True101、聲明單精度常量P1代表3.14159的語句為【1】.答案：ConstPl=3.14159或ConstpiAsSingle=3.14159102、VB6.0的基本表達式包括算術(shù)表達式、關(guān)系表達式和【1】表達式.答案：邏輯103、表達式93\7MOD2"3的值是［1］.答案：5104、VB6.0的連接運算符包括【1】運算符和【2】運算符兩種.答案：(1).&或+ (2).&或+105、表達式1and0的值［1］.答案：False106、變量min@表示【1】類型的變量.答案：貨幣數(shù)據(jù)變量或貨幣107、當x=2時，語句ifx=2thenPrintx=2的結(jié)果值是［1］.答案：True108、設(shè)x為大于零的實數(shù),則大于x的最小偶數(shù)的VisualBasic表達式是【1】答案:iif(int(x)mod2=0,int(x)+2,int(x)+1)109、聲明定長為10個字符變量Sstr的語句為【1】.答案:DimSstrasString*10或SstrasString*10110、表達式(-3)And8的值為［11.答案：True111、Print"x="&(2=4)的結(jié)果為【1】.答案：x=False(1)在設(shè)計時，為了把窗體上的某個控件變?yōu)榛顒拥?應(yīng)執(zhí)行雙擊該控件。(錯誤)(2)確定一個控件在窗體上位置的屬性是Top和Left。 正確(5)窗體的NAME屬性的值是顯示在窗體標題欄中的文本。 錯誤(6)A[B]7是VB中的合法變量名。 錯誤(8)設(shè)有如下聲明：DimxAsInteger如果Sgn(x)的值為-1,則x的值是大于。的整數(shù)。 錯誤(9)如果x是一個正實數(shù)，對x的第3位小數(shù)四舍五入的表達式是0.01*lnt(100*(x+0.005))o正確(10)表達式4+5\6*7/8Mod9的值是4。 錯誤(11)Textl是文本框的名稱，Textl.Print25使文本框Textl輸出25。錯誤(15)下列語句a%=3.14156Printa%的輸出結(jié)果是3.14%。 錯誤(18)記時器控件能有規(guī)律地以一定時間間隔觸發(fā)Time事件，并執(zhí)行該事件過程中的程序代碼。錯誤(19)"X是小于100的非負數(shù)"，用VB表達式表示正確的是0<=x0rx<100。錯誤(20)表達式"12345"<>"12345"&"ABC"的值是True。 正確(23)DoUntil條件循環(huán)體Loop上面的循環(huán)結(jié)構(gòu)如果"條件"是一個為0的常數(shù)，則一次循環(huán)體也不執(zhí)行。錯誤(24)K=0DoWhileK=k+1Loop上面循環(huán)的執(zhí)行次數(shù)是11次。 錯誤(26)若有一個動態(tài)數(shù)組a有兩個元素a(0)和a(1),先要令數(shù)組a有3個元素a(0)a⑴和a(2),應(yīng)當使用的語句是ReDima(3)。 錯誤(27)由Array函數(shù)建立的數(shù)組必須是Variant類型。 正確(31)按地址傳遞參數(shù)通過子過程不會影響變量本身；按值傳遞參數(shù)通過子過程可以改變變量本身的值。 錯誤(32)在過程定義中出現(xiàn)的變量名叫做形式參數(shù)；在調(diào)用過程時傳送給過程的變量、常量、表達式叫做實際參數(shù)。 正確(33)Sub過程可返回一個值到調(diào)用的過程。 錯誤(34)如果過程被定義為Static類型，則該過程中的局部變量都是Static類型。正確(35)過程的定義可以嵌套，過程的調(diào)用也可以嵌套。 正確(107)一個變量在剛被定義尚未被賦值之前沒有值。 錯誤(108)如果A和B都是整型變量，A的值為1,B的值為256,則變量A所占用的內(nèi)存空間比變量B小。 錯誤(109)If和EndIf關(guān)鍵字必須成對地使用，有一個If就有一個EndIf與之相對應(yīng)。錯誤(110)For和ExitFor必須成對地使用，有一個For就必須有一個ExitFor與之相對應(yīng)。錯誤(114)如果有多重Do循環(huán)嵌套，位于最里層循環(huán)體語句中的ExitDo語句可以跳出所有的循環(huán)。 錯誤(115)通用過程中使用Static關(guān)鍵字定義的過程級變量都是靜態(tài)變量。 正確(116)通過改變屬性窗口中的Name屬性，可以改變窗體上顯示的標題 錯誤(119)無論是在定義時，還是在訪問其元素時，數(shù)組的下標不能是變量，只能是常量表達式。 錯誤(120)數(shù)組下標的下界可以是負值，但上界只能是正數(shù)。 錯誤(123)在函數(shù)過程中，如果不給函數(shù)名賦值，則函數(shù)不返回任何值。 錯誤(125)數(shù)組作通用過程的參數(shù)時，一定是按地址傳遞。 正確(127)時鐘控件的屬性Interval值為0時，表示屏蔽計時器 正確(126)文本框控件有Caption屬性. 錯誤(128)在過程中用Dim和Static定義的變量都是局部變量。 正確(130)單選鈕和復選框都有Value屬性，當選中它們時，Value屬性都為True。錯誤(131)在VB開發(fā)環(huán)境中，可同時創(chuàng)建、打開和設(shè)計多個工程項目。 正確(132)面向?qū)ο蟪绦蛟O(shè)計是一種以對象為基礎(chǔ)，由事件驅(qū)動對象執(zhí)行的設(shè)計方法。正確(134)通過代碼設(shè)置屬性的一般格式是：屬性名.對象名=屬性值。錯誤(135)TextBox與Label有許多共同特點，它們都能顯示和輸入文本。 錯誤(136)所有的控件在程序運行以后都是可見的。 錯誤(138)ListBox控件和ComboBox控件一樣，都只能選擇一項。 錯誤(139)一個應(yīng)用程序中只能創(chuàng)建一個窗體。 錯誤(140)Msgbox函數(shù)建立的信息框能顯示信息又能輸入用戶的信息。 錯誤(106)因為Single類型的變量可表示的范圍大于Long類型的變量，所以Single類型占用的內(nèi)存空間大于Long類型。 錯誤(103)標簽控件是專門用來顯示信息的，所以不能響應(yīng)鼠標的單擊事件。 錯誤(87)窗體的Enabled屬性為False時，窗體上的按鈕、文本框等控件都不會對用戶的操作作出反應(yīng)。 正確(102)窗體的Move方法不但可以移動窗體，而且可以改變窗體的大小，同時也會改變與窗體的大小和位置有關(guān)的屬性值。 正確(104)命令按鈕支持Click事件，但不支持DbICIick事件，所以雙擊按鈕不會有任何反應(yīng)。 錯誤(105)VisualBasic工程文件的擴展名為.vbp,窗體文件的擴展名為.frm。 正確(4)VisualBasic窗體設(shè)計器的主要功能是建立用戶界面。 正確52(7)表達式2*3八2+2*8/4+3A2的值為31。 正確53(12)a=27b=65Printa;b的輸出結(jié)果是2765 正確54(13)設(shè)有語句x=lnputBox("輸入數(shù)值","0","示例")程序運行后，如果從鍵盤上輸入數(shù)值10并按回車鍵，變量x的值是字符串"10"。正確55(14)文本框失去焦點能夠觸發(fā)文本框Change事件的操作。 錯誤56(16)設(shè)a=3,b=5,表達式(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)語句后，x的值為20o正確(21)為了清除列表框中的所有內(nèi)容，應(yīng)使用的方法是Clear。 正確(22)為了清除列表框中的所有內(nèi)容，應(yīng)使用的方法是Remove。 錯誤(111)SelectCase語句實現(xiàn)的是一個循環(huán)結(jié)構(gòu)。 錯誤（118）DimA（6）定義了A（1）到A（6）共6個元素。 錯誤（133）vb應(yīng)用程序是分層管理的，其最高的層次為工程。 正確（137）設(shè)有如下變量聲明:DimTestDateAsDate,為變量TestDate正確賦值的表達方式是TestDate=#"1/1/2002"# 錯誤一、選擇題改變控件在窗體中的上下位置，應(yīng)修改控件的_A屬性A.TopB.LeftC.WidthD.Right將通用對話框類型，設(shè)置為字體對話框，可修改該控件的D屬性A.fontB.filenameC.filterD.action標簽控件最重要的屬性是_AA.captionB.textC.nameD.width文本框中選定的內(nèi)容，由下列C屬性反映。A.TextB.CaptionC.SeitextD.sellenght選中復選框控件時，value屬性的值，可以是_DA.trueB.falseC.0 D.1設(shè)置列表框選中的文本用D屬性A.selectedB.captionC.textD.list簡單組合框的style值為BA.0B.1C.2D,3在文件列表框的實現(xiàn)文件的多重選擇，應(yīng)修改該控件的—D屬性A.filenameB.patternC.pathD.multiselect語句listl.removeitem1將刪除list.listindext等于 D的項目。A.0B.2C.3D.1計時器的interval屬性為0時，表示A。A.計時器失效 C.相隔0毫秒B.相隔。秒 D.計時器的enable屬性為false以下的vb常量中非法的是（B）a."GoodLuck"b.PIc.1.5E-03d.16.3412要想返回文本框中輸入的內(nèi)容則可利用其（B）屬性進行編程d.righttoleft下列不能用commondialog控件調(diào)用的對話框是（D）a.open/saveb.helpc.fontd.searchvb應(yīng)用程序是分層管理的，其最高的層次為（A）a.工程b.模塊c.窗體d.過程vb程序設(shè)計中的窗體在oop中稱為（C）a.屏幕b.事件c.對象d.控件欲使某命令按鈕失效，應(yīng)修改命令按鈕的（D）屬性。A.VisibleB.CaptionC.EnableD.Enabled要使標簽?zāi)芡赋龃绑w的背景，必須設(shè)置 （A）屬性。A.BackStyleB.BorderStyleC.AppearanceD.BackColor用鼠標拖動滾動條中滾動框并釋放，將觸發(fā)滾動條的（D）事件。A.ScrollB.Change C.DragOverD.A和B組合框的類型由Style屬性決定，簡單組合框的Style屬性值應(yīng)為（B）.A.0B.1C.2D.3下面哪些控件不會影響到界面設(shè)計效果。（A）A.定時器B.文本框C.標簽D.Line控件Clear方法適用于（D）控件。A.圖片框B.窗體 C.復選框D.組合框下列哪個變量的取法是不正確的（C）A.sTmeB.T_TempC.T12%D.T_12如果要設(shè)置窗體的標題欄，應(yīng)選擇以下那種屬性（B）A.NameB.CaptionC.TipsD.Text如果要給字體加刪除線，可以選擇下列那種屬性（C）A.FontNameB.FontSizeC.FontStrikethruD.FontUnderLine下列哪個變量的取法是不正確的（D）A.TNameB.T_TempC.T32D.T32#清除列表框的所有選項應(yīng)選擇下列哪種方法（A）A.ClearB.CisC.ClearltemD.Removeitem下面哪些控件不會影響到界面設(shè)計效果。（C）A.LabelB.TextC.CommonDialogD.Frame要使得窗體在出現(xiàn)之前就完成相關(guān)的程序設(shè)置可在（C）事件中進行編程A.linkopenB.KeyPressC.loadD.click要使文本框中顯示密碼符有效，必須首先設(shè)置 （B）屬性。A.TextB.MultiLineC.Locked D.Enabled要在垂直位置上移動控件，應(yīng)利用控件的（C）屬性。A.LeftB.WidthC.TopD.Height下列表達式中，其值為0的是（C）A.7/9B.7mod15C.7\9D.15mod9一個對象可以執(zhí)行的動作和可被對象識別的動作分別稱為 （A）oA、事件、方法B、方法、事件C,屬性、方法D、過程、事件在窗體Forml的Click事件過程中有以下語句：LabeH.Caption="VisualBasic"若本語句執(zhí)行之前，標簽控件的Caption屬性為默認值，則標簽控件的Name屬性和Caption屬性在執(zhí)行本語句之前的值分別為 （B）。A.”Label"、"Label"B,"Label1\"VisualBasic"C、"Label1'\"LabeH"D、"Caption","Label"（D）對象不具有Caption屬性。A、LabelB、OptionC、FormD、TimerInterger類型的變量可存的的最大整數(shù)是（D）。A、250B、256C、32768D、32767下列數(shù)據(jù)類型中，占用內(nèi)存最小的是 （B）oA、BooleanB、ByteC、IntegerD、Single已知A、B、C中C最小，則判斷A、B、C可否構(gòu)成三角形三條邊長的邏輯表達式是（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方法的一般形式是：對象名.moveA,B[,C,D],其中A指Left,C指width?（F）TOC\o"1-5"\h\z清除list"（列表框?qū)ο蟮膬?nèi)容的語句是listl.cls。 （F）清除combo"）對象的內(nèi)容是combol.clear。 （T）對■象的可見性用enabled屬性設(shè)置，可用性用visible屬性設(shè)置。 （F）滾動條控件不可作為用戶輸入數(shù)據(jù)的一種方法。 （F）只要用拖拽的方法，將工具箱中所需的控件拖到窗體上即可完成。 （F）控件是對象，而窗體不是對象，它只是控件對象的窗口。 （F）TextBox與Label有許多共同特點，它們都能顯示和輸入文本。 （F）有的對象屬性既可在屬性窗口中設(shè)定又可在程序代碼中設(shè)定。 （T）在框架控件內(nèi)的幾個單選按鈕中，只能有一個單選按鈕的Value屬性為True.（T）標簽沒有Change事件和SetFocus方法。 （T）事件過程與Sub過程，它們相同點都是事件驅(qū)動，而不同的只是事件過程由控件屬性決定，而Sub過程是由戶自定義。 （F）Function函數(shù)有參數(shù)傳遞，并且一定有返回值。 （F）滾動條控件不可作為用戶輸入數(shù)據(jù)的方法。 （T）Msgbox函數(shù)建立的信息框能顯示信息又能輸入用戶的信息。 （F）Dimi,jasinteger表明i和j都是整型變量。（F）菜單每一菜單項都是控件，可以通過點擊菜單項或通過光標選擇并按回車鍵，以觸發(fā)Click事件。（T）某一過程中的靜態(tài)變量在過程結(jié)束后，靜態(tài)變量及其值可以在其它過程中使用。（F）目錄列表框中的列表項不可以通過Additem方法進行添加。（T）在表達式中，運算符兩端的數(shù)據(jù)類型要求一致。（T）VisualBasic程序的運行，僅能從某一窗體啟動，如Form1窗體。（F）VB是一種面向?qū)ο蟮某绦蛟O(shè)計語言。（T）在VB的工具欄中包括了所有的VB控件，我們不能再加載其他的控件。（F）在VB中，文件菜單的“刪除工程”的作用是將當前VB工程在硬盤中刪除掉。（F）有一個程序在屬性窗口中設(shè)置了它的窗體字體大小為10號，而程序代碼若設(shè)置了它的窗體字體大小為20號，那么當程序運行后實際的窗體字體大小為20號。（T）所有的VB的變量，都有隱含說明字符和強調(diào)聲明兩種方法來定義。（F）所有的控件在程序運行以后都是可見的。（F）標簽控件可以用來讓用戶輸入數(shù)據(jù)。（F）在框架控件上放置的控件可以移動到框架控件的外面。（F）如果一個列表框一共有5個選項，而當選中第三項時，這時列表框的Listindex屬性為2。（T）單擊并拖拽工具箱中所需的控件到窗體上即可完成添加控件任務(wù)。（F）除了標準控件外，還可引入其它控件及第三方廠商研制的控件。（T）TextBox與Label有許多共同特點，它們都能顯示和輸入文本。（F）Listl.clear是清除Listl的全部列表項，所以Clear是對象的方法。（T）有的對象屬性既可在屬性窗口中設(shè)定又可在程序代碼中設(shè)定。（F）在框架控件內(nèi)的幾個單選按鈕中，可有一個或多個單選按鈕的Value屬性為True.（F）Variant是一種特殊的數(shù)據(jù)類型，Variant類型變量可以存儲除了定長字符串數(shù)據(jù)及自定義類型外的所有系統(tǒng)定義類型的數(shù)據(jù)。Variant類型變量還可具有Empty、Error和Null等特殊值。（T）窗體的Enabled屬性值為False時，該窗體上的按鈕、文本框等控件就不會對用戶的操作做出反應(yīng)。（T）框架控件和形狀控件都不能響應(yīng)用戶的鼠標的單擊事件。（T）在一個窗體的代碼中不能使用Unload語句來卸載本窗體，即一個窗體只能由其它窗體卸載。（F）當在一個簡單組合框的文本框中輸入一個它的列表框中的沒有的條目時，組合框會自動反這一條目添加到它的列表框中。（F）當定時器控件的interval屬性值設(shè)置為0時，會連續(xù)不斷地激發(fā)Timer事件。（F）如果一個菜單項的Visible屬性為False,則它的子菜單也不會顯示。（T）填空題1. 如果要指明mystring為固定15個字長的全局變量，應(yīng)該在標準模塊中用以下說明語句定義： Publicmystringasstring*152.設(shè)X$=匕"123456”則七"+5T$“21（的忖儀$,4）））的值是a34563.拖動滾動條中的滾動框?qū)a(chǎn)生 Scroll、Change4.請寫出清除以下對象內(nèi)容的語句：文本框 Text1.text=^^^^ ，窗體—Forml.CIs _，列表框_Listl.Clear，組合框 comboil.Clear變量min@表示_貨幣數(shù)據(jù)變量 類型的變量。如果：1=11：J=3：l=int(-8.6)+l\J+13/3MOD5,則I值是_-2請寫出滿足以下條件的VB表達式：0<X<10,X>0andx<10—.X為[0-100]之間的數(shù)，能被2整除，但不能被3整除—x>=0andx<=100andxmod2=0andxmod3<>0.下列循環(huán)語句控制的循環(huán)次數(shù)為_0_FORK=1TO10STEP-1表達式1and0的值(False).設(shè)a=2,b=3,c=4,d=5,表達式(a>bXorb<c)ORb<dEQVa<c的結(jié)果為(True).TOC\o"1-5"\h\za和b中有僅只有一個為1,相應(yīng)的VisualBasic邏輯表達式為(a=1xorb=1) 。設(shè)1=5,則由下列循環(huán)語句控制的循環(huán)次數(shù)是 (6) oDo1=1+2LoopWhilel<=15表達式32\7MOD3A2的值是(4) 。PrivateSubcmdSum_Click()staticSumasintegerSum=2*Sum+1EndSub問：第三次單擊命令按鈕cmdSum后，Sum的值為：(7) 。欲定義一個定長為10的字符串變量Mystr,可寫成：(DimMystrasString*10)o下列表達式返回的值為True還是FalseTrue。9>4+3Or5+3>10AndNot(4+2>5EQV3+5>2)按照數(shù)據(jù)文件的存儲方法的不同，文件可以分為三種不同的類型：―順序文件隨機文件和二進制文件。下列循環(huán)語句控制的循環(huán)次數(shù)為_0oFORK=1TO20STEP-2TOC\o"1-5"\h\zVB表達式9A2MOD45\2*3的值 4。設(shè)x=2,y=4,a=4,b=6,表達式(a>xXorb<x)ORx<yIMPy<b的結(jié)果為(True)oa和b中有僅只有一個不為1,相應(yīng)的VisualBasic邏輯表達式為(av>1xorb<>1) °當x=2時，語句ifx=2thenPrintx=2的結(jié)果值是(True)。聲明單精度常量g(重力加速度)代表9.8可寫成：(constg=9.8) 。VB的工作模式可分為三種：“_設(shè)計一”、運行—”以及中斷由Fork=35to0step3:nextk循環(huán)語句控制的循環(huán)次數(shù)是(0)。想擁有“快捷鍵”這項功能，必須在“菜單編輯器”中增加一些特殊的設(shè)置，也就是在字母之前加上—&若要在字符串a(chǎn)sdgewl中取dge,則使用函數(shù)_(Mid$(asdgewl$,2,3)實現(xiàn)。設(shè)x為大于零的實數(shù)，則大于x的最小偶數(shù)的VisualBasic表達式是(iif(int(x)mod2=0,int(x)+2,int(x)+1))設(shè)x的初值為5,則由下列循環(huán)語句控制的循環(huán)次數(shù)是(1)oDoWhilex>=5x=x-1Loop在上程序中，若x的初值為-5,則循環(huán)次數(shù)為(0)sst="ABC12DE”,則Val(sst)=(0)四、程序閱讀(假如所有的變量類型都已定義)程序1FORJ=10TO5step-2K=J+1IfK<6thenexitforNEXTJPRINTK；J輸出的結(jié)果_74—程序2A=1：l=0SELECTCASEA*2A=A+1A=A+2CASEELSEA=A+3ENDSELECTA的值為_3—程序4C=lnputBox(“請輸入字符串：”)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寫出程序運行時單擊窗體后，在Forml上的輸出結(jié)果。結(jié)果為：b1=5b2=9a1=5a2=100程序7PrivateSubForm_Click()Dimkasinteger,sasinteger,jasintegerForml.clsFork=1to5s=0forj=kto5s=s+1nextjnextkPrint"s=”,sEndSub寫出程序運行時單擊窗體后的輸出結(jié)果。結(jié)果為：s=1程序8DimaAsIntegerPrivateSubCommand1_Click()StaticsAsIntegerIfs<5Thens=s+aElses=s*aEndIfa=sEndSubPrivateSubForm_Load()a=5EndSub當連續(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以上程序運行完成以后，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寫出程序運行時單擊窗體后，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寫出程序運行時單擊窗體后，F(xiàn)orml上的輸出結(jié)果。x(1)=8x(2)=6x(3)=4x(4)=3x(5)=1五、程序填空以下程序是單擊命令按鈕，將用戶在組合框中輸入的某一值，與組合框其他項進行比較，如有相同，則將相同表項刪除，其他項，則不動。PrivateSubcommand1_click()DimaAsString,IAsIntegerA$=Trim(Combo1.Text)Ifa<>MMThenforl=0toCombol.ListCount-1IfCombol.List(i)=aThenCombol.RemoveitemiNextIEndIfCombol.SetFocusEndSub下列程序用于對輸入的x和n的值，進行計算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輸入三個數(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歌德巴赫猜想:任何一個大于或等于六的偶數(shù)都可以分解成兩個素數(shù)之和.PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,kAsInteger,mAsIntegerDimnAsInteger,mlAsInteger,m2AsInteger,numnum=val(inputbox(“請輸入要驗證的整數(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從計算機輸入三個數(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［程序說明］由輸入對話框輸入n(設(shè)n為大于零且小于30的自然數(shù))，計算下列表達式的值，并在標簽框Label1上顯示。［程序］PrivateSubForm_Click()DimnAsInteger,sumasDouble,kAsIntegern=Val(lnputBox("n=”「請輸入自然數(shù)n(n>0且n<30)M))Do(Whilen<=0orn>=30)n=丫21(即此0乂(“田”請重輸入”))LoopSum=0(k=0)dok=k+1sum=(sum+1/(k*(k+1)))LoopUntilk>=nLabell.Caption-'Sum-'+St^sum)EndSub一、判斷共10題(共計10分)第1題Shape控件和Line控件可以在窗體中移動,因此它們具有Move方法.答案：N第2題VisualBasic程序的運行可以從Main。過程啟動，也可以從某個窗體啟動.答案：丫第3題圖片框的屬性Enabled設(shè)置為FALSE,圖片框上的控件仍可響應(yīng)用戶操作.答案：N第4題若已在窗體中加入了一個通用對話框:要求在運行時，通過ShowOpen打開對話框時,只顯示擴展名為DOC的文件，則對通用對話框的FHter的屬性設(shè)置應(yīng)該是:"(*.DOC)|(.DOC)".N第5題設(shè)計菜單中每一個菜單項分別是一個控件,每個控件都有自己的名字. 答案：丫第6題清除listl列表框?qū)ο蟮膬?nèi)容的語句是listl.cls.答案：N第7題圖片框的Move方法不僅可以移動圖片框，而且還可以改變該圖片框的大小，同時也會改變該圖片框有關(guān)屬性的值. 答案：N第8題當窗體的ScaleTop=0,ScaleLeft=0時，這個窗體Top和Left值也是0.答案：N第9題框架控件和形狀控件都不能響應(yīng)用戶的鼠標的單擊事件.答案：丫第10題通用對話框只能用SHOW方法進行調(diào)用.答案：N二、單項選擇共10題(共計10分)第1題用戶可以通過設(shè)置菜單項的()屬性值為FALSE來使該菜單項不可見.A:HideB:CheckedC:VisibleD:Enabled答案：C第2題定時器的Interval屬性以()為單位指定Timer事件之間的時間間隔.A:分B:秒C:毫秒D:微秒 答案：C第3題要在圖片框P1中打印字符串"HowAreYou",應(yīng)使用語句().A:Picture1.Print="HowAreYou"B:P1.Picture=LoadPicture("HowAreYou")C:P1.Print"HowAreYou"D:Print"HowAreYou"答案：C第4題F列關(guān)于設(shè)置控件屬性的敘述正確的是().A:用戶必須設(shè)置屬性值 B:所有的屬性值都可以由用戶隨意設(shè)定C:屬性值不必一一重新設(shè)置 D:不同控件的屬性項都完全一樣 答案：C第5題啟動Visua舊asic后,系統(tǒng)為用戶新建的工程起一個名為()的臨時名稱.A:工程1B:窗體1C:工程D:窗體答案：A第6題設(shè)a=10,b=5,c=1,執(zhí)行語句Printa>b>c后，窗體上顯示的是().A:TrueB:FalseC:1D:出錯信息 答案：B第7題MSGBOX函數(shù)中有4個參數(shù)，其中必須寫明的參數(shù)是().A:指定對話框中顯示按鈕的數(shù)目B:設(shè)置對話框標題C:提示信息D:所有參數(shù)都是可選的C第8題應(yīng)用程序設(shè)計完成后，應(yīng)將程序保存,保存的過程是().A:只保存窗體文件即可B:只保存工程文件即可C:先保存工程文件，之后保存窗體文件D:先保存窗體文件(或標準模塊文件)，之后還要保存工程文件 答案：D第9題改變控件在窗體中的左右位置應(yīng)修改該控件的()屬性.A:TopB:LeftC:WidthD:Right答案：B第10題VB認為下面()組變量是同一個變量.A:A1和a1B:SUM和SUMMARYC:AVER和AVERAGED:A1和A_1答案：A三、程序填空共3題(共計30分)第1題’【程序填空】'功能：以下程序的功能如(圖1)。PrivateSubForm_Click()Dima%,b%,c%,d!Dimx1,x2Dimp,q,ra=InputBoxf請輸入a的值”)b=InputBoxC,請輸入b的值”)c=lnputBox(M請輸入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題’【程序填空】'功能：用輸入對話框輸入X,根據(jù)如圖公式計算對應(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)四、程序改錯共3題(共計30分)第1題’【程序改錯】'題目:設(shè)窗體中有圖片框Pic1,現(xiàn)要求在其中繪制10個同心圓,'然后將此圖以Test.BMP作文件名存入磁盤。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題，【程序改錯】'題目：從計算機輸入三個數(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題’【程序改錯】，題目：輸出40以內(nèi)能夠被3整除的數(shù)，要求輸出結(jié)果為5,個數(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è)計共2題(共計20分)第1題’【程序設(shè)計】'題目：編寫函數(shù)fun其功能是：根據(jù)整型形參m,計算如下公式的<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類型。答案： DimyAsDoubleDimiAsIntegerFori=0Tomy=y+1/(i+5)NextFun=y第2題（10.0分）題號:488'【程序設(shè)計】'題目：（事件）單擊窗體。（響應(yīng)）已知sum=1/2!?1/4!+1/6!?1/8!+1/10!,請將sum結(jié)果值輸出到窗體上。使用dowhile...loop語句完成程序答案： DimiAsIntegerDimnAsIntegeri=1P=1DoWhilei<=10P=P*iIfiMod2=0Thenn=n+1sum=sum+(-1)A(n-1)/pEndIfi=i+1LoopPrintsum一、判斷共10題(共計10分)第1題所有的對象都有caption屬性.答案：N第2題喜件過程由某個用戶事件或系統(tǒng)事件觸發(fā)執(zhí)行，它不能被其它過程調(diào)用.答案：N第3題當定時器控件的interval屬性值設(shè)置為0時，會連續(xù)不斷地激發(fā)Timer事件.答案：N第4題當需要在同一窗體中建立幾組相互獨立的單選鈕時，就要用框架將每一組單選鈕框起來.答案：丫第5題在窗體模塊的聲明部分中用Private聲明的變量的有效范圍是其所在的工程.答案：N第6題VisualBasic程序的運行可以從Main()過程啟動，也可以從某個窗體啟動.答案：丫第7題VB允許設(shè)計和使用用戶自己設(shè)計的控件. 答案：丫第8題在VB中，可以將在Picture控件中繪制的圖形以文件的形式保存在磁盤上.答案：Y第9題Function函數(shù)有參數(shù)傳遞,并且一定有返回值. 答案：N第10題在VB的工具欄中包括了所有的VB控件，我們不能再加載其他的控件.答案：N置頂二、單項選擇共10題(共計10分)第1題代數(shù)式x1-|a|+ln10+sin(x2+2n)/cos(57o)對應(yīng)的Visua舊asic表達式是().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è)計動畫通常使用時鐘控件()來控制動畫速度.AiEnabledB:IntervalC:TimerD:Move答案：B第3題要把一個命令按鈕設(shè)置成無效,應(yīng)設(shè)置其哪-屬性值().A:VisibleB:EnabledC:DefaultD:Cancel答案：B第4題設(shè)a=10,b=5,c=1,執(zhí)行語句Printa>b>c后，窗體上顯示的是().A:TrueBrFalseC:1D:出錯信息 答案：B第5題任何控件都具有的屬性是().A:TEXTB:CAPTIONC:NAMED:FORECOLOR答案：C第6題當事件能被觸發(fā)時,()就會對該事件作出響應(yīng).A:對象B:程序C：控件D:窗體答案：A第7題F列敘述正確的是().A:對象是包含數(shù)據(jù)又包含對象數(shù)據(jù)進行操作的方法的物理實體B:對象的屬性只能在屬性窗口中設(shè)置C：不同的對象能識別不同的事件D:事件過程都要由用戶點擊對象來觸發(fā) 答案：C第8題下列關(guān)于設(shè)置控件屬性的敘述正確的是().A:用戶必須設(shè)置屬性值 B:所有的屬性值都可以由用戶隨意設(shè)定C:屬性值不必一一重新設(shè)置D:不同控件的屬性項都完全一樣 答案：C第9題表達式2+3*4A5-SIN(X+1)/2中最先進行的運算是().A:4"5B:3*4C:x+1D:SIN答案：C第10題一個對象可以執(zhí)行的動作和可被對象識別的動作分別稱為().A:事件、方法B:方法、事件C:屬性、方法D:過程、事件答案：A三、程序填空共3題(共計30分)第1題’【程序填空】’下面過程max()用于求3個數(shù)中最大值，利用這個過程求5個數(shù)中最大值。PrivateSubForm_Click()Print”5個數(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,顯示其對應(yīng)是星期幾(例:輸入1,顯示星期日，*如果輸入其它內(nèi)容，一律顯示“輸入錯誤")PrivateSubCommand1_Click()dimxasintegerdimyasstringx=val(text1.text)，***m*Space**********[?]y="今天是星期日"y="星期一“y="星期二"y="星期三"y="星期四"，***m*Space**********[?]y="星期六”，**m**Space**********[?]y="輸入錯誤”endselectText2.Text=yEndSub答案:1).selectcasex2)?y="星期五"3).CaseElse第3題’【程序填空】’功能：以下程序段用于求gn!PrivateSubForm_Click()DimsumAsInteger,nAsIntegern=InputBoxC請輸入一個正整數(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四、程序改錯共3題（共計30分）第1題’【程序改錯】題目：輸出40以內(nèi)能夠被3整除的數(shù)，要求輸出結(jié)果為5個數(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程序改錯】'題目:程序功能為求解一