實(shí)用文檔《大學(xué)VisaulBasic程序設(shè)計(jì)》復(fù)習(xí)題第一章VisualBasic程序設(shè)計(jì)概述第一題:是非題(共10分,每項(xiàng)1分)1.VB6.0只能運(yùn)行在Windows2000下,不能運(yùn)行在Windows98下。13A.對B.錯(cuò)√2.用戶控件和系統(tǒng)控件都可以加載到工具箱上,并且永久保留。4A.對B.錯(cuò)√第二題、單選題(共45分,每項(xiàng)1.5分)1.VB中的工具欄可以從______菜單上的“工具欄”命令中移進(jìn)或移出。15A.工具B.編輯C.視圖√D.調(diào)試2.在VB的集成環(huán)境中創(chuàng)建VB應(yīng)用程序時(shí),除了工具箱窗口、窗體設(shè)計(jì)窗口、屬性窗口外,必不可少的窗口是______。2A.窗體布局窗口B.立即窗口C.代碼窗口√D.監(jiān)視窗口第二章VB的編程機(jī)制第一題:是非題(共10分,每項(xiàng)1分)1.在事件驅(qū)動的應(yīng)用程序中,代碼是按照預(yù)定的路徑執(zhí)行的。15A.對B.錯(cuò)√2.標(biāo)簽控件即可以用來顯示用戶不能編輯和修改的文本,也可以用來編輯和修改文本。9A.對B.錯(cuò)√3.每一個(gè)控件實(shí)質(zhì)上都是一個(gè)微型程序。2A.對√B.錯(cuò)4.窗體上的控件同樣可以借助于剪貼板進(jìn)行剪切、復(fù)制和粘貼。A.對√B.錯(cuò)第二題、單選題(共45分,每項(xiàng)1.5分)1.文本框沒有_____屬性。21A.EnabledB.VisibleC.BackColorD.Caption√2.文本框(Text1)中有選定的文本,執(zhí)行Text1.SelText=”Hello”的結(jié)果是___。9A.“Hello”將替換掉原來選定的文本√B.“Hello”將插入到原來選定的文本之前C.Text1.SelLength為5D.文本框中只有“Hello”3.要判斷“命令按鈕”是否被鼠標(biāo)單擊,應(yīng)在“命令按鈕”的______事件中判斷。3A.ChangB.KeyDownC.Click√D.KeyPress4.如果文本框的Enabled屬性設(shè)為False,則___。6A.文本框的文本將變成灰色,并且此時(shí)用戶不能將光標(biāo)置于文本框上B.文本框的文本將變成灰色,用戶仍然能將光標(biāo)置于文本框上,但是不能改變文本框中的內(nèi)容√C.文本框的文本將變成灰色,用戶仍然能改變文本框中的內(nèi)容D.文本框的文本正常顯示,用戶能將光標(biāo)置于文本框上,但是不能改變文本框中的內(nèi)容第三題、簡單程序(共15分,每項(xiàng)1.5分)1.以下程序的輸出結(jié)果是______。21PrivateSubCommand1_Click()DimxAsSinglex=0.000000075PrintxEndSubA.0.000000075B..000000075C.7.5E-8D.7.5E-08√2.在窗體中添加Command1和Command2兩個(gè)命令按鈕來測驗(yàn)文本框Text1的值,然后編寫如下代碼:4PrivateSubCommand1_Click()Text1.Text="AB"EndSubPrivateSubCommand2_Click()Text1.Text="CD"EndSub首先單擊Command2按鈕,然后再單擊Command1按鈕,在文本框中顯示______。A.AB√B.CDC.ABCDD.CDAB第二卷主觀題填空題(共30分,每項(xiàng)2分。注意:填兩個(gè)空的題的時(shí)候,要按照從上至下,從左至右的順序添入答題卡!)1.下列程序段的運(yùn)行結(jié)果。2PrivateSubForm_Click()Form1.CurrentX=500Form1.CurrentY=500Form1.Print”您好!”EndSubA.在距離窗體左邊框500單位處,顯示“您好”B.在距離窗體標(biāo)題欄500單位處,顯示“您好”C.在窗體的中心處,顯示“您好”D.在距離窗體左邊框和標(biāo)題欄500單位處,顯示“您好”√第三章Visual_Basic語言基礎(chǔ)第一題:是非題(共10分,每項(xiàng)1分)1.一條VisualBasic語句如果不超過80個(gè)字符是不能運(yùn)行的。3A.對B.錯(cuò)√2.以Rem開頭的注釋可以直接出現(xiàn)在語句后面。1A.對B.錯(cuò)√3.變量名是以字母或漢字開頭,由字母、漢字、數(shù)字或下劃線組成,長度可以任意的字符序列。9A.對B.錯(cuò)√4.邏輯型數(shù)據(jù)的值只有True與False兩個(gè)值,非零為True,0為False。2A.對√B.錯(cuò)5.""是一個(gè)字符串,而""不是一個(gè)字符串。7A.對B.錯(cuò)√6.表達(dá)式“ab”&34的結(jié)果是“ab34”。5A.對√B.錯(cuò)7.用Dim語句聲明變量時(shí),VB系統(tǒng)不僅為變量分配相應(yīng)數(shù)據(jù)類型的內(nèi)在空間,而且還為變量賦所需的初值。8A.對√B.錯(cuò)8.在VB系統(tǒng)中,沒有用Dim語句聲明的變量不能使用,因?yàn)樗鼪]有數(shù)據(jù)類型。8A.對B.錯(cuò)√9.在程序運(yùn)行過程中,變量中的值不會改變,而常量中的值會被改變。7A.對B.錯(cuò)√10.用Const語句定義的符號常量的名字必須用大寫字母構(gòu)成。4A.對B.錯(cuò)√11.函數(shù)Mid("abc123",3,3)的返回值為c12。A.對√B.錯(cuò)12.在VB中,運(yùn)算符“/”與“\”都是除法運(yùn)算符,所以表達(dá)式5/2與5\2的結(jié)果一樣。A.對B.錯(cuò)√第二題、單選題(共45分,每項(xiàng)1.5分)1.在下列表達(dá)式中,非法的是______。8A.a=b+cB.a>b+cC.a≠b>c√D.a<b+c2.下面語句語法正確的是______。4A.a=1b=2c=3B.a=1:b=2:c=3√C.a=1,b=2,c=3D.a=1;b=2;c=33.表達(dá)式3>4And7=5的返回值為______。12A.0B.TrueC.-1D.False√4.表達(dá)式Int(23.4)+Round(-35.5)的計(jì)算結(jié)果為______。16A.-11B.-12.1C.-13√D.-12.55.Integer類型的數(shù)據(jù)由______字節(jié)組成。16A.1B.2√C.3D.46.在VisualBasic中,用于獲得字符串S最左邊4個(gè)字符的函數(shù)是______。7A.Left(S,4)√B.Left(1,4)C.LeftStr(S)D.LeftStr(S,4)7.以下______不能作為VB中的變量名。12A.Abx45B.P1234C.89TasFF√D.xy8.下面四項(xiàng)中,______是VB中的數(shù)值變量。6A.ABC√B.E+2C."True"D.1.35E-29.表達(dá)式a+b=c是______。6A.賦值表達(dá)式B.字符表達(dá)式C.算術(shù)表達(dá)式D.關(guān)系表達(dá)式√10.下列四個(gè)字符串進(jìn)行比較,最小的是______。9A."9977"√B."B123"C."BASE"D."DATA"11.在VisualBasic中,語句Print3>9的輸出結(jié)果為______。14A.0B.1C.-1D.False√12.語句PrintFormat("HELLO","<")的輸出結(jié)果是______。7A.HELLOB.hello√C.HeD.he13.常量2.7856E-6的類型是______。7A.整型B.實(shí)型√C.字符型D.雙精度14.VB表達(dá)式Cos(0)+Abs(-1)+Int(Rnd(1))的值是______。5A.1B.2√C.0D.-115.在VB中,變量的默認(rèn)類型是______。9A.IntegerB.DoubleC.Variant√D.Currency16.在VisualBasic中,最簡單的數(shù)據(jù)類型包括______。10A.整型、實(shí)型、布爾型、字符型√B.整型、實(shí)型、字符型C.整型、實(shí)型、邏輯型D.實(shí)型、邏輯型、字符型17.在VB中,常量987654,987654#的數(shù)據(jù)類型是______。8A.整型B.實(shí)型C.長整型D.雙精度√18.數(shù)學(xué)表達(dá)式x>y>z的正確VB邏輯表達(dá)式是______。12A.x>yAnd<zB.x>y>zC.x>yAnd>zD.x>yAndy>z√19.函數(shù)Int(Rnd*11)+10產(chǎn)生的數(shù)值的范圍是______。8A.(0,10)B.[10,10]C.[10,20]√D.(0,20)20.下列邏輯表達(dá)式中,其值為真的是______。4A."b">"ABC"√B."THAT">"THE"C.9>"H"D."A">"a"第三題、簡單程序(共15分,每項(xiàng)1.5分)1.以下程序的輸出結(jié)果是______。12PrivateSubCommand1_Click()a=1234b$=Str$(a)c=Len(Trim(b))printc;LenB(b)EndSubA.38B.410√C.510D.482.以下程序的輸出結(jié)果是______。12PrivateSubCommand1_Click()DimsumAsIntegersum%=19sum=2.32Printsum%,sumEndSubA.192.32B.1919C.2.322.32D.22√3.執(zhí)行下面程序段后,變量c$的值為______。7a$="VisualBasicProgramming"b$="Quick"c$=b$&Ucase(Mid$(a$,7,6))&Right$(a$,12)A.VisualBASICProgrammingB.QuickBasicProgrammingC.QUICKBasicProgrammingD.QuickBASICProgramming√4.以下程序的輸出結(jié)果是______。6PrivateSubCommand1_Click()a="ABCD"b="efgh"c=Lcase(a)d=Ucase(b)Printc+dEndSubA.abcdEFGH√B.abcdefghC.ABCDefghD.ABCDEFGH5.下面程序運(yùn)行后,輸出的結(jié)果為________。8PrivateSubCommand1_Click()A$=”Beijing”B$=”dalian”C$=”shanghai”C$=Instr(Left(A$,2)+Right$(B$,2),C$)PrintC$EndSubA.10B.0√C.8D.6第四章控制結(jié)構(gòu)第二題、單選題(共45分,每項(xiàng)1.5分)1.If結(jié)構(gòu)的結(jié)束語句是______。5A.EndSelectB.EndSubC.EndIf√D.EndDo2.InputBox函數(shù)的返回值的類型為______。4A.數(shù)值B.字符串√C.邏輯值D.日期值3.MsgBox函數(shù)的返回值的類型為______。5A.整數(shù)√B.字符串C.邏輯值D.日期值4.通過代碼在運(yùn)行時(shí)設(shè)置屬性的語法格式為______。14A.對象名=屬性.新值B.對象名.屬性=新值√C.對象名.新值=屬性.新值D.對象名.屬性=屬性.新值第三題、簡單程序(共15分,每項(xiàng)1.5分)1.從鍵盤輸入一個(gè)實(shí)數(shù)mm,利用字符串函數(shù)對輸入的數(shù)進(jìn)行處理,如果輸出的內(nèi)容不是字符則輸出“END“,程序的輸出結(jié)果是______。11PrivateSubCommand1_Click()mm=Val(InputBox("請輸入一個(gè)實(shí)數(shù)"))n$=Str$(mm)p=InStr(n,".")…InStr()函數(shù):指定一字符串在另一字符串中最先出現(xiàn)的位置Ifp>0ThenPrintMid(n,p)…Mid語句來得到某個(gè)字符串中的幾個(gè)字符ElsePrint"END"EndIfEndSubA.用字符方式輸出數(shù)據(jù)mmB.輸出數(shù)據(jù)的整數(shù)部分C.輸出數(shù)據(jù)的小數(shù)部分√D.只去掉數(shù)據(jù)部分的小數(shù)點(diǎn),保留所有數(shù)碼輸出2.運(yùn)行下面程序后,在彈出的消息窗口中顯示的是______。7PrivateSubForm_Click()score=Int(Rnd)+5…當(dāng)參數(shù)為負(fù)數(shù)時(shí),Int函數(shù)返回小于或等于該參數(shù)之最大整數(shù),rem而Fix函數(shù)則返回大于或等于該參數(shù)之最小整數(shù)。SelectCasescoreCase5a$="Good"Case4a$="Ok"Case3a$="Pass"CaseElsea$="Bad"EndSelectMsgBoxa$EndSubA.BadB.PassC.OkD.Good√3.以下程序的輸出結(jié)果是______。8PrivateSubCommand1_Click()a=100Dos=s+aa=a+1LoopUntila>100printaEndSubA.100B.120C.201D.101√4.以下程序的循環(huán)次數(shù)是______。11PrivateSubCommand1_Click()Forj=8To35Step3Printj;NextjEndSubA.10…int(35-8)/3+1√B.9C.27D.285.執(zhí)行下面程序段后,變量a的值為______。20ForI=1To3Forj=1ToIFork=jTo3a=a+1NextkNextjNextIA.3B.9C.14√D.216.執(zhí)行下面程序段后,變量x的值為______。20x=5ForI=1To20step2x=x+I\5NextIA.21√B.22C.23D.247.當(dāng)輸入4時(shí),以下程序的輸出結(jié)果是______。7PrivateSubCommand1_Click()x=InputBox(x)Ifx^2<15Theny=1/xIfx^2>15Theny=x^2+1PrintyEndSubA.4B.17√C.18D.0.258.運(yùn)行下面程序后,在彈出的消息窗口中顯示的是______。3PrivateSubForm_Click()Dimcountercounter=0Whilecounter<20counter=counter+1WendMsgBoxcounterEndSubA.0B.21C.20√D.199.運(yùn)行下面程序后,在窗體中顯示的是______。4PrivateSubForm_Click()a$="*":b$="$"Fork=1To3x$=String$(Len(a$)+k,b$)…指定長度重復(fù)字符的字符串。Printx$;NextkPrintEndSubA.、*********B.*$*$*$C.1*$2*$3*$D.、$$$$$$$$$√10.下面程序運(yùn)行后,單擊命令按鈕,在兩個(gè)文本框中顯示的值分別為______。7PrivateSubCommand1_Click()x=0DoWhilex<50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)EndSubA.1和0B.2和72√C.3和50D.4和16811.執(zhí)行下面的程序段后,I的值為______。3s=2ForI=3.2To4.9Step0.8s=s+1NextIA.6.4B.5.6√C.4.8D.7.212.執(zhí)行下面的程序段后,變量S的值為______。3S=5ForI=2.6To4.9Step0.6S=S+1NextIA.7B.8C.9√D.1013.在窗體中添加一個(gè)文本框(其中Name屬性為Text1),然后編寫如下代碼:2PrivateSubForm_click()Text1.Text=""Text1.SetFocusForI=1To10Sum=Sum+INextIText1.Text=SumEndSub上述程序運(yùn)行后,單擊窗體,則運(yùn)行的結(jié)果______。A.在文本框Text1中輸出55√B.在文本框Text1中輸出0C.出錯(cuò)D.在文本框Text1中輸出不定值14.運(yùn)行下面程序后,在彈出的消息窗口中顯示的是______。2PrivateSubForm_Click()k=0DoWhilek<70k=k+2k=k*k+ka=a+kLoopMsgBoxaEndSubA.64B.72C.78√D.148第二卷主觀題填空題(共30分,每項(xiàng)2分。注意:填兩個(gè)空的題的時(shí)候,要按照從上至下,從左至右的順序添入答題卡!)1.請用正確的內(nèi)容填空。以下程序找出50以內(nèi)所有能構(gòu)成直角三角形的整數(shù)組。14PrivateSubForm_Click()Forx=1To50Fory=xTo50z=Sqr(x*x+y*y)Ifz<=50Andz=Int(z)ThenPrintx;y;z…z是小于50的整數(shù)嗎NextyNextxPrintEndSub2.在窗體上畫一個(gè)名稱為Commandl的命令按鈕,編寫如下事件過程2PrivateSubCommand1_C1ick()DimaAsStringa=“123456789”ForI=1To5PrintSpc(6-I);Mid$(a,6-I,2*I-1)NextIEndSub程序運(yùn)行后,單擊命令按鈕,要求窗體上顯示的輸出結(jié)果為5456345672345678123456789請?zhí)羁铡?.請用正確的內(nèi)容填空。下面程序運(yùn)行后,輸出的結(jié)果是:********************************PrivateSubForm_Click()ForI=1To4PrintTab(10+I);Forj=1To8Print"*";NextjPrintNextIEndSub4.請用正確的內(nèi)容填空。以下程序的功能是統(tǒng)計(jì)字符串a(chǎn)中出現(xiàn)字符串b的次數(shù),然后輸出。PrivateSubForm_Click()a$="ABCDEHGABCDEFABCDEABCDABCABA"b$="AB"c=InStr(a$,b$)x=0Whilec<>0x=x+1a$=Mid$(a$,c+2)c=InStr(a$,b$)WendPrintxEndSub5.下面程序運(yùn)行時(shí),內(nèi)層循環(huán)的循環(huán)總次數(shù)是__6__。9Form=1To3Forn=0Tom-1NextnNextm6.執(zhí)行下面的程序段后,s的值為___7_____。14PrivateSubForm_Click()StaticsAsIntegers=5ForI=1.4To2.1Step0.6s=s+1NextIPrintsEndSub7.以下程序的功能是:生成20個(gè)200到300之間的隨機(jī)整數(shù),輸出數(shù)的位置能被5整除的數(shù)并求出它們的和。請?zhí)羁铡?4PrivateSubCommandl_C1ick()ForI=1To20x=Int(rnd*100+200)IfIMod5=0ThenPrintxS=S+xEndIfNextIPrint"Sum=";SEndSub8.執(zhí)行下面的程序段后,X的值為____8_____。3X=5ForI=1to10Step2X=X+I\5NextI9.請用正確的內(nèi)容填空。7下面程序的作用是利用隨機(jī)函數(shù)產(chǎn)生10個(gè)(1~200)之間的隨機(jī)整數(shù),打印其中7的整數(shù)倍的數(shù)并求其和。PrivateSubForm_Click()ForI=1To10x=Int(Rnd*200+1)If(xmod7)=0Thenk1=k1+xPrintxEndIfNextIPrintPrint"k1=";k1EndSub10.請用正確的內(nèi)容填空。8下面程序的功能是通過InputBox對話框接受一個(gè)二進(jìn)制數(shù),并把它轉(zhuǎn)換成一個(gè)十進(jìn)制數(shù),結(jié)果顯示在窗體中。PrivateSubForm_Click()b=InputBox("請輸入一個(gè)二進(jìn)制數(shù)")m=Len(b)Forj=1tomdec=dec*2+val(Mid(b,j,1))NextjPrintb;"轉(zhuǎn)換后的十進(jìn)制數(shù)為:";decEndSub11.在窗體中添加兩個(gè)文本框(其Name屬性分別為Text1和Text2)和一個(gè)命令按鈕(其Name屬性為Command1),單擊命令按鈕,在兩個(gè)文本框Text1和Text2中分別顯示的值是N和X,完成程序。2PrivateSubCommand1_Click()X=0DoWhileX<10X=(X+1)*(X+2)n=n+1LoopText1.Text=Str(N)Text2.Text=Str(X)EndSub12.請用正確的內(nèi)容填空。以下程序的運(yùn)行結(jié)果為:4DCDPrivateSubForm_Click()a="ABCD"Form=1to2PrintTab(5-m);mid(a,5-m,m)或Right(a,m)NextmEndSub13.若s、I均為整型變量,執(zhí)行下列程序后s的值為__15__。s=0I=1Dos=s+II=I+1LoopUntilI>514.以下程序的功能是:從鍵盤上輸入若干個(gè)學(xué)生的考試分?jǐn)?shù),統(tǒng)計(jì)并輸出最高分?jǐn)?shù)和最低分?jǐn)?shù),當(dāng)輸入負(fù)數(shù)時(shí)結(jié)束輸入,輸出結(jié)果,請將程序補(bǔ)充完整。3PrivateSubForm_Click()Dimx,amax,aminAsSinglex=InputBox("Enterascore")amax=xamin=xDoWhilex>=0Ifx>amaxThenamax=xEndIfIfamin>xThenamin=xEndIfx=InputBox("Enterascore")LoopPrint"max=";amax,"min=";aminEndSub第五章數(shù)組第二題、單選題(共45分,每項(xiàng)1.5分)1.語句Dima(3,-3to0,3to6)聲明的數(shù)組a有______元素。3A.12B.27C.64√D.802.用語句Dima(-3to5)AsInteger定義的數(shù)組的元素個(gè)數(shù)是______。6A.7B.8C.9√D.10第三題、簡單程序(共15分,每項(xiàng)1.5分)1.以下程序的輸出結(jié)果是______。12OptionBase1PrivateSubCommand1_Click()Dima(10),p(3)AsIntegerk=5ForI=1To10a(I)=INextIForI=1To3p(I)=a(I*I)NextIForI=1To3k=k+p(I)*2NextIPrintkEndSubA.33√B.28C.35D.372.運(yùn)行下面程序后,在彈出的消息窗口中顯示的是______。PrivateSubForm_Click()DimWeek,DayWeek=Array("Mon","Tue","Wed","Thu","Fri","Sat","Sun")Day=Week(2)Day=Week(4)MsgBoxDayEndSubA.Fir√B.TueC.WedD.Thu第二卷主觀題填空題(共30分,每項(xiàng)2分。注意:填兩個(gè)空的題的時(shí)候,要按照從上至下,從左至右的順序添入答題卡!)1.以下程序的功能是:用Array函數(shù)建立一個(gè)含有8個(gè)元素的數(shù)組,然后查找并輸出該數(shù)組中元素的最大值。請?zhí)羁铡?OptionBase1PrivateSubCommand1_Click()Dimarr1,MaxasIntegerarr1=Array(12,435,76,24,78,54,866,43)Max=arr1(1)ForI=1To8Ifarr1(I)>MaxThenMax=arr1(I)NextIPrint"最大值是:";MaxEndSub2.請用正確的內(nèi)容填空。下面程序用“選擇”法將數(shù)組a中的10個(gè)整數(shù)按升序排列。13OptionBase1PrivateSubForm_Click()Dimaa=Array(678,45,324,528,439,387,87,875,273,823)ForI=1To9Forj=I+1To10Ifa(I)>a(j)Thent=a(I):a(I)=a(j):a(j)=tEndIfNextjNextIForI=1To10Printa(I);NextIEndSub3.請用正確的內(nèi)容填空。以下程序用隨機(jī)函數(shù)模擬擲骰子,統(tǒng)計(jì)擲50次骰子出現(xiàn)各點(diǎn)的次數(shù)。4PrivateSubForm_Click()Dimd(6)ForI=1To50n=Int(Rnd*6+1)d(n)=d(n)+1NextIForI=1To6PrintI;"點(diǎn)出現(xiàn)";d(I);"次"NextIEndSub第六章過程第一題:是非題(共10分,每項(xiàng)1分)1.通用過程可以放在標(biāo)準(zhǔn)模塊中,也可以放在窗體模塊中。8A.對√B.錯(cuò)2.函數(shù)調(diào)用時(shí),實(shí)際參數(shù)與形式參數(shù)在數(shù)量必須完全一致。9A.對B.錯(cuò)√3.數(shù)組作為過程參數(shù)時(shí),使用的是地址傳送方式。4A.對√B.錯(cuò)4.函數(shù)過程和子過程的區(qū)別是子過程結(jié)束將返回值過程值,函數(shù)過程結(jié)束不必返回函數(shù)值。A.對B.錯(cuò)√第二題、單選題(共45分,每項(xiàng)1.5分)1.下列說法錯(cuò)誤的是______。7A.在同一模塊不同過程中的變量可以同名。B.不同模塊中定義的全局變量不可以同名。C.引用另一模塊中的全局變量時(shí),必須在變量名前加模塊名?！藾.同一模塊中不同級的變量可以同名。2.Sub和Function的最大差別在于______。5A.Function有返回值,而Sub沒有√B.Function需要輸入?yún)?shù),而Sub不用C.Sub可以用Call語句調(diào)用,而Function不行D.兩者并無不同3.全局變量必須在______中定義9A.標(biāo)準(zhǔn)模塊√B.任意模塊C.窗體模塊D.類模塊4.要想在過程調(diào)用后返回兩個(gè)結(jié)果,下面的過程定義語句合法的是______。11A.SubProc1(ByValn,Byvalm)B.SubProc1(ByValn,m)C.SubProc1(n,Byvalm)D.SubProc1(n,m)√5.使用Publicx聲明一個(gè)全局的變量時(shí),該語句應(yīng)放在______。9A.過程中B.窗體模塊的通用聲明段C.標(biāo)準(zhǔn)模塊的通用聲明段√D.窗體模塊或標(biāo)準(zhǔn)模塊的通用聲明段第三題、簡單程序(共15分,每項(xiàng)1.5分)1.以下程序的輸出結(jié)果是______。2OptionBase0PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)j=1ForI=3To0Step-1s=s+a(I)*jj=j*10NextIPrintsEndSubA.4321B.12C.34D.1234√2.寫出下列程序的運(yùn)行結(jié)果,并說明函數(shù)的功能。4PublicFunctionf(m%,n%)DoWhilem<>nDoWhilem>nm=m–nLoopDoWhilen>mn=n–mLoopLoopf=mEndFunctionPrivateSubCommand1_Click()printf(24,18)EndSubA.6√B.8C.10D.123.單擊命令按鈕之后,下列程序代碼的執(zhí)行結(jié)果為。12PrivateFunctionp(nAsInteger)ForI=1TonSum=Sum+INextIp=SumEndFunctionPrivateSubCommand1_Click()s=p(1)+p(2)+p(3)+p(4)Prints;EndSubA.10B.20√C.24D.284.寫出如下程序運(yùn)行結(jié)果。3Functionf(mAsInteger)AsIntegerb=1StaticcAsIntegerb=b+1c=c+1f=m*b*cEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=2sum=0ForI=1To3sum=sum+f(a)NextIprintsumEndSubA.12B.16C.20D.24√5.寫出下面過程運(yùn)行后顯示的結(jié)果。3PublicSuba(nAsInteger,ByValmAsInteger)x=xMod10y=y\10EndSubPrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=4y=12Calla(x,y)Printx+yEndSubA.8B.16√C.12.4D.5.2第二卷主觀題填空題(共30分,每項(xiàng)2分。注意:填兩個(gè)空的題的時(shí)候,要按照從上至下,從左至右的順序添入答題卡!)1.函數(shù)odd用于判斷一個(gè)數(shù)是否是奇數(shù)。當(dāng)單擊命令按鈕時(shí),產(chǎn)生[1,9]之間的隨機(jī)數(shù),調(diào)用odd過程,判斷該數(shù)是否為奇數(shù)。如果是則顯示“奇數(shù)”,否則顯示“偶數(shù)”。14PrivateSubodd(nAsInteger)Printn;Ifn/2<>n\2ThenPrint"奇數(shù)"ElsePrint“偶數(shù)”EndIfEndSubPrivateSubCommand1_Click()DimxAsIntegerRandomizex=Int(Rnd*9+1)oddxEndSub2.編寫一個(gè)求最大公約數(shù)的函數(shù),并調(diào)用該函數(shù),程序如下:16Functiongcd(ByValaAsInteger,ByValbAsInteger)AsIntegerDimreasintegerDoWhileb<>0re=amodba=bb=reLoopgcd=aEndFunctionSubCommand1_Click()DimxAsInteger,yAsInteger,zAsintegerX=96Y=64Z=gcd(x,y)Print“結(jié)果=”;zEndSub3.在窗體中添加一個(gè)名稱為Text1的文本框,兩個(gè)名稱分別為Command1和Command2的命令按鈕。要求程序運(yùn)行后,用戶向文本框中輸入字母,單擊Command1按鈕則文本框中字母全部轉(zhuǎn)換為大寫;然后單擊Command2按鈕則文本框中字母全部轉(zhuǎn)換為小寫。請將下列程序補(bǔ)充完整。PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)Text1.tag=Text1.TextEndSubPrivateSubCommand1_Click()Text1.Text=Ucase(Text1.Text)EndSubPrivateSubCommand2_click()Text1.Text=Lcase(Text1.Tag)EndSub第七章常用控件第一題:是非題(共10分,每項(xiàng)1分)1.框架好比一個(gè)容器。3A.對√B.錯(cuò)2.ActiveX部件是可以重復(fù)使用的編程代碼和數(shù)據(jù)。7A.對√B.錯(cuò)3.ActiveX技術(shù)是一種共享程序數(shù)據(jù)和功能的技術(shù)。7A.對√B.錯(cuò)4.Timer是時(shí)鐘控件的唯一事件。6A.對√B.錯(cuò)5.單選項(xiàng)和復(fù)選框能夠響應(yīng)Click事件,但通常不需要編寫事件過程。6A.對√B.錯(cuò)6.GotFocus事件通常用來在焦點(diǎn)移離時(shí)進(jìn)行驗(yàn)證和確認(rèn)。4A.對√B.錯(cuò)7.Style為0時(shí)組合框稱為簡單組合框。5A.對B.錯(cuò)√8.當(dāng)窗體上有多個(gè)控件時(shí),一般只有一個(gè)控件是當(dāng)前控件,對控件的所有操作都是針對當(dāng)前控件進(jìn)行的。3A.對√B.錯(cuò)第二題、單選題(共45分,每項(xiàng)1.5分)1.下列控件中,沒有Caption屬性的是___。4A.框架B.列表框√C.復(fù)選框D.單選按鈕2.假如列表框(List1)有4個(gè)數(shù)據(jù)項(xiàng),那么把數(shù)據(jù)項(xiàng)“China”添加到列表框的最后,應(yīng)使用___語句。6A.List1.AddItem3,”China”B.List1.AddItem”China”,List1.ListCount-1C.List1.AddItem”China”,3D.List1.AddItem”China”,List1.ListCount√3.如果列表框(List1)中只有一個(gè)項(xiàng)目被用戶選定,則執(zhí)行Debug.PrintList1Selected(List1.ListIndex)語句的結(jié)果是___。14A.在Debug窗口輸出被選定的項(xiàng)目的索引值B.在Debug窗口輸出True√C.在窗體上輸出被選定的項(xiàng)目的索引值D.在窗體上輸出True4.引用列表框(List1)最后一個(gè)數(shù)據(jù)項(xiàng)應(yīng)使用___。8A.List1.List(List1.ListCount)B.List1.List(List1.ListCount-1)√C.List1.List(ListCount)D.List1.List(ListCount-l)5.組合框的Style屬性決定組合框的類型和行為,它的值為2時(shí),其顯示形式和功能是___。10A.下拉列表框,并允許用戶輸入不屬于列表框中的選項(xiàng)B.簡單組合框,并允許用戶輸入不屬于列表框中的選項(xiàng)C.下拉列表框,不允許用戶輸入不屬于列表框中的選項(xiàng)√D.簡單組合框,不允許用戶輸入不屬于列表框中的選項(xiàng)6.如果每0.5秒產(chǎn)生一個(gè)計(jì)時(shí)器事件,那么Interval屬性值應(yīng)設(shè)為___。5A.5B.50C.500√D.0.57.用來設(shè)置粗體字的屬性是。7A.Font1ItalicB.FontNameC.FontBold√D.FontSize8.為了防止用戶隨意將光標(biāo)置于控件之上,應(yīng)該進(jìn)行___設(shè)置。8A.將控件的TabIndex屬性設(shè)置為0B.將控件的TabStop屬性設(shè)置為TrueC.將控件的TabStop屬性設(shè)置為False√D.將控件的Enabled屬性設(shè)置為False9.復(fù)選框的Value屬性為1時(shí),表示___。14A.復(fù)選框未被選中B.復(fù)選框被選中√C.復(fù)選框內(nèi)有灰色的勾D.復(fù)選框操作方式“錯(cuò)誤”10.如果列表框(List1)中沒有被選定的項(xiàng)目,則執(zhí)行List1.RemoveItemList1.ListIndex語句的結(jié)果是___。8A.移去第一項(xiàng)B.移去最后一項(xiàng)C.移去最后加入列表的一項(xiàng)D.以上都不對√11.在下列說法中,正確的是___。6A.通過適當(dāng)?shù)脑O(shè)置,可以在程序運(yùn)行期間,讓時(shí)鐘控件顯示在窗體上B.在列表框中不能進(jìn)行多項(xiàng)選擇C.在列表框中能夠?qū)㈨?xiàng)目按字母順序從人到小排列D.框架也有Click和DblClick事件√12.將數(shù)據(jù)項(xiàng)“China”添加到列表框(List)中成為第一項(xiàng)應(yīng)使用___語句。8A.List1.AddItem”China”,0√B.List1.AddItem”China”,lC.List1.AddItem0,”China”D.List1.AddItem1,”China”13.不論何種控件,共同具有的是______屬性。7A.TextB.Name√C.BackColorD.Caption14.計(jì)時(shí)器的時(shí)間間隔是___。10A.以毫秒計(jì)√B.以分計(jì)C.以秒計(jì)D.以小時(shí)計(jì)15.框架內(nèi)的所有控件是___。5A.隨框架一起移動、顯示、消失和屏蔽√B.不隨框架一起移動、顯示、消失和屏蔽C.僅隨框架一起移動D.僅隨框架一起顯示和消失16.已編譯的控件部件的擴(kuò)展名是___。9A..OCX√B..VBPC..EXED..CTL第三題、簡單程序(共15分,每項(xiàng)1.5分)1.下列程序段的運(yùn)行結(jié)果。5PrivateSubForm_Load()ListCityName.AddItem”北京”ListCityName.AddItem”上?！盠istCityName.AddItem”廣州”EndSubA.在文本框中增加“北京”、“上?！焙汀皬V州”三個(gè)初始條目B.在組合框中增加“北京”、“上海”和“廣州”三個(gè)初始條目C.在列表框中把“北京”、“上海”和“廣州”三個(gè)初始條目清除D.在列表框中增加“北京”、“上海”和“廣州”三個(gè)初始條目√第二卷主觀題填空題(共30分,每項(xiàng)2分。注意:填兩個(gè)空的題的時(shí)候,要按照從上至下,從左至右的順序添入答題卡!)1.下列程序允許用戶按Enter鍵將一個(gè)組合框(cboComputer)中沒有的項(xiàng)目添加到組合框中。15SubcboComputer_KeyPress(KeyAsciiAsInteger)DimflagAsBooleanIfKeyAscii=13Thenflag=FalseForI=0TocboComputer.ListCount-1IfcboComputer.text=cboComputer.list(I)ThenFlag=TrueExitForEndIfNextIfNotflagThenCboComputer.AddItemcboComputer.textElseMsgBox(”組合框中已有該項(xiàng)目!”)EndIfEndIfEndSub2.在窗體上畫一個(gè)名稱為Combo1的組合框,畫兩個(gè)名稱分別Label1和Label2及Caption屬性分別為"城市名稱"和空白的標(biāo)簽。程序運(yùn)行后,當(dāng)在組合框中輸入一個(gè)新項(xiàng)后按回車鍵(ASCII碼為13)時(shí),如果輸入的項(xiàng)在組合框的列表中不存在,則自動添加到組合框的列表中,并在Label2中給出提示"已成功添加輸入項(xiàng)"如圖所示;如果存在,則在Label2中給出提示"輸入項(xiàng)已在組合框中"。請將程序充完整。PrivateSubCombo1_KeyPress(KeyAsciiAsinteger)IfKeyAscii=13ThenForI=0ToCombo1.ListCount-1IfCombo1.Text=Combo1.List(I)ThenLabel2.Caption="輸入項(xiàng)己在組合框中"ExitSubEndlfNextILabel2.Caption="已成功添加輸入項(xiàng)"Combo1.AddItemCombo1.TextEndlfEndSub第八章程序界面設(shè)計(jì)第一題:是非題(共10分,每項(xiàng)1分)1.在一個(gè)窗體代碼中不能使用Unload語句來卸載本窗體,即一個(gè)窗體只能由其他的窗體卸載。4A.對B.錯(cuò)√2.窗體的Enabled屬性設(shè)為False時(shí),窗體題的按鈕、文本框控件就不會對用戶的操作做出反應(yīng)。A.對√B.錯(cuò)3.菜單項(xiàng)的快捷鍵不能任意設(shè)置。6A.對√B.錯(cuò)4.每個(gè)菜單項(xiàng)都是一個(gè)控件,與其他控件一樣也有自己的屬性和事件。7A.對√B.錯(cuò)5.菜單選項(xiàng)“Enabled”屬性與“Visible”屬性是相同的。5A.對B.錯(cuò)√6.窗體的Enabled屬性設(shè)為False時(shí),窗體題的按鈕、文本框控件就不會對用戶的操作做出反應(yīng)。2A.對√B.錯(cuò)7.定義菜單項(xiàng)時(shí),可以不設(shè)置分隔線的菜單項(xiàng)控件名稱。7A.對B.錯(cuò)√8.普通窗體與子窗體建立的方法是相同的,不同之處是子窗體的MDIChild屬性設(shè)置為False,而普通窗體的MDIChild屬性設(shè)置為True。2A.對√B.錯(cuò)9.除了Click事件之外,菜單項(xiàng)還能響應(yīng)其他的事件。5A.對B.錯(cuò)√10.窗體的Moveabel屬性設(shè)為False時(shí),不能改變窗體的大小,只能移動窗體。3A.對B.錯(cuò)√11.顯示和隱藏窗體比載入和卸載窗體要快得多。4A.對√B.錯(cuò)12.用戶在“文件打開”通用對話框中選擇一個(gè)文件時(shí),對話框控件的FileName屬性含有所選文件名字。4A.對√B.錯(cuò)第二題、單選題(共45分,每項(xiàng)1.5分)1.為減少語句的使用,將一個(gè)窗體加載到內(nèi)存中并顯示出來,所使用的語句或方法是______。6A.LoadB.UnloadC.Show√D.Hide2.下列不能打開菜單編輯器的操作是______。6A.按Ctrl+EB.單擊工具欄中的“菜單編輯器”按鈕C.執(zhí)行“工具”菜單中的“菜單編輯器”命令D.按Shift+Alt+M√3.利用菜單編輯器設(shè)計(jì)菜單時(shí),如果要在菜單中加入一個(gè)分隔符,菜單分隔符的標(biāo)題必須設(shè)置為______。10A.+B.-√C.*D./4.窗體從加載到顯示,依次引發(fā)的事件有。8A.Load、Initialize、ActivateB.Initialize、Activate、loadC.Load、Activate、InitializeD.Initialize、Load、Activate√5.VB工程中的每一個(gè)窗體都是獨(dú)立的______。12A.類B.對象√C.數(shù)據(jù)庫D.方法6.當(dāng)一個(gè)窗體被卸載時(shí),最后引發(fā)的一個(gè)事件是。14A.DeactivateB.QueryUnloadC.UnloadD.terminate√7.當(dāng)一個(gè)工程含有多個(gè)窗體時(shí),其中的啟動窗體是______。11A.啟動VB時(shí)建立的窗體B.第一個(gè)添加的窗體C.最后一個(gè)添加的窗體D.在“工程屬性”對話框中指定的窗體?！?.假定有一個(gè)菜單項(xiàng),名為MenuItem,為了在運(yùn)行時(shí)使該菜單項(xiàng)失效(變灰),應(yīng)使用的語句為______。9A.MenuItem.Enabled=False√B.MenuItem.Enabled=TrueC.MenuItem.Visible=TrueD.Menultem.Visible=False9.在VB中要將一個(gè)窗體裝載到內(nèi)存中進(jìn)行預(yù)處理,但不顯示,應(yīng)該使用語句______。7A.Form.ShowB.Form.Load√C.Form.HideD.Form.Unload10.下列說法錯(cuò)誤的是______。8A.在多重窗體中一定要有一個(gè)窗體為啟動窗體。B.在多重窗體中,如果沒有指定啟動窗體,則默認(rèn)首先設(shè)計(jì)的窗體為啟動窗體。C.啟動窗體能在運(yùn)行程序時(shí)自動顯示出來,其它窗體有些也能自動顯示出來。√D.啟動窗體通過“工程”菜單中的“工程屬性”命令來指定。11.如果要使一個(gè)窗體從屏幕上和內(nèi)存中完全消失,所要使用的語句是______。10A.HideB.ShowC.LoadD.Unload√12.下列關(guān)于通用對話的描述錯(cuò)誤的是______。7A.CommandDialog1.ShowFont顯示字體對話框。B.在打開或另存為對話框中,用戶選擇的文件名和路徑可以經(jīng)FileName屬性返回。C.在打開或另存為對話框中,用戶選擇的文件名和路徑可以經(jīng)FileTitle屬性返回?！藾.利用通用對話框可顯示和制作幫助對話框。13.下面關(guān)于打印對話框?qū)傩缘恼f法錯(cuò)誤的是______。8A.Copies屬性指定打印的份數(shù)。B.HDC屬性指定分配給打印機(jī)的句柄,用來識別對象的設(shè)備環(huán)境。C.FromPage屬性指定要打印文檔的頁范圍。使用該屬性時(shí)必須把Flags屬性設(shè)置為1?！藾.Max和Min屬性用來顯示FromPage和ToPage的范圍,其中Min指定允許的起始頁碼,Max指定允許的最后頁碼。第三題、簡單程序(共15分,每項(xiàng)1.5分)14.下列程序段的運(yùn)行結(jié)果。1PrivateSubForm_Click()DimMsgHideMsg=”選擇‘確定’按鈕”MsgBoxMsgShowEndSubA.隱藏窗體,按‘確定’按鈕使窗體重現(xiàn)√B.隱藏窗體C.顯示窗體,按‘確定’按鈕使窗體隱藏D.顯示窗體15.下列程序段的運(yùn)行結(jié)果。3PrivateSubForm_Activate()IfScaleWidth>ScaleHeightThenCircle(ScaleWidth/2,ScaleHeight/2),ScaleWidth/2,,,,ScaleHeight/ScaleWidthElseCircle(ScaleWidth/2,ScaleHeight/2),ScaleHeight/2,,,,ScaleHeight/ScaleWidthEndifEndSubA.在窗體上繪制一個(gè)矩形B.在窗體上繪制一個(gè)正方形C.繪制一個(gè)窗體能容納得下的最大橢圓√D.繪制一個(gè)窗體能容納的下的最大圓第二卷主觀題填空題(共30分,每項(xiàng)2分。注意:填兩個(gè)空的題的時(shí)候,要按照從上至下,從左至右的順序添入答題卡!)1.窗體中有一公共對話框Comdialog1和一個(gè)命令按鈕Command1,當(dāng)單擊按鈕時(shí)打開顏色對話框。請將程序補(bǔ)充完整。8PrivateSubCommand1_Click()ComDialog1.ShowColor或:Action=3EndSub2.在窗體frmform1中添加一個(gè)通用對話框控件CommonDialog1,運(yùn)行時(shí),首先使用CommonDialog1打開一個(gè)標(biāo)準(zhǔn)的顏色對話框,用于設(shè)置對象顏色,其次使用CommonDialog1打開一標(biāo)準(zhǔn)的字體對話框用于設(shè)置對象的字體、字形和字號效果。11PrivateSubForm_Load()CommonDialog1.Action=3Text1.BackColor=CommonDialog1.ColorCommonDialog1.Flags=1???CommonDialog1=4Text1.FontName=CommonDialog1.FontNameText1.Font.Size=CommonDialog1.FontSizeEndSub3.假定建立了一個(gè)工程,該工程包括兩個(gè)窗體,其名稱(Name屬性)分別為Form1和Form2,啟動窗體為Form1。在Form1畫一個(gè)命令按鈕Command1,程序運(yùn)行后,要求當(dāng)單擊該命令按鈕時(shí),Form1窗體消失,顯示窗體Form2,請?jiān)趯⒊绦蜓a(bǔ)充完整。11PrivateSubCommand1_Click()unloadForm1Form2.showEndSub4.在窗體上畫一個(gè)通用對話框,名稱為CommanDialogl,畫一個(gè)命令按鈕,名稱為Commandl。程序運(yùn)行時(shí),單擊命令按鈕,在對話框內(nèi)只允許顯示文本文件,填上適當(dāng)?shù)膬?nèi)容,將程序補(bǔ)充完整。PrivateSubCommandl_Click()CommanDialogl.Filter="文本文件(*.txt)|*.txt"CommanDialogl.ShowOpenEndSub第九章文件第一題:是非題(共10分,每項(xiàng)1分)1.在VB中,可通過函數(shù)Shell調(diào)用DOS或Windows下的可執(zhí)行程序。A.對√B.錯(cuò)第二題、單選題(共45分,每項(xiàng)1.5分)1.下面關(guān)于隨機(jī)文件的描述,不正確的是______。10A.每條記錄的長度必須相同B.一個(gè)文件中記錄號不必惟一√C.文件的組織結(jié)構(gòu)比順序文件復(fù)雜D.可通過編程對文件中的某條記錄方便地修改2.要使用FSO對象模型,必須通過【工程】菜單中的______命令將FSO對象模型引入到當(dāng)前工程中。7A.部件B.工程屬性C.添加屬性D.引用√3.下面關(guān)于順序文件的描述,正確的是______。12A.每條記錄的長度必須相同B.可通過編程對文件中的某條記錄方便地修改C.數(shù)據(jù)以ASCII碼形式存放在文件中,所有可通過文本編輯軟件顯示√D.文件的組織結(jié)構(gòu)復(fù)雜4.在順序文件中______。11A.文件中按每條記錄的記錄號從小到大排序B.文件中按每條記錄的長度從小到大排序C.文件中按記錄的某關(guān)鍵數(shù)據(jù)項(xiàng)的從小到大的順序D.記錄是按寫入的先后順序存放的,讀出也是按寫入的先后順序讀出√5.按文件的組織方式分為______。6A.順序文件和隨機(jī)文件√B.文本文件和二進(jìn)制文件C.程序文件和數(shù)據(jù)文件D.只讀文件和讀寫文件6.在隨機(jī)文件中______。12A.文件中的內(nèi)容是通過隨機(jī)數(shù)產(chǎn)生的B.文件中的記錄號是通過隨機(jī)數(shù)產(chǎn)生的C.可對文件中的記錄根據(jù)記錄號隨機(jī)地讀寫√D.文件的每條記錄的長度是隨機(jī)的7.使用驅(qū)動器列表框的______屬性可以返回或設(shè)置磁盤驅(qū)動器的名稱。8A.ChDriveB.Drive√C.ListD.ListIndex8.下列控件中,不屬于文件系統(tǒng)控件的是______。6A.驅(qū)動器列表框B.文件列表框C.目錄列表框D.圖象列表框√9.文件列表框中用于設(shè)置或返回所選文件的文件名的屬性是______。7A.FilePathB.FileC.PathD.FileName√10.為了建立一個(gè)隨機(jī)文件,其中每一條記錄有多個(gè)不同數(shù)據(jù)類型的數(shù)據(jù)項(xiàng)組成,應(yīng)使用______。9A.自定義類型√B.數(shù)組C.字符串類型D.變體類型11.使用目錄列表框的______屬性可以返回或設(shè)置當(dāng)前工作目錄的完整路徑。5A.DriveB.ListIndexC.Path√D.Dir12.Print#1,STR1$中的Print是______。4A.順序文件的寫語句√B.在窗體上顯示的方法C.子程序名D.打印命令13.記錄長度最大可取的值是______字節(jié)。6A.32767√B.32768C.65535D.6553614.為了把一個(gè)記錄型變量的內(nèi)容寫入文件中指定的位置,所使用的語句的格式為______。6A.Get文件號,記錄號,變量名B.Get文件號,變量名,記錄號C.Put文件號,變量名,記錄號D.Put文件號,記錄號,變量名√15.在下面選項(xiàng)中,不能完成對順序文件的讀操作的是______。2A.LineInput#語句B.Input#語句C.Input()函數(shù)D.Get#語句√16.文件號最大可取的值為______。8A.255B.511√C.512D.25617.改變驅(qū)動器列表框的Drive屬性值將激活______事件。2A.Change√B.ScollC.KeyDownD.KeyUp18.FSO對象只能訪問______文件。2A.文本文件B.二進(jìn)制文件C.隨機(jī)文件D.磁盤文件√第三題、簡單程序(共15分,每項(xiàng)1.5分)1.下面的程序運(yùn)行后,將產(chǎn)生______的結(jié)果。6PrivateSubForm_load()DimStrAsString,AnumAsIntegerOpen"D:\Myfile.dat"ForOutputAs#1str1="ABCDEFG"str2=12345Print#1,Str,AnumWrite#1,Str,AnumClose#1EndSubA.建立一個(gè)"D:\Myfile.dat"的文本文件B.建立一個(gè)"D:\Myfile.dat"的文本文件,并寫入一行數(shù)據(jù),還在窗體上顯示一行數(shù)據(jù)C.建立一個(gè)"D:\Myfile.