首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮,标题分别是“读数据”和“统计”,请添加一个名称为Label1、标题为“回文个数为”的标签和一个名称为Text1,初始内容为空的文本框,如图所示。 程序功能如下: ①单击“读
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮,标题分别是“读数据”和“统计”,请添加一个名称为Label1、标题为“回文个数为”的标签和一个名称为Text1,初始内容为空的文本框,如图所示。 程序功能如下: ①单击“读
admin
2020-07-22
47
问题
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮,标题分别是“读数据”和“统计”,请添加一个名称为Label1、标题为“回文个数为”的标签和一个名称为Text1,初始内容为空的文本框,如图所示。
程序功能如下:
①单击“读数据”按钮,则将考生文件夹下in5.dat文件的内容读到变量s中;
②单击“统计”按钮,则统计in5.dat文件(该文件中仅含由空格间隔开的字符串)中回文的个数,并将统计的回文个数显示在Text1文本框内(所谓回文是指顺读与倒读都一样的字符串,如“recycer”)。“读数据”和“统计”按钮的Click事件过程已经给出,请完善found-huiwen过程的功能,实现上述程序功能。
注意:考生不得修改窗体文件中已存在的控件和程序,在结束程序运行之前,必须先进行统计,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
选项
答案
步骤1:打开本题工程文件,按照题目要求建立控件并设置属性,如表3.29所示。 [*] 步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。 参考答案 Function foundhuiwen(p As String) If StrReVerse(p) =p Then foundhuiwen=True’StrReverse函数的功能是将字符串顺序反转 End Function 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
StrReverse()函数用于返回一个字符串,其中一个指定子字符串的字符顺序是反向的。
Mid()函数用于取字符子串。
转载请注明原文地址:https://kaotiyun.com/show/erHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面列表框属性中,是数组的是( )。
用语句Open"C:\teac.txt"ForInputAs#1打开文件后,就可以编程序
窗体上有两个名称分别为Textl、Text2的文本框,一个名称为Commandl的命令按钮。设有如下的类型声明:TypePersonnameAsString*8majorAsString*20EndType当单击命令按钮时,将两个文本框
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后添加一个文本框(名称为Textl,可显示多行,ScrollBars属性设置为2)(如图所示)。程序运行后,如果执行“读入数据”命令,则读人
如果要在窗体上画一个标签,应在工具箱窗口中选择的图标是( )。
有如下程序代码:FunctionSum(nAsInteger)StatickAsIntegerk=k+n+1Sum=kEndFunctionPrivateSubForm_Click()
设在窗体上有一个名称为Check1的复选框数组,并有以下事件过程:PrivateSubCheck1_Click(IndexAsInteger) …EndSub则下面叙述中错误的是( )。
随机试题
Mr.Brownworkedatabigcompany.Hewenttoworkby【21】.Onedaywhenhewasstandingatthebus-stop,henoticedcarsgo【22】.
可产生促性腺激素的癌主要是
预防肺结核的最主要措施是
A.普萘洛尔B.哌唑嗪C.氨氯地平D.硝酸甘油E.氯沙坦主要不良反应为踝部关节水肿的药物是
个人工资薪金所得,适用超额累进税率,适用()的九级超额累进税率。
对于选中的文件,可以实现删除操作的是()。
纳税人提供建筑业劳务,应向其机构所在地或者居住地主管税务机关申报纳税。()
根据《中华人民共和国公司法》,公司股东可以用()作为出资入股。
全陪、地陪和领队之间怎样建立良好的协作关系?
有如下程序:#include(iostream)usingnamespacestd;classTestClass{protected:TestClass(){couti(cout<<‘x’;}TestC
最新回复
(
0
)