第一次月考后間周考試

PAGE1高三年級(jí)計(jì)算機(jī)專業(yè)VB試題（四）一、填空題：引用數(shù)組元素的方法是________。在引用數(shù)組元素時(shí)，________、________、和________必須與聲明數(shù)組時(shí)一致。在VisualBasic中，過(guò)程分為________過(guò)程和________過(guò)程。使用________聲明在所有模塊中都可以使用的過(guò)程；使用________聲明只能在包含該聲明的模塊中使用的過(guò)程。在使用Static關(guān)鍵字聲明過(guò)程時(shí)表示在調(diào)用Sub過(guò)程之間________。________語(yǔ)句可以使程序在一定條件下從一個(gè)Sub過(guò)程中退出，并且在Sub過(guò)程的任何位置都可以使用。若要建立通用過(guò)程，打開代碼編輯器窗口，從________列表框中選擇________選項(xiàng)。事件過(guò)程分為________過(guò)程和________過(guò)程；兩者都使用________進(jìn)行聲明。建立事件過(guò)程主要有三種方法：________、________、________。10、若要提前退出Function過(guò)程，可在Function過(guò)程內(nèi)適當(dāng)位置加入________語(yǔ)句。11、若要從Function過(guò)程返回一個(gè)值，可將這個(gè)值賦給________。12、聲明過(guò)程時(shí)參數(shù)列表格式為：，[Optional][Byval][ByRef][ParamArray]變量名[()][As數(shù)據(jù)類型名稱]。其中Optional表示參數(shù)是可選的，ByVal表示________，ByRef表示________，ParamArray表示________，“（）”表示________，As子句用來(lái)________，多個(gè)參數(shù)時(shí)，參數(shù)之間用________進(jìn)行分隔。13、在VisualBasic中，調(diào)用Sub過(guò)程有兩種方式________和________。14、VisualBasic程序中的錯(cuò)誤可分為________、________和________。三種類型。15、編譯錯(cuò)誤也稱為________，這種錯(cuò)誤是由于程序中的語(yǔ)句________而引起的。16、在程序出現(xiàn)“除數(shù)為零”會(huì)導(dǎo)致________錯(cuò)誤。17、在VisualBasic中，使用________語(yǔ)句激活錯(cuò)誤捕捉。18、________語(yǔ)句用于設(shè)置錯(cuò)誤陷阱。19、窗體的Caption屬性用于設(shè)置________。20、窗體的BackColor屬性用于設(shè)置________。21、窗體的ForeColor屬性用于設(shè)置________。22、窗體的FontName屬性用于設(shè)置________。23、窗體的FontSize屬性用于設(shè)置________。24、窗體的CurrentX屬性用于設(shè)置________，窗體的CurrentY屬性用于設(shè)置________。25、窗體的ScaleHeight屬性用于返回________，窗體的Scalewidth屬性用于返回________。26、窗體的Width和Height屬性用于設(shè)置________。27、窗體的ScaleWidth屬性與Width屬性的區(qū)別是前者表示________，后者表示________。28、所有控件都具有的共同屬性是________屬性。29、控件和窗體的Name屬性不能在________期間設(shè)置，只能通過(guò)________設(shè)置。30、窗體的KeyPreview屬性是用來(lái)返回或設(shè)置一個(gè)值，以決定________，語(yǔ)法格式為________。二、選擇題：用print方法在Form1窗體中顯示出4個(gè)#號(hào)的正確代碼是（）Debug.print"####"Print####Form1_print####Form1.print"####"print方法可以再（）對(duì)象上輸出數(shù)據(jù)桌面標(biāo)題欄窗體狀態(tài)欄代碼窗口的注釋行使用的符號(hào)標(biāo)注是（）單引號(hào)雙引號(hào)斜線星形號(hào)如果A為整數(shù)且|A|>=10，則顯示"OK",否則顯示"Error",表示這個(gè)條件的單行格式IF語(yǔ)句是（）ifint(A)=Aandsqr(A)=10thenprint"OK"Elseprint"Error"iffix(A)=Aandabs(A)=10thenprint"OK"Elseprint"Error"ifint(A)=Aand(A>=10,A<=-10)=10thenprint"OK"Elseprint"Error"iffix(A)=AandA>=10andA<=-10=10thenprint"OK"Elseprint"Error"在窗體上畫一個(gè)命令按鈕Command1和一個(gè)文本框Text1，然后編寫如下程序、PrivateSubCommand1_Click()iif(a>0anda<=10,"龍門石窟","")_iif(a>10anda<=20,"少林寺","")iif(a>20anda<=30,"綠博園","")EndSub程序運(yùn)行后，如果從鍵盤輸入5，則在文本框中顯示的內(nèi)容是（）旅游景點(diǎn)：龍門石窟旅游景點(diǎn)：龍門石窟綠博園旅游景點(diǎn)：綠博園旅游景點(diǎn)：少林寺設(shè)a=6，則執(zhí)行x=IIF（a>5,-1,0)后，x的值是（）A、5B、6C、0D、-1關(guān)于多行結(jié)構(gòu)條件語(yǔ)句的執(zhí)行過(guò)程，正確的說(shuō)法是（）各個(gè)條件所對(duì)應(yīng)的語(yǔ)句塊中，一定有一個(gè)語(yǔ)句塊被執(zhí)行找到條件為True的第一個(gè)入口，便開始執(zhí)行其后的所有語(yǔ)句塊若有多個(gè)條件為True，則他們所對(duì)應(yīng)的語(yǔ)句塊都被執(zhí)行多行選擇結(jié)構(gòu)中的語(yǔ)句塊，有可能任何一個(gè)語(yǔ)句塊都不被執(zhí)行在VB中，下列控制結(jié)構(gòu)不能嵌套的是（）選擇控制結(jié)構(gòu)多分支控制結(jié)構(gòu)For循環(huán)控制結(jié)構(gòu)Do循環(huán)控制結(jié)構(gòu)窗體有一個(gè)命令按鈕，命令按鈕的單擊事件如下：PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4,5,6,7)Fork=2To5s=s+a(k)NextPrintsEndSub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是（）A、10B、14C、18D、120下列程序段的執(zhí)行結(jié)果是（）PrivateSubForm_Load()Dima(3,3)Form=1To3Forn=1To3Ifn=mOrn=3-m+1Thena(m,n)=0Elsea(m,n)=1EndIfNextnNextmForm=1To3Forn=1To3Printa(m,n),NextnPrintNextmEndSubA、100B、111010111001111C、000D、010000101000010、下列For……next語(yǔ)句的說(shuō)法正確的是（）循環(huán)變量、初值、終值和步長(zhǎng)都必須為數(shù)值型Step后的步長(zhǎng)只為正數(shù)初值必須小于終值初值必須大于中值設(shè)計(jì)了如下程序，用于計(jì)算并輸出7！（階乘）：PrivateSubCommand1_Click()t=0Fork=7To2Step-1t=t*kNextPrinttEndSub執(zhí)行程序時(shí)，發(fā)現(xiàn)結(jié)果是錯(cuò)誤的。下面的修改方案中能夠得到正確結(jié)果的是（）把t=0改為t=1把fork=7to2strp-1改為fork=7to2step1把fork=7to2step-1改為fork=1to7把next改為nextk在窗體上畫兩個(gè)文本框Text1和Text2，一個(gè)命令按鈕Command1，請(qǐng)閱讀下程序段：PrivateSubCommand1_Click()x=0DoUntilx>=30x=(x+2)*(x+4)n=n+1Looptext1.Text=Str(n)text2.Text=Str(x)EndSub運(yùn)行程序后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別為（）A、1和0B、2和240C、2和120D、4和168使用Redimpreserve語(yǔ)句，可以（）改變數(shù)組最后一維的大小改變第一維的大小改變數(shù)組所有維的大小改變數(shù)組維數(shù)和所有維的大小語(yǔ)句DimArr（-3to5)asinteger定義的數(shù)組的元素個(gè)數(shù)是（）A、6B、7C、8D、9語(yǔ)句DimArr（-3to5,-2to2)定義的數(shù)組的元素的個(gè)數(shù)是（）A、20B、12C、15D、24設(shè)有數(shù)組定義語(yǔ)句：Dim（5）asinteger，并設(shè)list1為列表框文件。下列給數(shù)組元素賦值的語(yǔ)句錯(cuò)誤的是（）a（4）=3a(4)=inputbox("請(qǐng)輸入一個(gè)數(shù)")a=(4)=list1.listindexa=array(1,2,3,4,5,6)下列哪個(gè)聲明的數(shù)組不是動(dòng)態(tài)數(shù)組（）dimx()Dimx(8)Redimx(8)Redimpreservex(8)使用數(shù)組聲明語(yǔ)句DimY（1to12）asinteger后，以下說(shuō)法正確的是（）Y數(shù)組中的所有元素均為0Y數(shù)組中的所有元素值不確定Y數(shù)組中的所有元素均為Empty運(yùn)行EraseY后，Y數(shù)組中的所有元素值均為empty用復(fù)制、粘貼的方法建立了一個(gè)命令按鈕command1，以下說(shuō)法錯(cuò)誤的是（）該控件數(shù)組的所有Caption屬性均為command1在代碼中訪問(wèn)其中的命令按鈕只需使用名稱command1該控件數(shù)組的大小相同該命令按鈕數(shù)組共享共同的事件過(guò)程三、判斷題：1、使用Array函數(shù)給數(shù)組賦初值時(shí)，數(shù)組變量只能時(shí)Variant類型。（）2、把Erase語(yǔ)句用于定長(zhǎng)數(shù)組時(shí)，不釋放數(shù)組的所有空間，只是清除數(shù)組的內(nèi)容。（）3、在VisualBasic中，所有的可執(zhí)行代碼都必須屬于某個(gè)過(guò)程。（）4、Sub過(guò)程可以放在標(biāo)準(zhǔn)模塊或窗體模塊中，過(guò)程的定義時(shí)平行的，不能再過(guò)程中定義其他過(guò)程。（）5、過(guò)程中的語(yǔ)句塊時(shí)完成特定任務(wù)編寫的程序，可以沒(méi)有一行，也可以沒(méi)有許多行。（）6、因?yàn)槌绦虼a中有If而無(wú)對(duì)應(yīng)的EndIf或者括號(hào)不匹配等引起的錯(cuò)誤時(shí)實(shí)時(shí)錯(cuò)誤。（）7、在使用VisualBasic開發(fā)軟件過(guò)程中，對(duì)于不可避免的錯(cuò)誤或者還沒(méi)有發(fā)現(xiàn)的錯(cuò)誤，可以利用調(diào)試工具對(duì)程序的運(yùn)行進(jìn)行跟蹤，找出并改成導(dǎo)致錯(cuò)誤的語(yǔ)句。（）8、在使用VisualBasic開發(fā)軟件過(guò)程中，對(duì)于已發(fā)現(xiàn)的錯(cuò)誤，可以設(shè)置錯(cuò)誤捕捉語(yǔ)句面，對(duì)錯(cuò)誤進(jìn)行抓獲和處理。（）9、控件的所有屬性值即可在設(shè)計(jì)階段通過(guò)屬性窗口進(jìn)行設(shè)置，也可以通過(guò)代碼來(lái)設(shè)置。（）10、在”窗體名.可以Keypreview=Boolean”語(yǔ)句中，Boolean為Ture時(shí)，窗體先接收鍵盤事件，然后時(shí)活動(dòng)控件接收事件；Boolean為False時(shí)，則活動(dòng)控件接收鍵盤事件，而窗體不接收。（）四、程序分析１、下面程序的運(yùn)行結(jié)果是什么？DimxAsIntegerDimiAsIntegerx=100Fori=1To100Step5x=x-i/6NextiPrintx２、在窗體放置一個(gè)命令按鈕command1，并編寫下列單擊事件的程序OptionBase1PrivateSubCommand1_Click()d=0c=6x=Array(1,2,3,4,5,6,7,8,9)Fori=1To6Ifx(i)>cThend=d+x(i)c=x(i)Elsed=d-cEndIfNextiPrintdEndSub程序運(yùn)行后，單擊命令按鈕，則在窗體上輸出的內(nèi)容是什么？３、執(zhí)行下列程序段后輸出結(jié)果是什么？PrivateSubForm_Load()n=0Fori=1To20Step5n=n+1NextiPrintnEndSub單擊命令按鈕，程序運(yùn)行后，在文本框顯式的值是什么？４、在窗體有文本框text1和命令按鈕command1，并有如下過(guò)程PrivateSubForm_Load()DimiAsInteger,nAsIntegerFor