1、2010年3月計(jì)算機(jī)等級(jí)考試二級(jí)筆試試Visual Basic 語(yǔ)言程序設(shè) 對(duì)長(zhǎng)度為 n 的有序鏈表進(jìn)行查找，情況下需要的比較次數(shù)為 對(duì)長(zhǎng)度為 n 的有序鏈表進(jìn)行對(duì)分查找，情況下需要的比較次數(shù)為(n/2) 編ABABCa12b22c32d32ABCc32d32AC）Dim arr()ReDimarr(50)AsString D）Dim arr(50)As IntegerReDim arr(50)AsReDim Function (By Val xAs Integer, ByValy As Integer) As A）Print (8,12)，(12,16)，(8,12,16) C） print

2、 (8,12) ，(12,16) ，(8,(12,16)有下面的程序段，其功能是按圖1 所示的規(guī)律輸出數(shù)據(jù)2 3 4 5 2 3 4 5 3 4 5 6 4 5 6 7 2 3 3 4 4 5 5 6 6 7 Forj=1To圖圖若要按2 所示的規(guī)律繼續(xù)輸出數(shù)據(jù)，則接在上述程序段后面的程序段應(yīng)該是（ A）Fori=l To B）Fori=1 To Forj=1 To Forj=l ToPrint PrintC）For j=1 To D）Fori=1 To Fori=l ToForj=l ToPrint Print PrivateSubCommandl_click() Dim nIfTextl.

3、Text123456Then Print口令輸入錯(cuò)誤 n 次 EndIfEnd 希望程序運(yùn)行時(shí)得到左圖所示的效果，即：輸令，單擊“確認(rèn)口令”命令按鈕，若輸入的口令不是 修改。下面修改方案中正確的是（ 。Dimn Print口令輸入錯(cuò)誤& n &次Print口令輸入錯(cuò)誤+n+次Print口令輸入錯(cuò)誤&n&次Print口令輸入錯(cuò)誤&Str(n)&次 D）把 Dim n 改為 Static n要求當(dāng)鼠標(biāo)在框P1 中移動(dòng)時(shí)，立即在中顯示鼠標(biāo)的位置坐標(biāo)。下面能正確實(shí)現(xiàn)上述功能的事PrivateSubP1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle

4、,YAsSingle) Print X,YPrivateSubP1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) Picture. Print X,YEnd PrivateSubP1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) P1.Print X,YPrivateSubForm_MouseMove(ButtonAsIntegerShiftAsInteger,XAsSingle,YAsSingle) P1.Print X,YEnd 計(jì)算

5、的近似值的一個(gè)公式是 4 1 1 1 .并輸出 的近似值PrivateSubCommandl_Click() Fork=3 ToNext k Print PI*4End 3 5 2n1 運(yùn)行后發(fā)現(xiàn)結(jié)果為 3.22751，顯然，程序需要修改。下面修改方案中正確的是（A） 把 For k=3 To n 改為 For k=1 To nB）把n=20000 改為n=20000000 C）把 For k=3 To n 改為 For k=3 To n Step 2D）把 PI=1 改為 PI=0PrivateSubCommandl_Click() LoopUntil a= 0 PrintsEnd A）13

6、+23+33+103的D）10 個(gè)103的PrivateTypeCode As Integer End Dimarr(5)As）Print arr.Code(2), arr. B）Print arr.Code, Print D）Print Private Sub Commandl_Click() CD1.Fiter=所有文件|*.*|Word文檔|*.doc|文本文件|*.txt IfCD1.FileNameThen End Sub但實(shí)際顯示的框中列出了C:下的所有文件和文件夾，“文件類型”一欄中顯示的是“所有文件”。下面的修改方案中正確的是（ 。CD1.Action=2 B）把“CD1.Fi

7、lter=”后面字符串的“所有文件”改為“文本文件” C） 在語(yǔ)句 CD1.Action=1 的前面添加：CD1.FilterIndex=3把 CD1.FileName=改為 CD1.FileName=文本文件下面程序運(yùn)行時(shí)，若輸入395，則輸出結(jié)果是PrivateSubCommandl_Click() Dim x% PrintxMod10, x100,(xModEnd A）3 9 3 C）5 9 D）3 5 Private Sub Fork=Listl.ListCount-1To0Step-1 If Listl.Selected(k) ThenList2.AddItemListl.List(

8、k) Listl.RemoveItem kNext kEnd 程序運(yùn)行時(shí)，按照?qǐng)D示Listl 中選擇2 個(gè)列表項(xiàng)，然后單Commandl 命令按鈕，則產(chǎn)生的結(jié)果（ 在List2 中了“外語(yǔ)”、“物理”兩項(xiàng) B）在Listl 中刪除了“外語(yǔ)”、“物理”兩項(xiàng) C）同時(shí)產(chǎn)生 A)和 B)的結(jié)果D）把Listl中最后1個(gè)列表項(xiàng)刪除并到List22 個(gè)窗體：Forml、Form2，F(xiàn)orm1 為啟動(dòng)窗體。Form2 中有菜單，其結(jié)構(gòu)如表。要求在程序運(yùn)行時(shí)，在Forml 的文本框Text1 中輸令并按回車鍵（回車鍵的ASCIIEnd IfEnd If End 程序運(yùn)行時(shí)發(fā)現(xiàn)剛輸令時(shí)就隱藏了Forml，顯示

9、了Form2，程序需要修改。下面修改方案中正確的把 Forml 中 Textl 文本框及相關(guān)程序放到 Form2 窗體中 B）把Forml.Hide、Form2 .Show 兩行移動(dòng)到 2 End If 之問(wèn) C）把If KeyAsii=13 Then If KeyAscii=Teacher ThenD）把 2 個(gè) Form2.input.Visible 中的“Form2.”刪去 Private Sub Command1_Click() Open out.txt ForOutputAs#2 Print TextlClose#2 End Sub把 Print Textl 改為 Print #2,

10、TextlB）把Printtextl改為PrintTextl C）把 Print Textl 改為 WriteTextl D）把所有#2 改為#1PrivateSubCommandl_Click() Dim arr(5) As Integer For k=1 To 5Next k Progarr()Fork=1To5 Print arr(k); Next kEnd Subprog(a()AsInteger) Fori=nTo2step-1 Forj=1Ton-if a(j)a(j+1) Then t=a(j):a(j)=a(j+1):a(j+1)=tNext jEnd SubA）l 23 B）

11、5 4 3 2 C）0 1 23 D）4 3 2l End IfNext k Fork=lTo25Ifm2 Print iEnd 程序運(yùn)行后，單擊窗體，輸出結(jié)果為 【10】 在窗體上畫(huà)一個(gè)名稱為Command1 令按鈕。然后編寫如下程序Option BasePrivateSubCommandl_Click() Dim a (10) As IntegerFori=ToCall swap( 【11】 ) Fori=1 ToPrint End SubSubswap(b()AsInteger) Fori=1 Tot=b(i) : b(i)=b(n) : 【12】 End Sub上述程序的功能是，通過(guò)調(diào)

12、用過(guò)程swap，調(diào)換數(shù)組中數(shù)值的存放位置，即 a(1)與 a(10)的值互換Private Sub Opend:testsmtextl.txtForInputAs1 Do While Not 【13】 。Line 【14】 Opend:testsmtext2.txtForOutputAs1 Print #1, 【15】 。Close#1 End Sub運(yùn)行程序，單擊窗體，將把磁盤文件smtext1.txt 的內(nèi)容讀到內(nèi)存并在文本框中顯示出來(lái)，然后把該文本框中的內(nèi)容存入磁盤文件 smtext2.txt。請(qǐng)?zhí)羁铡?010年3月計(jì)算機(jī)等級(jí)考試二級(jí)筆試試Visual Basic 參考答案及 （1）A）

13、 【解析】本題主要考查的知識(shí)點(diǎn)為查找技術(shù)。順序查找的使用情況：線性表為無(wú)序表；表（2）D） 【解析】算法的時(shí)間復(fù)雜度，是指執(zhí)行算法所需要的計(jì)算工作量。算法的工作量可以用算法在（3） 】。用統(tǒng)、支撐（或工具。應(yīng)用是為解決特定領(lǐng)域的應(yīng)用而開(kāi)發(fā)的。系統(tǒng)是計(jì)算機(jī)管理自身資源，提高計(jì)算機(jī)使用效率并為計(jì)算機(jī)用戶提供各種服務(wù)的。支撐是介于系統(tǒng)應(yīng)用之間，協(xié)助用 戶發(fā)具性，輔支和應(yīng)用具還助理 制程 和理具。（4）A） 【解析】在對(duì)程序進(jìn)行了成功的測(cè)試之后將進(jìn)入程序調(diào)試（通常稱 Debug，即排錯(cuò)。程序調(diào)試的任務(wù)是 和改正程序中的錯(cuò)誤。它與 測(cè)試不同， 測(cè)試是盡可能多地發(fā)現(xiàn) 中的錯(cuò)誤。先要發(fā)現(xiàn) 的錯(cuò)誤，然后借助于

14、一定的調(diào)試工具去執(zhí)行并找出錯(cuò)誤的具 置。 測(cè)試貫穿整個(gè) 生命期，調(diào)試 （6）B） 【解析】本題考查 生命周期的相關(guān)概念。通常，將 產(chǎn)品從提出、實(shí)現(xiàn)、使用 到停止使用退役的過(guò)程稱為 生命周期。也就是說(shuō)， 產(chǎn)品從考慮其概念開(kāi)始，到該 產(chǎn)品不能使用為止的整個(gè)時(shí)期都屬于 生命周期。一般包括可行性研究與需求分析、設(shè)計(jì)、實(shí)現(xiàn)、測(cè)試、交付使用以及 等活動(dòng)。還可以將 生命周期分為 定義、 開(kāi)發(fā)及 運(yùn)行 三個(gè)階段。（7）A） 【解析】數(shù)據(jù)庫(kù)管理系 般提供相應(yīng)的數(shù)據(jù)語(yǔ)言，它們分別是：數(shù)據(jù)定義語(yǔ)言，負(fù)責(zé)數(shù)據(jù)的模式定義與數(shù)據(jù)的物理存取構(gòu)建；數(shù)據(jù) 語(yǔ)言，負(fù)責(zé)數(shù)據(jù)的 ，包括查詢及增、刪、改等操作；數(shù)據(jù)控制語(yǔ)（8）D） 【

15、解析】本題考查關(guān)系數(shù)據(jù)庫(kù)中，數(shù)據(jù)單位的相關(guān)概念。文件是指在外部介質(zhì)上的數(shù)據(jù)的（9）C） 【解析】E-R 模型（實(shí)體聯(lián)系模型）是將現(xiàn)實(shí)世界的要求轉(zhuǎn)化成實(shí)體、聯(lián)系、屬性等幾個(gè)基本 為運(yùn)行按鈕，選項(xiàng) C）為添加 Standard EXE 工程按鈕，選項(xiàng) D）為終止運(yùn)行按鈕。（12）B）解析】IIf函數(shù)可以用來(lái)執(zhí)行簡(jiǎn)單的條件判斷操作，它是“IfThenElse”結(jié)構(gòu)的簡(jiǎn)寫版本， 當(dāng)“條件”為真時(shí)，IIf 函數(shù)返回“True 部分”，否則返回“False 部分”。“True 部分”或“False 部分”可以是表達(dá)式、變量或其他函數(shù)。本題中 IIf 函數(shù)的作用是如果 x0 則返回-x，否則返回 x，等價(jià)于

16、-|x|。（13）C）【解析】在VB 中，可以顯式變量和隱式變量。如果使用Dim、Public、Static 等關(guān)鍵就是使用%來(lái)隱式，其類型為整型。（14）A） 【解析】框架控件的 Caption 屬性用來(lái)顯示說(shuō)明性的文字，Left 屬性來(lái)指定框架左側(cè)坐標(biāo)， Enabled 屬性用來(lái)指定框架是否可Text 屬性用于返回或設(shè)置文本框中的內(nèi)容，具有該屬性的控件有文本（15）D） 【解析】MsgBox()函數(shù)用于顯示提示信息，并可返回一用戶單擊了哪個(gè)按鈕的 Integer（28）由ype 關(guān)鍵字，在中要型的所有域。若用自定義類型一個(gè)變量，則該變量擁有若干域，取得每個(gè)域的值需要用“變量名.”的能想 rr()rr().ode和ar(2apton。（29）在VB 用ction 的iter屬性用于設(shè)置過(guò)濾器；efaltt 屬性為該框返回置缺省的文件擴(kuò)展名；FilterIndex 屬性返回或設(shè)置 “打開(kāi)”或“另存為”框中一個(gè)缺省的過(guò)濾器。當(dāng)使用 Filte