2014計(jì)算機(jī)等級(jí)《二級(jí)VB》上機(jī)考試預(yù)測(cè)題及答案2

　　43

　　在考生文件夾下有工程文件sj5.vbp及窗體文件sj5.frm，該程序是不完整的，請(qǐng)?jiān)谟?"?"的地方填入正確的程序代碼，然后刪除 ?及代碼前的所有注釋符號(hào)(即 '號(hào))，但不能修改其他部分。修改后的程序文件都保存，存盤時(shí)不得修改文件夾和文件名。

　　本題描述如下：

　　在窗體上有一個(gè)名稱為Text1的文本框，3個(gè)命令按鈕，名稱分別是Command1、Command2和Command3，標(biāo)題分別是"讀入"、"加密轉(zhuǎn)換"和"保存"。要求程序運(yùn)行后，單擊"讀入"按鈕，將文本文件in5.txt(該文件在考生文件夾下)中的文本信息讀入文本框Text1中;單擊"加密轉(zhuǎn)換"按鈕將Text1中的小寫英文字母加密轉(zhuǎn)換，并將轉(zhuǎn)換(變?yōu)榇髮?后的結(jié)果顯示到Text1中。加密方式是該字母對(duì)應(yīng)字母表中的后一個(gè)位置的字母，如"a"加密后是"b"，轉(zhuǎn)換方式為轉(zhuǎn)換成加密后的字母對(duì)應(yīng)字母的大寫形式。例如，轉(zhuǎn)換前的字母是"a"，則轉(zhuǎn)換后的是"B";單擊"保存"按鈕，則將轉(zhuǎn)換后的文本框中的文本保存到out5.txt文件中(該文件保存到考生文件夾下)。程序運(yùn)行界面如圖27-7所示。

　　圖27-7

　　在原來(lái)字符的ASCII碼加上一個(gè)整數(shù)(題目要求為1) 轉(zhuǎn)換為其他的字符，然后再將加密后的字符顯示在文本框中。這要用到Chr函數(shù)和Asc函數(shù)。Chr函數(shù)返回String，其中包含與指定的字符代碼相關(guān)的字符。其語(yǔ)法格式為：Chr(charcode) 。charcode是必要參數(shù)，是一個(gè)用來(lái)識(shí)別某字符的Long型。Asc函數(shù)返回一個(gè)Integer，代表字符串中首字母的字符代碼。其語(yǔ)法格式為：Asc(string) 。string必要的參數(shù)，可以是任何有效的字符串表達(dá)式。

　　根據(jù)題意，將一個(gè)文本框控件和3個(gè)命令按鈕添加到窗體中，文本框的名稱為Text1、Text屬性為空，命令按鈕的名稱分別為Command1、Command2和Command3，Caption屬性分別為"讀取"、"加密轉(zhuǎn)換"和"保存"。雙擊Command1進(jìn)入代碼窗口，補(bǔ)充后的具體代碼如下：

　　Dim rel As String

　　Private Sub Command1_Click()

　　Dim str As String

　　str = ""

　　Text1.Text = "" '初始化Text1的文本

　　Open App.Path&"\in.txt" For Input As #1′打開文件，進(jìn)行讀取

　　While EOF(1) = False '判斷文件是否讀取完

　　Input #1, str '讀取文本

　　Text1.Text = Text1.Text + str

　　Wend

　　Close #1

　　End Sub

　　Private Sub Command2_Click()

　　Dim str As String

　　Dim tmp As String

　　Dim i As Integer

　　str = ""

　　rel = ""

　　Text1.Text = "" '初始化Text1的文本

　　Open App.Path&"\in.txt" For Input As #1′打開文件，進(jìn)行讀取

　　While EOF(1) = False '判斷文件是否讀取完

　　Input #1, str '讀取文本

　　For i = 1 To Len(str)

　　tmp = Mid(str, i, 1) '將str中的字符逐個(gè)傳給tmp進(jìn)行判斷

　　If Asc(tmp) >= Asc("a") And Asc(tmp) <= Asc("z") Then

　　tmp = Chr((Asc(tmp) + 1 - Asc("a") + 26) Mod 26 + Asc("a"))

　　'向后移一位，如果到最后為z則變?yōu)閍

　　tmp = UCase(tmp) '如果是小寫字母，則將其轉(zhuǎn)換成大寫

　　End If

　　rel = rel + tmp '將字符連接起來(lái)

　　Next i

　　Text1.Text = Text1.Text + rel '在Text1中顯示轉(zhuǎn)換后文本

　　Wend

　　Close #1

　　End Sub

　　Private Sub Command3_Click()

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

　　Print #2, rel '將轉(zhuǎn)換后的文本存入文件中

　　Close #2

　　End Sub

　　單擊

　　按鈕運(yùn)行程序，并按要求保存。

　　相關(guān)推薦：

　　2014年全國(guó)計(jì)算機(jī)二級(jí)VB上機(jī)考試試題匯總

　　考試吧考后首發(fā)2014年3月計(jì)算機(jī)等考真題及答案通知

　　考試吧推薦：2014年3月計(jì)算機(jī)二級(jí)考前沖刺備考專題