VB二級歷年真題2005

2010年3月計(jì)算機(jī)等級考試二級VB試試題一、選擇題(每小題2分，共70分)下列各題a)、b)、c)、d)四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)是正確的。請將正確選項(xiàng)填涂在答題卡相應(yīng)位置上，答在試卷上不得分。(1)下列敘述中正確的是a)對長度為n的有序鏈表進(jìn)行查找，最壞情況下需要的比較次數(shù)為nb)對長度為n的有序鏈表進(jìn)行對分查找，最壞情況下需要的比較次數(shù)為(n/2)c)對長度為n的有序鏈表進(jìn)行對分查找，最壞情況下需要的比較次數(shù)為(log2n)d)對長度為n的有序鏈表進(jìn)行對分查找，最壞情況下需要的比較次數(shù)為(nlog2n)(2)算法的時(shí)間復(fù)雜度是指a)算法的執(zhí)行時(shí)間b)算法所處理的數(shù)據(jù)量c)算法程序中的語句或指令條數(shù)d)算法在執(zhí)行過程中所需要的基本運(yùn)算次數(shù)(3)軟件按功能可以分為：應(yīng)用軟件、系統(tǒng)軟件和支撐軟件(或工具軟件)。下面屬于系統(tǒng)軟件的是a)編輯軟件b)操作系統(tǒng)c)教務(wù)管理系統(tǒng)d)瀏覽器(4)軟件(程序)調(diào)試的任務(wù)是a)診斷和改正程序中的錯(cuò)誤b)盡可能多地發(fā)現(xiàn)程序中的錯(cuò)誤c)發(fā)現(xiàn)并改正程序中的所有錯(cuò)誤d)確定程序中錯(cuò)誤的性質(zhì)(5)數(shù)據(jù)流程圖(dfd圖)是a)軟件概要設(shè)計(jì)的工具b)軟件詳細(xì)設(shè)計(jì)的工具c)結(jié)構(gòu)化方法的需求分析工具d)面向?qū)ο蠓椒ǖ男枨蠓治龉ぞ?6)軟件生命周期可分為定義階段，開發(fā)階段和維護(hù)階段。詳細(xì)設(shè)計(jì)屬于a)定義階段b)開發(fā)階段c)維護(hù)階段d)上述三個(gè)階段(7)數(shù)據(jù)庫管理系統(tǒng)中負(fù)責(zé)數(shù)據(jù)模式定義的語言是a)數(shù)據(jù)定義語言b)數(shù)據(jù)管理語言c)數(shù)據(jù)操縱語言d)數(shù)據(jù)控制語言(8)在學(xué)生管理的關(guān)系數(shù)據(jù)庫中，存取一個(gè)學(xué)生信息的數(shù)據(jù)單位是a)文件b)數(shù)據(jù)庫c)字段d)記錄(9)數(shù)據(jù)庫設(shè)計(jì)中，用e-r圖來描述信息結(jié)構(gòu)但不涉及信息在計(jì)算機(jī)中的表示，它屬于數(shù)據(jù)庫設(shè)計(jì)的a)需求分析階段b)邏輯設(shè)計(jì)階段c)概念設(shè)計(jì)階段d)物理設(shè)計(jì)階段(10)有兩個(gè)關(guān)系r和t如下：則由關(guān)系r得到關(guān)系t的操作是a)選擇b)投影c)交d)并(11)在vb集成環(huán)境中要結(jié)束一個(gè)正在運(yùn)行的工程，可單擊工具欄上的一個(gè)按鈕，這個(gè)按鈕是

(12)設(shè)x是整型變量，與函數(shù)ⅱf(x>0,-x,x)有相同結(jié)果的代數(shù)式是a)|x|b)-|x|c)xd)-x(13)設(shè)窗體文件中有下面的事件過程：privatesubcommand1_click()dimsa%=100printaendsub其中變量a和s的數(shù)據(jù)類型分別是a)整型，整型b)變體型，變體型c)整型，變體型d)變體型，整型(14)下面哪個(gè)屬性肯定不是框架控件的屬性a)textb)captionc)leftd)enabled(15)下面不能在信息框中輸出“vb”的是a)msgbox"vb"b)x=msgbox("vb")c)msgbox("vb")d)callmsgbox"vb"(16)窗體上有一個(gè)名稱為option1的單選按鈕數(shù)組，程序運(yùn)行時(shí)，當(dāng)單擊某個(gè)單選按鈕時(shí)，會調(diào)用下面的事件過程privatesuboption1_c1ick(indexasinteger)…endsub下面關(guān)于此過程的參數(shù)index的敘述中正確的是a)index為1表示單選按鈕被選中，為o表示未選中b)index的值可正可負(fù)c)index的值用來區(qū)分哪個(gè)單選按鈕被選中d)index表示數(shù)組中單選按鈕的數(shù)量(17)設(shè)窗體中有一個(gè)文本框text1，若在程序中執(zhí)行了text1.setfocus，則觸發(fā)a)text1的setfocus事件b)text1的gotfocus事件c)text1的lostfocus事件d)窗體的gotfocus事件(18)vb中有3個(gè)鍵盤事件：keypress、keydown、keyup，若光標(biāo)在text1文本框中，則每輸入一個(gè)字母a)這3個(gè)事件都會觸發(fā)b)只觸發(fā)keypress事件c)只觸發(fā)keydown、keyup事件d)不觸發(fā)其中任何一個(gè)事件(19)下面關(guān)于標(biāo)準(zhǔn)模塊的敘述中錯(cuò)誤的是a)標(biāo)準(zhǔn)模塊中可以聲明全局變量b)標(biāo)準(zhǔn)模塊中可以包含一個(gè)submain過程，但此過程不能被設(shè)置為啟動過程c)標(biāo)準(zhǔn)模塊中可以包含一些public過程d)一個(gè)工程中可以含有多個(gè)標(biāo)準(zhǔn)模塊(20)設(shè)窗體的名稱為form1，標(biāo)題為win，則窗體的mousedown事件過程的過程名是a)form1_mousedownb)win_mousedownc)form_mousedownd)mousedown_form1(21)下面正確使用動態(tài)數(shù)組的是a)dimarr()asinteger…redimarr(3,5)b)dimarr()asinteger…redimarr(50)asstringc)dimarr()…redimarr(50)asintegerd)dimarr(50)asinteger…redimarr(20)(22)下面是求最大公約數(shù)的函數(shù)的首部functiongcd(byvalxasinteger,byvalyasinteger)asinteger若要輸出8、12、16這3個(gè)數(shù)的最大公約數(shù)，下面正確的語句是a)printgcd(8,12)，gcd(12,16)，gcd(16,8)b)printgcd(8,12,16)c)printgcd(8)，gcd(12)，gcd(16)d)printgcd(8,gcd(12,16))(23)有下面的程序段，其功能是按圖1所示的規(guī)律輸出數(shù)據(jù)dima(3,5)asintegerfori=1to3forj=1to5a(i,j)=i+jprinta(i,j);nextprintnext若要按圖2所示的規(guī)律繼續(xù)輸出數(shù)據(jù)，則接在上述程序段后面的程序段應(yīng)該是a)fori=1to5forj=1to3printa(j,i);nextprintnextb)fori=1to3forj=1to5printa(j,i);nextprintnextc)forj=1to5fori=1to3printa(j,i);nextprintnextd)fori=1to5forj=1to3printa(i,j);nextprintnext(24)窗體上有一個(gè)text1文本框，一個(gè)command1命令按鈕，并有以下程序privatesubcommandl_click()dimniftext1.text<>"23456"thenn=n+1print"口令輸入錯(cuò)誤"&n&"次"endifendsub希望程序運(yùn)行時(shí)得到左圖所示的效果，即：輸入口令，單擊“確認(rèn)口令”命令按鈕，若輸入的口令不是“123456”，則在窗體上顯示輸入錯(cuò)誤口令的次數(shù)。但上面的程序?qū)嶋H顯示的是右圖所示的效果，程序需要修改。下面修改方案中正確的是a)在dimn語句的下面添加一句：n=ob)把print"口令輸入錯(cuò)誤"&n&"次"改為print"口令輸入錯(cuò)誤"+n+"次"c)把print"口令輸入錯(cuò)誤"&n&"次"改為print"口令輸入錯(cuò)誤"&str(n)&"次"d)把dimn改為staticn(25)要求當(dāng)鼠標(biāo)在圖片框p1中移動時(shí)，立即在圖片框中顯示鼠標(biāo)的位置坐標(biāo)。下面能正確實(shí)現(xiàn)上述功能的事件過程是a)privatesubp1_mousemove(buttonasinteger,shiftasinteger,xassingle,yassingle)printx,yendsubb)privatesubp1_mousedown(buttonasinteger,shiftasinteger,xassingle,yassingle)picture.printx,yendsubc)privatesubp1_mousemove(buttonasinteger,shiftasinteger,xassingle,yassingle)p1.printx,yendsubd)privatesubform_mousemove(buttonasinteger,shiftasinteger,xassingle,yassingle)p1.printx,yendsub(26)計(jì)算二的近似值的一個(gè)公式是。某人編寫下面的程序用此公式計(jì)算并輸出π的近似值：privatesubcomand1_click()pi=1sign=1n=20000fork=3tonsign=-sign/kpi=pi+sign/knextkprintpi*4endsub運(yùn)行后發(fā)現(xiàn)結(jié)果為3.22751，顯然，程序需要修改。下面修改方案中正確的是a)把fork=3ton改為fork=1tonb)把n=20000改為n=20000000c)把fork=3ton改為fork=3tonstep2d)把pi=1改為pi=0(27)下面程序計(jì)算并輸出的是privatesubcomand1_click()a=10s=0dos=s+a*a*aa=a-1loopuntila<=0printsendsuba)13+23+33+…+103的值b)10!+…+3!+2!+1!的值c)(1+2+3+…+10)3的值d)10個(gè)103的和(28)若在窗體模塊的聲明部分聲明了如下自定義類型和數(shù)組privatetypereccodeasintegercaptionasstringendtypedimarr(5)asrec則下面的輸出語句中正確的是a)printarr.code(2),arr.caption(2)b)printarr.code,arr.captionc)printarr(2).code,arr(2).captiond)printcode(2),caption(2)(29)設(shè)窗體上有一個(gè)通用對話框控件cd1，希望在執(zhí)行下面程序時(shí)，打開如圖所示的文件對話框privatesubcomand1_click()cd1.dialogtitle="打開文件"cd1.initdir="c:\"cd1.filter="所有文件|*.*|word文檔|*.doc|文本文件|*.txt"cd1.filename=""cd1.action=1ifcd1.filename=""thenprint"未打開文件"elseprint"要打開文件"&cd1.filenameendifendsub

但實(shí)際顯示的對話框中列出了c:\下的所有文件和文件夾，“文件類型”一欄中顯示的是“所有文件”。下面的修改方案中正確的是a)把cd1.action=1改為cd1.action=2b)把“cd1.filter=”后面字符串中的“所有文件”改為“文本文件”c)在語句cd1.action=1的前面添加：cd1.filterindex=3d)把cd1.filename=""改為cd1.filename="文本文件"(30)下面程序運(yùn)行時(shí)，若輸入395，則輸出結(jié)果是privatesubcomand1_click()dimx%x=inputbox("請輸入一個(gè)3位整數(shù)")printxmod10,x\100,(xmod100)\10endsuba)395b)539c)593d)359(31)窗體上有l(wèi)ist1、list2兩個(gè)列表框，list1中有若干列表項(xiàng)(見圖)，并有下面的程序：privatesubcomand1_click()fork=list1.listcount-1to0step-1iflist1.selected(k)thenlist2.additemlist1.list(k)list1.removeitemkendifnextkendsub程序運(yùn)行時(shí)，按照圖示在list1中選中2個(gè)列表項(xiàng)，然后單擊commandl命令按鈕，則產(chǎn)生的結(jié)果是a)在list2中插入了“外語”、“物理”兩項(xiàng)b)在list1中刪除了“外語”、“物理”兩項(xiàng)c)同時(shí)產(chǎn)生a)和b)的結(jié)果d)把list1中最后1個(gè)列表項(xiàng)刪除并插入到list2中(32)設(shè)工程中有2個(gè)窗體：form1、form2，form1為啟動窗體。form2中有菜單。其結(jié)構(gòu)如表。要求在程序運(yùn)行時(shí)，在form1的文本框text1中輸入口令并按回車鍵(回車鍵的ascii碼為13)后，隱藏form1，顯示form2。若口令為“teacher”，所有菜單項(xiàng)都可見;否則看不到“成績錄入”菜單項(xiàng)。為此，某人在form1窗體文件中編寫如下程序：privatesubtext1_keypress(keyasciiasinteger)ifkeyascii=13theniftext1.text="teacher"thenform2.input.visible=trueelseform2.input.visible=falseendifendifform1.hideform2.showendsub程序運(yùn)行時(shí)發(fā)現(xiàn)剛輸入口令時(shí)就隱藏了form1，顯示了form2，程序需要修改。下面修改方案中正確的是a)把form1中text1文本框及相關(guān)程序放到form2窗體中b)把form1.hide、form2.show兩行移到2個(gè)endif之間c)把ifkeyascii=13then改為ifkeyascii="teaeher"thend)把2個(gè)form2.input.visible中的“form2”刪去(33)某人編寫了下面的程序，希望能把text1文本框中的內(nèi)容寫到out.txt文件中privatesubcomand1_click()open"out.txt"foroutputas#2print"text1"close#2endsub調(diào)試時(shí)發(fā)現(xiàn)沒有達(dá)到目的，為實(shí)現(xiàn)上述目的，應(yīng)做的修改是a)把print"text1"改為print#2,text1b)把print"text1"改為printtext1c)把print"text1"改為write"text1"d)把所有#2改為#1(34)窗體上有一個(gè)名為command1的命令按鈕，并有下面的程序：privatesubcomand1_click()dimarr(5)asintegerfork=1to5arr(k)=knextgarr()fork=1to5printarr(k)nextkendsubsubprog(a()asinteger)n=ubound(a)fori=nto2step-1forj=1ton-1ifa(j)t=a(j):a(j)=a(j+1):a(j+1)=tendifnextjnextiendsub程序運(yùn)行時(shí)，單擊命令按鈕后顯示的是a)12345b)54321c)01234d)43210(35)下面程序運(yùn)行時(shí)，若輸入“visualbasicprogramming”，則在窗體上輸出的是privatesubcomand1_click()dimcount(25)asinteger,chasstringch=ucase(inputbox("請輸入字母字符串"))fork=1tolen(ch)n=asc(mid(ch,k,1))-asc("a")ifn>=0thencount(n)=count(n)+1endifnextkm=count(0)fork=1to25ifmm=count(k)endifnextkprintmendsuba)0b)1c)2d)3二、填空題(1)一個(gè)隊(duì)列的初始狀態(tài)為空?，F(xiàn)將元素a,b,c,d,e,f,5,4,3,2,1依次入隊(duì)，然后再依次退隊(duì)，則元素退隊(duì)的順序?yàn)椤?】。(2)設(shè)某循環(huán)隊(duì)列的容量為50，如果頭指針front=45(指向隊(duì)頭元素的前一位置)，尾指針rear=10(指向隊(duì)尾元素)，則該循環(huán)隊(duì)列中共有【2】個(gè)元素。(3)設(shè)二叉樹如下：對該二叉樹進(jìn)行后序遍歷的結(jié)果為【3】。(4)軟件是【4】、數(shù)據(jù)和文檔的集合。(5)有一個(gè)學(xué)生選課的關(guān)系，其中學(xué)生的關(guān)系模式為：學(xué)生(學(xué)號，姓名，班級，年齡)，課程的關(guān)系模式為：課程(課號，課程名，學(xué)時(shí))，其中兩個(gè)關(guān)系模式的鍵分別是學(xué)號和課號，則關(guān)系模式選課可定義為：選課(學(xué)號，【5】，成績)。(6)為了使復(fù)選框禁用(即呈現(xiàn)灰色)，應(yīng)把它的value屬性設(shè)置為【6】。(7)在窗體上畫一個(gè)標(biāo)簽、一個(gè)計(jì)時(shí)器和一個(gè)命令按鈕，其名稱分別為labl1、timer1和command1，如圖1所示。程序運(yùn)行后，如果單擊命令按鈕，則標(biāo)簽開始閃爍，每秒鐘“歡迎”二字顯示、消失各一次，如圖2所示。以下是實(shí)現(xiàn)上述功能的程序，請?zhí)羁?。privatesubform_load()label1.caption="歡迎"timer1.enabled=erval=【7】endsubprivatesubtimer1_timer()label1.visible=【8】endsubprivatesubcommand1_click()【9】endsub(8)有如下程序：privatesubform_click()n=10i=0doi=i+nn=n-2loopwhilen>2printiendsub程序運(yùn)行后，單擊窗體，輸出結(jié)果為【10】。(9)在窗體上畫一個(gè)名稱為command1的命令按鈕。然后編寫如下程序：optionbase1privatesubcommand1_click()dima(10)asintegerfori=1to10a(i)=inextcallswap(【11】)fori=1to10printa(i);nextendsubsubswap(b()asinteger)n=ubound(b)fori=1ton/2t=b(i)b(i)=b(n)b(n)=t【12】nextendsub上述程序的功能是，通過調(diào)用過程swap，調(diào)換數(shù)組中數(shù)值的存放位置，即a(1)與a(10)的值互換，a(2)與a(9)的值互換，……。請?zhí)羁铡?10)在窗體上畫一個(gè)文本框，其名稱為text1，在屬性窗口中把該文本框的multiline屬性設(shè)置為true，然后編寫如下的事件過程：privatesubform_click()open"d:\test\smtext1.txt"forinputas#1dowhilenot【13】lineinput#1,aspect$whole$=whole$+aspect$+chr$(13)+chr$(10)looptext1.text=whole$【14】open"d:\test\smtext2.txt"foroutputas#1print#1,【15】close#1endsub運(yùn)行程序，單擊窗體，將把磁盤文件smtext1.txt的內(nèi)容讀到內(nèi)存并在文本框中顯示出來，然后把該文本框中的內(nèi)容存入磁盤文件smtext2.txt。請?zhí)羁铡?009年3月二級VB語言筆試真題及答案一、選擇題（每題2分，共計(jì)70分）(1)下列敘述中正確的是

A)棧是先進(jìn)先出的線性表B)隊(duì)列是"先進(jìn)后出"的線性表

C)循環(huán)隊(duì)列是非線性結(jié)構(gòu)

D)有序線性表即可以采用順序存儲結(jié)構(gòu),也可以采用鏈?zhǔn)酱鎯Y(jié)構(gòu)

(2)支持子程序調(diào)用的數(shù)據(jù)結(jié)構(gòu)是

A)棧B)樹C)隊(duì)列D)二叉樹(3)某二叉樹有5個(gè)讀為2的結(jié)點(diǎn),則該二叉樹中的葉子結(jié)點(diǎn)數(shù)是

A)10B)8C)6D)4(4)下列排序方法中,最壞情況下比較次數(shù)最少的是

A)冒泡排序B)簡單選擇排序

C)直接插入排序D)堆排序(5)軟件按功能可以分為:應(yīng)用軟件、系統(tǒng)軟件和支撐軟件(或工具軟件)。下列屬于應(yīng)用軟件的是

A)編譯程序B)操作系統(tǒng)

C)教務(wù)管理系統(tǒng)D)匯編程序(6)下面敘述中錯(cuò)誤的是

A)軟件測試的目的是發(fā)現(xiàn)錯(cuò)誤并改正錯(cuò)誤

B)對被調(diào)試程序進(jìn)行"錯(cuò)誤定位"是程序調(diào)試的必要步驟

C)程序調(diào)試也成為Debug

D)軟件測試應(yīng)嚴(yán)格執(zhí)行測試計(jì)劃，排除測試的隨意性(7)耦合性和內(nèi)聚性是對模塊獨(dú)立性度量的兩個(gè)標(biāo)準(zhǔn)。下列敘述中正確的是

A)提高耦合性降低內(nèi)聚性有利于提高模塊的獨(dú)立性

B)降低耦合性提高內(nèi)聚性有利于提高模塊的獨(dú)立性

C)耦合性是指一個(gè)模塊內(nèi)部各個(gè)元素間彼此結(jié)合的緊密程度

D)內(nèi)聚性是指模塊間互相連接的緊密程度(8)數(shù)據(jù)庫應(yīng)用系統(tǒng)中的核心問題是

A)數(shù)據(jù)庫設(shè)計(jì)B)數(shù)據(jù)庫系統(tǒng)設(shè)計(jì)

C)數(shù)據(jù)庫維護(hù)D)數(shù)據(jù)庫管理員培訓(xùn)(9)有兩個(gè)關(guān)系R,S如下：

由關(guān)系R通過運(yùn)算得到關(guān)系S,則所使用的運(yùn)算為

A)選擇B)投影C)插入D)連接(10)將E-R圖轉(zhuǎn)換為關(guān)系模式時(shí),實(shí)體和聯(lián)系都可以表示為

A)屬性B)鍵C)關(guān)系D)域(11)執(zhí)行語句DimX,YAsInteger后,

A)X和Y均被定義為整型變量

B)X和Y均被定義為變體類型變量

C)X被定義為整型變量,Y被定義為變體變量

D)X被定義為變體類型變量,Y被定義為整型變量(12)以下關(guān)系表達(dá)式中，其值為True的是

A)"XYZ">"XYz"

B)"VisualBasic"<>"visualbasic"

C)"the"="there"

D)"Integer"<"Int"(13)執(zhí)行以下程序段

a$="VisualBasicProgramming"

b$="C++"

C$=UCase(Left$(a$,7))&b$&Right$(a$,12)

后,變量C$的值為

A)VisualBASICProgramming

B)VISUALC++Programming

C)VisualC++Programming

D)VISUALBASICProgramming14)下列敘述中正確的是

A)MsgBox語句的返回值是一個(gè)整數(shù)

B)執(zhí)行MsgBox語句并出現(xiàn)信息框后,不用關(guān)閉信息框即可執(zhí)行其他操作

C)MsgBox語句的第一個(gè)參數(shù)不能省略

D)如果省略MsgBox語句的第三個(gè)參數(shù)(Title),則信息框的標(biāo)題為空15)在窗體上畫一個(gè)文本框(名稱為Text1)和一個(gè)標(biāo)簽(名稱為Label1),程序運(yùn)行后,

在文本框中每輸入一個(gè)字符，都會立即在標(biāo)簽中顯示文本框中字符的個(gè)數(shù),以下可以實(shí)

現(xiàn)上述操作的事件過程是

A)PrivateSubText1_Change()

Label1.Caption=str(Len(Text1.Text))

EndSub

B)PrivateSubText1_Click()

Label1.Caption=str(Len(Text1.Text))

EndSub

C)PrivateSubText1_Change()

Label1.Caption=Text1.Text

EndSub

D)PrivateSubLabel1_Change()

Label1.Caption=str(Len(Text1.Text))

EndSub16)在窗體上畫兩個(gè)單選按鈕(名稱分別為Option1,Option2,標(biāo)題分別為"宋體"和"黑體"),

1個(gè)復(fù)選框(名稱為Check1,標(biāo)題為粗體)和1個(gè)文本框(名稱為Text1,Text屬性為"改變

文字字體")，窗體外觀如圖所示。程序運(yùn)行后，要求“宋體”單選按鈕和“粗體”復(fù)選框被

選中，則以下能夠?qū)崿F(xiàn)上述操作的語句序列是

A)Option1.Value=False

Check1.Value=True

B)Option1.Value=True

Check1.Value=0

C)Option2.Value=False

Check1.Value=2

D)Option1.Value=True

Check1.Value=117)在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程:

PrivateSubCommand1_Click()

c=1234

c1=Trim(Str(c))

Fori=1To4

Print____

Next

EndSub

程序運(yùn)行后,單擊命令按鈕，要求在窗體上顯示如下內(nèi)容：

1

12

123

1234

則在橫線處應(yīng)填入的內(nèi)容為

A)Right(c1,i)

B)Left(c1,i)

C)Mid(c1,i,1)

D)Mid(c1,i,1)18)假定有一下程序段

Fori=1To3

Forj=5To1Step-1

Printi*j

Nextj

Nexti

則語句Printi*j的執(zhí)行次數(shù)是

A)15B)16C)17D)1819)在窗體上畫兩個(gè)文本框（名稱分別為Text1和Text2）和一個(gè)命令按鈕（名稱為

Command1），然后編寫如下事件過程：

PrivateSubCommand1_Click()

x=0

DoWhilex<50

x=(x+2)*(x+3)

n=n+1

Loop

Text1.Text=Str(n)

Text2.Text=Str(x)

EndSub程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別為

A)1和0B)2和72

C)3和50D)4和16820)閱讀程序：

PrivateSubCommand1_Click()

a=0

Forj=1To15

a=a+jMod3

Nextj

Printa

EndSub

程序運(yùn)行后，單擊窗體，輸出結(jié)果是

A)105B)1C)120D)1521)以下說法中正確的是

A)當(dāng)焦點(diǎn)在某個(gè)控件上時(shí)，按下一個(gè)字母鍵，就會執(zhí)行該控件的KeyPress事件過程

B)因?yàn)榇绑w不接受焦點(diǎn)，所以窗體不存在自己的KeyPress事件過程

C)若按下的鍵相同，KeyPress事件過程中的KeyAscii參數(shù)與KeyDown事件過程中

的KeyCode參數(shù)的值也相同

D)在KeyPress事件過程中，KeyAscii參數(shù)可以省略22)語句Dima(-3To4,3To6)AsInteger定義的數(shù)組的元素個(gè)數(shù)是

A)18B)28C)21D)3223)在窗體上畫一個(gè)命令按鈕，其名稱為Command1，然后編寫如下代碼：

OptionBase1

PrivateSubCommand1_Click()

Dima

a=Array(1,2,3,4)

j=1

Fori=4To1Step-1

s=s+a(i)*j

j=j*10

Nexti

Prints

EndSub

程序運(yùn)行后，單擊命令按鈕，其輸出結(jié)果是

A)4321B)1234C)34D)1224)假定通過復(fù)制，粘貼操作建立了一個(gè)命令按鈕數(shù)組Command1，以下說法中錯(cuò)誤的是

A)數(shù)組中每個(gè)命令按鈕的名稱(Name屬性)均為Command1

B)若未做修改,數(shù)組中每個(gè)命令按鈕的大小都一樣

C)數(shù)組中各個(gè)命令按鈕使用同一個(gè)Click事件過程

D)數(shù)組中每個(gè)命令按鈕的Index屬性值都相同25)在窗體上畫一個(gè)命令按鈕，名稱為Command1,然后編寫如下代碼：

OptionBase0

PrivateSubCommand1_Click()

DimA1(4)AsInteger,A2(4)AsInteger

Fork=0To2

A1(k+1)=InputBox("請輸入一個(gè)整數(shù)")

A2(3-k)=A1(k+1)

Nextk

PrintA2(k)

EndSub

程序運(yùn)行后,單擊命令按鈕，在輸入對話框中依次輸入2、4、6則輸出結(jié)果為

A)0B)1C)2D)3

(26)以下關(guān)于函數(shù)過程的敘述中，正確的是

A)函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系

B)在函數(shù)過程中，過程的返回值可以有多個(gè)

C)當(dāng)數(shù)組作為函數(shù)過程的參數(shù)是，既能以傳值方式傳遞，也能以傳址方式傳遞

D)如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型27)在窗體上畫兩個(gè)標(biāo)簽按鈕和一個(gè)命令按鈕，其名稱分別為Label1、Label2和Command1，

然后編寫如下程序：

PrivateSubfunc(LAsLabel)

L.Caption="1234"

EndSub

PrivateSubForm_Load()

Label1.Caption="ABCDE"

Label2.Caption=10

EndSub

PrivateSubCommand1_Click()

a=Val(Label2.Caption)

Callfunc(Label1)

Label2.Caption=a

EndSub

程序運(yùn)行后，單擊命令按鈕，則在兩個(gè)標(biāo)簽中顯示的內(nèi)容分別為

A)ABCD和10B)1234和100

C)ABCD和100D)1234和1028)在窗體上畫一個(gè)命令按鈕(名稱為Command1)，并編寫如下代碼:

Functionfun1(ByValaAsInteger,bAsInteger)AsInteger

DimtAsInteger

t=a-b

b=t+a

fun1=t+b

EndFunction

PrivateSubCommand1_Click()

DimxAsInteger

x=10

Printfun1(fun1(x,(fun1(x,x-1))),x-1)

EndSub

程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是

A)10B)0C)1129.29)以下關(guān)于過程及過程參數(shù)的描述中，錯(cuò)誤的是

A)過程的參數(shù)可以是控件名稱

B)調(diào)用過程時(shí)使用的實(shí)參的個(gè)數(shù)應(yīng)與過程形參的個(gè)數(shù)相同

C)只有函數(shù)過程能夠?qū)⑦^程中處理的信息返回到調(diào)用程序中

D)窗體可以作為過程的參數(shù)30)設(shè)有如下通用過程

PublicFunctionFun(xStrAsString)AsString

DimtStrAsString,strLAsInteger

tStr=""

strL=Len(xStr)

i=strL/2

DoWhilei<=strL

tStr=tStr&Mid(xStr,i+1,1)

i=i+1

Loop

Fun=tStr&tStr

EndFunction

在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕。然后編寫如

下事件過程

PrivateSubCommand1_Click()

DimS1AsString

S1="ABCDEF"

Text1.Text=LCase(Fun(S1))

EndSub

程序運(yùn)行后，單擊命令按鈕，文本框中顯示的是

A)ABCDEFB)abcdef

C)defdefD)defabc31)在窗體上畫一個(gè)命令按鈕和一個(gè)文本框（名稱分別為Command1和Text1）,并把窗體

的KeyPreview屬性設(shè)置為True,然后編寫如下代碼：

DimSaveAllAsString

PrivateSubForm_Load()

Show

Text1.Text=""

Text1.SetFocus

EndSub

PrivateSubCommand1_Click()

Text1.Text=LCase(SaveAll)+SaveAll

EndSub

PrivateSubForm_KeyPress(KeyAsciiAsInteger)

SaveAll=SaveAll+Chr(KeyAscii)

EndSub

程序運(yùn)行后，直接用鍵盤輸入：VB,再單擊命令按鈕則文本框中顯示的內(nèi)容為

A)vbVBB)不顯示任何信息

C)VBD)出錯(cuò)32)設(shè)有以下程序

PrivateSubForm_Click()

x=50

Fori=1To4

y=InputBox("請輸入一個(gè)整數(shù)")

y=Val(y)

IfyMod5=0Then

a=a+y

x=y

Else

a=a+x

EndIf

Nexti

Printa

EndSub

程序運(yùn)行后，單擊窗體，在輸入對話框中依次輸入15,24,35,46,輸出結(jié)果為

A)100B)50C)120D)7034)以下敘述中錯(cuò)誤的是

A)在程序運(yùn)行時(shí),通用對話框控件是不可見的

B)調(diào)用同一個(gè)通用對話框控件的不同方法(如ShowOpen或ShowSave)可以打開不

同的對話框窗口

C)調(diào)用通用對話框控件的ShowOpen方法,能夠直接打開在該通用對話框中指定的

文件

D)調(diào)用通用對話框控件的ShowColor方法,可以打開顏色對話框窗口35)設(shè)在工程文件中有一個(gè)標(biāo)準(zhǔn)模塊，其中定義了如下記錄類型:

TypeBooks

NameAsString*10

TelNumAsString*20

EndType

在窗體上畫一個(gè)名為Command1的命令按鈕，要求當(dāng)執(zhí)行事件過程Command1_Click時(shí)，

在順序文件Person.txt中寫入一條Books類型的記錄，下列能夠完成該操作的事件過程是

A)PrivateSubCommand1_Click()

DimBAsBooks

Open"Person.txt"ForOutputAs#1

B.Name=InputBox("輸入姓名")

B.Name=InputBox("輸入電話號碼")

Write#1,B.Name,B.TelNum

Close#1

EndSub

B)PrivateSubCommand1_Click()

DimBAsBooks

Open"Person.txt"ForOutputAs#1

B.Name=InputBox("輸入姓名")

B.Name=InputBox("輸入電話號碼")

Print#1,B.Name,B.TelNum

Close#1

EndSub

C)PrivateSubCommand1_Click()

DimBAsBooks

Open"Person.txt"ForOutputAs#1

B.Name=InputBox("輸入姓名")

B.Name=InputBox("輸入電話號碼")

Write#1,B

Close#1

EndSub

D)PrivateSubCommand1_Click()

DimBAsBooks

Open"Person.txt"ForOutputAs#1

B.Name=InputBox("輸入姓名")

B.Name=InputBox("輸入電話號碼")

Print#1,Name,TelNum

Close#1

EndSub二、填空題（每空2分，共計(jì)30分）1.(1)假設(shè)用一個(gè)長度為50的數(shù)組(數(shù)組元素的下標(biāo)從0到49)作為棧的存儲空間,棧底

指針bottom指向棧底元素,棧頂指針top指向棧頂元素,如果bottom=49,top=30(數(shù)

租下標(biāo)),則棧中具有【1】個(gè)元素.

(2)軟件測試可分為白盒測試和黑盒測試?；韭窂綔y試屬于【2】測試(3)符合結(jié)構(gòu)化原則的三種基本控制結(jié)構(gòu)是:選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)和【3】4)數(shù)據(jù)庫系統(tǒng)的核心是【4】5)在E-R圖中，圖形包括矩形框、菱形框、橢圓框。其中表示實(shí)體聯(lián)系的是【5】框6)窗體如圖所示,其中汽車是名稱為Image1的圖像框，命令按鈕的名稱Command1,

計(jì)時(shí)器的名稱為Timer1,直線的名稱為Line1。程序運(yùn)行時(shí)，單擊命令按鈕，則

汽車每0.1秒向左移動100，車頭到達(dá)左邊的直線時(shí)停止移動。請?zhí)羁胀瓿上旅?/p>

的屬性設(shè)置和程序，以便實(shí)現(xiàn)上述功能。

1)Timer1的Interval屬性的值應(yīng)事先設(shè)置為【6】

2)PrivateSubCommand1_Click()

Timer1.Enabled=True

EndSub

3)PrivateSubTimer1_Timer()

IfImage1.Left>【7】Then

Image1.Left=【8】-100

EndIf

EndSub(7)設(shè)窗體上有一個(gè)名稱為Combo1的組合框,并有以下程序：

PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)

If【9】=13Then

Fork=0ToCombo1.ListCount-1

IfCombo1.Text=Combo1.List(k)Then

Combo1.Text=""

ExitFor

EndIf

Nextk

IfCombo1.Text<>""Then

Combo1.AddItem【10】

EndIf

EndIf

EndSub

程序的功能是：在組合框的編輯區(qū)中輸入文本后按回車鍵，則檢查列表中

有無與此文本相同的項(xiàng)目，若有，則把編輯區(qū)中的文本刪除，否則把編輯

區(qū)中的文本添加到列表的尾部。請?zhí)羁铡?8)在當(dāng)前目錄下有一個(gè)名為"myfile.txt"的文本文件,其中有若干行文本。下面程序的

功能是讀入此文件中的所有文本行，按行計(jì)算每行字符的ASCII碼之和，并顯示在窗體上。

請?zhí)羁?/p>

PrivateSubCommand1_Click()

Dimch$,asciiAsInteger

Open"myfile.txt"For【11】As#1

WhileNotEOF(1)

LineInput#1,ch

ascii=toascii(【12】)

Printascii

Wend

Close#1

EndSub

PrivateFunctiontoascii(mystr$)AsInteger

n=0

Fork=1To【13】

n=n+Asc(Mid(mystr,k,1))

Nextk

toascii=n

EndFunction(9)本程序?qū)崿F(xiàn)文本加密。先給定序列:a1,a2,...,an,它們的取值范圍是1~n,而且互

不相同。加密算法是:把原文本中第k個(gè)字符放到加密后文本的第ak個(gè)位置處。若原

文本長度大于n，則只對前面n個(gè)字符加密,后面的字符不變；若原文本長度小于n，則

在后面補(bǔ)字符"*"使文本長度為n后再加密。

例如：若給定序列a1,a2,...a7分別為2,5,3,7,6,1,4

當(dāng)文本為“PROGRAM"時(shí)，加密后的文本為"APOMRRG"

當(dāng)文本為"THANK"時(shí)，加密后的文本為"*TA*HKN"

下面的過程code實(shí)現(xiàn)這一算法。其中參數(shù)數(shù)組a()中存放給定序列(個(gè)數(shù)與數(shù)組a的元素

個(gè)數(shù)相等)a1,a2,a3...的值，要加密的文本放在參數(shù)變量mystr中，過程執(zhí)行完畢，加

密后的文本仍然放在變量mystr中。請?zhí)羁铡?/p>

OptionBase1

PrivateSubcode(a()AsInteger,mystrAsString)

DimchAsString,c1AsString

n=UBound(a)-Len(mystr)

Ifn>0Then

mystr=mystr&String$(n,"*")

EndIf

ch=mystr

Fork=【14】ToUBound(a)

c1=Mid(mystr,k,1)

n=【15】

Mid(ch,n)=c1

Nextk

mystr=ch

EndSub答案：DACDCABABCDBBCADBABDADBDCADBCCAABCA白盒順序結(jié)構(gòu)數(shù)據(jù)庫管理系統(tǒng)菱形100Line1.x1image1.leftkeyasciicombox1.textinputchlen(mystr)1a(k)2008年9月計(jì)算機(jī)二級VB語言真題一、選擇題（每題2分，共計(jì)70分）1.一個(gè)棧的初始狀態(tài)為空。現(xiàn)將元素1、2、3、4、5、A、B、C、D、E依次入棧，然后

再依次出棧，則元素出棧的順序是

A)12345ABCDEB)EDCBA54321

C)ABCDE12345D)54321EDCBA2.

下列敘述中正確的是

A)循環(huán)隊(duì)列有隊(duì)頭和隊(duì)尾兩個(gè)指針，因此，循環(huán)隊(duì)列是非線性結(jié)構(gòu)

B)在循環(huán)隊(duì)列中，只需要隊(duì)頭指針就能反映隊(duì)列中元素的動態(tài)變化情況

C)在循環(huán)隊(duì)列中，只需要隊(duì)尾指針就能反映隊(duì)列中元素的動態(tài)變化情況

D)循環(huán)隊(duì)列中元素的個(gè)數(shù)是由隊(duì)頭指針和隊(duì)尾指針共同決定3.在長度為n的有序線性表中進(jìn)行二分查找，最壞情況下需要比較的次數(shù)是

A)O(n)B)O(n2)C)O(log2n)D)O(nlog2n)4.下列敘述中正確的是

A)順序存儲結(jié)構(gòu)的存儲一定是連續(xù)的，鏈?zhǔn)酱鎯Y(jié)構(gòu)的存儲空間不一定是連續(xù)的

B)順序存儲結(jié)構(gòu)只針對線性結(jié)構(gòu)，鏈?zhǔn)酱鎯Y(jié)構(gòu)只針對非線性結(jié)構(gòu)

C)順序存儲結(jié)構(gòu)能存儲有續(xù)表，鏈?zhǔn)酱鎯Y(jié)構(gòu)不能存儲有序表

D)鏈?zhǔn)酱鎯Y(jié)構(gòu)比順序存儲結(jié)構(gòu)節(jié)省存儲空間5.數(shù)據(jù)流圖中帶有箭頭的線段表示的是

A)控制流B)事件驅(qū)動

C)模塊調(diào)用D)數(shù)據(jù)流6.在軟件開發(fā)中，需求分析階段可以使用的同居是A)N-S圖B)DFD圖C)PAD圖D)程序流程圖7.在面向?qū)ο蠓椒ㄖ?，不屬于“對象”基本特點(diǎn)的是

A)一致性B)分類性C)多態(tài)性D)標(biāo)識唯一性8.一間宿舍可以住多個(gè)學(xué)生，則實(shí)體宿舍和學(xué)生之間的聯(lián)系是A)一對一B)一對多C)多對一D)多對多9.在數(shù)據(jù)管理技術(shù)發(fā)展的三個(gè)階段中，數(shù)據(jù)共享最好的是

A)人工管理階段B)文件系統(tǒng)階段

C)數(shù)據(jù)庫系統(tǒng)階段D)三個(gè)階段相同10.有三個(gè)關(guān)系R、S、和T如下：

由關(guān)系R和S通過運(yùn)算得到關(guān)系T,則所使用的運(yùn)算為

A)笛卡爾積B)交C)并D)自然連接11.在設(shè)計(jì)窗體時(shí)雙擊窗體的任何地方，可以打開的窗口是

A)代碼窗口B)屬性窗口

C)工程資源管理器窗口D)工具箱窗口12.若變量a未實(shí)現(xiàn)定義而直接使用（例如：a=0），則變量a的類型是

A)IntegerB)StringC)BooleanD)Variant13.把圓周率的近似值3.14159存放在變量pi中，應(yīng)該把變量pi定義為

A)DimpiAsIntegerB)Dimpi(7)AsInteger

C)DimpiAsSingleD)DimpiAsLong14.表達(dá)式2*3^2-4*2/2+3^2的值是

A)30B)31

C)49D)4815.以下不能輸出“Program”的語句是

A)Printmid("VBProgram"3,7)B)PrintRight("VBProgram",7)

C)PrintMid("VBProgram",3)D)PrintLeft("VBProgram",7)16.窗體上有一個(gè)名稱為Frame1的框架（如圖）,若要把框架上顯示的"Frame1"改為

漢字“框架”，下面正確的語句是

A)Frame1.Name="框架"B)Frame1.Caption="框架"

C)Frame1.Text="框架"D)Frame1.Value="框架"17.以下敘述中錯(cuò)誤的是

A)在通用過程中，多個(gè)形式參數(shù)之間可以用逗號作為分隔符

B)在Print方法中，多個(gè)輸出項(xiàng)之間可以用逗號作為分隔符

C)在Dim語句中，所定義的多個(gè)變量可以用逗號作為分隔符

D)當(dāng)一行中有多個(gè)語句時(shí)，可以用逗號作為分隔符18.設(shè)窗體上有一個(gè)列表框控件List1,含有若干列表項(xiàng)。以下能表示當(dāng)前被選中的列表

項(xiàng)內(nèi)容的是

A)List1.ListB)List1.ListIndex

C)List1.TextD)List1.Index19.設(shè)a=4,b=5,c=6,執(zhí)行語句Printa<bAndb<c后，窗體上顯示的是

A)TrueB)FalseC)出錯(cuò)信息D)020.執(zhí)行下列語句

strInpug=InputBox("請輸入字符串","字符串丟畫框","字符串)

將顯示輸入對話框。如果此時(shí)直接點(diǎn)擊"確定"按鈕，則變量strInput的內(nèi)容是

A)"請輸入字符串"B)"字符串對話框"

C)"字符串"D)空字符串21.窗體上有Command1、Command2兩個(gè)命令按鈕?，F(xiàn)編寫以下程序：

OptionBase0

Dima()AsInteger

PrivateSubCommand1_Click()

m=InputBox("請輸入一個(gè)正整數(shù)")

ReDima(m)

EndSub

PrivateSubCommand2_Click()

m=InputBox("請輸入一個(gè)正整數(shù)")

ReDima(m)

EndSub

運(yùn)行程序是，單擊Command1后輸入整數(shù)10，再單擊Command2后輸入整數(shù)5，則數(shù)組

a中元素的個(gè)數(shù)是

A)5B)6C)10D)1122.在窗體上畫一個(gè)命令按鈕和一個(gè)標(biāo)簽，其名稱分別為Command1和Label1，然后編寫

如下的事件過程

PrivateSubCommand1_Click()

conter=0

ForI=1To4

ForJ=6To1Step-2

conter=conter+1

NextJ

NextI

Label1.Caption=Str(conter)

EndSub

程序運(yùn)行后，單擊命令按鈕，標(biāo)簽中顯示的內(nèi)容是

A)11B)12C)16D)2023.在窗體上畫一個(gè)名為command1的命令按鈕，然后編寫以下程序：

PrivateSubCommand1_Click()

DimM(10)AsInteger

Fork=1To10

M(k)=12-k

Nextk

x=8

PrintM(2+M(x))

EndSub

運(yùn)行程序，單擊命令按鈕，在窗體上顯示的是

A)6B)5C)7D)824.以下關(guān)于過程及過程參數(shù)的描述中，錯(cuò)誤的是

A)調(diào)用過程時(shí)可以用控件名稱作為實(shí)際參數(shù)

B)用數(shù)組作為過程的參數(shù)是，使用的是“傳地址”方式

C)只有函數(shù)過程能夠?qū)⑦^程中處理的信息傳回到調(diào)用的程序中

D)窗體(Form)可以作為過程的參數(shù)25.在窗體上畫一個(gè)名為Command1的命令按鈕，再畫兩個(gè)名稱分別為Label1、Label2

的標(biāo)簽，然后編寫如下程序代碼：

PrivateXAsInteger

PrivateSubCommand1_Click()

X=5:Y=3

Cc(X,Y)

Label1.Caption=X

Label2.Caption=Y

EndSub

PrivateSc(aAsInteger,ByValbAsInteger)

X=a*a

Y=b+b

EndSub

程序運(yùn)行后，單擊命令按鈕，則兩個(gè)標(biāo)簽中顯示的內(nèi)容分別是

A)25和3B)5和3C)25和6D)5和626.在窗體上有兩個(gè)名稱分別為Text1、Text2的文本框，一個(gè)名稱為Command1的命令

按鈕。運(yùn)行后的窗體外觀如圖所示。

設(shè)有如下的類型和變量生命

PrivateTypePerson

nameAsString*8

majorAsString*20

EndType

DimpAsPerson

設(shè)文本框中的數(shù)據(jù)已正確地賦值給Person類型的變量p,當(dāng)單擊“保存”按鈕時(shí)，能夠正確地把變量中的數(shù)據(jù)寫入隨機(jī)文件Test2.dat中的程序段是

A)Open"c:\Test2.dat"ForOutputAs#1

Put#1,1,p

Close#1

B)Open"c:\Test2.dat"ForRandomAs#1

Get#1,1,p

Close#1

C)Open"c:\Test2.dat"ForRandomAs#1Len=Len(p)

Put#1,1,p

Close#1

D)Open"c:\Test2.dat"ForRandomAs#1Len=Len(p)

Get#1,1,p

Close#127.在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編

寫如下事件過程：

PrivateSubCommand1_Click()

DimiAsInteger,nAsInteger

Fori=1To50

i=i+3

n=n+1

Ifi>10ThenExitFor

Next

Text1.Text=Str(n)

EndSub

程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是

A)2B)3C)4D)528.

假定有以下循環(huán)結(jié)構(gòu)

DoUntil條件表達(dá)式

循環(huán)體

Loop

則以下正確的描述是

A)如果“條件表達(dá)式”的值是0，則一次循環(huán)體也不執(zhí)行

B)如果“條件表達(dá)式”的值不是0，則至少執(zhí)行一次循環(huán)體

C)不論“條件表達(dá)式”的值是否為“真”，至少要執(zhí)行一次循環(huán)體

D)如果“條件表達(dá)式”的值恒為0，則無限次執(zhí)行循環(huán)體29.

在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：

PrivateSubCommand1_Click()

DimI,Num

Randomize

Do

ForI=1To1000

Num=Int(Rnd*100)

PrintNum

SelectCaseNum

Case12

ExitFor

Case58

ExitDo

Case65,68,92

End

EndSelect

NextI

Loop

EndSub

上述事件過程執(zhí)行后，下列描述中正確的是

A)Do循環(huán)執(zhí)行的次數(shù)為1000此

B)在For循環(huán)中產(chǎn)生的隨機(jī)數(shù)小于或等于100

C)當(dāng)所產(chǎn)生的隨機(jī)數(shù)為12時(shí)結(jié)束所有循環(huán)

D)當(dāng)所產(chǎn)生的隨機(jī)數(shù)為65，68或92時(shí)窗體關(guān)閉、程序結(jié)束30.

在窗體上畫一個(gè)名為Command1的命令按鈕，然后編寫如下代碼：

OptionBase1

PrivateSubCommand1_Click()

Dima

a=Array(1,2,3,4)

j=1

ForI=4To1Step-1

s=s+a(I)*j

j=j*10

NextI

Prints

EndSub

運(yùn)行上面的程序，其輸出結(jié)果是

A)1234B)12C)34D)432131.設(shè)有如下通用過程

PublicFunctionFun(xStrAsString)AsString

DimtStrAsString,strLAsInteger

tStr=""

strL=Len(xStr)

I=1

DoWhileI<=strL/2

tStr=tStr&Mid(xStr,I,1)&Mid(xStr,strL-I+1,1)

I=I+1

Loop

Fun=tStr

EndFunction

在窗體上畫一個(gè)名稱為Command1的命令按鈕。然后編寫如下的事件過程：

PrivateSubCommand1_Click()

DimS1AsString

S1="abcdef"

PrintUCase(Fun(S1))

EndSub

程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是

A)ABCDEFB)abcdefC)AFBECDD)DEFABC32.某人為計(jì)算n!(0<n<=12)編寫了下面的函數(shù)過程

PrivateFunctionfun(nAsInteger)AsLong

DimpAsLong

p=1

Fork=n-1To2Step-1

p=p*k

Nextk

fun=p

EndFunction

在調(diào)試時(shí)發(fā)現(xiàn)該函數(shù)過程產(chǎn)生的結(jié)果是錯(cuò)誤的，程序需要修改。下面的修改方案中有3

種是正確的，錯(cuò)誤的方案是

A)把p=1改為p=n

B)把Fork=n-1To2Step-1改為Fork=1T0n-1

C)把Fork=n-1To2Step-1改為Fork=1T0n

D)把Fork=n-1To2Step-1改為Fork=2T0n33.

假定有以下函數(shù)過程：

FunctionFun(SAsString)AsString

Dims1AsString

ForI=1ToLen(S)

s1=LCase(Mid(S,I,1))+s1

NextI

Fun=s1

EndFunction

在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：

PrivateSubCommand1_Click()

DimStr1AsString,Str2AsString

Str1=InputBox("請輸入一個(gè)字符串")

Str2=Fun(Str1)

PrintStr2

EndSub

程序運(yùn)行后，單擊命令按鈕，如果在輸入對話框中輸入字符串“abcdefg”，則單擊“確定”

按鈕后在窗體上的輸出結(jié)果為

A)ABCDEFGB)abcdefgC)GFEDCBAD)gfedcba34.

為計(jì)算a的n次方的值，某人編寫了函數(shù)power如下：

PrivateFunctionpower(aAsInteger,nAsInteger)AsLong

DimpAsLong

p=a

Fork=1Ton

p=p*a

Nextk

power=p

EndFunction

在調(diào)試時(shí)發(fā)現(xiàn)是錯(cuò)誤的，例如Printpower(5,4)的輸出值應(yīng)該是625，但實(shí)際輸出是3125。

程序需要修改。下面的修改方案中有3個(gè)是正確的，錯(cuò)誤的一個(gè)是

A)把Fork=1Ton改為Fork=2Ton

B)把p=p*a改為p=p^n

C)把Fork=1Ton改為Fork=2Ton-1

D)把p=a改為p=135.某人編寫了下面的程序

PrivateSubCommand1_Click()

DimaAsInteger,bAsInteger

a=InputBox("請輸入整數(shù)")

b=InputBox("請輸入整數(shù)")

proa

prob

C(a+b)

EndSub

PrivateS(nAsInteger)

While(n>0)

PrintnMod10;

n=n\10

Wend

Print

EndSub

但調(diào)試時(shí)發(fā)現(xiàn)只輸出了前2行（即2個(gè)數(shù)的反序），而未輸出第3行(即2個(gè)數(shù)之和的

反序),程序需要修改。下面的修改方案中正確的是

A)把過程pro的形式參數(shù)nAsInteger改為ByValnAsInteger

B)把C(a+b)改為proa+b

C)把n=n\10改為n=n/10

D)在prob語句之后增加語句c%=a+b,再把C(a+b)改為proc二、填空題（每空2分，共計(jì)30分）1.對下列二叉樹進(jìn)行中序遍歷的結(jié)果是【1】

2.按照軟件測試的一般步驟，繼承測試應(yīng)在【2】測試之后進(jìn)行。3.軟件工程三要素包括方法、工具和過程，其中，【3】支持軟件開發(fā)的各個(gè)環(huán)節(jié)

的控制和管理。4.數(shù)據(jù)庫設(shè)計(jì)包括概念設(shè)計(jì)、【4】和物理設(shè)計(jì)。5.在二維表中，元組的【5】不能再分成更小的數(shù)據(jù)項(xiàng)。6.在窗體上畫一個(gè)文本框、一個(gè)標(biāo)簽和一個(gè)命令按鈕，其名稱分別為Text1、Label1和

Command1,然后編寫如下兩個(gè)事件過程：

PrivateSubCommand1_Click()

S$=InputBox("請輸入一個(gè)字符串")

Text1.Text=S$

EndSub

PrivateSubText1_Change()

Label1.Caption=UCase(Mid(Text1.Text,7))

EndSub

程序運(yùn)行后，單擊命令按鈕，將顯示一個(gè)輸入對話框，如果在該對話框中輸入字符串

“VisualBasic”，則在標(biāo)簽中顯示的內(nèi)容是【6】。7.在窗體上畫一個(gè)命令按鈕，其名稱為Command1,然后編寫如下事件過程：

PrivateSubCommand1_Click()

a$="NationalComputerRankExamination"

n=Len(a$)

S=0

ForI=1Ton

b$=Mid(a$,I,1)

Ifb$="n"Then

S=S+1

EndIf

NextI

PrintS

EndSub

程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是【7】。8.為了在運(yùn)行時(shí)把d:\pic文件夾下的圖形文件a.jpg裝入圖片框Picture1,所使用的語句為【8】9．設(shè)有如下程序：

PrivateSubForm_Click()

Cls

a$="ABCDFG"

ForI=1To6

PrintTab(12-I);【9】

NextI

EndSub

程序運(yùn)行后，單擊窗體，結(jié)果如圖所示，請?zhí)羁铡?/p>

10.在窗體上畫一個(gè)命令按鈕，其名稱為Command1,然后編寫如下代碼：

OptionBase1

PrivateSubCommand1_Click()

DimArr

Arr=Array(43,68,-25,65,-78,12,-79,43,-94,72)

pos=0

neg=0

Fork=1To10

IfArr(k)>0Then

【10】

E