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

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

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

　　程序功能如下：

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

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

　　注意：

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

　　解題思路：

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

　　由于所提供的窗體控件不完整，在該窗體上畫(huà)一個(gè)標(biāo)簽控件，通過(guò)其屬性窗口將名稱設(shè)為L(zhǎng)abel1，標(biāo)題(Caption屬性)設(shè)為"回文的個(gè)數(shù)為"。畫(huà)一個(gè)文本框控件，通過(guò)其屬性窗口將名稱設(shè)為T(mén)ext1，文本內(nèi)容(Text屬性)設(shè)為空。

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

　　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

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

　　相關(guān)推薦：

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

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

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