二級VISUAL+BASIC機(jī)試模擬5

1、1基本操作題（2小題，每題15分，共計30分）注意：下面出現(xiàn)的“考生文件夾”均為C: wexam25160002。請根據(jù)以下各小題的要求設(shè)計Visual Basic應(yīng)用程序（包括界面和代碼）。（1）在名稱為Forml的窗體上畫一個名稱為 Commandl的命令按鈕，標(biāo)題為“打開文件” ，再畫一個 名稱為CD1的通用對話框。程序運(yùn)行后，如果單擊命令按鈕， 則彈出打開文件對話框。 請按下列要求設(shè)置 屬性并編寫代碼：設(shè)置適當(dāng)屬性，使對話框的標(biāo)題為“打開文件”；設(shè)置適當(dāng)屬性，使對話框的“文件類型”下拉式組合框中有二行：“文本文件”、“所有文件”，如圖23-1所示，默認(rèn)的類型是“所有文件”；編寫代碼，使

2、得 單擊按鈕可以彈出打開文件對話框。要求：程序中不得使用變量，事件過程中只能寫一條語句。注意：存盤時必須存放在考生文件夾下，工程文件名為 sjt1.vbp,窗體文件名為sjt1.frm。（2）在名稱為Form1的窗體上畫一個命令按鈕，名稱為Command1 ,標(biāo)題為“移動本按鈕”，如圖23-2所示。要求編寫適當(dāng)?shù)氖录^程，使得程序運(yùn)行時，每單擊按鈕一次，按鈕向左移動100。要求：程序中不得使用變量，事件過程中只能寫一條語句。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp ,窗體文件名為sjt2.frm。圖圖212簡單應(yīng)用題（2小題，每題20分，共計40分）注意：下面出現(xiàn)的“考

3、生文件夾”均為C: wexam25160002。（1）在名稱為Form1的窗體上畫一個名稱為Label1,標(biāo)題為“添加項目：”的標(biāo)簽；畫一個名稱為 Text1的文本框，沒有初始內(nèi)容；畫一個名稱為Combo1的下拉式組合框，并通過屬性窗口輸入若干項目（不少于3個，內(nèi)容任意）；再畫兩個命令按鈕，名稱分別為Command1和Command2 ,標(biāo)題分別為“添加”和“統(tǒng)計”。在運(yùn)行時，向Text1中輸入字符，單擊“添加”按鈕后，則 Text1中的內(nèi)容作為一個列表項被添 加到組合框的列表中；單擊“統(tǒng)計”按鈕，則在窗體上顯示組合框中列表項的個數(shù)，如圖23-3所示。請編寫兩個命令按鈕的 Click事件過程。

4、注意：程序中不得使用變量，也不能使用循環(huán)。存盤時必須存放在考生文件夾下，工程文件名為sjt3.vbp,窗體文件名為sjt3.frm。（2）在考生文件夾下有一個工程文件sjt4.vbp ,其窗體如圖23-4所示。該程序用來對在上面文本框中輸入的英文字母串（稱為“明文”）加密，加密結(jié)果（稱為“密文”）顯示在下面的文本框中。加密的方法是： 選中一個單選按鈕，單擊“加密”按鈕后，根據(jù)選中的單選按鈕后面的數(shù)字n,把明文中的每個字母改為它后面的第n個字母（“z”后面的字母認(rèn)為是“ a”，“Z”后面的字母認(rèn)為是“ A”），如圖所示。窗體中已 經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序

5、中的？改為正確的內(nèi)容。注意：不能修改程序中的其他部分和控件的屬性。最后把修改后的文件按原文件名存盤。匚口4 AM3綜合應(yīng)用題（1小題，共計30分）注意：下面出現(xiàn)的“考生文件夾”均為C: wexam25160002。在考生文件夾下有一個工程文件sjt5.vbp ,窗體上二有兩個文本框，名稱分別為Textl和Text2 ,都可以多行顯示。還有 3個命令按鈕，名稱分別為 C1、C2和C3,標(biāo)題分別為“取數(shù)”、“排序”和“存盤”。 “取數(shù)”按鈕的功能是把考生文件夾下的in5.dat文件中的50個整數(shù)讀到數(shù)組中，并在 Textl中顯示出來；“排序”按鈕的功能是對這50個數(shù)按升序排序，并顯示在 Text2

6、中；“存盤”按鈕的功能是把排好序的50個數(shù)存到考生文件夾下的out5.dat文件中。程序運(yùn)行界面如圖23-5所示。在窗體中已經(jīng)給出了全部控件和部分程序，要求閱讀程序并去掉程序中的注釋符，把程序中的？改為正確的內(nèi)容，并編寫“排序”按鈕的 Click事件過程，使其實現(xiàn)上述功能，但不能修改程序中的其他部分， 也不能修改控件的屬性。最后把修改后的文件按原文件名存盤。答案：1基本操作題(1)解析：在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過程。在Visual Basic中，命令按鈕的名稱由 Caption屬性設(shè)置。通用對話框的屬性可以在屬性窗口中直接設(shè)置。將 CommonDialog的Name屬性

7、設(shè)置為 CD1,文件類型在 CommonDialog的Filter屬性中設(shè)置，其格文件說明|文件類型本題應(yīng)在Filter屬性中設(shè)置為：文本文件|*.txt|所有文件|*.*。解題步驟：第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及屬性設(shè)置見表23-1?？丶傩栽O(shè)置值按鈕Caption打開文件通用對話框（名稱）DialogTitleFilterCD1打開文件文本文件|*.txt|所有文件|*.*|第二步：編寫程序代碼。參考代碼：Option ExplicitPrivate Sub Command1_Click()CD1.ShowOpenEnd Sub第三步：調(diào)試并運(yùn)行程序。第四步：按題目要求

8、存盤。(2)解析：在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過程。在Visual Basic中，按鈕的標(biāo)題由 Caption屬性設(shè)置。要使命令按鈕向左移動，須用到按鈕的Left屬性,使其值再每單擊一次按鈕時減去100。解題步驟：第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及屬性設(shè)置見表23-2?？丶傩栽O(shè)置值按鈕（名稱）CaptionCommand1移動本按鈕第二步：編寫程序代碼。參考代碼：Option ExplicitPrivate Sub Command1_Click()Command1.Left=Command1.Left-100 End Sub 第三步：調(diào)試并運(yùn)行程序。 第四

9、步：按題目要求存盤。 2簡單應(yīng)用題 (1)解析：在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過程。命令按鈕和標(biāo)簽的標(biāo)題在屬性窗口的Caption屬性設(shè)置。要使 Text1的文本框沒有初始內(nèi)容，就在屬性窗口中的Text屬性設(shè)為空。要在下拉式組合框中輸入內(nèi)容，通過下拉式組合框在屬性窗口的List屬性設(shè)置。AddItem方法用來項組合框中添加一個表項，其給是為: 組合框.Additem列表項索引控件屬性設(shè)置值標(biāo)簽Caption添加項目：文本框Text下拉式組合框List中國美國英國按鈕Caption添加按鈕Caption統(tǒng)計23-3。ListCount屬性返回組合框中列表項的綜合。解題步驟：第一

10、步：建立界面并設(shè)置控件屬性。程序中用到的控件及屬性設(shè)置見表第二步：編寫程序代碼。參考代碼：Option ExplicitPrivate Sub Command1_Click() Combol.Addltem Textl End SubPrivate Sub Command2_Click() Me.Print Combol.ListCountEnd Sub第三步：調(diào)試并運(yùn)行程序。第四步：按題目要求存盤。(2)解析：首先要確定移動的位數(shù)，移動的位數(shù)是通過單選框來選擇的，移動的值是由單選框的Caption屬性確定的，然后要確定循環(huán)的次數(shù)，循環(huán)的次數(shù)是由輸入字母的個數(shù)確定的。對字符串，需要對字符進(jìn) 行

11、逐個處理。使用 Mid函數(shù)取出字符串中的字符，利用 Ase函數(shù)返回字符的代碼，利用 String函數(shù)將字符 代碼轉(zhuǎn)換成字符。Mid函數(shù)的格式為：Mid(字符串，p, n)Mid函數(shù)從第p個字符開始，向后截取n個字符，p和n都是算術(shù)表達(dá)式。Mid函數(shù)的第三個變量可以省略，這樣將第p個字符開始先后截取到字符串的結(jié)尾。解題步驟：第一步：分析題目提供的代碼。Private Sub Command1_Click()Dim n As Integer, k As Integer, m As IntegerDim c As String, a As String For k=0 To 2If Op1(k) .Value Then n=Val (Op1 (k) . ?)End IfNext km=Len(Text1.Text)a=For k=1 To ?c=Mid$(Text1.Text, ?, 1)c=String(1, Asc(c) + n)If c z Or c Z And c z Or c Z And c a(j+1) Thent=a (j+1)a(j+1)=a(j) a(j)=tEnd