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

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

　　在考生文件夾下有一個工程文件sjt5.vbp， 其窗體上有二個標題分別為“讀數據”和“統計”的命令按鈕。請畫二個標簽，其名稱分別是 Label1和Label2， 標題分別為“單詞的平均長度為”和“最長單詞的長度為”;再畫二個名稱分別為 Text1和Text2，初始內容為空的文本框，如圖所示。程序功能如下：

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

　　2)如果單擊“統計”按鈕，則自動統計變量s(s中僅含有字母和空格，而空格是用來分隔不同單詞的)中每個單詞的長度，并將所有單詞的平均長度(四舍五入取整)顯示在 Text1文本框內，將最長單詞的長度顯示在Text2文本框內。

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

　　注意：

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

　　解題思路：

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

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

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

　　Private Sub Command2_Click()

　　'需考生編寫

　　n = Len(s): t = ""

　　Dim word_max As Integer, word_num As Integer, word_len As Integer

　　For i = 1 To n

　　c = Mid(s, i, 1)

　　If c <> " " Then

　　t = t + c

　　Else

　　word_len = word_len + Len(t)

　　word_num = word_num + 1

　　If Len(t) > word_max Then

　　word_max = Len(t)

　　End If

　　t = ""

　　End If

　　Next i

　　Text1.Text = CInt((word_len + Len(t)) / (word_num + 1))

　　If Len(t) > word_max Then

　　word_max = Len(t)

　　End If

　　Text2.Text = word_max

　　End Sub

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

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

　　相關推薦：

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

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

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