| 第 1 頁：基本操作 |
| 第 2 頁：簡單應(yīng)用 |
| 第 3 頁：綜合應(yīng)用 |
3. 綜合應(yīng)用(1小題，計(jì)30分)
注意：下面出現(xiàn)的“考生文件夾”均為%USER%
在考生文件夾下有一個(gè)工程文件sjt5.vbp， 其窗體上有二個(gè)標(biāo)題分別為“讀數(shù)據(jù)”和“統(tǒng)計(jì)”的命令按鈕。請(qǐng)畫二個(gè)標(biāo)簽，其名稱分別是 Label1和Label2， 標(biāo)題分別為“單詞的平均長度為”和“最長單詞的長度為”;再畫二個(gè)名稱分別為 Text1和Text2，初始內(nèi)容為空的文本框，如圖所示。程序功能如下：
1)如果單擊“讀數(shù)據(jù)”命令按鈕，則將考生文件夾下 in5.dat文件的內(nèi)容讀到變量s中(此過程已給出);
2)如果單擊“統(tǒng)計(jì)”按鈕，則自動(dòng)統(tǒng)計(jì)變量s(s中僅含有字母和空格，而空格是用來分隔不同單詞的)中每個(gè)單詞的長度，并將所有單詞的平均長度(四舍五入取整)顯示在 Text1文本框內(nèi)，將最長單詞的長度顯示在Text2文本框內(nèi)。
“讀數(shù)據(jù)”命令按鈕的Click事件過程已經(jīng)給出，請(qǐng)為“統(tǒng)計(jì)”命令按鈕編寫適當(dāng)?shù)氖录^程，實(shí)現(xiàn)上述功能。
注意：
考生不得修改窗體文件中已經(jīng)存在的控件和程序， 在結(jié)束程序之前，必須進(jìn)行統(tǒng)計(jì)， 且必須通過單擊窗體右上角的“關(guān)閉”按鈕結(jié)束程序，否則無成績。最后，程序按原文件名存盤。
解題思路：
啟動(dòng)Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應(yīng)的窗體文件名為sjt5.frm。
由于所提供的窗體控件不完整，需畫二個(gè)標(biāo)簽控件，通過其屬性窗口將名稱分別設(shè)為 Label1和Label2，標(biāo)題(Caption屬性)分別設(shè)為“單詞的平均長度為”和“最長單詞的長度為”。畫二個(gè)文本框控件，通過其屬性窗口將名稱分別設(shè)為Text1和Text2，初始內(nèi)容(Text屬性)均設(shè)為空。
由于所提供的窗體程序不完整，需在“統(tǒng)計(jì)”命令按鈕的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
請(qǐng)把這些文件復(fù)制到c:\wexam\26990001中，然后打開sjt5.vbp文件并運(yùn)行。
相關(guān)推薦：
2012年計(jì)算機(jī)等考四級(jí)數(shù)據(jù)庫工程師備考筆記匯總
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |
