3. 綜合應用(1小題，計30分)

　　注意：下面出現的“考生文件夾”均為%USER%

　　在考生文件夾下有一個工程文件sjt5.vbp，其窗體上有一個文本框，名稱為Text1，可以多行顯示;有一個名稱為CD1的通用對話框;還有三個命令按鈕，名稱分別為C1、C2、C3，標題分別為“打開文件”、“轉換”、“存盤”，如圖所示。

　　命令按鈕的功能是：“打開文件”--彈出打開文件對話框，默認打開文件的類型為“文本文件”。選擇考生文件夾下的 in5.txt文件后，該文件中的內容顯示在Text1中;“轉換”--把Text1中的所有小寫英文字母轉換成大寫;“存盤”--把Text1中的內容存入考生文件夾下的out5.dat文件中。

　　在窗體中已經給出了部分程序，要求：

　　1)請去掉程序中的注釋符，把程序中的 ?改為正確的內容。但不能修改程序中的其他部分，也不能修改控件的屬性。

　　2)編寫“轉換”按鈕的Click事件過程。最后把修改后的文件按原文件名存盤。

　　注意：

　　考生不得修改已有的程序和控件的屬性，必須對考生文件夾下的in5.txt文件進行轉換，并把轉換結果通過“存盤”按鈕存入考生文件夾下的out5.dat文件中，否則無成績。

　　解題思路：

　　啟動Visual Basic系統，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應的窗體文件名為sjt5.frm。

　　由于所提供的窗體程序不完整，在“打開文件”按鈕的Private Sub C1_Click()中，有二處地方需要修改。

　　1) 將語句

　　'CD1.FilterIndex = ?

　　改為

　　CD1.FilterIndex = 2

　　2) 將語句

　　'Text1.Text = ?

　　改為

　　Text1.Text = a

　　在“存盤”按鈕的Private Sub C3_Click()中，有一處地方需要修改。

　　1) 將語句

　　'CD1.Action = ?

　　改為

　　CD1.Action = 2

　　單擊“轉換”按鈕(即運行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub C2_Click()

　　Dim a As String, b As String, c As String, k As Integer, n As Integer

　　a = Text1.Text

　　b = ""

　　n = Asc("a") - Asc("A")

　　For k = 1 To Len(a)

　　c = Mid$(a, k, 1)

　　If c >= "a" And c <= "z" Then

　　c = String(1, Asc(c) - n)

　　End If

　　b = b + c

　　Next k

　　Text1.Text = b

　　End Sub

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt5.vbp、sjt5.frm、sjt5.vbw、out5.dat

　　請把這些文件復制到c:\wexam\26990001中，然后打開sjt5.vbp文件并運行。

　　相關推薦：

　　2012年計算機等考四級數據庫工程師備考筆記匯總

　　2012年計算機等級考試二級VB重點知識匯總

　　2012年下半年計算機等級考試報名時間及入口匯總