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

　　在名稱為Form1的窗體上畫一個文本框，名稱為Text1，允許多行顯示;再畫三個命令按鈕，名稱分別為C1、C2、C3，標題分別為“輸入”、“轉換”、“存盤”(如圖所示)。請編寫適當的事件過程，使得在運行時，單擊“輸入”按鈕，則從考生文件夾中讀入in5.txt文件(文件中只有字母和空格)， 放入Text1中;單擊“轉換”按鈕，則把Text1中的所有小寫字母轉換為大寫字母;單擊“存盤”按鈕，則把Text1中的內容存入out5.txt文件中。

　　注意：

　　考生必須把轉換后的內容用“存盤”按鈕存入out5.txt文件，否則無成績。考生的工程文件以文件名sjt5.vbp存盤，窗體文件以文件名sjt5.frm存盤。

　　解題思路：

　　啟動Visual Basic系統，創建一個Form1窗體。

　　在該窗體上畫一個文本框，通過其屬性窗口將名稱設為Text1，多行顯示(Multiline屬性)設為True，即允許多行顯示。畫三個命令按鈕，通過其屬性窗口將名稱分別設為C1、C2、C3，標題(Caption屬性)分別設為“輸入”、“轉換”、“存盤”。

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

　　Private Sub C1_Click()

　　Open App.Path & "\in5.txt" For Input As #1

　　Input #1, a$

　　Text1.Text = a$

　　Close #1

　　End Sub

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

　　Private Sub C2_Click()

　　a$ = Text1.Text

　　b$ = ""

　　n = Len(a$)

　　For i = 1 To n

　　b$ = b$ + UCase$(Mid$(a$, i, 1))

　　Next

　　Text1.Text = b$

　　End Sub

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

　　Private Sub C3_Click()

　　Open App.Path & "\out5.txt" For Output As #1

　　Print #1, Text1.Text

　　Close #1

　　End Sub

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

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

　　相關推薦：

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

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

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