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

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

　　在考生文件夾下有一個工程文件sjt5.vbp，窗體上有二個標題分別是“讀數據”和“統計”的命令按鈕。請畫二個標簽，名稱分別為Label1和Label2，標題分別為“出現次數最多的字母是”和“它出現的次數為”;再畫二個名稱分別為Text1和Text2，初始值為空的文本框，如圖所示。

　　程序功能如下：

　　1)單擊“讀數據”按鈕，則將考生文件夾下in5.dat文件的內容讀到變量s中(此過程已給出);

　　2)單擊“統計”按鈕，則自動統計in5.dat文件中所含各字母(不區分大小寫)出現的次數，并將出現次數最多的字母顯示在Text1文本框內，它所出現的次數顯示在Text2文本框內。

　　“讀數據”按鈕的Click 事件過程已經給出，請為“統計”按鈕編寫適當的事件過程實現上述功能。

　　注意：

　　考生不得修改窗體文件中已經存在的控件和程序，在結束程序運行之前，必須進行統計，且必須用窗體右上角的關閉按鈕結束程序，否則無成績。最后，程序按原文件名存盤。

　　解題思路：

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

　　由于所提供的窗體控件不完整，需畫二個標簽控件，通過其屬性窗口將名稱分別設為Label1和Label2，標題(Caption屬性)分別設為“出現次數最多的字母是”和“它出現的次數為”。畫二個文本框控件，通過其屬性窗口將名稱分別設為Text1和Text2，初始內容(Text屬性)均設為空。

　　由于所提供的窗體程序不完整，需在“統計”命令按鈕的Click事件過程中加入語句：

　　Private Sub Command2_Click()

　　' 考生編寫

　　Dim a(26) As Integer

　　n = Len(s)

　　For i = 1 To n

　　c = UCase(Mid(s, i, 1))

　　If c >= "A" And c <= "Z" Then

　　j = Asc(c) - Asc("A") + 1

　　a(j) = a(j) + 1

　　End If

　　Next i

　　Max = a(1)

　　t = Chr(Asc("A"))

　　For i = 2 To 26

　　If a(i) > Max Then

　　Max = a(i)

　　t = Chr(Asc("A") + i - 1)

　　End If

　　Next i

　　Text1.Text = t

　　Text2.Text = Max

　　End Sub

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

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

　　相關推薦：

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

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

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