二級Visual+Basic語言程序設(shè)計模擬216

1、 模擬 二級 Visual Basic 語言程序設(shè)計模擬 216單項選擇題第 1 題：對長度為 n 的線性表排序，在最壞情況下，比較次數(shù)不是 n（n 1）/2 的排序方 法是。A. 快速排序B. 冒泡排序C. 直接插入排序D. 堆排序參考答案： D除了堆排序算法的比較次數(shù)是 O（nlog2n） ，其他的都是 n（n 1）/2 。 第 2 題：下列敘述中正確的是 。A .棧是"先進先出 "的線性表B. 隊列是"先進后出"的線性表C. 循環(huán)隊列是非線性結(jié)構(gòu)D. 有序線性表既可以采用順序存儲結(jié)構(gòu)，也可以采用鏈式存儲結(jié)構(gòu) 參考答案： D棧是先進后出的線性表，所以

2、 A錯誤；隊列是先進先出的線性表，所以 B錯誤; 循環(huán)隊列是線性結(jié)構(gòu)的線性表，所以C錯誤。第 3 題：Visual Basic 中的"啟動對象"是指啟動 Visual Basic 應(yīng)用程序時，被自動加 載并首先執(zhí)行的對象。下列關(guān)于 Visual Basic" 啟動對象 "的描述中，錯誤的是A. 啟動對象可以是指定的標準模塊B. 啟動對象可以是指定的窗體C. 啟動對象可以是Sub Main過程D. 若沒有經(jīng)過設(shè)置，則默認的"啟動對象"是第一個被創(chuàng)建的窗體 參考答案： AVB中啟動對象可以是Sub Main過程或窗體，不能是標準模塊。故

3、A選項錯誤 第 4 題：算法的空間復(fù)雜度是指 。A. 算法在執(zhí)行過程中所需要的計算機存儲空間B .算法所處理的數(shù)據(jù)量C. 算法程序中的語句或指令條數(shù)D. 算法在執(zhí)行過程中所需要的臨時工作單元數(shù) 參考答案： A算法的空間復(fù)雜度是指算法在執(zhí)行過程中所需要的內(nèi)存空間。所以選擇A。第 5 題：對于循環(huán)隊列，下列敘述中正確的是 。A. 隊頭指針是固定不變的B. 隊頭指針一定大于隊尾指針C. 隊頭指針一定小于隊尾指針D. 隊頭指針可以大于隊尾指針，也可以小于隊尾指針 參考答案： D循環(huán)隊列的隊頭指針與隊尾指針都不是固定的， 隨著入隊與出隊操作要進行變化。 因為是循環(huán)利用的隊列結(jié)構(gòu)所以對頭指針有時可能大于隊

4、尾指針有時也可能小 于隊尾指針。第 6 題：設(shè)循環(huán)隊列為Q(1:m)，其初始狀態(tài)為front=rear=m。經(jīng)過一系列入隊與退隊運 算后， front=20 ， rear=15 ?，F(xiàn)要在該循環(huán)隊列中尋找最小值的元素，最壞情況 下需要比較的次數(shù)為A. 5B. 6C. m-5D. m-6參考答案： D循環(huán)隊列是隊列的一種順序存儲結(jié)構(gòu)， 用隊尾指針 rear 指向隊列中的隊尾元素， 用排頭指針指向排頭元素的前一個位置， 因此，從排頭指針 front 指向的后一個 位置直到隊尾指針 rear 指向的位置之間所有的元素均為隊列中的元素，隊列初始狀態(tài)為 front=rear=m，當 front=20 ，r

5、ear=15 時，隊列中有 m-20+15=m-5個 元素，比較次數(shù)為m-6次，D選項正確。第 7 題： 在面向?qū)ο蠓椒ㄖ?，不屬?" 對象" 基本特點的是 。A. 一致性B. 分類性C. 多態(tài)性D. 標識唯一性參考答案： A對象有如下一些基本特點：標識唯一性、分類性、多態(tài)性、封裝性、模塊獨立性 好。所以選擇 A。第 8 題： 一間宿舍可住多個學生，則實體宿舍和學生之間的聯(lián)系是 。A. 一對一B. 一對多C. 多對一D. 多對多參考答案： B因為一間宿舍可以住多個學生即多個學生住在一個宿舍中， 但一個學生只能住一 間宿舍，所以實體宿舍和學生之間是一對多的關(guān)系。第 9 題：順

6、序文件在一次打開期間 。A. 只能讀，不能寫B(tài). 只能寫，不能讀C. 既可讀，又可寫D. 或者只讀，或者只寫參考答案： D順序文件的讀寫是由Open語句的打開模式?jīng)Q定。用Output模式打開，則可對順 序文件進行寫操作；用 Input 模式打開，可對順序文件進行讀操作；用 Append 模式打開，可將數(shù)據(jù)追加到文件尾部。打開一次期間，只能讀，或只能寫，不能 同時進行讀寫操作。但隨機文件和二進制文件打開以后可以同時進行讀寫操作。故 D 選項正確。第 10 題： 為了建立隨機文件，要求文件的每條記錄應(yīng)包含多個不同數(shù)據(jù)類型的數(shù)據(jù)項， 則記錄應(yīng)使用的數(shù)據(jù)類型是A. 記錄類型B. 字符串類型C. 字符串

7、數(shù)組D. 變體類型參考答案： AType 語句定義的類型又稱記錄類型，記錄類型文件的每條記錄應(yīng)包含多個不同 數(shù)據(jù)類型的數(shù)據(jù)項，故Type語句定義的類型滿足題目需求，記錄應(yīng)使用的數(shù)據(jù)類型是為記錄型數(shù)據(jù)，選項 A 正確。 B、C、D 項不能包含多個不同數(shù)據(jù)類型的， 故都錯誤。第 11 題：在VB集成環(huán)境中要結(jié)束一個正在運行的工程，可單擊工具欄上的一個按鈕，這 個按鈕是 。參考答案：D 第 12 題： 設(shè)x是整型變量，與函數(shù)llf(x > 0, x, x)有相同結(jié)果的代數(shù)式是A. |x|B. |x|C. xD. x 參考答案： B llF 函數(shù)是條件函數(shù),本題的含義是如果 x> 0 條件

8、成立,即 x 為正數(shù),就返回 x,即x的負數(shù)，否則返回x(它本身),兩種情況都是返回負數(shù)。根據(jù)這一點， 選項B符合要求。故B選項正確。第 13 題： 下面有關(guān)標準模塊的敘述中，錯誤的是 。A. 標準模塊不完全由代碼組成，還可以有窗體B. 標準模塊中的Private過程不能被工程中的其他模塊調(diào)用C. 標準模塊的文件擴展名為.basD. 標準模塊中的全局變量可以被工程中的任何模塊引用參考答案： A標準模塊中只包含其他窗體模塊中公用的一些變量、過程等代碼，不包括窗體。 故選項A錯誤。標準模塊中用Private聲明的過程屬于私有過程，只能被它所在的模塊中的其他過程調(diào)用，不能被工程中其他模塊調(diào)用，用 P

9、ublic 聲 明的全局變量屬于公用變量， 可以被工程中的任何模塊引用。 標準模塊的文件擴 展名是 .bas 。第 14 題：以下數(shù)組定義語句中，錯誤的是 。A. Static a(10)As lntegerB. Dim c(3 ， 1 To 4)C. Dim d( 10)D. Dim b(0 To 5 ， 1 To 3)As Integer參考答案： C第 15 題： 以下關(guān)于過程及過程參數(shù)的描述中，錯誤的是 。A. 調(diào)用過程時可以用控件名稱作為實際參數(shù)B. 用數(shù)組作為過程的參數(shù)時，使用的是 " 傳地址" 方式C. 只有函數(shù)過程能夠?qū)⑦^程中處理的信息傳回到調(diào)用的程序中D.

10、 窗體(Form)可以作為過程的參數(shù)參考答案： C過程定義時，形參除了可以是整型、單精度、雙精度等數(shù)據(jù)類型外，還可以是控 件或窗口等對象型。 相對應(yīng)的調(diào)用過程時實參也可以是一般數(shù)據(jù)類型、 控件名或 窗體。故A、D選項正確。調(diào)用過程時，如果過程的參數(shù)是數(shù)組，則實參傳給形參的是地址， 這個地址是用數(shù)組名表示的一個符號地址， 是數(shù)組的起始地 址，形參和實參用的是同一個地址， 在過程中形參的改變會引起實參的改變。 故 B選項正確。在過程調(diào)用時，不只是函數(shù)過程能把過程中處理的信息傳回到調(diào)用程序中，Sub過程也可以。Sub過程中形參聲明時前面有關(guān)鍵字 ByRef 或省略ByRef(默認)時，實參和形參之間

11、傳遞的是地址，Sub過程中形參的變化也會引起實參的變化，這樣Sub過程中處理的信息也可以傳回調(diào)用程序中。故 C 選項說法錯誤。第 16 題：窗體上建立了一個名為Com mon Dial ongl的通用對話框，用下面的語句建立一個 對話框： CommonDialong1Action=2 ，則以下語句與之等價的是 () 。A. CommonDialon 1ShowOpenB. CommonDialog 1ShowSaveC. CommonDialog1ShowColorD. CommonDialog1ShowFont參考答案： B本題考查通用對話框。系統(tǒng)提供了 6 種通用對話框?？梢岳闷?Act

12、ion 值和提 供的不同方法來區(qū)分不同的對話框。 Action 取值可為： 1、 2、 3、 4、 5、 6，對應(yīng) 的方法分別為 ShowOpen、 ShowSave、 ShowColor、 ShowFont、 ShowPrimer、 ShowHelp。 第 17 題： 若實體A和B是一對多的聯(lián)系，實體B和C是一對一的聯(lián)系，則實體 A和C的 聯(lián)系是A. 一對一B. 一對多C. 多對一D. 多對多參考答案： BA和B為一對多的聯(lián)系，則對于 A中的每一個實體，B中有多個實體與之聯(lián)系，而 B 與 C 為一對一聯(lián)系，則對于 B 中的每一個實體， C 中之多有一個實體與之聯(lián) 系，則可推出對于A中的每一個

13、實體，C中有多個實體與聯(lián)系，所以為一對多聯(lián) 系。第 18 題： 可以產(chǎn)生3050(含30和50)之間的隨機整數(shù)的表達式是 。A. Int(Rnd*21 30)B. Int(Rnd*20 30)C. Int(Rnd*50 Rnd*30)D. Int(Rnd*30 50)參考答案： A第 19 題： 為了使文本框同時具有垂直和水平滾動條，應(yīng)先把 MultiLine 屬性設(shè)置為 True ，然后再把 ScrollBars 屬性設(shè)置為 。A. 0B. 1C. 2D. 3參考答案： D文檔的 ScrollBars 屬性值， 0 表示無滾動條， 1 表示只有水平滾動條， 2 表示只 有垂直滾動條，3表示水

14、平和垂直滾動條都有。故 D選項正確。第 20 題：某人編寫了下面的程序，希望能把 Text1 文本框中的內(nèi)容寫到 out.txt 文件 中：Private Sub Command1_Click()Open "out.txt" For Output As #2Print "Text1"Close #2End Sub調(diào)試時發(fā)現(xiàn)沒有達到目的，為實現(xiàn)上述目的，應(yīng)做的修改是A. 把 Print "Text1"B. 把 Print "Text1"改為 Print #2 ， Text1改為 Print Text1C.把 Prin

15、t "Textl"改為 Write "Text1"D.把所有#2改為#1參考答案： A要把文本框中的內(nèi)容寫入文本文件中，首先要用 Open語句的For Output模式 打開文本文件， 并為文件制定一個文件號， 然后， 用 Print 語句將文本寫入文本 文件，最后關(guān)閉文件。本題中 Click 事件過程中第 1、3條語句正確。第2條語句Print語句的格式是：Print#文件號，要寫入的內(nèi)容，原語句錯誤。根據(jù)格式按選項A修改正確，故A選項正確。第 21 題：以下能夠觸發(fā)文本框Change事件的操作是。A. 文本框失去焦點B. 文本框獲得焦點C. 設(shè)置文本

16、框的焦點D. 改變文本框的內(nèi)容 參考答案： D改變文本框中的內(nèi)容時就會觸發(fā)它的 Change事件，故選B第 22 題：構(gòu)成計算機軟件的是A. 源代碼B. 程序和數(shù)據(jù)C. 程序和文檔D. 程序、數(shù)據(jù)及相關(guān)文檔參考答案： D軟件指的是計算機系統(tǒng)中與硬件相互依賴的另一部分， 包括程序、 數(shù)據(jù)和有關(guān)的 文檔，選 D。第 23 題：在關(guān)系A(chǔ)（S, SN D）和B（D, CN NM中，A的主關(guān)鍵字是S，B的主關(guān)鍵字是D,則D是A的A. 外鍵（碼）B. 候選鍵（碼）C. 主鍵（碼）D. 元組參考答案： A第 24 題： 以下說法中正確的是 。A. 當焦點在某個控件上時，按下一個字母鍵，就會執(zhí)行該控件的Key

17、Press事 件過程B. 因為窗體不接受焦點，所以窗體不存在自己的KeyPress事件過程C. 若按下的鍵相同，KeyPress事件過程中的KeyAscii參數(shù)與KeyDown事件 過程中的KeyCode參數(shù)的值也相同D. 在KeyPress事件過程中，KeyAscii參數(shù)可以省略參考答案： AB選項錯誤原因：窗體有自己的KeyPress事件過程；C選項錯誤原因：KeyPress 事件過程中的 KeyAscii 參數(shù)返回按鍵的 ASCII 碼值，大小寫字母返回值不同； 而KeyDown事件過程中的KeyCode參數(shù)返回的是按鍵代碼，大小寫字母返回值相 同。故按下的鍵相同時，keyAscii和K

18、eyCode參數(shù)不一定返回相同值；D選項錯 誤原因：KeyPress事件中的KeyAscii參數(shù)不能省略。A選項正確。第 25 題：下列關(guān)于通用對話框 CommonDialog1的敘述中，錯誤的是 。A. 只要在"打開"對話框中選擇了文件，并單擊"打開"按鈕，就可以將選中的文件打開B. 使用CommonDialogl.ShowColor方法，可以顯示"顏色"對話框C. CancelError 屬性用于控制用戶單擊 "取消"按鈕關(guān)閉對話框時，是否顯示 出錯警告D. 在顯示"字體"對話框前，必須先設(shè)

19、置 CommonDialogl的Flags屬性，否則 會出錯參考答案： A打開對話框主要用來獲取用戶指定的文件信息并供程序使用， 對話框本身并不提 供打開文件功能， 這些功能需另外編寫代碼才能實現(xiàn)， 所以在"打開"對話框中可 選中某文件，但不能打開。故 A 選項錯誤。第 26 題：在窗體上畫一個名稱為 Comma nd的命令按鈕，并編寫如下程序：Function Fun(x)y = 0If x v 10 Theny = xElsey = y + 10End IfFun= yEnd FunctionPrivate Sub Command1_Click() n=lnputBox

20、("請輸入一個數(shù)") n = Val( n)P= Fun(n)Print PEnd Sub運行程序，單擊命令按鈕，將顯示輸入對話框，如果在對話框中輸入100，并單擊"確定"按鈕，則輸出結(jié)果為 。A. 10B. 100C. 110D. 出錯信息參考答案： A程序中輸入100，則調(diào)用過程為Fun(100)，過程Fun中判斷參數(shù)是否小于10， 小于10則將此值賦給y，如果不小于10，則變量y值加10,由于100不小于 10，所以 y 值加 10，等于 10，并將此值做為函數(shù)值返回。因此輸出結(jié)果為10。第 27 題：為了使文本框顯示滾動條，除要設(shè)置 Scroll

21、Bars 外，還必須設(shè)置的屬性是A. AutoSizeB. AlignmentC. MultilineD. MaxLength 參考答案： C為了使文本框顯示滾動條，要將 ScrollBars 的值設(shè)置為非 0 的 1、2 或 3，還要 設(shè)置 Multiline 屬性為 True。第 28 題：假定在圖片框 Picture1 中裝入了一個圖片，在程序運行中，為了清除該圖片 ( 注意，清除圖片，而不是刪除圖片框 ) ，應(yīng)采用的正確方法是 。A. 單擊圖片框，然后按 Del 鍵B. 執(zhí)行語句 Picturel.Picture= LoadPicture("")C. 執(zhí)行語句 Pi

22、cturel.Picture=""D. 執(zhí)行語句：Picturel.CIs參考答案： BA選項按Del鍵不能刪除圖片；C選項中Pictue屬性值不能為空字符串，語法錯 誤；D選項中CIs方法只能清除圖片上顯示的內(nèi)容，不能清除圖片。要將圖片框 中的圖片清除，用B選項方法可以。故B選項正確。第 29 題：以下合法的VB變量名是。A. _xB. 2yC. a#bD. x_1_x參考答案： DVB中變量的命名規(guī)則為：必須以字母或漢字開頭由字母、 漢字、數(shù)字或下劃 線組成不能使用VB的保留字。_x不能以下劃線開頭，不合法；2y不能以數(shù) 字開頭，不合法；a#b中有#，不合法；D選項符合

23、命名規(guī)則，故D選項正確。第 30 題：Print Right("VB Programming" ， 2) 語句的輸出結(jié)果是 。A. VBB. ProgrammingC. ngD. 2參考答案： CRight是字符串的右部截取函數(shù)，本題中是從字符串"VB Programming"右邊向左截取 2 個字符，即為 "ng" ，故選 C。第 31 題：設(shè)有如下一段程序：Private Sub Command1_Click()Static a As Varianta = Array("one" ，"two"

24、; ，"three" ， "four" ， "five")Print a(3)End Sub 針對上述事件過程，以下敘述中正確的是 。A. 變量聲明語句有錯，應(yīng)改為 Static a(5)As VariantB. 變量聲明語句有錯，應(yīng)改為 Static aC. 可以正常運行，在窗體上顯示 threeD. 可以正常運行，在窗體上顯示 four參考答案： D題目中變量 a 被定義為 Variant 類型， Variant 是一種特殊的數(shù)據(jù)類型， 除了定 長 String 數(shù)據(jù)及用戶定義類型外， 可以包含任何種類的數(shù)據(jù)。 變量 a 被賦值為

25、 字符串數(shù)組，數(shù)組默認下標從 0 開始，因此元素 a(3) 的值為 "four" 。第 32 題：求1!+ 2!+ 10!的程序如下：Private Function s(x As Integer)f = 1For i = 1 To xf = f * iNexts = fEnd FunctionPrivate Sub Command1_Click()Dim i As IntegerDim y As LongFor i = 1 To 10NextPrint yEnd Sub 為實現(xiàn)功能要求，程序的橫線處應(yīng)該填入的內(nèi)容是 。A. Call s(i)B. Call sC. y =

26、 y + s(i)D. y = y + s參考答案： C題目中過程 s 的功能是實現(xiàn)一個數(shù)的階乘，而題目是求 1 到 10的階乘的和，則 程序空缺處應(yīng)該是過程s返回值的累加，因此就應(yīng)該為y二y + s(i)。第 33 題：在窗體上畫1個名稱為Comma nd的命令按鈕，1個名稱為Label1的標簽，然 后編寫如下事件過程：Private Sub Command1_Click()Dim i As Integer, j As IntegerDim s As IntegerFor i = 1 To 5For j = 1 To i s = s + j Next j Next i Label1.Capt

27、ion = s End Sub 程序運行后，單擊命令按鈕 Command，1 則標簽中顯示的內(nèi)容是A. 15B. 20C. 35D. 55 參考答案： C利用多重For循環(huán)，對s累加，當i=1時，完成內(nèi)層For循環(huán)后s=1;當i=2時， 完成內(nèi)層For循環(huán)后s=4;依次類推，當i=5時，完成內(nèi)層For循環(huán)后s=35,接 著退出最外層循環(huán)。將 s 的值賦值給標簽 Label1 的標題，故標簽中顯示為 35， 選擇 C 項。第 34 題：設(shè)窗體上有一個文本框 Text1 和一個命令按鈕 Command，1 并有以下事件過程： Private Sub Command1_Click()Dim s As

28、 String ， ch As String_ 1111s =For k = 1 To Le n(Textl)ch = Mid(Text1，k， 1)s = ch + sNext kTextl.Text = sEnd Sub程序執(zhí)行時，在文本框中輸入 "Basic" ，然后單擊命令按鈕，則 Text1 中顯示的A. BasicB. cisaBC. BASICD. CISAB 參考答案： BLen函數(shù)返回字符串的長度，Mid函數(shù)為字符串中部截取函數(shù)格式為：Mid(字符串，起始位置，長度 ) 。程序中， For 循環(huán)的終值是 Text1 中輸入的字符串的長 度，即 "

29、Basic" 的長度，為 5。循環(huán)體中 Mid 函數(shù)從第一個字符開始依次取出一 個字符， 然后與上次取出的字符連接， 本次取出的字符在前， 上次取出的字符在 后。最終變量 s 中應(yīng)該是 "cisaB" 。第 35 題：窗體上有名稱為Comma nd的命令按鈕，名稱分別為 List1、List2的列表框， 其中 List1 的 MultiSelect 屬性設(shè)置為 1(Simple) ，并有如下事件過程：Private Sub Command1_Click()For i = 0 To Listl 丄 istCou nt 1If Listl.Selected(i) =

30、True The nList2.AddItem TextEnd IfNextEnd Sub上述事件過程的功能是將 List1 中被選中的列表項添加到 List2 中。運行程序 時，發(fā)現(xiàn)不能達到預(yù)期目的，應(yīng)做修改，下列修改中正確的是 。A. 將 For 循環(huán)的終值改為 List1.ListCountB. 將 List1.Selected(i) = True 改為 List1 List(i).Selected = TrueC. 將 List2.Addltem Text改為 List2.Addltem List1.List(i)D. 將 List2.Addltem Text改為 List2.Addl

31、tem List1 丄istlndex參考答案： C題目程序不能將List1中的選中項添加到 List2中，List2.AddItem Text 一行 有誤，應(yīng)該改為 List2.Addltem List1.List(i) 才能使 List1 中每個選中的行添 加到 List2 中。列表框控件的 List 屬性保存了列表框中所有值的數(shù)組，可以通 過下標訪問數(shù)組中的值。第 36 題：為計算an的值，某人編寫了函數(shù)power如下：Private Function power(a As lnteger ， n As lnteger)As LongDim s As Longp = aFor k = 1

32、 To np= p*aNext kpower = pEnd Function在調(diào)試時發(fā)現(xiàn)是錯誤的，例如 Print power(5,4) 的輸出應(yīng)該是 625，但實際輸 出是 3125。程序需要修改。下面的修改方案中有 3個是正確的，錯誤的一個是A. 把 For k = 1 To n 改為 For k = 2 To nB. 把 p = p * a 改為 p = p A nC. 把 For k = 1 To n 改為 For k = 1 To n 1D. 把p = a改為p = 1參考答案： B程序中計算an的算法有誤，由于已經(jīng)將a的值賦給了 p,在后邊的For循環(huán)中 再乘n次a顯然就多乘了一次

33、a,因此，要改正此程序或者將 p= a改為p= 1, 或者將 for k = 1 to n 改成 for k = 1 to n 1 或 for k = 2 to n。而 B 選項將 p= p*a改為p= pAn將會導(dǎo)致p= pAn執(zhí)行n次，得不到正確結(jié)果。第 37 題：編寫如下程序：Private Sub Command1_Click()Dim m As Integer ， n As Integern = 2For m = 1 To 3Print proc(n) ；Next mEnd SubFunction proc(i As Integer)Dim a As IntegerStatic b

34、As Integera = a+ 1b= b+ 1proc = a * b + iEnd Function程序運行后，單擊命令按鈕 Command，1 輸出結(jié)果為A. 333B. 3 4 5C. 3 5 6D. 123參考答案： B第 38 題：下列循環(huán)中，可以正常結(jié)束的是 。A.i = 10 Do i = i + 1 Loop Un til iv 1B.i = 1 Do i = i + 1 Loop Un til i=10C.i = 10 Do i = i + 1 Loop While i> 1D.i = 10 Do i = i 2 Loop Un til i=1參考答案： B選項A中

35、先執(zhí)行一次循環(huán)體，i的值變成1，測試循環(huán)結(jié)束條件，i < 1不成立， 循環(huán)繼續(xù)， i 值總是增加，達不到循環(huán)結(jié)束條件，不能正常結(jié)束。選項 B 先執(zhí)行 循環(huán)體，i值加1變成2,再測試循環(huán)結(jié)束條件i = 10,繼續(xù)循環(huán)，i值再加1, 直到i變?yōu)?0,循環(huán)結(jié)束。選項C中i初值為10,先執(zhí)行一次循環(huán)體，使i加 1,然后判斷繼續(xù)循環(huán)的條件i > 1是否成立，此后i值不會小于等于，循環(huán)會一 直繼續(xù)下去，不會正常結(jié)束。選項 D中i初值為10,每次循環(huán)i值減2,因此它 總是偶數(shù)，而循環(huán)結(jié)束的條件是i二1,不可能達到，循環(huán)會一直繼續(xù)下去。第 39 題：窗體的MouseUp事件過程如下：Private

36、 Sub Form_MouseUp(Button As Integer ， Shift As Integer ， X As Single ， Y As Single)End Sub關(guān)于以上定義，以下敘述中錯誤的是 。A. 根據(jù)Shift參數(shù)，能夠確定使用轉(zhuǎn)換鍵的情況B. 根據(jù) X、Y 參數(shù)可以確定觸發(fā)此事件時鼠標的位置C. Button參數(shù)的值是在MouseUp#件發(fā)生時，系統(tǒng)自動產(chǎn)生的D. MouseUp是鼠標向上移動時觸發(fā)的事件參考答案： DMouseUp事件是鼠標松開時觸發(fā)的事件過程，事件過程的 Button參數(shù)值由系統(tǒng) 產(chǎn)生，為被按下的鍵，Shift參數(shù)表示Shift、Ctrl和Alt

37、鍵的狀態(tài)，X、丫參數(shù) 表示光標的當前位置。第 40 題：設(shè)工程文件包含兩個窗體文件 Form1.frm 、 Form2.frm 及一個標準模塊文件Module1.bas。兩個窗體上分別只有一個名稱為 Comma nd的命令按鈕。Form1 的代碼如下：Public x As IntegerPrivate Sub Form_Load()x = 1y = 5End SubPrivate Sub Command1_Click()Form2.ShowEnd SubForm2的代碼如下：Private Sub Command1_Click()Print Form1.x ， yEnd SubModule1

38、 的代碼如下：Public y As Integer運行以上程序，單擊Form1的命令按鈕Command1則顯示Form2；再單擊 Form2上的命令按鈕Command1則窗體上顯示的是。A. 15B. 0 5C. 0 0D. 程序有錯 參考答案： A在 Form1 窗體模塊中 x 被定義為全局變量， 這使得它的值可以在其他模塊中通過 "過程名 . 變量名 "的形式被引用。而變量 y 在標準模塊中被定義為全局變量，則 它可以在工程的每個模塊，每個過程中使用。因此程序運行時，x賦值為1, y賦 值為5,它們的值都可以在Form2中引用?；静僮黝}基本操作題第 41 題：在名稱

39、為Form1的窗體上畫兩個標簽(名稱分別為Label1和Label2，標題分 別為“姓名”和“年齡”)、兩個文本框(名稱分別為Text1和Text2，初始內(nèi)容 均為空)和一個命令按鈕(名稱為Command1標題為“顯示”)。然后編寫命令按 鈕的 Click 事件過程。程序運行后， 在兩個文本框中分別輸入姓名和年齡， 然后 單擊“顯示”按鈕，則在窗體上顯示兩個文本框中的內(nèi)容，如圖所示。要求程序 中不得使用任何變量。 注意：存盤時必須存放在考生文件夾下，工程文 件 名 保 存 為 sjt1 vbp， 窗 體 文 件 名 保 存 為 sit1 frm 。（2） 在名稱為 Form1 的窗體上畫 一個

40、圖片框，其名稱為 Picture1 ，一個水平滾動條， 名稱為 HScroll1 ， 一個命令按鈕，名稱為 Command，1 標題為“設(shè)置屬性”， 通過屬性窗 口在圖片框中裝入一個圖形 （文件名為 pic1 jpg ，位丁考生目錄下 ）， 圖片框的高度與圖形的高度相同，圖片框的寬度任意 （如圖 1 所示）。 編寫適當?shù)氖录^程，程序運行后，如果單擊命令按鈕，則設(shè)置水平 滾動條的屬性如下： Min 100 Max 1500LargeChange 100 SmallChange 10之后就可以通過移動滾動條上的滾動塊來放大或縮小圖片框。 程序運 行后的窗體如圖 2 所示。要求程序中不得使用任何變

41、量。 注 意：存盤時必須存放在考生文件夾下，工程文件名為sjt2 . vbp，窗體文件名為 sjt2 frm。參考答案：(1)通過標簽的Name和Caption屬性設(shè)置標簽的名稱和標題，通過文本框 Name和Text屬性設(shè)置文本框的名稱和文本，通過命令按鈕的Name和Caption屬性設(shè)置命令按鈕的名稱和標題，“”和“ +”運算符均可將兩個表達式作為 字符串連接。在窗體上輸出文本內(nèi)容可使用 Print 方法。 (2) 在設(shè)計階段通過 Picture 屬性為圖片框指定顯示的圖片， 通過 Width 屬性來設(shè)定或修改圖片框的 寬度。通過調(diào)整滾動條滑塊的位置即可改變其 Value屬性的值。滾動條的M

42、ax和 Min 屬性限定了滾動條所能表示的最大值和最小值， LargeChangc 屬性用丁設(shè)置 當單擊滑塊與兩側(cè)箭頭間區(qū)域時 Value 屬性值的改變量， SmallChange 屬性用于 設(shè)置當單擊滾動條兩側(cè)箭頭時 Value 屬性值的改變量。 當改變滾動條滑塊位置后 將觸發(fā)其Change事件。簡單應(yīng)用題簡單應(yīng)用題 第 42 題： (1) 在考生文件夾下有一個工程文件 sjt3 vbp。程序的功能是： 1)程序運行時，文件列表框顯示當前文件夾中的所有擴展名為 jpg 的文件。 2)雙擊文件 列表框中某個圖片文件名時， 能在圖像框中顯示出該張圖片， 并將該圖片文件的 信息(包括路徑及文件名

43、)顯示到標簽中。 3)“下一張”命令按鈕的功能：選中并 顯示卜次選中文件的下一個圖片文件 (如果文件列表框中沒有被選中的圖片文件 或上次選中的是最后一個文件名， 則從第 1 個圖片文件開始 )。在當前程序所在文件夾中，已經(jīng)提供了所需要的圖片文件，運行時窗體如圖所示。 在給出的窗體文件中已經(jīng)有了全部控件， 但程序不完整。 請將事件過程中的注釋 符去掉，把 ?改為正確的內(nèi)容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件 中已經(jīng)存在的 控件和 程序， 最后將程序按原文件 名 存盤。(2) 在考生文件夾下有一個工程文件sjt4 . vbp。程序的功能是：程序運行時，文本框中顯示一篇英 文短文，單擊“

44、查找”按鈕時可輸入查找內(nèi)容，如圖 1 所示。若未找到查找內(nèi)容， 查找結(jié)束；若 找到查找內(nèi)容， 被找到的內(nèi)容在文本框中以反相顯示 (即呈選中狀態(tài) ) ， 每找到一次都給出提示， 并在左下角文本框中顯示累計的次數(shù)， 如圖 2所示，若單擊提示對話框的“是”按鈕，則繼續(xù)向后查找；若單擊 “否”按鈕，則終止查找。在給出的窗體文件中已經(jīng)有了全 部控件，但程序不完整。請將事件過程中的注釋符去掉，把?改為正確的內(nèi)容，以實現(xiàn)上述程序功能。 注意：考生不得修改窗體 文件中已經(jīng)存在的控件和程序，最后將程序按原文件名存盤。 參考答案：步驟 1：打開本題工程文件。步驟 2：打開代碼編輯窗口，去掉程序中的注釋符，將問號改

45、為正確的內(nèi)容。Private Sub Commandl Click() IfFilel . List In dex = 1 Or File1 . List In dex = File1 .ListCou nt 1ThenFile1LiSt In dex=0 E1Se If File1List In dex > =0 The nFile1 ListIndex=File1 ListIndex 1 End If End If ShowInfor End SubPrivate Sub Filel_DblClick() Call ShowInfor EndSubPrivateSubShowInfo

46、r() Labell Caption=App Path+""+File1 FileName Image1 Picture=LoadPicture(Label1 Caption) EndSubPrivateSubForm_Load() Filel . Path=App. Path File1 . Pattern ="* . jpg"End Sub步驟 3：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤。(2) 步驟 1：打開本題工程文件。步驟2:打開代碼編輯窗口，去掉程序中的注釋符，將問號改為正確的內(nèi)容。 Private Sub Command1_Click() Dim fstr As String，