計(jì)算機(jī)二級(jí)機(jī)試76

1、 模擬 計(jì)算機(jī)二級(jí)（ VB）機(jī)試 76一、基本操作題第 1 題：在名稱為 Form1 的窗體上畫(huà)一個(gè)名稱為 Command1的命令按鈕，標(biāo)題為“打開(kāi)文 件”，再畫(huà)一個(gè)名稱為 CD1的通用對(duì)話框。程序運(yùn)行后，如果單擊命令按鈕， 則彈出打開(kāi)文件對(duì)話框。請(qǐng)按下列要求設(shè)置屬性和編寫(xiě)代碼： 設(shè)置適當(dāng)?shù)膶傩?，使用話框的?biāo)題為“打開(kāi)文件”。設(shè)置適當(dāng)?shù)膶傩?，使?duì)話框的“文件類型”下拉列表框中有 2 個(gè)選項(xiàng)：“文 本文件”、“所有文件” （如圖 1所示） ，默認(rèn)的類型是“所有文件”。編寫(xiě)命令按鈕的事件過(guò)程，使得單擊按鈕可以彈出打開(kāi)文件對(duì)話框。 要求：程序中不得使用變量，事件過(guò)程中只能寫(xiě)一條語(yǔ)句。注意：存盤(pán)時(shí)必須

2、存放在考生文件夾下，工程文件名為 sjt1.vbp ，窗體文件名 為 sjt1.frm 。參考答案：詳細(xì)解答： 第 2 題：在名稱為 Form1的窗體上畫(huà)一個(gè)命令按鈕，名稱為 Command，1 其標(biāo)題為“移動(dòng) 本按鈕”，如圖 2 所示。要求編寫(xiě)適當(dāng)?shù)氖录^(guò)程，使得程序運(yùn)行時(shí)，每單擊按鈕一次，按鈕向左移動(dòng) 100。要求：程序中不得使用變量，事件過(guò)程中只能寫(xiě)一條語(yǔ)句。 注意：存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為 sjt2.vbp ，窗體文件名 為 sjt2.frm 。第 2 步：在窗體上畫(huà)一個(gè)第 3 步：編寫(xiě)代碼。雙擊參考答案：【操作步驟】 第 1 步：新建一個(gè)標(biāo)準(zhǔn) EXE工程 命令按鈕，

3、設(shè)置其 Caption 屬性為“移動(dòng)本按鈕”。命令按鈕，進(jìn)入代碼編寫(xiě)狀態(tài)， 編寫(xiě)如下代碼： Private Sub Command1_Click() Command1.Left=Command1.Left-100 End Sub 第 4步：調(diào)試并運(yùn)行程序，并按題 目要求保存工程。詳細(xì)解答：二、簡(jiǎn)單應(yīng)用題第 3 題：在名稱為 Form1的窗體上畫(huà)一個(gè)名稱為 Label1 、標(biāo)題為“添加項(xiàng)目：”的標(biāo) 簽；畫(huà)一個(gè)名稱為 Text1 的文本框，其中沒(méi)有初始內(nèi)容；畫(huà)一個(gè)名稱為 Combo1 的下拉列表框，并通過(guò)屬性窗口輸入若干項(xiàng)目 (不少于 3 個(gè)，內(nèi)容任意 )；再畫(huà) 兩個(gè)命令按鈕，名稱分別為 Comm

4、and、1 Command，2 標(biāo)題分別為“添加”、“統(tǒng) 計(jì)”。運(yùn)行時(shí)，向 Text1 中輸入字符，單擊“添加”按鈕后，則 Text1 中的內(nèi) 容作為一個(gè)列表項(xiàng)被添加到組合框的列表中；單擊“統(tǒng)計(jì)”按鈕，則在窗體上 顯示組合框中列表項(xiàng)的個(gè)數(shù)，如圖 3 所示。請(qǐng)編寫(xiě)兩個(gè)命令按鈕的 Click 事件 過(guò)程。 注意：程序中不得使用變量，也不能使用循環(huán)。存盤(pán)時(shí)必須存放在考生文件夾 下，工程文件名為 sjt3.vbp ，窗體文件名為 sjt3.frm 。參考答案：【操作步驟】 第 1步：新建一個(gè)標(biāo)準(zhǔn) EXE工程。 第 2步：在窗體上畫(huà)一個(gè) 標(biāo)簽控件，設(shè)置其 Caption 屬性為“添加項(xiàng)目：”。 第 3

5、步：在窗體上畫(huà)一個(gè) 文本框控件，清空其 Text 屬性中的內(nèi)容。 第 4 步：在窗體上畫(huà)一個(gè)組合框，單 擊 List 屬性后向下的箭頭，輸入 3 個(gè)以上選項(xiàng) ( 輸完一個(gè)項(xiàng)目后，可以按 Ctrl+Enter 鍵繼續(xù)輸入后續(xù)內(nèi)容 )。 第 5 步：在窗體上畫(huà)一個(gè)命令按鈕，設(shè)置 其 Caption 屬性為“添加”；再畫(huà)另一個(gè)命令按鈕，設(shè)置其 Caption 屬性為“統(tǒng) 計(jì)”。 第 6 步：編寫(xiě)代碼。 Private Sub Command1_Click( ) Combo1.AddItem Text1.Text End Sub Private Sub Command2_Click() Print C

6、ombo1.ListCountEnd Sub 第 7 步：調(diào)試、運(yùn)行并保存程序 詳細(xì)解答：第 4 題： 在考生文件夾下有一個(gè)工程文件 sjt4.vbp ，其窗體如圖 4 所示。該程序用來(lái)對(duì) 在上面的文本框中輸入的項(xiàng)字母串 ( 稱為“明文” )加密，加密結(jié)果 ( 稱為“密 文”) 顯示在下面的文本框中。加密的方法是：選中一個(gè)單選按鈕，單擊“加 密”按鈕后，根據(jù)選中的單選按鈕后面的數(shù)字 n，把明文中的每個(gè)字母改為它 后面的第 n 個(gè)字母 ( “ z”后面的字母認(rèn)為是“ a”，“ Z”后面的字母認(rèn)為是 “A”)，如圖 4 所示。窗體中已經(jīng)給出了所有控件和程序，但程序不完整，請(qǐng) 在程序中的橫線處填寫(xiě)正

7、確的內(nèi)容。注意：不能修改程序中的其他部分和控件屬性，最后把修改后的文件按原文件 名存盤(pán)?！绢}目提供的源程序】Private Sub Command1_Click()Dim n As Integer, k As Integer, m As IntegerDim c As String, a As StringFor k=0 To 2If Op1(k).Value Then n=Val(Op1(k). (1) End If Next k m=Len(Text1.Text) a=For k=1 To (2)c=Mid $ (Text1.Text, (3) ,1) c=String (1,Asc(c)

8、+n)If c z Or c Z And c a Then c=String(1,Asc(c)-26)End If(4) =a+cNext kText2.Text=a End Sub參考答案：【操作步驟】 第 1 步：打開(kāi)工程文件 sjt4.vbp 第 2 步：分析并修改源程 序。 【1】Caption 【2】m 【3】k 【4】 a 第 3 步：調(diào)試、運(yùn)行并保存程序。詳細(xì)解答：三、綜合應(yīng)用題第 5 題：在考生文件夾下有一個(gè)工程文件 sjt5.vbp ，窗體上有 2 個(gè)文本框，名稱為 Text1 、Text2 ，都可以多行顯示；還有 3 個(gè)命令按鈕，名稱分別為 c1、c2、 c3，標(biāo)題分別為“

9、取數(shù)”、“排序”、“存盤(pán)”?！叭?shù)”按鈕的功能是把考 生目錄下的 in5.dat 文件中的 50 個(gè)整數(shù)讀到數(shù)組中，并在 Text1 中顯示出來(lái)； “排序”按鈕的功能是對(duì)這 50 個(gè)數(shù)按升序排序，并顯示在 Text2 中；“存盤(pán)” 按鈕的功能是把排好序的 50 個(gè)數(shù)存到考生目錄下的 out5.dat 文件中。如圖 5 所示。在窗體中已經(jīng)給出了全部控件和部分程序。要求：閱讀程序并去掉程序中的注釋符，在程序中的橫線處填寫(xiě)正確的內(nèi)容， 并編寫(xiě)“排序”按鈕的 Click 事件過(guò)程，使其實(shí)現(xiàn)上述功能，但不能修改程序 中的其他部分，也不能修改控件的屬性。最后把修改后的文件按原文件名存 盤(pán)?！绢}目提供的源程

10、序】Dim a(50) As IntegerPrivate Sub C1_Click()Dim k As Integer, ch As String0pen in5.dat For Input As #1ch=For k=1 To 50Input #1, (1)ch=ch+Str(a(k)+Next kClose #1Text1.Text= (2)End SubPrivate Sub C2_Click() 考生應(yīng)編寫(xiě)的程序 End SubPrivate Sub C3_Click()Open out5.dat For Output As #1Print #1, Text2.TextClose #1End Sub參考答案：【操作步驟】 第 1步：打開(kāi)工程文件 sjt5.vbp 。 第 2步：分析并修改源程 序?！?】a(k) 【2】ch “排序”按鈕的參考代碼如下： Private Sub C2_Click( ) 考生應(yīng)編寫(xiě)的程序 For i=1