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

　　(1)在考生文件夾下有工程文件sjt5.vbp，窗體上有二個標題分別是“讀數據”和“統計”的命令按鈕，請添加一個名稱為Label1、標題為“回文的個數為”的標簽和一個名稱為Text1，初始值為空的文本框，如圖所示。

　　程序功能如下：

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

　　2)單擊“統計”按鈕，則統計in5.dat文件(該文件中僅含由空格間隔開的字母串)中回文的個數，并將統計的回文個數顯示在Text1文本框內。(所謂回文是指順讀與倒讀都一樣的字符串，如“recycer”)“讀數據”和“統計”按鈕的Click事件過程已經給出， 請完善Function過程foundhuiwen的功能，實現上述程序功能。

　　注意：

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

　　解題思路：

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

　　由于所提供的窗體控件不完整，在該窗體上畫一個標簽控件，通過其屬性窗口將名稱設為Label1，標題(Caption屬性)設為"回文的個數為"。畫一個文本框控件，通過其屬性窗口將名稱設為Text1，文本內容(Text屬性)設為空。

　　函數foundhuiwen用于判斷字符串是否為回文，在該函數過程中加入語句：

　　Function foundhuiwen(p As String)

　　foundhuiwen = True

　　k = Len(p)

　　For i = 1 To k / 2

　　If Mid(p, i, 1) <> Mid(p, k + 1 - i, 1) Then

　　foundhuiwen = False

　　Exit For

　　End If

　　Next

　　End Function

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

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

　　相關推薦：

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

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

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