vb筆試模擬試題(九套)

附錄筆試模擬試題（?套）筆試模擬試題第一部分軟件技術(shù)基礎(chǔ)共15分）一、是非判斷題（每小題1分，共10分）（判斷下列各題是否正確，如正確，在客觀答題紙上對(duì)應(yīng)編號(hào)選A,否則選B）TOC\o"1-5"\h\z.在操作系統(tǒng)中，作業(yè)調(diào)度和進(jìn)程調(diào)度沒有區(qū)別。 （）.數(shù)據(jù)類型是具有共同屬性的一類變量的抽象。 （）.瀑布模型中需求分析的主要工作是確定要開發(fā)的軟件做什么。 （）.軟件設(shè)計(jì)階段產(chǎn)生的最重要的文檔之一是概要設(shè)計(jì)說明書。 （）.在進(jìn)行插入排序時(shí)，其數(shù)據(jù)比較次數(shù)和數(shù)據(jù)的初始排列無關(guān)。 （）.軟件測(cè)試不是為了證明軟件的正確性，而是立足于軟件有錯(cuò)誤而進(jìn)行的。（）.線性表若采用鏈?zhǔn)酱鎯?chǔ)表示時(shí)所有結(jié)點(diǎn)之間的存儲(chǔ)單元地址必須連續(xù)。 （）.中斷處理通常是按中斷優(yōu)先級(jí)響應(yīng)和進(jìn)行中斷的。 （）.緩沖池可作為CPU和I/O設(shè)備之間信息傳輸?shù)募⒌亍?（）.進(jìn)程調(diào)度是根據(jù)一定的調(diào)度算法，從等待隊(duì)列中挑選出合適的進(jìn)程。 （）二、選擇題（每小題1分，共5分）.把高級(jí)語言的源程序翻譯成二進(jìn)制代碼的過程稱為： （A）（A）編譯 （B）連接 （C）運(yùn)行 （D）重定位.把邏輯地址轉(zhuǎn)變?yōu)閮?nèi)存的物理地址的過程稱作：（D）（A）地址分配 （B）地址連接（C）地址調(diào)用 （D）地址變換.白盒法又稱為邏輯覆蓋法，主要用于：（D）（A）功能測(cè)試 （B）系統(tǒng)測(cè)試（C）a測(cè)試 （D）單元測(cè)試.在操作系統(tǒng)中，進(jìn)程最基本的特征是：（A）（A）動(dòng)態(tài)性和并發(fā)性 （B）順序性和可再現(xiàn)性（C）和程序的對(duì)應(yīng)性 （D）執(zhí)行過程的封閉性.以下哪一項(xiàng)不是軟件危機(jī)的表現(xiàn)形式。 （C）（A）成本高 （B）生產(chǎn)率低（C）技術(shù)發(fā)展快 （D）質(zhì)量得不到保證第二部分 語言程序設(shè)計(jì)(共85分)一、單項(xiàng)選擇題(每小題1分，共10分).數(shù)學(xué)表達(dá)式I(2x+3y)sinzl的VB表達(dá)式為(C)。(A)I((2x+3y)sin(z))I (B)Abs((2x+3y)sin(z))(C)Abs((2x+3y)sin(z)) (D)Abs((2x+3y)sinz).在下列VB運(yùn)算符中，運(yùn)算優(yōu)先級(jí)最低的是(A)。(A)NOT (B)>= (C)+ (D)MOD.按照VB默認(rèn)規(guī)定，以下對(duì)數(shù)組dima(3,5)中數(shù)組元素引用錯(cuò)誤的是(C)。(A)a(0，0) (B)a(2,22)(C)a(3，6) (D)a(2-2,5-4).針對(duì)語句“Ifi=1Thenj=1"，下列說法中正確的是(C)。i=1和j=1均為賦值語句i=1和j=l均為關(guān)系表達(dá)式i=1為關(guān)系表達(dá)式，j=1為賦值語句i=1為賦值語句，j=1為關(guān)系表達(dá)式.如果要改變窗體的標(biāo)題，需要設(shè)置窗體對(duì)象的(B)屬性。(A)Name (B)Caption(C)BackColor (D)BorderStyle.將組合框設(shè)置為簡(jiǎn)單組合框(SimpleCombo)，應(yīng)將其Style屬性設(shè)置為(B)。(A)0 (B)1 (C)2 (D)3.在VB中，要將一個(gè)窗體forml從內(nèi)存中釋放，應(yīng)使用語句(B)。(A)forml.hide (B)unloadforml(C)forml.show (D)loadforml.在VB中，要禁止命令按鈕對(duì)事件作出反映并使按鈕變灰，應(yīng)設(shè)置(B)屬性。(A)Caption (B)Enabled(C)Visible (D)Name.下列方法中，(A)不能實(shí)現(xiàn)程序的不同過程之間的數(shù)據(jù)傳遞。(A)局部變量 (B)全局變量(C)窗體或模塊級(jí)變量 (D)將形參和實(shí)參結(jié)合.以下關(guān)于文件的敘述中，不正確的是(D)。(A)VB文件根據(jù)數(shù)據(jù)存取方式不同，可分為順序文件和隨機(jī)文件。(B)順序文件的訪問只能按記錄順序訪問，不能隨機(jī)訪問。(C)隨機(jī)文件只要給出記錄號(hào)就能讀取該記錄。(D)隨機(jī)文件的每個(gè)記錄長度可以不相同。二、閱讀分析程序(每個(gè)選擇3分，共45分).程序如下：0ptionExplicitPrivateSubCommand1_Click()DimnAsInteger,sAsIntegern=1S=1DoWhilen<6S=S+n

Ifn<=2Thenn=n*2Ifn<=4Thenn=n*2LoopPrintsEndSub(1)程序運(yùn)行中，語句“S=S+n”的執(zhí)行次數(shù)是(B)。(A)1 (B)2 (C)4 (D)6(2)程序運(yùn)行后輸出的數(shù)據(jù)結(jié)果是(D)。(A)1 (B)2 (C)4 (D)6(3)如果將語句“Dowhiten<6”改為“DoWhilen<10"，由程序運(yùn)行后輸出的結(jié)果是(D)。(A)2 (B)4 (C)6 (D)以上都不對(duì).程序如下：OptionExplicitOptionBase1PrivateSubCommandl_Click()DimA(2,2)AsInteger,B(2,2)AsInteger,C(2,2)AsIntegerDimnAsInteger,mAsInteger,SAsInteger,kAsIntegerA(1,1)=3:A(1,2)=1:A(2,1)=-2:A(2,2)=5B(1,1)=2:B(1,2)=-3:B(2,1)=6:B(2,2)=1Forn=1TO2Form=1TO2S=0Fork=1TO2S=S+A(n,k)B(k,m)C(n,m)=SNextkNextmNextnForn=1TO2Form=1TO2PrintC(n,m)；Spc(3)；NextmPrintNextnEndSub(1)以下關(guān)于語句“OptionBase1”，正確的說法是(C)。(A)其功能是聲明數(shù)組下標(biāo)的默認(rèn)上界(B)其功能是定義動(dòng)態(tài)數(shù)組(C)其功能是聲明數(shù)組下標(biāo)的默認(rèn)下界(D)其功能是定義靜態(tài)數(shù)組(2)以下關(guān)于語句“OptionExplicit”，正確的說法是(D)。(A)表明此模塊沒有通用過程(B)表明此模塊的通用過程不能被其他模塊調(diào)用(C)表明此模塊變量不聲明可以直接使用(D)表明此模塊變量必須先聲明后使用(3)程序運(yùn)行完成后，PrintC(n,m)語句輸出的結(jié)果是(D)。(A)0 -16 (B)1226 (C)2611 (D)12-8

-1311 -811 12-8 2611.程序如下：PrivateSubCommand1_Click()DimnAsIntegern=InputBox(”請(qǐng)輸入一個(gè)大于的整數(shù)”)t=-1s=1Fori=2Tons=s+fact(i)*tL1: t=-tNextiPrint"s="；sEndSubFunctionfact(n)f=1Fori=2Tonf=f*iNextifact=fEndFunction(1)以上程序的功能是(D)。(A)計(jì)算S=1+2+3+4+5+……+n(B)計(jì)算S=1-22+33-44+55……+(-1)n-1nn(C)計(jì)算S=l+2!+3!+4!+5!+……+n!(D)計(jì)算S=1-2!+3!-4!+5!+……+(-1)n-1n!(2)如果在輸入框中輸入整數(shù)3,則程序運(yùn)行的結(jié)果是(A)。(A)5 (B)7 (C) 9 (D) 24(3)如果取消L1語句并在輸入框中輸入整數(shù)3,則程序運(yùn)行的結(jié)果是(D)。(A)5 (B)7 (C) 9 (D) -7.在窗體中添加一個(gè)命令按鈕Commandl和一個(gè)文本框Textl，然后編寫如下程序：DimstrAsStringPrivateSubCommand1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)str=””IfButton=2Thenstr=str+”123”EndIfText1=strEndSubPrivateSubCommandl_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)str=str+“789”Text1=strEndSub(1)程序運(yùn)行后，在命令按鈕上單擊鼠標(biāo)左鍵，則在Text1中顯示的內(nèi)容是(B)。(A)123 (B)789 (C)123789 (D)789123(2)程序運(yùn)行后，在命令按鈕上單擊鼠標(biāo)右鍵，則在Textl中顯示的內(nèi)容是(C)。(A)123 (B)789 (C)123789 (D)789123(3)程序運(yùn)行后，將焦點(diǎn)移到命令按鈕上并按回車鍵，則程序運(yùn)行結(jié)果(D)。

(A)程序運(yùn)行結(jié)果和單擊鼠標(biāo)左鍵相同(B)程序運(yùn)行結(jié)果和雙擊鼠標(biāo)左鍵相同(C)程序運(yùn)行結(jié)果和單擊鼠標(biāo)右鍵相同(D)以上說法都不對(duì).程序如下：假定字符串lw中只含有字符和空格(空格用來分隔不同的單詞):PublicFunctionestw(lwAsString)AsStringDimWAsString,LAsString,SAsString,fLAsStringDimaAsInteger,bAsInteger,cAsInteger,nAsIntegerS=lw+"”b=Len(S)fL="”a=0:c=0:n=0:W=""Fori=1TobL=Mid(S,i,1)IfL<>"“ThenW=W+Lc=c+1ElseIffL<>"“ThenIfc>aThena=c:lw=WEndIfc=0:W=""：n=n+1EndIffL=LNextiPrintn,aestw=lwEndFunction(1)該函數(shù)的返回值為(B)。(B)找出原字符串中最長的單詞((B)找出原字符串中最長的單詞(D)找出原字符串中第一個(gè)單詞n的結(jié)果是(B)。(C)7 (D)11a的結(jié)果是(C)。(C)7 (D)11(C)找出原字符串中最后的單詞(2)假設(shè)字符串1w為：“Iamastudent”(A)1 (B)4(3)假設(shè)字符串1w為：”Iamastudent”(A)1 (B)4三、程序填空(每空2分，共30分).已知程序的輸出結(jié)果如下，請(qǐng)完善程序。PrivateSubCommandl_Click()Fori=1To5If ①imed2=0 ThenS="#ElseS="*EndIfPrintTab(20-i);Forj=1TO ②2*i-1 PrintS;NextjPrintNextiEndSub.下面程序的功能是用遞歸算法計(jì)算斐波拉齊數(shù)列1123581321345589144的前20項(xiàng)，并按每行5個(gè)數(shù)據(jù)輸出，請(qǐng)完善程序。圖PrivateSubForm_Click()DimiAsInteger,jAsIntegerClsFori=0To19j=j+1IfiMod5=0ThenPrintj=0EndIfPrintTab(j*10); ①fact(i) NextiEndSubPrivateFunctionfact(nAsInteger)If ②Thenfact=1Elsefact ? EndIfEndFunction.以下程序的功能是：隨機(jī)產(chǎn)生10個(gè)字符串(每個(gè)字符串由l?8個(gè)小寫字母組成)，并存放于數(shù)組str中，再依次輸出這10個(gè)字符串并顯示其長度，請(qǐng)完善程序。iijtFofbImddukzbpwoejjxmmvlafmEergjclp^LotmbajzncfttiefOptionBase1PrivateSubForm_Click()RandomizeTimerDimstr(10)AsStringDimiAsInteger,jAsInteger,nAsIntegerFori=1To10n=Int(1+Rnd*8)Forj= CD str(i)=str(i)+Chr(Int((2)))NextjNextiFori=1To10Printstr(i), ③ NextiEndSub.以下程序的功能是：計(jì)算一元二次方程“ax2+bx+c=0”的兩個(gè)實(shí)根，請(qǐng)完善程序。Dimx1AsSingle,x2AsSingleDimaAsSingle,bAsSingle,cAsSinglePrivateSubForm_Click()a=0.5:b=6.18:c=1.45 Print"rootl="；x1Print”root2="；x2EndSubSubquad()p=-b/(2*a)q= ② x1=p+qx2= ? EndSub.下面程序功能如下：運(yùn)行時(shí)，先在文本框中輸入學(xué)號(hào)（xh）、姓名（xm）、年齡（n1）、成績（cj）等數(shù)據(jù)，再單擊C。mmand1（寫入）按鈕，則將各數(shù)據(jù)添加到已打開的隨機(jī)文件（abc.dat）的末端，同時(shí)，清除各文本框中的內(nèi)容并把輸入焦點(diǎn)移到學(xué)號(hào)（xh）文本框中位置，以待下次輸入。單擊command2（結(jié)束）按鈕，則結(jié)束程序，請(qǐng)完善程序。DimlastAsIntegerPrivate CD xhAsString*10xmAsString*6nlAsInteger

cjAsSingleEndTypePrivatedaAsdataPrivateSubCommand1_Click()DimiAsInteger,lastAsIntegerlast=last+LOF(1)/Len(da)+1da.xh=Text1(0).Textda.xm=Text1(1).Textda.nl=Val(Text1(2).Text)da.cj=Val(Text1(3).Text) ② Fori=0To3Text1(i).Text="”Nexti ? EndSubPrivateSubCommand2_Click() ? EndEndSubPrivateSubForm_Initialize()Open“abc.dat”ForRandomAs#1Len=Len(da)EndSub筆試模擬試題第一部分軟件技術(shù)基礎(chǔ)一、是非判斷題（每小題1分，共10分）（判斷下列各題是否正確，如正確，在客觀答題紙上對(duì)應(yīng)編號(hào)選，否則選）TOC\o"1-5"\h\z.順序表和線性鏈表的物理存貯形式都是順序存貯。 （）.數(shù)據(jù)類型是某種程序設(shè)計(jì)語言中已實(shí)現(xiàn)的數(shù)據(jù)結(jié)構(gòu)。 （）.如果通過軟件測(cè)試沒有發(fā)現(xiàn)錯(cuò)誤，則說明軟件是完全正確的。 （）.快速原型模型可以有效地適使用戶需求的動(dòng)態(tài)變化。 （）.不同進(jìn)程之間的動(dòng)作在時(shí)間上不能重疊。 （）.分區(qū)式存儲(chǔ)管理能夠進(jìn)行存儲(chǔ)空間共享。 （）.鏈接文件和索引文件都可以非連續(xù)存放。 （）.中斷處理一般分為中斷響應(yīng)和中斷處理兩個(gè)步驟。前者由軟件實(shí)施，后者主要由硬件實(shí)施。 （）.在C++語言中，“重載”表達(dá)了最簡(jiǎn)單的多態(tài)性。 （）.進(jìn)程調(diào)度根據(jù)一定的調(diào)度算法，從等待隊(duì)列中挑選出合適的進(jìn)程。 （）二、選擇題（每小題1分，共5分）.在數(shù)據(jù)結(jié)構(gòu)中，一個(gè)存儲(chǔ)結(jié)點(diǎn)存放一個(gè)（）。.把邏輯地址轉(zhuǎn)變?yōu)閮?nèi)存的物理地址的過程稱作（）。（A）編譯 （B）連接（C）運(yùn)行 （D）重定位3.SPOOLing技術(shù)可以實(shí)現(xiàn)設(shè)備的（）分配。（A）虛擬 （B）共享（C）獨(dú)占 （D）物理.允許用戶把若干作業(yè)提交計(jì)算機(jī)系統(tǒng)集中處理的操作系統(tǒng)稱為（）。（A）分時(shí)操作系統(tǒng) （B）實(shí)時(shí)操作系統(tǒng)（C）網(wǎng)絡(luò)操作系統(tǒng) （D）批處理操作系統(tǒng).進(jìn)程從運(yùn)行狀態(tài)進(jìn)入就緒狀態(tài)的原因可能是（）。（A）被選中占有處理機(jī) （B）時(shí)間片用完（C）等待的事件已發(fā)生 （D）等待某一事件第二部分語言程序設(shè)計(jì)第二部分語言程序設(shè)計(jì)(共85分)一、單項(xiàng)選擇題(1分/題，共10分).用于聲明全局變量的關(guān)鍵字是()。(A)Static (B)Private (C)Public (D)Dim.設(shè)a=20,b=15,c=6,執(zhí)行語句Printa>b>c后，窗體上顯示的是( )。True (B)False (C)20 (D)出錯(cuò)信息下列語句中a,b,x,y都是整型變量，則只有()語法格式是正確的。(A)y=(a-1)((A)y=(a-1)(b-1)(C)x=4a表達(dá)式4+5*7\8Mod9的值是((A)4 (B)5(D)ifa>b-2*3theny=a+b)。6 (D)8如果在窗體上已有一個(gè)文本框Textl和一個(gè)命令按鈕Commandl,再編寫以下事件:PrivateSubCommandl_Click()x=InputBox”請(qǐng)輸入y=InputBox”請(qǐng)輸入Text1.Text=X+y在運(yùn)行程序時(shí)輸入20和6,則在文本框Textl中顯示的內(nèi)容是()。(A)26 (A)26 (B)206.確定一個(gè)窗體大小的屬性是()。(A)Width和Height(C)Top和Left.在程序運(yùn)行時(shí)不能改變屬性的是((A)name (B)caption620(B)Width和TopTop和Height)。visible(D)出錯(cuò)enabledw8.下列哪個(gè)方法能將項(xiàng)目添加到ComboBox控件中()。(A(A)AddItem(B)List(C)AddNew (D)Move9.以下關(guān)于變量的敘述中不正確的是()。(A)在不同的函數(shù)或過程中可以使用DIM定義變量名相同的變量。(B)在forml窗體中定義的模塊級(jí)變量publicaasinteger可以在form2窗體中以forml.a的方式使用。(C)全局變量既能在標(biāo)準(zhǔn)模塊中定義，又能在窗體模塊中定義。VB的變量分為局部變量，模塊變量，和全局變量三種。.為了把一個(gè)記錄型變量的內(nèi)容寫入文件中指定的位置，所使用的語句的格式為()。Get文件號(hào)，記錄號(hào)，變量號(hào)Get文件號(hào)，變量號(hào)，記錄號(hào)Put文件號(hào)，變量號(hào)，記錄號(hào)Put文件號(hào)，記錄號(hào)，變量號(hào)二、程序閱讀(每個(gè)選擇3分，共45分)程序代碼如下：PrivateSubCommandl_Click()

n=Val(Textl)s=0k=0Fori=1Tonk=k+is=s+kNextiLabell.Caption=Str(s)EndSub(1)如果在Textl中輸入4,并單擊“Commandl”按鈕，則輸出的結(jié)果是()。TOC\o"1-5"\h\z\o"CurrentDocument"(A) 4 (B) 10 (C) 16 (D) 20(2)在該程序的窗體中至少定義了()個(gè)控件。\o"CurrentDocument"(A) 2 (B) 3 (C) 4 (D) 5(3)上述程序的功能是：()。(人)計(jì)算1+2+3+4+5+ +n(8)計(jì)算1+(2+2)+(3+3+3)+ + (n+n+n +n)(C)計(jì)算1+(1+2)十(1+2+3)+ + (1+2+3+ +n)(口)計(jì)算n+n+ +n程序代碼如下：PrivateSubCommandl_Click()DimiAsIntegerLL：Fori=1to4Printfun(i);NextiEndSubFunctionfun(nAsInteger)Ifn=0Orn=1ThenFun=1ElseFun=fun(n-1)+fun(n-2)EndIfEndFunction(1)單擊命令按鈕后，程序運(yùn)行的結(jié)果是()。1 2 3 4 (B)1 2 3 51 2 5 7 (D)1 2 5 8(2)如果將LL處的語句改為Fori=1To3,則函數(shù)fun()共執(zhí)行了多少次()。33.程序界面如下:5 33.程序界面如下:5 (C)8 (D)9Dimi%,strS$PrivateSubCommandl_Click()Dimn%strS=Text1Fori=0ToList1.ListCount-1n=InStr(List1.List(i),strS)Ifn<>0ThenListLRemoveItemii=i-1EndIfNextiEndSubPrivateSubCommand2_Click0DimflagAsBooleanflag=TruestrS=Text1Fori=0ToList1.ListCount-1IfstrS=List1.List1(i)Thenflag=FalseExitForEndIfNextiL1：IfflagThenList1.AddItemstrSEndSub(1)以下敘述正確的是()。(A)變量i、strS是局部變量(B)變量n存放的是strS在ListLList(i)中出現(xiàn)的位置comandl是一個(gè)控件數(shù)組L1行的語句相當(dāng)于Ifflag=falseThenListl.AddltemstrS(2)運(yùn)行程序時(shí)單擊commanl后()。(A)#listl中包含字符串“VB”的項(xiàng)目在textl中顯示(B)將“VB”添加在listl中(C)將listl中的“簡(jiǎn)明vb”、“VB習(xí)題集”、“VB程序設(shè)計(jì)”刪除(D)將listl中包含字符串“VB”的項(xiàng)目刪除(3)關(guān)于comman2的錯(cuò)誤描述是()。(A)取消exitfor,對(duì)程序的運(yùn)行結(jié)果沒有任何影響comman2的作用是將textl中和listl不重復(fù)的內(nèi)容添加到listl最后(C)單擊comman2后將字符串“VB”添加到listl的最后(D)單擊comman2后將字符串“VB”添加到listl的第一項(xiàng).程序代碼如下：PrivateSubForm_Click()DimiAsInteger,nAsIntegerDimfAsBooleanOpen“test.dat”ForoutputAs#1L1：Forn=3To100Step2f=Truei=2DoWhilei<Int(Sqr(n))+lAndfIfnModi=0Thenf=False

i=i+1LoopIffThenWrite#1,nNextnClose#1EndSub（1）數(shù)據(jù)文件'&51421”為（）。（B）二進(jìn)制文件（（B）二進(jìn)制文件（D）都可能（B）3~100之間的所有奇數(shù)（D）A、B、C都不對(duì)（C）順序文件（2）寫進(jìn)數(shù)據(jù)文件的數(shù)據(jù)為（）。（A）3?100之間的所有素?cái)?shù)（C）3?100之間的所有偶數(shù).程序代碼如下：PrivateSubCommandl_Click（）DimwordsAsString，tAsStringDimnAsInteger，xAsIntegerWords=inputBox''請(qǐng)輸入字符串：”n=Len（words）t=””Fori=1Tonch=Mid（words，i，1）AA：Ifch”“ThenIft=""Thenx=x+1t=chEndIfElsefffft=EndIfNextiPrintxEndSub（1）此程序的功能是（）。（A）統(tǒng)計(jì)字符串words的長度 （B）統(tǒng)計(jì)字符ch在字符串中出現(xiàn)的次數(shù)（C）統(tǒng)計(jì)字符串words中有多少空格 （D）統(tǒng)計(jì)字符串words中有多少單詞（2）如果inpubox輸入字符串“vbisok”（不含引號(hào)）。則程序運(yùn)行結(jié)果為（）。（A）8 （B）2 （C）3 （D）l（3）如果將AA處的語句改為Ifch=””Then,輸入字符串“vbisok”（不含引號(hào)），則程序運(yùn)行結(jié)果為（）。（A）8 （B）2 （C）3 （D）16.閱讀下面程序PrivateSubForm_Load（）Form1.Caption=" 用戶信息“Timer1.Interval=500Text1.Text="”EndSubPrivateSubText1_KeyPress（KeyAsciiAsInteger）X=（Chr（KeyAscii））SelectCaseX

Case"1":Form1.FontSize=12:Print''歡迎使用VB6.0”Case"2":Form1.Picture=LoadPicture（“d:\ll\IMG_0004.JPG”Case“3"J=InputBox“請(qǐng)輸入姓名““輸入”Form1.FontSize=11:Print"我的姓名是：”&jEndSelectEndSubPrivateSubTimerl_Timer（）s=Form1.Captionb=Len（s）Form1.Caption=Right（s,b-1）+Left（s,1）EndSub（1）該程序運(yùn)行時(shí)，如果想顯示自己的姓名應(yīng)該做哪些操作（）。（A）等待500毫秒后，再輸入姓名后回車（B）點(diǎn)擊“輸入”按鈕，再輸入姓名后回車（C）鍵盤輸入“2”再輸入姓名后回車（D）鍵盤輸入“3”再輸入姓名后回車（2）時(shí)鐘控件Timerl的作用是（）。（A）改變窗體標(biāo)題欄的長度（B）實(shí)現(xiàn)窗體標(biāo)題欄文字滾動(dòng)顯示的效果（C）改變文本框Text1的文字內(nèi)容（D）實(shí)現(xiàn)文本框Text1文字內(nèi)容滾動(dòng)顯示的效果_ _注意：①請(qǐng)把下面“程序填空”中各小題答案寫在主觀題答題紙上三、程序填空（每空一分空共:填一妙語句或一個(gè)語句所缺的部分內(nèi)容.以下程序的功能是：找出100?999之間能被3和7同時(shí)整除的整數(shù)，并顯示在列表框中。程序運(yùn)行結(jié)果如圖所示：567890123456567890123456024681357913111112222233按“顯示"按鈕可顯示10口-99叱間能被3和T整除的整數(shù)顯不圖PrivateSubCommandl_Click()DimiAsIntegerList1,ClearFori=100To999If ① Then ② EndIfNextiEndSub.以下程序的功能是隨機(jī)產(chǎn)生10個(gè)兩位整數(shù)，并將其按從小到大的順序排序后顯示輸入。

PrivateSubCommand1_Click()Dima(1To10)AsInteger,tempAsIntegerFori=1To10 ? Printa(i);NextiPrintFori=1To9For ② To10If ③ Thentemp=a(i)a(i)=a(j) ? EndIfNextjNextiFori=1To10Printa(i);NextiPrintEndSub.以下程序的功能是找出100以內(nèi)的孿生素?cái)?shù)。所謂“孿生素?cái)?shù)”是指兩個(gè)相差為2的素?cái)?shù)對(duì)，例如(3,5)、(5,7)、(11,13)等。程序運(yùn)行結(jié)果如下：PrivateSubForm_Click()DimaAsBoolean,bAsBooleana= ? Fori=3To100Step2Forj=2ToSqr(i)IfiModj=0Then ② NextjIfj>Sqr(i)Thenb=TrueElseb=FalseIfaAndbThenPrinti-2;iEndIfa= ③ NextiEndSub圖.已知程序運(yùn)行的結(jié)果為如下矩陣，請(qǐng)?zhí)羁铡?/p>

圖圖PrivateSubCommand1_Click()Dima(6,6)Fori=1To6Forj=1To6If ① Thena(i,j)=1Else ② EndIfNextjNextiFori=1To6Forj= ③ Printa(i,j);NextjPrintNextiEndSub.以下程序的功能是英文單詞填空游戲。程序會(huì)在窗體上顯示缺少一個(gè)字母的英文單詞及其漢語意思，要求輸入完整的英文單詞。如果輸入正確，則顯示“正確”如果輸入錯(cuò)誤，則顯示“錯(cuò)誤”最后統(tǒng)計(jì)正確的單詞數(shù)。其中，單詞所缺字母的位置是每次隨機(jī)變化的，可能出現(xiàn)在單詞的任意位置，缺少的字母用下畫線、”表示(例如，可能出現(xiàn)」iend或f_end，frie_d等)。控件Label3和Label4的Caption分別用來顯示一個(gè)單詞的英文及中文。請(qǐng)將該程序補(bǔ)充完整。|口|x|單詞小測(cè)試英文riend中文朋友圖單詞小測(cè)試英文riend中文朋友圖PrivateTypewordtypeenglishAsString單詞的英文ChineseAsString 單詞的中文numAsInteger 單詞的長度EndTypePrivateSubCommand1_Click()Dimword(1To3)AswordtypeDimanswerAsString“朋友”：word(1).num=6word(2).english="“朋友”：word(1).num=6word(2).english="help”:''好word(2).chinese=“幫助”：word(2).num=4word(3).english="good"word(3).chinese的”:word(3).num=4''好Fori=1To3Labell.Caption="”Label2.Caption="”Randomizex=.Forj=1Toword(i).numIf ② ThenLabell.Caption=Labell.Caption+Mid(word(i).english,j,1)ElseLabell.Caption=Labell.Caption+“”EndIfNextjLabel2.Caption=word(i).chineseanswer=InputBox、'請(qǐng)輸入完整單詞”Ifanswer= ? Thenk=k+1MsgBox“正確”ElseMsgBox''錯(cuò)誤”EndIfNextiPrint“正確的單詞數(shù)為”,kEndSub筆試模擬試題第一部分軟件技術(shù)基礎(chǔ)共15分）一、是非判斷題（每小題1分，共10分）（判斷下列各題是否正確，如正確，在客觀答題紙上對(duì)應(yīng)編號(hào)選A,否則選B）TOC\o"1-5"\h\z.數(shù)據(jù)在計(jì)算機(jī)內(nèi)存中的表示是指數(shù)據(jù)的存儲(chǔ)結(jié)構(gòu)。 （）.能影響中斷響應(yīng)次序的技術(shù)是中斷優(yōu)先級(jí)和中斷屏蔽。 （）.鏈表可以隨機(jī)訪問任意一個(gè)結(jié)點(diǎn)，而順序表則不能。 （）.作業(yè)和進(jìn)程的主要區(qū)別是前者是由用戶提交，后者是由系統(tǒng)自動(dòng)生成。 （）.Windows、OS/2、Linux微機(jī)操作系統(tǒng)都是多用戶多任務(wù)操作系統(tǒng)。 （）.數(shù)據(jù)的邏輯結(jié)構(gòu)是從邏輯關(guān)系上描述數(shù)據(jù)，它和數(shù)據(jù)的存儲(chǔ)結(jié)構(gòu)無關(guān)，是獨(dú)立于計(jì)算機(jī)的。 （）.流式文件和記錄式文件都以字符為基本單位進(jìn)行存取。 （）.不定長文件是指字段的長度不固定。 （）.軟件工程的三要素包括方法、工具和環(huán)境。 （）.軟件結(jié)構(gòu)是以指令為基礎(chǔ)而組成的一種控制層次結(jié)構(gòu)。 （）二、選擇題（每小題1分，共5分）.若進(jìn)棧序列為1,2,3,4,且進(jìn)棧過程中可以出棧，則不可能出棧的序列是（）。（A）1, 4,3,2 （B） 2,3, 4, 1（C）3, l,4,2 （D） 3,4, 2, 1.任何兩個(gè)并發(fā)進(jìn)程之間（）。（C）一定彼此獨(dú)立無關(guān) （D）可能存在同步或互斥關(guān)系.以下的哪個(gè)特征不是分時(shí)操作系統(tǒng)的主要特征（）。.以下的準(zhǔn)則中哪個(gè)不是面向?qū)ο筌浖O(shè)計(jì)應(yīng)遵循的（）。.需求分析中開發(fā)人員主要從用戶那里了解（）。（A）軟件做什么 （B）軟件的結(jié)構(gòu)（C）輸入的信息 （D）軟件的測(cè)試第二部分 語言程序設(shè)計(jì)(共85分)一、單項(xiàng)選擇題(1分/小題，共10分).在下列字符串中，不能用作VB變量名的是()。(A)8_num(B)instr6 (C)xy_int (D)f8.x是一個(gè)正實(shí)數(shù)，如果要四舍五入并保留兩位小數(shù)，則正確的表達(dá)式為()。(A)0.01*Int(x+0.005) (B)0.01*Int(100*x+0.5)(C)0.01*Int(100*x+0.05) (D)0.01*Int(x+0.05).正確表達(dá)命題“x和y都大于z”的表達(dá)式是()。(A)x>z (B)y>z(C)x>zAndy>z (D)x>zOry>z.若字符串5日2$和$1由$的取值為stra$=“Ilovemymother”strb$=Mid(stra,7,3)+Right(stra,6)則InStr(3,strb,"m")的函數(shù)值為()。(A)4 (B)2 (C)0 (D)1.如果要暫時(shí)關(guān)閉某個(gè)定時(shí)器，則必須通過設(shè)置其()屬性為False來實(shí)現(xiàn)。(A)Timer(B)InterVal (C)Enabled (D)Visible.在下列控件中，不接受焦點(diǎn)的是()。(A)Lable (B)Command (C)Text (D)Listbox.在VB中，要將一個(gè)窗體從內(nèi)存中釋放，應(yīng)使用的語句是()。(A)Show (B)Hide (C)Load (D)Unload.建立彈出式菜單的方法是()。(A)PopupMenu (B)ShowMenu(C)LoadMenu (D)A、B、C都可以9.以下關(guān)于Click事件描述中，錯(cuò)誤的說法是()。(A)此事件是在一個(gè)對(duì)象上按下，然后釋放一個(gè)鼠標(biāo)按鈕時(shí)發(fā)生(B)如果在Click事件中有代碼，則DlbClick事件將永遠(yuǎn)不會(huì)被觸發(fā)(C)此事件也會(huì)發(fā)生在一個(gè)控件的值改變時(shí)(D)對(duì)Form對(duì)象來說，該事件是在單擊一個(gè)空白區(qū)或無效控件時(shí)發(fā)生10.下面子過程語句不合法的是()。(A)FunctionFun%(Fun%) (B)SubFun(m%)AsInteger(C)FunctionFun(ByValm%) (D)SubFun(Fun)二、程序閱讀(每個(gè)選擇3分，共45分).程序如下PrivateSubCommand1_Click()DimxAsInteger,sxAsInteger,nAsIntegerRandomizeTimerX=Int(Rnd*5)+11Fori=2TOxn=Int(Sqr(i))Forj=2TonIfiModj=0ThenExitForNextjIfj>nThensx=sx+iNextiPrintsxEndSub(1)程序運(yùn)行時(shí)，內(nèi)層循環(huán)的次數(shù)的取值范圍為()。(B)0~2之間((B)0~2之間(D)1~12之間(B)2~x之間的所有奇數(shù)之和(D)2~x之間的所有數(shù)值之和(C)1~9之間(2)變量sx中存放的數(shù)是()。(A)2~x之間的所有素?cái)?shù)之和(C)2~x之間的所有偶數(shù)之和(3)假設(shè)x的值為14,則程序的運(yùn)行結(jié)果是()。(A)41 (B)48 (C)56 (D)1042.程序如下PrivateSubCommandl_Click()DimnAsIntegerDimrAsLongn=Val(InputBox(“請(qǐng)輸入一個(gè)數(shù)”))r=fun(n)Picture1.Printr,nEndSubFunctionfun(ByValnumAsInteger)AsLongDimkAsIntegerk=1num=Abs(num)DoWhilenumk=k*(numMod10)num=num\10Loopfun=kEndFunction(1)當(dāng)程序運(yùn)行時(shí)，如輸入74,則輸出結(jié)果為()。TOC\o"1-5"\h\z28 74 (B)28 047 74 (D)47 0(2)如果將程序中的語句“Functionfun(ByValnumAsInteger)AsLong改為“Functionfun(numAsInteger)AsLong”后，再輸入74,則輸出結(jié)果為()。(A)28 74 (B)28 047 74 (D)47 0

(3)該程序在窗體上至少設(shè)置了幾個(gè)控件？()(A)一個(gè)(B)二個(gè)(。三個(gè)(D)四個(gè)3.程序如下OptionBase1PrivateSubCommand1_Click()DimnAsIntegern=12ReDima(n)a=Array(45,2,7,1,13,42,98,0,65,33,0,0)Callfun(a(),n)Printa(11),a(12)EndSubSubfun(b(),mAsInteger)mx=1mn=1PrintUBound(b)Fork=2Tom-2Ifb(k)>b(mx)Thenmx=kIfb(k)<b(mn)Thenmn=kNextkb(m-1)=b(mx)b(m)=b(mn)EndSub(1)語句PrintUBound(b)的結(jié)果是( )。(D)10(A)13(B)12(C)11(2)程序運(yùn)行后a(11)的結(jié)果為()。(A)0(B)12(C)45(D)98(3)程序運(yùn)行后a(12)的結(jié)果為()。(A)0(B)45(C)65(D)98.程序界面如下:鄭李王劉胡明琴強(qiáng)樂兵88757213843鄭李王劉胡明琴強(qiáng)樂兵88757213843o9536477t-i?rI72178

明琴強(qiáng)樂兵

鄭李王劉胡CommandlComm：=LTLij2CommandlComm：=LTLij2圖PrivaleTypestunamAsStringscore(3)AsSingleEndTypeDimstudent()AsstuPrivateSubCOmmandl_C1ick()ReDimstudent(List1.ListCount-1)Open”成績dat”ForRandomAs#1

Fori=0ToListl.ListCount-1student(I).nam=listl.List(i)Forj=1To3student(i).score(j)=Int(Rnd*101)NextjPut#1,,Student(i)NextiCloscEndSubPrivateSubCommand2_Click()DimstAsstuOpen”成績dat”ForRandomAs#lDoUntilEOF(1)Get#1,,stPicture1.Printst.namForj=1To3PictureLPrintst.score(j);NextjPictureLPrintLoopCloseEndSubPrivateSubForm_Load()ListLAddItem”鄭明”ListLAddItem”李琴”LIStLAddItem”王強(qiáng)”ListLAddItem"劉樂”ListLAddItem"胡兵”EndSub(1)以下描述錯(cuò)誤的是()。student是一個(gè)用戶自定義的類型的動(dòng)態(tài)數(shù)組Stu是一個(gè)用戶自定義的類型score是一個(gè)用戶自定義的類型的靜態(tài)數(shù)組student(2).nam的值為王強(qiáng)command1的單擊事件的功能為()。(A)從list1讀學(xué)生姓名，然后從隨機(jī)文件〃成績.dat”中讀出對(duì)應(yīng)各種成績。(B)從listl讀學(xué)生姓名，并自動(dòng)生成各門課程成績，然后寫入隨機(jī)文件〃成績.dat”。(C)打開隨機(jī)文件〃成績?nèi)鐝V后自動(dòng)生成學(xué)生姓名和各門課程成績。(D)打開隨機(jī)文件〃成績.dat”刪除某些記錄。(3)程序中Get語句的作用是()。(A)讀數(shù)據(jù) (B)寫數(shù)據(jù)(C)修改數(shù)據(jù) (D)沒有固定作用.程序如下Dimx0%,y0%PrivateSubPicture1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingte,YAsSingle)IfButton=IThenx0=X:y0=YElseIfButton=2ThenxO=0:y0=0

ElselfButton=4ThenClsEndIfEndSubPrivateSubPicture1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1Thenrad=Rnd*2Picturel.PSet(x0,y0)Picturel.Circle(x0,y0),Sqr((x0-X)A2+(y0-Y)A2),,radElselfButton=2ThenPicturel.Line(x0,y0)-(X.Y),,BEndIfEndSub(1)程序執(zhí)行時(shí)，在Picture1上按下鼠標(biāo)左鍵，然后移動(dòng)一定距離后釋放，則()。(A)將清除Picturel上的所有圖形和文字(B)將畫出一個(gè)以鼠標(biāo)按下點(diǎn)為圓心的橢圓(C)將畫出一個(gè)以鼠標(biāo)按下點(diǎn)為圓心，鼠標(biāo)按下點(diǎn)到釋放點(diǎn)間距離為半徑的圓(D)將畫出一個(gè)以鼠標(biāo)按下點(diǎn)為圓心的扇形(2)程序執(zhí)行時(shí)，在Picturel上單擊鼠標(biāo)右鍵，則()。(A)將畫出一個(gè)以點(diǎn)(0,0)到點(diǎn)(x,y)的直線為對(duì)角線的空心距形(B)將畫出一個(gè)以點(diǎn)(0,0)到點(diǎn)(x,y)的直線為對(duì)角線的實(shí)心矩形(C)將畫出一條自(0,0)點(diǎn)到鼠標(biāo)釋放點(diǎn)(x,y)的直線(D)將清除窗體上的所有圖形和文字(3)程序執(zhí)行時(shí)，在窗體上單擊鼠標(biāo)中鍵，則()。(A)將清除Picturel上的所有圖形和文字(1注意將清除窗把體上的所有圖填鰭”文字各小題答案寫在主觀題答題紙上(C)窗體每化個(gè)空只填一個(gè)語句或一個(gè)語句所缺的部分內(nèi)容((口)將出現(xiàn)黑屏 - 三、程序填空(每空2分，共30分)1.根據(jù)以下公式求e的近似值，要求其誤差小于0.000001。請(qǐng)完善程序。2!3!n!PrivateSubForm_Clickf()DimiAsInteger,jAsInteger,nAsLongDimtAsSingle,eAsSinglee=0i=0n=1t=1DoWhile ① e=e+ti=i+1n=1Forj=lToi ② Nextjt=1/n

PrinteEndSub.下列程序的功能是：?jiǎn)螕舸绑w，在窗體上輸出如下結(jié)果，請(qǐng)?zhí)羁铡DPrivateSubForm_Click（）圖Dima（6,6）AsIntegerDimiAsInteger,jAsIntegerFori=1To6Forj=1To6Ifi=jOrj=1Thena（i,j）=1ElseIfi>jThen Else?EndIfPrintTab（6*j）;a（i，j）；NextjPrintNextiPrintEndSub.程序界面如下，該程序的功能是單擊“查找”按鈕后，尋找11?999之間滿足條件的數(shù)n，它滿足n、n2均為回文數(shù)（逆序排列后數(shù)值不變），并且將數(shù)n、M分別存在List1、List2中對(duì)應(yīng)輸出，請(qǐng)完善程序。PrivateSubCommand1_Click（）Dimi#,j#,k#,n%Fori=11To999j=iA2If ① ThenList1.AddItemiList2.AddItemjEndIfNextiEndSubFunctionIsHui（i#）AsBooleanDimlenN%,j%,s,flagAsBooleans=Trim（Str（i））lenN=Len（s） ②

Forj=1TolenN\2If ③ Thenflag=trueExitFunctionEndIfNextjIsHui=flagEndFunction.程序界面如下，程序的功能是：?jiǎn)螕簟敖y(tǒng)計(jì)”按鈕后，統(tǒng)計(jì)文本文件“data.txt”中各種字母（不區(qū)分大小寫）出現(xiàn)的次數(shù)，將統(tǒng)計(jì)結(jié)果存放在數(shù)組intCount中（字母“A”的次數(shù)存入intCount[l],字母“B”的次數(shù)存入intCount⑵……依次類推），并將出現(xiàn)次數(shù)大和1的字母及次數(shù)顯示在picture1中。要求按照每行6個(gè)的格式輸出。圖4OptionBase1PrivateSubCommandl_Click()ClsDimnum%,intCount%(26),cAsString1Open”data.txt”ForInputAs#lDoUntilEOF(1) c=UCase(c)Ifc〉="A"Andc<="Z"Then ② intCount(j)=intCount(j)+1EndIfLoopForj=1To26If= ③ ThenPicture1.PrintChr$(j+64);“="；intCount(j);num=num+1?EndIfNextjEndSub.以下程序的功能是：建立名為“test.txt”的順序文件。文件內(nèi)容來自文本框Textl,每當(dāng)按下回車鍵(￡仇0])寫入一條記錄，然后清除文本框的內(nèi)容；當(dāng)單擊命令按鈕Commandl時(shí)程序結(jié)束。PrivateSubForm_Load() m EndSub

PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenPrint#1,TextLText ② EndIfEndSubPrivateSubCommandl_Click()Close#1 ? EndSub筆試模擬試題第一部分軟件技術(shù)基礎(chǔ)共15分）一、是非判斷題（每小題1分，共10分）（判斷下列各題是否正確，如正確，在客觀答題紙上對(duì)應(yīng)編號(hào)選A,否則選B）TOC\o"1-5"\h\z.C++語言中所定義的類實(shí)際上也是一種數(shù)據(jù)類型。 （）.數(shù)據(jù)結(jié)構(gòu)的表示包括數(shù)據(jù)邏輯結(jié)構(gòu)和存儲(chǔ)結(jié)構(gòu)兩方面的表示。 （）.冒泡排序算法是一種只能實(shí)現(xiàn)升序排序，而不能實(shí)現(xiàn)降序排序的排序算法。（）.線性表采用鏈?zhǔn)酱鎯?chǔ)時(shí)，結(jié)點(diǎn)的存儲(chǔ)地址必須是連續(xù)的。 （）.棧頂?shù)奈恢檬请S著進(jìn)棧和退棧操作而變化的。 （）.在軟件生存期內(nèi)，軟件必須進(jìn)行維護(hù)，維護(hù)不會(huì)產(chǎn)生副作用。 （）.采用動(dòng)態(tài)重定位進(jìn)行地址轉(zhuǎn)換，允許程序在執(zhí)行過程中在內(nèi)存中移動(dòng)。而靜態(tài)重定位則不可以。 （）.在軟件的需求分析階段，要直接面向用戶，主要考慮用戶的經(jīng)濟(jì)承受能力和費(fèi)用的支付問題。 （）.需求分析階段的主要任務(wù)應(yīng)由系統(tǒng)分析員主持完成。 （）.操作系統(tǒng)是最重要的系統(tǒng)軟件。（）二、選擇題（每小題1分，共5分）1.）1.）（B）確定性（D）惟一性（A）可行性（C）有窮性.在多道程序設(shè)計(jì)系統(tǒng)中，處于后備狀態(tài)的作業(yè)要經(jīng)過（）調(diào)度后才能真正執(zhí)行。（A）作業(yè)調(diào)度 （B）作業(yè)調(diào)度和進(jìn)程調(diào)度（C）進(jìn)程調(diào)度 （D）作業(yè)調(diào)度和設(shè)備調(diào)度.為解決CPU和I/O設(shè)備之間速度匹配問題，常采用“緩沖區(qū)”方法。“緩沖區(qū)”的結(jié)構(gòu)多為：（）。（A）順序棧 （B）鏈棧 （C）順序隊(duì)列 （D）循環(huán)隊(duì)列.對(duì)象實(shí)現(xiàn)了數(shù)據(jù)和操作的結(jié)合，使數(shù)據(jù)和操作（）于對(duì)象的統(tǒng)一體中。（A）結(jié)合 （B）程序的效率 （C）封裝 （D）抽象.結(jié)構(gòu)化程序設(shè)計(jì)主要強(qiáng)調(diào)的是（）。（A）程序易讀性 （B）程序的效率（C）程序設(shè)計(jì)語言的先進(jìn)性 （D）程序的規(guī)模第二部分語言程序設(shè)計(jì)第二部分語言程序設(shè)計(jì)(共85分)一、單項(xiàng)選擇題(每題1分，共10分).在VisualBasic中，工程文件的的擴(kuò)展名為()。(A)EXE (B)BAS (C)FRM(D)VBP.在以下表達(dá)式中結(jié)果始終為“真”的是()。(A)Int(Rnd)=Fix(Rnd) (B)Int(Rnd*20)>Fix(Rnd*3+5)(C)Int(-Rnd)=Fix(-Rnd) (D)-Int(Rnd*20)<-Fix(Rnd*3+5).“x是小于10的非負(fù)數(shù)”，用VisualBasic表達(dá)式可寫為()。(A)0Wx<10 (B)0WxOrx<10(C)0<=xAndx<10 (D)0=<xOrx<10.語句“DimaAsInteger,b,cAsDouble”定義變量b并指定其類型為( )表示。(人)整型 6)雙精度型(C)變體類型 (D)語法錯(cuò)誤.函數(shù)String(3,”Str”)的返回值是()。(A)”StrStrStr" (B)“sss”(D)”StStSt”((D)”StStSt”.如果要使某控件可用，應(yīng)設(shè)置該控件的()屬性。(A)Caption (B)Enabled(C)Font(D)Visible.使用驅(qū)動(dòng)器列表框的()屬性可以設(shè)置或返回磁盤驅(qū)動(dòng)器的名稱。(D)Listlndex(A)ChDrive(B)Drive (C)(D)Listlndex.若想清除文本框Text中的文本內(nèi)容，其正確方法是()。TextI.Text="”Textl.TextI.Text="”Textl.clsTextl.Text=NullTextl.clear9.要強(qiáng)制對(duì)變量進(jìn)行顯式聲明時(shí)，應(yīng)使用說明語句()。PublicConst(PublicConst(C)OptionBaselOptionExplicit(D)OptionCompare10.下面關(guān)于使用程序中過程的說法正確的是(10.下面關(guān)于使用程序中過程的說法正確的是()。(A)過程的定義和過程的調(diào)用都可以嵌套。(B)過程的定義和過程的調(diào)用都不可以嵌套。(C)過程的定義可以嵌套，但過程的調(diào)用不能嵌套。(D)過程的定義不可以嵌套，但過程的調(diào)用可以嵌套。二、程序閱讀(每個(gè)選擇3分，共45分)1.程序如下PrivateSubForm_Click()L1:DimiAsIntegerDimisumAsIntegerFori=1To5isum=sum(i)NextiPrint“isum="；isumEndSubPrivateFunctionsum(nAsInteger)L2:DimjAsIntegerj=j+nn=n+2

sum=jEndFunction(1)該程序運(yùn)行時(shí)第一次單擊窗體，產(chǎn)生的結(jié)果是()。(A)isum=3 (B)isum=4 (C)isum=5 (D)isum=15(2)如果將L2語句改為：StaticjAsInteger,則程序運(yùn)行時(shí)第一次單擊窗體產(chǎn)生的結(jié)果為()。(A)isurn=3(B)isum=4(C)isum=5(D)isum=15(3)如果在原程序基礎(chǔ)上只將L1語句改為：PubliciAsInteger,則程序運(yùn)行時(shí)第一次單擊窗體產(chǎn)生的結(jié)果為()。(A)結(jié)果同(1) (B)結(jié)果同(2)(C)結(jié)果和(1)(2)都不相同 (D)程序有錯(cuò)，不能運(yùn)行.程序如下OptionBase1PrivateTypelistdata(10)AsIntegermaxAsIntegerEndTypePrivateSubCommandl_Click()DimaAslistDimbAsIntegerFori=1To6a.data(i)=2iNextia.max=6b=Val(InputBox''請(qǐng)輸入數(shù)據(jù)”Ifb>a.data(a.max)Thena.data(a.max+1)=bElsei=1DoWhile(b>a.data(i))i=i+1LoopLL:Forj=a.maxToiStep-1a.data(j+1)=a.data(j)Nextja.data(i)=bEndIfa.max=a.max+1Fori=1Toa.maxPrinta.data(i)NextiEndSub(1)此程序的功能是()。(A)在a.data這個(gè)數(shù)組中找到最小的數(shù)據(jù)(B)在a.data這個(gè)數(shù)組中找到最大的數(shù)據(jù)(C)在a.data這個(gè)數(shù)組中的a.max位置處插入一個(gè)數(shù)據(jù)(D)在a.data這個(gè)數(shù)組中插入一個(gè)數(shù)據(jù)，使原數(shù)組保持有序(2)a.max功能是()。(A)存放數(shù)組a.data中數(shù)據(jù)的個(gè)數(shù)EndSelectEndSelectEndSelectEndSelect(B)存放數(shù)組a.data中最大數(shù)據(jù)的值(C)存放數(shù)組a.data中最小數(shù)據(jù)的值(D)存放數(shù)組a.data可存放數(shù)據(jù)的最大個(gè)數(shù).程序如下OptionExplicitOptionBase1PrivateSubCommandl_Click()L1：Dimn,iAsInteger,jAsIntegerDimIntA()AsIntegerL2：n=Val(InputBox''請(qǐng)輸入數(shù)字”ReDimIntA(n,n)Fori=1TonForj=1TonIfi+j<=n+1ThenIntA(I,j)=i+jElseIntA(I,j)=IntA(i，j-1)+jEndIfNextj，iFori=1TonForj=iTonPrintIntA(I,j);NextjPrintNextiEndSub(1)在L1中所定義的變量n、i、j的類型為()。(A)i、j、n均為整型(B)i、j為整型，n為字符串類型(C)i、j為整型，n為變體型(D)i、j為整型，n無法確定(2)若在執(zhí)行L2時(shí)鍵入4,則程序執(zhí)行后窗體的輸出結(jié)果是()。(A) 2 3 45(B) 2 3 4 54 594 5 98128 121414(C) 2 3 45(D) 2 3 4 54 564 5 6676 7884.在窗體上創(chuàng)建一個(gè)名稱為Textl的文本框?qū)ο?，然后編寫如下程?PrivateSubText1_KeyPress(KeyAsciiAsInteger)StaticsAsIntegerDimcAsStringSelectCaseKeyAsciiCaseAsc“0"ToAsc(“9")s=s+(KeyAscii-Asc(“0”))Case13PrintsTextLLocked=TrueEndSub（1）若焦點(diǎn)位于文本框Textl中，則能夠觸發(fā)KeyPress事件的操作是（）。（A）單擊鼠標(biāo) 5）雙擊文本框（C）鼠標(biāo)滑過文本框 （D）按下鍵盤上的某個(gè)鍵（2）若焦點(diǎn)位于文本框Textl中時(shí)，輸入“3$14d28f”并按下回車鍵后，則窗體上輸出的結(jié)果是（）。（A）0 （B）4 （C）8 （D）17（3）若焦點(diǎn)位于文本框Text1中時(shí)，輸入“3$14d28f”并按下回車鍵后，以下說法中正確的是（）。（A）文本框Text1消失 （B）文本框Text1變灰（C）文本框Text1內(nèi)容改變 （D）文本框Text1不能被編輯.程序如下PrivateSubCommandl_Click()DimaStringAsString,bStringAsString,cStringAsStringDimaLengthAsInteger,bLengthAsIntegerDimtempAsStringDimiAsInteger,nAsIntegeraString=Text1.Text:bString=Text2.TextaLength=Len(aString):bLength=Len(bString)i=1:n=0DoWhilei<=aLengthtemp=Mid(aString,i,bLength)Iftemp>StringThencString=cString+Mid(aString,i,1)： i=i+1Elsei=i+bLengthEndIfLoopText3.Text=cStringEndSub(1)如果在文本框text1中輸入AABCBCCD,文本框text2中輸入BC,則運(yùn)行該程序并單擊Commandl按鈕后，文本框text3中顯示的字符串是()。(A)AABCCD (B)AABCBCCDBC(C)AACD (D)BCAABCBCCD(2)如果要用變量n統(tǒng)計(jì)在astring中bstring出現(xiàn)的次數(shù)，則()。(A)在cString=cString+Mid(aString,i,1)：i=i+1語句之后加上n=n+1這條語句(B)在i=i+bLength后加上n=n+1這條語句(C)在temp=Mid(aString,i,bLength)語句后加上n=n+1這條語句(D)在Loop之后加上n=n+1這條語句.閱讀下面的程序：OptionExplicitPrivateTyperecordData1AsString*5data2AsIntegerdata3AsSingleEndTypeDimDatRec()Asrecord,DatAsrecordPrivateSubCommand1_Click()

Dimi%,RecNum%,recTotal&Open”myfile.dat”ForRandomAs#2Len=Len(Dat)RecNum=InputBox''請(qǐng)輸入記錄號(hào)”RecTotal=Lof(2)/Len(Dat)ReDimDatRec(recTotal)Dat.data1="China”Dat.data2=56Dat.data3=89Fori=recTotalToRecNumStep-1Get#2,i,DatRec(i)Put#2,i+1,DatRec(i)NextiPut#2,RecNum,DatCloseEndSub(1)在文件myfile.dat中每條記錄的字節(jié)數(shù)為()。91011129101112(2)該程序的功能為()。(A)用變量dat的內(nèi)容代替指定記錄的內(nèi)容(B)將變量dat的內(nèi)容寫入指定記錄，文件中原有該條記錄及其后記錄均后移一位(C)將變量dat的內(nèi)容寫入指定記錄，文件中原有該條記錄及其后記錄刪除(D)將文件中指定記錄讀出放入變量dat中，文件中其余記錄刪除(3)程序中所定義的record是()。(A)用戶自定義類型 (B)變量(C)用戶自定義類型數(shù)組 (D)標(biāo)注類型三、程序填空(每空2分，共30分)1.以下程序的功能是：?jiǎn)螕裘畎粹o后，在窗體上顯示如下矩陣。TOC\o"1-5"\h\z\o"CurrentDocument"2 3 4 5\o"CurrentDocument"3 4 5 1\o"CurrentDocument"4 5 1 2\o"CurrentDocument"5 1 2 3\o"CurrentDocument"l 2 3 4OptionExplicitOptionBase1PrivateSubCommandl_Click()DimiAsInteger,jAsIntegerDima(5,5)AsIntegerFori=1To5a(1,i)=iNextiFori=2To5Forj=1To4a(i,j)= CD Nextja(i,j)=a(i-1,1)NextiFori=1To5Forj=1To5Printa(i,j)；

Nextj ② NextiEndSub.以下函數(shù)可將一個(gè)(0?255)之間十進(jìn)制數(shù)轉(zhuǎn)換為二進(jìn)制數(shù)，例如：將十進(jìn)制數(shù)“3”轉(zhuǎn)換為二進(jìn)制數(shù)“00000011”將十進(jìn)制數(shù)“255”轉(zhuǎn)換為二進(jìn)制數(shù)“11111111”PrivateFunctionDTob(decadeAsString)AsStringDimbinaryAsStringbinary=“”n=Val(decade)Fori=1To8binary= (X) n=n\2Nexti ② EndFunction.從鍵盤輸入10個(gè)整數(shù)置于數(shù)組a中，并使a中數(shù)據(jù)按升序排序。OptionExplicitOptionBase1PrivateSubForm_Click()Dima(10)AsIntegerDimiAsInteger,jAsInteger,kAsIntegerFori=1To10a6=Val(InputBox“請(qǐng)輸入原始數(shù)據(jù)：”Printa(i);NextiPrintFori=1To9 For ? Ifa(j)<a(k)Thenk=jNextjIfk>iThen ③ NextiFori=1To10Printa(i);NextiPrintEndSubPrivateSubSwap(xAsInteger,yAsinteger)DimzAsIntegerz=x ? y=zEndSub.以下程序的功能是：產(chǎn)生n個(gè)［10,300］范圍內(nèi)的互不相同的隨機(jī)素?cái)?shù)并存放在數(shù)組IntA中。請(qǐng)完善程序：PrivateSubCommandl_Click()DimintA()AsInteger

DimnAsInteger,iAsInteger,jAsIntegerDimnumAsInteger,countAsInteger,tempAsIntegerDimtagAsBooleann=InputBox''請(qǐng)輸入需產(chǎn)生的數(shù)據(jù)個(gè)數(shù)：”ReDimintA(n)DoUntilcount=nTag=TrueNum= (X) Temp=Sqr(num)Fori=2TotempIf ② ThenExitForNextiIfi>tempThenForj=1TocountIfnum=intA(j)Then?ExitForEndIfN