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

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

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

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

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

　　2)如果單擊“統(tǒng)計”按鈕，則自動統(tǒng)計in5.dat文件(該文件中僅含有字母和空格， 而空格是用來分隔不同單詞的)中最長單詞的長度，以及in5.dat 中最后一個以該長度出現(xiàn)的單詞， 并將該單詞的長度顯示在Text1文本框內(nèi)，將該單詞顯示在Text2文本框內(nèi)。

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

　　注意：

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

　　解題思路：

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

　　由于所提供的窗體控件不完整，在該窗體上畫二個標(biāo)簽控件，通過其屬性窗口將名稱分別設(shè)為Label1、Label2，標(biāo)題(Caption屬性)分別設(shè)為“最長單詞的長度為”、“以該長度最后一次出現(xiàn)的單詞是”。畫二個文本框控件，通過其屬性窗口將名稱設(shè)為Text1、Text2，文本內(nèi)容(Text屬性)均設(shè)為空。

　　單擊“統(tǒng)計”按鈕(即運行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub Command2_Click()

　　n = Len(s): t = ""

　　Dim Max_len As Integer

　　For i = 1 To n

　　c = Mid(s, i, 1)

　　If c <> " " Then

　　t = t + c

　　Else

　　If Len(t) > Max_len Then

　　Max_len = Len(t)

　　Max_word = t

　　End If

　　t = ""

　　End If

　　Next i

　　If Len(t) > Max_len Then

　　Max_len = Len(t)

　　Max_word = t

　　End If

　　Text1.Text = Max_len

　　Text2.Text = Max_word

　　End Sub

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

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

　　相關(guān)推薦：

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

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

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