山東交通學院成人高考VB程序設計復習題及參考答案

VB程序設計A復習題單選題（每小題3分，共計45分。）1.文本框控件中將Text的內容全部顯示為所定義的字符的屬性項是(A).A.PasswordCharB.需要編程來實現(xiàn)C.PasswordD.以上都不是2.欲使標簽的內容對其方式,必須設置屬性(B).A.AutoSizeB.AlignmentC.leftD.WordWrap3.下列字符串常量中,最大的是(C).A."北京"B."上海"C."天津"D."廣州"4.要使標簽能透出窗體的背景,必須設置(A)屬性.A.BackStyleB.BorderStyleC.AppearanceD.BackColor5.文本框中的內容,由下列(A)屬性反映.A.TextB.CaptionC.SeltextD.sellenght6．INT(100*RND(1))產生的隨機整數(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.表達式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中,變量名最長可達255個字符.2.男性(sex)，年齡(age)在18—20歲之間，身高(size)在1.65米以上，列出邏輯表達式sexandage>=18andage<=20andsize>=1.65。3.如果:I=12:J=3:I=int(-8.6)+I\J+13/3MOD5,則I值是.-1。4.要使一個按鈕設為默認按鈕,應把此按鈕的Default屬性的值設為True.5.一個工程可以包括多種類型的文件,其中,擴展名為.vbp的文件表示工程文件.6.如果要使用命令按鈕表面顯示文字"退出(X)"(在字符X之下加下劃線),則其Caption屬性設置為退出(&X).三、判斷題（每小題2分，共計20分。）1.在MsgBox函數(shù)中prompt參數(shù)是必須的（Y）.2.文本框控件有Caption屬性（N）.3.要使定時器控件起作用,其屬性Interval不可以設置為0（Y）.4.圖片框不是容器，圖像框是容器（N）.5.有一個程序在屬性窗口中設置了它的窗體字體大小為10號,而程序代碼若設置了它的窗體字體大小為20號,那么當程序運行后實際的窗體字體大小為20號（Y）.6.計算機在處理數(shù)據(jù)時必須將其裝入內存,在高級語言中通過內存單元名來訪問其中的數(shù)據(jù),命名的內存單元就是常量或變量（Y）.7.設計菜單中每一個菜單項分別是一個控件,每個控件都有自己的名字（Y）.8.由VisualBasic語言編寫的應用程序有解釋和編譯兩種執(zhí)行方式（Y）.9.VisualBasic程序的運行可以從Main()過程啟動,也可以從某個窗體啟動（Y）.10.如果一個菜單項的Visible屬性為False,則它的子菜單也不會顯示（Y）.四、程序設計(每小題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程序設計B復習題一、單選題（每小題2分，共計20分）1.以下敘述中錯誤的是().A:VisualBasic是事件驅動型可視化編程工具B:VisualBasic應用程序不具有明顯開始和結束語句C:VisualBasic工具箱中的所有控件都具有寬度(Width)和高度(Height)屬性D:VisualBasic中控件的某些屬性只能在運行時設置答案：C2.InputBox函數(shù)返回的函數(shù)值的類型是().A:數(shù)值B:字符串C:數(shù)值或字符串D:根據(jù)需要可以是任何類型數(shù)據(jù)答案：C3.常用控件的Style屬性值是().A:字符常量B:邏輯常量C:數(shù)值常量D:日期常量答案：C4.如果要在命令按鈕上顯示圖形文件,應設置命令按鈕的().A:Style屬性和Graphics屬性B:Style屬性和Picture屬性C:Picture屬性D:Graphics屬性答案：B5.在設計階段,雙擊窗體Form1的空白處,打開代碼窗口,顯示()事件過程模板.A:Form_ClickB:Form_LoadC:Form1_ClickD:Form1_Load答案：B二、填空題（每小題2分，共計20分）1.在VB中,若要使一個文本框(Text)中的內容在超過文本框的寬度時能夠自動換行顯示,應當將這個文本框的屬性的值設置為True.答案：MultiLine2.表達式81\7MOD2^2的值是.答案：33.由Fork=35to0step3:nextk循環(huán)語句控制的循環(huán)次數(shù)是.答案：04.把條件1<=X<12寫成VB關系表達式為.答案：x>=1andx<12或x<12andx>=15.如果要在單擊按鈕時執(zhí)行一段代碼,則應將這段代碼寫在事件過程中.答案：click三、判斷題（每小題1分，共計10分）1.菜單每一菜單項都是控件,可以通過點擊菜單項或通過光標選擇并按回車鍵,以觸發(fā)Click事件.()答案：Y2.在一個窗體的代碼中不能使用Unload語句來卸載本窗體,即一個窗體只能由其它窗體卸載.()答案：N3.在程序中Name屬性是作為對象的標識而引用,不會顯示在窗體上,而控件上顯示的內容由Caption屬性決定.()答案：N4.菜單每一菜單項都是控件,可以通過點擊菜單項或通過光標選擇并按回車鍵,以觸發(fā)Click事件.()答案：Y5.如果在過程調用時使用按地址傳遞參數(shù),則在被調過程中不可以改變實參的值.()答案：N6.Function函數(shù)有參數(shù)傳遞,并且一定有返回值.()答案：N四、程序填空（15分）在文本框內輸入一串字符后，統(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ù)能否構成三角形的三邊，利用該過程的判定結果，對能構成三角形的計算其面積，構不成的顯示"不能構成三角形"'------------------------------------------------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"不能構成三角形"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六、程序設計（20分）單擊窗體時，輸出所有的三位