2013年VB新增試題答案和解析

1、第21套：基本操作請根據(jù)以下各小題的要求設(shè)計Visual Basic應(yīng)用程序（包括界面和代碼）。（ 1）在名稱為 Form1的窗體上畫 1個名稱為 Shape1的圓角矩形， 高、寬分別為 1000、2000。請利用屬性窗口設(shè)置適當?shù)膶傩詽M足以下要求：1）圓角矩形中填滿綠色（顏色值為：&H0000FF00& 或 &HFF00&）；2）窗體的標題為“圓角矩形”。運行后的窗體如圖所示。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。【微步驟】步驟 1：啟動 Visual Basic系統(tǒng)，創(chuàng)建一個Form1窗體。步驟 2：

2、在該窗體上畫一個形狀控件，通過其屬性窗口將名稱設(shè)為shape1，高（ Height屬性）設(shè)為 1000，寬（ Width 屬性）設(shè)為 2000，Shape屬性設(shè)為 4，F(xiàn)illStyle屬性設(shè)為 0，F(xiàn)illColor屬性設(shè)為 &HFF00&。步驟 3：激活 Form1窗體，通過其屬性窗口將標題（Caption 屬性）設(shè)為“圓角矩形”。步驟 4：調(diào)試并運行程序，設(shè)置工程文件名為sjt1.vbp，設(shè)置窗體文件名為sjt1.frm。（ 2）在考生文件夾下有一個工程文件sjt2.vbp。窗體中已含有除計時器外的其他控件，還有一個過程 sub1 ，其功能是按照Text1 中的通話時間計

3、算通話費，并將其顯示在Text2 中。程序運行時，單擊“通話開始”按鈕，則在Text1 中累加通話時間（每秒加1），單擊“通話結(jié)束”按鈕，則停止通話時間的累加；單擊“計算通話費”按鈕，則調(diào)用過程sub1。要求：1）在窗體上畫一個計時器（見圖），并通過屬性窗口設(shè)置適當屬性。2）編寫三個按鈕的Click 事件過程。3）編寫計時器的事件過程。注意：要求程序中不得使用變量，每個事件過程中只能寫一條語句， “計算通話費”按鈕的事件過程中只允許調(diào)用過程 sub1。 不得修改已經(jīng)存在的內(nèi)容和控件屬性，最后把文件按原文件名存盤?！疚⒉襟E】步驟 1：啟動 Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工

4、程文件sjt2.vbp，相應(yīng)的窗體文件名為sjt2.frm。步驟 2：由于所提供的窗體控件不完整，需在該窗體上畫一個計時器控件，計時器開始不計時，即把（ Enabled 屬性）設(shè)為 False ， Interval 屬性設(shè)為 1000（每秒加 1）。步驟 3：雙擊“通話開始”按鈕（即運行 Click 事件過程），在該 Click 事件過程中加入語句：Private Sub Command1_Click()Timer1.Enabled = TrueEnd Sub步驟 4：單擊“通話結(jié)束”按鈕（即運行Click事件過程），在該Click事件過程中加入語句：Private Sub Command2_

5、Click()Timer1.Enabled = FalseEnd Sub步驟 5： 單擊“計算通話費”按鈕（即運行Click事件過程），在該Click事件過程中加入語句：Private Sub Command3_Click()sub1End Sub步驟 6：計時器的 Timer 事件過程，在該Timer 事件過程中加入語句：Private Sub Timer1_Timer()Text1 = Text1 + 1End Sub步驟 7：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤。簡單應(yīng)用（ 1）在考生文件夾下有一個工程文件sjt3.vbp。程序運行時，單擊窗體則顯示如圖所示的圖案。請去掉程序中的注釋

6、符，把程序中的？ 改為正確的內(nèi)容。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤?！疚⒉襟E】步驟 1：啟動 Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件的窗體文件名為sjt3.frm。步驟 2 ：進入代碼編輯窗口。由于所提供的窗體程序不完整，在窗體的Form_Click()事件過程中，按以下要求修改程序中的問號。第 1個問號（ 'For i = 1 To ?）： 5第 2個問號（ 'For j = 1 To ?）： 2 * i - 1第 3個問號（ 'For j = 1 To ?）： i + 1第 4個問號（ 'For

7、 j = 1 To ?）： 9 - 2 * isjt3.vbp，相應(yīng)Private Sub步驟 3：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤。（ 2）在考生文件夾下有一個工程文件sjt4.vbp，窗體中有一個矩形和一個圓，程序運行時，單擊“開始”按鈕，圓可以縱向或橫向運動（通過選擇單選按鈕來決定），碰到矩形的邊時，則向相反方向運動，單擊“停止”按鈕，則停止運動，如圖所示?？梢赃x擇單選按鈕隨時改變運動方向。已經(jīng)給出了所有控件和程序， 但程序不完整， 請去掉程序中的注釋符， 把程序中的 ？改為正確的內(nèi)容。注意：不得修改已經(jīng)存在的內(nèi)容和控件屬性，最后把修改后的文件按原文件名存盤?！疚⒉襟E】步驟 1：

8、啟動 Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt4.vbp，相應(yīng)的窗體文件名為sjt4.frm。步驟 2：進入代碼編輯窗口。由于所提供的窗體程序不完整，在“停止”按鈕的PrivateSub Command2_Click() 事件過程和計時器的PrivateSub Timer1_Timer()事件過程中，按如下要求修改程序中的問號。第 1個問號（ '? = False）： Timer1第 2個問號（ 'Shape2.Top = ? + d * 50）： Shape2.Top第 3個問號（ 'IfShape2.Top <= Shape1.?

9、Or Shape2.Top + Shape2.Width>= Shape1.Top+ Shape1.Height Then）： Top第 4個問號（ 'Shape2.Left = ? + d * 50）： Shape2.Left步驟 3：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤。綜合應(yīng)用注意：下面出現(xiàn)的“考生文件夾”均為%USER%在考生文件夾下有一個工程文件sjt5.vbp。 程序運行時，單擊“裝入數(shù)據(jù)”按鈕，則從考生目錄下的in5.txt文件中讀入所有城市名稱和距離，城市名稱按順序添加到列表框List1 中，距離放到數(shù)組a 中；當選中列表框中的一個城市時，它的距離就顯示在Te

10、xt1 中，如圖所示；此時，單擊“計算運費”按鈕，則計算到該城市的每噸運費（結(jié)果取整，不四舍五入），并顯示在Text2 中。每噸運費的計算方法是：距離× 折扣× 單價。其中：單價為0.3 。折扣為500100015002000距離 <500距離 <1000距離 <1500距離 <2000距離折扣為折扣為折扣為折扣為折扣為10.980.950.920.9單擊“保存”按鈕，則把距離和每噸運費存到文件out5.txt中。已經(jīng)給出了所有控件和部分程序，要求：1）去掉程序中的注釋符，把程序中的？改為正確的內(nèi)容；2）編寫列表框的Click 事件過程；3）編寫“計

11、算運費”按鈕的Click 事件過程；注意：不得修改已經(jīng)存在的程序； 在退出程序之前， 必須至少計算一次運費， 且必須用 “保存”按鈕存儲計算結(jié)果，否則無成績。最后，程序按原文件名存盤。【微步驟】步驟 1：啟動 Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件的窗體文件名為sjt5.frm。步驟 2：雙擊“計算運費”按鈕（即運行Click 事件過程），在該Click語句：sjt5.vbp ，相應(yīng)事件過程中加入Private Sub Command2_Click()p = 0.3d = Int(Text1.Text / 500)Select Case dCase 0discount

12、= 1Case 1discount = 0.98Case 2discount = 0.95Case 3discount = 0.92Case Elsediscount = 0.9End SelectText2 = Int(discount * p * Text1)End Sub步驟 3：選擇列表框中的某個城市（即運行Click事件過程），在該Click事件過程中加入語句：Private Sub List1_Click()Text1 = a(List1.ListIndex + 1)End Sub步驟 4：在“裝入數(shù)據(jù)”按鈕的Private Sub Command1_Click()事件過程中，按以

13、下要求修改程序中的問號。第 1個問號（ 'n = n + ? ）： 1第 2個問號（ 'List1.AddItem ?）： ch$步驟 5：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤。第48套：基本操作請根據(jù)以下各小題的要求設(shè)計Visual Basic應(yīng)用程序（包括界面和代碼）。（ 1）在名稱為 Form1的窗體上畫 1個名稱為 Cbo1的組合框，組合框的列表項分別是：北京、天津、 上海。請設(shè)置組合框的參數(shù)， 使其外觀如圖所示。 窗體的標題是 “使用組合框” 。注意：存盤時，將文件保存至考生文件夾下，且窗體文件名為sjt1.frm ，工程文件名為sjt1.vbp?！疚⒉襟E】步驟

14、1：啟動 Visual Basic系統(tǒng)，創(chuàng)建一個Form1窗體。步驟 2：在該窗體上畫一個組合框控件，通過其屬性窗口將名稱設(shè)為Cbo1，高（ Height屬性）設(shè)為 1000，寬（ Width 屬性）設(shè)為 2000，Shape屬性設(shè)為 4，F(xiàn)illStyle屬性設(shè)為 0，F(xiàn)illColor屬性設(shè)為 &HFF00&。步驟 3：激活 Form1窗體，通過其屬性窗口將標題（Caption 屬性）設(shè)為“圓角矩形”。步驟 4：調(diào)試并運行程序，設(shè)置工程文件名為sjt1.vbp，設(shè)置窗體文件名為sjt1.frm。（ 2）在名稱為 Form1的窗體上畫 1個名稱為 P1的圖片框，窗體的標題為“

15、程序設(shè)計”，如圖 1所示。編寫適當?shù)氖录^程，使得程序運行后，單擊窗體，則在圖片框中顯示窗體的標題，并把窗體的標題變?yōu)椤癇asic ”，如圖 2所示。注意：存盤時，將文件保存至考生文件夾下，且窗體文件名為sjt2.frm，工程文件名為sjt2.vbp。簡單應(yīng)用（ 1）在考生文件夾中有一個工程文件sjt3.vbp，窗體上有 2個命令按鈕、 1個水平滾動條和 1個計時器，其名稱分別為Command1、 Command2、 HScroll1 和Timer1，如圖 1所示。程序運行后，按鈕Command1、 Command2的標題分別立即顯示 " 開始 " 、 " 停止

16、" ，同時把計時器的Interval屬性設(shè)置為 100，Enabled屬性設(shè)置為 False 。此時如果單擊" 開始 " 按鈕，則該按鈕變?yōu)榻茫?而標題則變?yōu)?" 繼續(xù) " ，同時滾動條的滾動框自左至右移動，每次移動 10，如圖 2所示，移到右端時，自動從左端重新開始向右移動；如果單擊" 停止 " 命令按鈕，則該按鈕變?yōu)榻茫?quot; 繼續(xù) " 命令按鈕變?yōu)橛行В瑫r滾動框停止移動；再次單擊"繼續(xù) " 命令按鈕后，滾動框繼續(xù)移動。已經(jīng)給出了全部控件和程序，但程序不完整，請去掉程序中的注釋符

17、，把程序中的？改為正確的內(nèi)容。注意：考生不得修改窗體文件中已經(jīng)存在的程序。最后程序按原文件名存盤。（ 2）在考生文件夾下有一個工程文件 sjt4.vbp ，窗體上有 2個名稱分別為 Text1 、Text2的文本框， 有 1個名稱為 Command1的命令按鈕。 程序運行時， 在 Text1 文本框中輸入一行單詞（只含有字母或空格）， 單擊命令按鈕后，將把每個單詞的第一個字母改為大寫（如果原來已是大寫字母則不變），并在Text2 文本框中顯示出來，如圖所示。已經(jīng)給出了全部控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的 ？改為正確的內(nèi)容。注意：不得修改原有程序和控件的屬性。最后把修改

18、后的文件按原文件名存盤。綜合應(yīng)用注意：下面出現(xiàn)的“考生文件夾”均為%USER%為了驗證一個正整數(shù)n（ n > 3）是否為素數(shù)，最直觀的方法是，看在2 n/2 范圍內(nèi)能否找到一個整數(shù) m將 n整除，若 m存在，則 n不是素數(shù)；若找不到 m，則 n為素數(shù)。在考生文件夾下有一個工程文件 sjt5.vbp ，其窗體上有 1個名稱為 Text1 的文本框。 請根據(jù)上面的算法， 編寫判斷一個正整數(shù)是否為素數(shù)的函數(shù) prime ，然后用這個函數(shù)找出 200 300之間的所有素數(shù)，求出這些素數(shù)的和，將該數(shù)在文本框中顯示出來，并存入文件 out5.txt 中。要求：編寫函數(shù) prime 的代碼，然后在Fo

19、rm_Click 事件過程中調(diào)用該函數(shù)，并計算素數(shù)的和。事件過程中已給出了把素數(shù)和保存到文件中的代碼，考生不得修改。注意：請務(wù)必把求得的和在文本框中顯示出來，這樣才能存入文件out5.txt，否則沒有成績。第49套：基本操作請根據(jù)以下各小題的要求設(shè)計Visual Basic應(yīng)用程序（包括界面和代碼）。（ 1）在名稱為 Form1的窗體上畫一個名稱為Image1的圖像框，再畫一個名稱為Command1、標題為 " 退出 " 的命令按鈕。通過屬性窗口設(shè)置圖像框的屬性，將考生文件夾下的pic1.bmp文件加載到圖像框，使圖片的大小能夠隨圖片框大小而改變。設(shè)置命令按鈕的屬性，使得程

20、序運行時，按回車鍵即可執(zhí)行命令按鈕的Click 事件過程。窗體外觀如圖所示。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。（ 2）在名稱為 Form1的窗體上畫一個名稱為CD1的通用對話框，在屬性窗口中設(shè)置CD1的屬性，使得打開通用對話框時，其初始路徑是"D:"。按照下表設(shè)計菜單，窗體外觀及菜單如圖所示。請編寫程序，使得運行程序，單擊" 打開文件 " 或 " 保存文件 " 菜單項時， 相應(yīng)的出現(xiàn) "打開 "或"保存 "對話框。要求程序中不得使用變

21、量，每個事件過程中只能寫一條語句。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。簡單應(yīng)用（ 1）考生文件夾中有工程文件sjt3.vbp。其窗體上已有部分控件。在窗體上添加含有兩個單選鈕的控件數(shù)組，其名稱為 Option1 ，單選按鈕的下標分別為0、1，Caption 屬性分別為" 驅(qū)動器為 C"及 " 列txt 文件 " ，如圖所示。 運行程序時，驅(qū)動器列表框、 目錄列表框和文件列表框三個控件能夠同步變化。1)單擊 " 驅(qū)動器為 C"單選按鈕，則驅(qū)動器列表框的當前驅(qū)動器被設(shè)為"

22、;C" 。2) 單擊 " 列 txt 文件 " 單選按鈕，則文件列表框中只顯示txt 類型的文件。3) 單擊文件列表框中的某個文件時， 被選中的文件名顯示在 " 當前文件 " 右側(cè)的標簽中。要求：按照題目要求添加控件， 設(shè)置有關(guān)屬性， 去掉程序中的注釋符， 把程序中的？改為正確的內(nèi)容。注意：考生不得修改窗體文件中已經(jīng)存在的程序。最后，程序按原文件名存盤。（ 2）在考生文件夾下有一個工程文件 sjt4.vbp 。窗體上已有全部控件， 如圖 1所示。 要求單擊標題為 " 生成矩陣 " 的命令按鈕時， 隨機生成由單個大寫字母組成的

23、 5× 5矩陣，并顯示在名稱為 Text1 的文本框中。 單擊 " 查找 " 按鈕，找出所生成矩陣中ASCII 值最大的字母及其位置，并顯示在 Text2 中（只顯示一個ASCII 值最大的字母及其位置），如圖2所示（ Text2 中顯示的是第 2行第 5列的 "Y" ）。在給出的窗體文件中已經(jīng)有了全部控件，但程序不完整。要求去掉程序中的注釋符，把程序中的？改為正確的內(nèi)容。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。綜合應(yīng)用注意：下面出現(xiàn)的“考生文件夾”均為%USER%在考生文件夾下有一個工程文件sjt5.vbp。

24、程序功能如下：1) 單擊 " 讀數(shù)據(jù) " 按鈕，從文件中讀出數(shù)據(jù)，放入二維數(shù)組a中。2) 單擊 " 生成新數(shù)組 " 按鈕時，依據(jù) a數(shù)組生成 b數(shù)組；若 a數(shù)組元素為素數(shù)，則直接將 a數(shù)組元素的值賦給 b數(shù)組中相同下標的數(shù)組元素；若 a數(shù)組元素的值能被 2整除，則將該元素值的平方作為 b數(shù)組同下標的元素； 若 a數(shù)組元素為其他值， 則將該元素乘 2的值作為 b數(shù)組同下標的元素。3) 單擊 " 查找最大值 " 按鈕，則在 b數(shù)組中找最大值并顯示在 Label2 標簽上。在給出的窗體文件中已經(jīng)有了全部控件， 標準模塊中有判斷素數(shù)的函數(shù) I

25、sPrime 。 要求去掉程序中的注釋符，把程序中的 ？改為正確的內(nèi)容，并編寫相應(yīng)的程序，實現(xiàn)程序的功能。注意：不能修改程序的其他部分和控件屬性。 最后把修改后的文件按原文件名存盤。 程序調(diào)試通過后，各命令按鈕的事件過程必須至少各執(zhí)行一次。第50套：基本操作請根據(jù)以下各小題的要求設(shè)計Visual Basic應(yīng)用程序（包括界面和代碼）。（ 1）在名稱為 Form1，標題為 " 圖書 " 的窗體上畫 1個名稱為 Cmb1的下拉式組合框。下拉列表中有 " 少兒讀物 " 、 " 傳記文學(xué) " 和 " 武俠小說 "3 個表項

26、內(nèi)容。運行后的窗體如圖所示。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。【微步驟】步驟 1：啟動 Visual Basic系統(tǒng)，創(chuàng)建一個步驟 2：修改屬性 caption:圖書步驟 3：添加控件 combo1，通過其屬性窗口將Form1窗體。list輸入少兒讀物傳紀文學(xué)武俠小說步驟 4：調(diào)試并運行程序，設(shè)置工程文件名為sjt1.vbp，設(shè)置窗體文件名為sjt1.frm。（ 2）在名稱為 Form1的窗體上，畫1個能根據(jù)標題內(nèi)容自動調(diào)整大小的標簽，其名稱為Label1 ，標題為 "VisualBasic" ，字體為 &quo

27、t;Times New Roman"，字號為 14號字。再畫 2個名稱分別為 Command1、 Command2，標題分別為 " 放大 " 、 " 縮小 " 的命令按鈕。要求：編寫適當?shù)氖录^程，使得每單擊 " 放大 " 按鈕一次， Label1 中所顯示的標題內(nèi)容自動增大3個字號；每單擊 " 縮小 " 按鈕時， Label1 中所顯示的標題內(nèi)容自動縮小3個字號。注意：要求程序中不能使用變量，每個事件過程中只能寫一條語句。保存時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.

28、frm?！疚⒉襟E】步驟 1：啟動 Visual Basic系統(tǒng)，創(chuàng)建一個sjt2.frm窗體步驟 2：由于所提供的窗體控件不完整，需在該窗體上畫一個標簽控件屬性 fontName: Times New RomanFontsize:14Caption: Visual BasicName:label1步驟 3：在該窗體上畫一個命令按鈕控件屬性 :Caption:放大Name:command1Private Sub Command1_Click()Form1.Label1.FontSize = Form1.Label1.FontSize + 3End Sub步驟 4：在該窗體上畫一個命令按鈕控件屬性

29、 :Caption:縮小Name:command2Private Sub Command2_Click()Form1.Label1.FontSize = Form1.Label1.FontSize - 3End Sub步驟 5：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤。簡單應(yīng)用（ 1）考生文件夾下的工程文件sjt3.vbp中有 2個標題分別是" 產(chǎn)生范文 " 和 " 結(jié)束 " 的命令按鈕； 2個名稱分別為 Text1 和 Text2 ，初始值為空的文本框。請再畫1個名稱為 Label3 、標題為" 正確率 " 的標簽， 畫 1個名稱為

30、 Text3 、初始內(nèi)容為空的文本框。程序功能如下：1）單擊 " 產(chǎn)生范文 " 命令按鈕，則在 Text1 文本框中隨機產(chǎn)生由 20個字母組成的范文；2）用戶可以在 Text2 文本框中依照范文輸入相應(yīng)字母，當輸入字母達到20個之后， 禁止向Text2 輸入內(nèi)容，且在Text3 文本框中顯示輸入的正確率；3）單擊 " 結(jié)束 " 命令按鈕，則結(jié)束程序運行。 請將 " 產(chǎn)生范文 " 命令按鈕的 Click 事件過程，以及 Text2 文本框的 KeyPress 事件過程中的注釋符去掉，把 ？改為正確內(nèi)容， 以實現(xiàn)上述程序功能。注意：考生不

31、得修改窗體文件中已經(jīng)存在的控件和程序。最后，程序按原文件名存盤。Private Sub Command1_Click()RandomizeText2.Locked = FalseText1 = "": Text2 = "": Text3 = ""For i = 1 To 20s = Chr$(Int(Rnd * 26) + 97)Text1 = Text1 + sNextEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)Dim m As Integer, n As Intege

32、rIf Len(Text2) = 20 ThenText2.Locked = Falsem = 0: n = 0For i = 1 To 20If Mid(Text2, i, 1) = Mid(Text1, i, 1) Thenm = m + 1Elsen = n + 1End IfNextText3 = m / (m + n) * 100 & "%"End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub（ 2）考生文件夾下的工程文件sjt4.vbp中已經(jīng)定義了一個學(xué)生記錄類型數(shù)據(jù)StudType 。有3個標題分別為 &quo