2012年計算機二級VB上機試題及解題思路第50套

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

　　注意：下面出現(xiàn)的“考生文件夾”均為%USER%

　　在窗體上畫1個文本框，名稱為Text1(可顯示多行)，然后再畫三個命令按鈕，名稱分別為Command1，Command2和Command3，標題分別為“讀數(shù)”，“統(tǒng)計”和“存盤”，如圖所示。程序的其功能是：單擊“讀數(shù)”按鈕，則把考生目錄下的in5.txt文件中的所有英文字符放入Text1(可多行顯示);單擊“統(tǒng)計”按鈕，找出并統(tǒng)計英文字母i，j，k，l，m，n(不區(qū)分大小寫)各自出現(xiàn)的次數(shù);單擊“存盤”按鈕，將字母i到n出現(xiàn)次數(shù)的統(tǒng)計結(jié)果依次存到考生目錄下的順序文件out5.txt中。

　　*注意：

　　存盤時必須存放在考生文件夾下，工程文件名為sjt5.vbp，窗體文件名為sjt5.frm。

　　解題思路：

　　啟動Visual Basic系統(tǒng)，創(chuàng)建一個Form1窗體。

　　在該窗體上畫一個文本框，通過其屬性窗口將名稱設(shè)為Text1，多行顯示(MultiLine屬性)設(shè)為True。畫三個命令按鈕控件，通過其屬性窗口將名稱分別設(shè)為Command1、Command2和Command3，標題(Caption屬性)分別設(shè)為"讀數(shù)"、"統(tǒng)計"和"存盤"。

　　單擊"讀數(shù)"按鈕(即運行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub Command1_Click()

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

　　Text1.Text = Input(LOF(1), #1)

　　Close #1

　　End Sub

　　單擊"計算"按鈕(即運行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub Command2_Click()

　　For i = 1 To 6

　　sum(i) = 0

　　Next i

　　If Len(Text1.Text) = 0 Then

　　MsgBox "請先使用"讀數(shù)"功能!"

　　Else

　　For i = 1 To Len(Text1.Text)

　　c = LCase(Mid(Text1.Text, i, 1))

　　Select Case c

　　Case "i"

　　sum(1) = sum(1) + 1

　　Case "j"

　　sum(2) = sum(2) + 1

　　Case "k"

　　sum(3) = sum(3) + 1

　　Case "l"

　　sum(4) = sum(4) + 1

　　Case "m"

　　sum(5) = sum(5) + 1

　　Case "n"

　　sum(6) = sum(6) + 1

　　End Select

　　Next i

　　End If

　　End Sub

　　單擊"存盤"按鈕(即運行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub Command3_Click()

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

　　For i = 1 To 6

　　Print #1, sum(i)

　　Next i

　　Close #1

　　End Sub

　　為使數(shù)組的下標從1開始，需在聲明部分加入語句：

　　Option Base 1

　　數(shù)組變量sum存放統(tǒng)計和的結(jié)果，它在幾個事件過程中都要使用，所以定義成全局變量，即在聲明部分加入

　　語句：

　　Dim sum(6) As Integer

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

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

　　相關(guān)推薦：

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

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

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