2012年計(jì)算機(jī)二級VB上機(jī)試題及解題思路第51套

　　3. 綜合應(yīng)用(1小題，計(jì)30分)

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

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

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

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

　　“讀數(shù)據(jù)”命令按鈕的Click事件過程已經(jīng)給出，請為“統(tǒng)計(jì)”命令按鈕編寫適當(dāng)?shù)氖录�過程，實(shí)現(xiàn)上述功能。

　　注意：

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

　　解題思路：

　　啟動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

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

　　相關(guān)推薦：

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

　　2012年計(jì)算機(jī)等級考試二級VB重點(diǎn)知識匯總

　　2012年下半年計(jì)算機(jī)等級考試報(bào)名時(shí)間及入口匯總