山東交通學(xué)院成人高考VB程序設(shè)計復(fù)習(xí)題及參考答案

VB程序設(shè)計A復(fù)習(xí)題單選題（每小題3分，共計45分。）1.文本框控件中將Text的內(nèi)容全部顯示為所定義的字符的屬性項(xiàng)是(A).A.PasswordCharB.需要編程來實(shí)現(xiàn)C.PasswordD.以上都不是2.欲使標(biāo)簽的內(nèi)容對其方式,必須設(shè)置屬性(B).A.AutoSizeB.AlignmentC.leftD.WordWrap3.下列字符串常量中,最大的是(C).A."北京"B."上海"C."天津"D."廣州"4.要使標(biāo)簽?zāi)芡赋龃绑w的背景,必須設(shè)置(A)屬性.A.BackStyleB.BorderStyleC.AppearanceD.BackColor5.文本框中的內(nèi)容,由下列(A)屬性反映.A.TextB.CaptionC.SeltextD.sellenght6．INT(100*RND(1))產(chǎn)生的隨機(jī)整數(shù)的閉區(qū)間是(A).A.[0,99]B.[1,100]C.[0,100]D.[1,99]7.下列方法中可用于列表框動態(tài)添加數(shù)據(jù)的是(B).A.addB.additemC.addlistD.removeitem8.函數(shù)Len(Str(Val("123.4")))的值為(C).A.11B.5C.6D.89.表達(dá)式INT(8*SQR(36)*10^(-2)*10+0.5)/10的值是(C).A.0.48B.0.048C..5D..0510.以下不具有Picture屬性對象是(D).A.窗體B.圖片框C.圖像框D.文本框二、填空題（每小題2分，共計20分。）1.在VB6.0中,變量名最長可達(dá)255個字符.2.男性(sex)，年齡(age)在18—20歲之間，身高(size)在1.65米以上，列出邏輯表達(dá)式sexandage>=18andage<=20andsize>=1.65。3.如果:I=12:J=3:I=int(-8.6)+I\J+13/3MOD5,則I值是.-1。4.要使一個按鈕設(shè)為默認(rèn)按鈕,應(yīng)把此按鈕的Default屬性的值設(shè)為True.5.一個工程可以包括多種類型的文件,其中,擴(kuò)展名為.vbp的文件表示工程文件.6.如果要使用命令按鈕表面顯示文字"退出(X)"(在字符X之下加下劃線),則其Caption屬性設(shè)置為退出(&X).三、判斷題（每小題2分，共計20分。）1.在MsgBox函數(shù)中prompt參數(shù)是必須的（Y）.2.文本框控件有Caption屬性（N）.3.要使定時器控件起作用,其屬性Interval不可以設(shè)置為0（Y）.4.圖片框不是容器，圖像框是容器（N）.5.有一個程序在屬性窗口中設(shè)置了它的窗體字體大小為10號,而程序代碼若設(shè)置了它的窗體字體大小為20號,那么當(dāng)程序運(yùn)行后實(shí)際的窗體字體大小為20號（Y）.6.計算機(jī)在處理數(shù)據(jù)時必須將其裝入內(nèi)存,在高級語言中通過內(nèi)存單元名來訪問其中的數(shù)據(jù),命名的內(nèi)存單元就是常量或變量（Y）.7.設(shè)計菜單中每一個菜單項(xiàng)分別是一個控件,每個控件都有自己的名字（Y）.8.由VisualBasic語言編寫的應(yīng)用程序有解釋和編譯兩種執(zhí)行方式（Y）.9.VisualBasic程序的運(yùn)行可以從Main()過程啟動,也可以從某個窗體啟動（Y）.10.如果一個菜單項(xiàng)的Visible屬性為False,則它的子菜單也不會顯示（Y）.四、程序設(shè)計(每小題15分，共計15分。)編寫函數(shù)fun其功能是：根據(jù)整型形參m，計算如下公式的值：y=1/2!＋1/4!＋...＋1/m!(m是偶數(shù))答：DimiAsInteger,jAsInteger,tAsIntegerfun=0Fori=2TomStep2t=1Forj=1Toit=t*jNextfun=fun+1/tNextVB程序設(shè)計B復(fù)習(xí)題一、單選題（每小題2分，共計20分）1.以下敘述中錯誤的是().A:VisualBasic是事件驅(qū)動型可視化編程工具B:VisualBasic應(yīng)用程序不具有明顯開始和結(jié)束語句C:VisualBasic工具箱中的所有控件都具有寬度(Width)和高度(Height)屬性D:VisualBasic中控件的某些屬性只能在運(yùn)行時設(shè)置答案：C2.InputBox函數(shù)返回的函數(shù)值的類型是().A:數(shù)值B:字符串C:數(shù)值或字符串D:根據(jù)需要可以是任何類型數(shù)據(jù)答案：C3.常用控件的Style屬性值是().A:字符常量B:邏輯常量C:數(shù)值常量D:日期常量答案：C4.如果要在命令按鈕上顯示圖形文件,應(yīng)設(shè)置命令按鈕的().A:Style屬性和Graphics屬性B:Style屬性和Picture屬性C:Picture屬性D:Graphics屬性答案：B5.在設(shè)計階段,雙擊窗體Form1的空白處,打開代碼窗口,顯示()事件過程模板.A:Form_ClickB:Form_LoadC:Form1_ClickD:Form1_Load答案：B二、填空題（每小題2分，共計20分）1.在VB中,若要使一個文本框(Text)中的內(nèi)容在超過文本框的寬度時能夠自動換行顯示,應(yīng)當(dāng)將這個文本框的屬性的值設(shè)置為True.答案：MultiLine2.表達(dá)式81\7MOD2^2的值是.答案：33.由Fork=35to0step3:nextk循環(huán)語句控制的循環(huán)次數(shù)是.答案：04.把條件1<=X<12寫成VB關(guān)系表達(dá)式為.答案：x>=1andx<12或x<12andx>=15.如果要在單擊按鈕時執(zhí)行一段代碼,則應(yīng)將這段代碼寫在事件過程中.答案：click三、判斷題（每小題1分，共計10分）1.菜單每一菜單項(xiàng)都是控件,可以通過點(diǎn)擊菜單項(xiàng)或通過光標(biāo)選擇并按回車鍵,以觸發(fā)Click事件.()答案：Y2.在一個窗體的代碼中不能使用Unload語句來卸載本窗體,即一個窗體只能由其它窗體卸載.()答案：N3.在程序中Name屬性是作為對象的標(biāo)識而引用,不會顯示在窗體上,而控件上顯示的內(nèi)容由Caption屬性決定.()答案：N4.菜單每一菜單項(xiàng)都是控件,可以通過點(diǎn)擊菜單項(xiàng)或通過光標(biāo)選擇并按回車鍵,以觸發(fā)Click事件.()答案：Y5.如果在過程調(diào)用時使用按地址傳遞參數(shù),則在被調(diào)過程中不可以改變實(shí)參的值.()答案：N6.Function函數(shù)有參數(shù)傳遞,并且一定有返回值.()答案：N四、程序填空（15分）在文本框內(nèi)輸入一串字符后，統(tǒng)計并顯示各字母出現(xiàn)的次數(shù)不區(qū)分大小寫字母。'-------------------------------------------------------PrivateSubCommand1_Click()Dima(1To26)AsInteger,cAsString*1'**********SPACE**********=Len(Text1)ForI=1Tol1'**********SPACE**********c=(Mid(Text1,I,1))Ifc>="a"Andc<="z"Then'**********SPACE**********j=Asc(c)-+1a(j)=a(j)+1EndIfNextIPicture1.ClsForj=1To26Ifa(j)>0ThenPicture1.Print"";Chr(j+96);"=";a(j);EndIfNextjEndSub答案：1).l1或l1%2).LCase3).97五、程序改錯（15分）在下面的程序段中過程pd可以判斷任意三個數(shù)能否構(gòu)成三角形的三邊，利用該過程的判定結(jié)果，對能構(gòu)成三角形的計算其面積，構(gòu)不成的顯示"不能構(gòu)成三角形"'------------------------------------------------OptionExplicitPrivateSubForm_Click()'**********FOUND**********Dimx%,y%,z%,s%,bAsBoolean,hAsSinglex=InputBox("請輸入三角形的邊長")y=InputBox("請輸入三角形的邊長")z=InputBox("請輸入三角形的邊長")b=pd(x,y,z)h=(x+y+z)/2'**********FOUND**********IfNotbThens=Sqr(h*(h-x)*(h-y)*(h-z))Print"三角形面積是";sElsePrint"不能構(gòu)成三角形"EndIfEndSub'**********FOUND**********PublicFunctionpd()AsBooleanIfx>0Andy>0Andz>0Andx+y>zAndx+z>yAndy+z>xThenpd=TrueElsepd=FalseEndIfEndFunction答案：1).Dimx%,y%,z%,s!,bAsBoolean,hAsSingle或Dimx%,y%,z%,sasSingle,bAsBoolean,hAsSingle2).Ifb=notfalseThen或Ifb=trueThen或IfbThen3).PublicFunctionpd(x%,y%,z%)AsBoolean或PublicFunctionpd(x,y,z)AsBoolean或PublicFunctionpd(xasInteger,yasInteger,zasInteger)AsBoolean六、程序設(shè)計（20分）單擊窗體時，輸出所有的三位