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

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

　　(1)在考生文件夾下有工程文件sjt5.vbp，窗體上有二個標(biāo)題分別是“讀數(shù)據(jù)”和“統(tǒng)計”的命令按鈕，請?zhí)砑右粋�名稱為Label1、標(biāo)題為“回文的個數(shù)為”的標(biāo)簽和一個名稱為Text1，初始值為空的文本框，如圖所示。

　　程序功能如下：

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

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

　　注意：

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

　　解題思路：

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

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

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

　　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

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

　　相關(guān)推薦：

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

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

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