2012年计算机二级VB上机试题及解题思路第二十五套

　　注意：下面出现的“考生文件夹”均为%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年下半年计算机等级考试报名时间及入口汇总