首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮,标题分别是“读数据”和“统计”,请添加一个名称为Label1、标题为“回文个数为”的标签和一个名称为Text1,初始内容为空的文本框,如图所示。 程序功能如下: ①单击“读数据”按钮,则将
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮,标题分别是“读数据”和“统计”,请添加一个名称为Label1、标题为“回文个数为”的标签和一个名称为Text1,初始内容为空的文本框,如图所示。 程序功能如下: ①单击“读数据”按钮,则将
admin
2016-06-23
20
问题
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮,标题分别是“读数据”和“统计”,请添加一个名称为Label1、标题为“回文个数为”的标签和一个名称为Text1,初始内容为空的文本框,如图所示。
程序功能如下:
①单击“读数据”按钮,则将考生文件夹下in5.dat文件的内容读到变量s中;②单击“统计”按钮,则统计in5.dat文件(该文件中仅含由空格间隔开的字符串)中回文的个数,并将统计的回文个数显示在Text1文本框内(所谓回文是指顺读与倒读都一样的字符串,如“recycer”)。“读数据”和“统计”按钮的Click事件过程已经给出,请完善foundhuiwen过程的功能,实现上述程序功能。
注意:考生不得修改窗体文件中已存在的控件和程序,在结束程序运行之前,必须先进行统计,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
选项
答案
[操作步骤] 步骤1:打开本题工程文件,按照题目要求建立控件并设置属性,如表3.29所示。 [*] 步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。 参考代码 Function foundhuiwen(p As String) If StrReverse(p)=p Then foundhuiwen=True’StrReverse函数的功能是将字符串顺序反转 End Function 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/oSLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是
向顺序文件Temp.txt中写入1,2,3这3个数。在程序中加入以下语句的哪一项可以使程序功能完整。PrivateSubCommand1_Click() Open"c:\Temp.txt",OutputAs#1 For
下列事件过程运行后输出结果是PrivateSubCommand1_Click() PrintFormats(123,456,"###,##%")EndSub
下列语句的输出结果是______。PrintFormat$(1258.6,"000,000.00")
在下列关于二叉树的叙述中,正确的一项是
在Visual:Basic的立即窗口内输入以下语句:X=65<CR>PrintChr$(x)<CR>在窗口中显示的结果是
如下程序段定义了学生成绩的记录类型,由学号、姓名、三门课程成绩(百分制)组成。TypeStudnoAsIntegernameAsString*10score(1To3)AsSingleEndTyp
数学公式(x+y)4的VB算述表达式是______。
下列运算符中,优先级别最高的是
下列运算符中,优先级别最高的是
随机试题
电化学发光免疫分析的原理是
资格预审文件主要内容包括:资格预审公告、()、资格预审申请书及各种附表四部分。
快硬硅酸盐水泥不得在()环境条件下使用。
根据《代理记账管理办法》的规定,可以批准设立非会计师事务所的代理记账机构的国家行政机关是()。
下列关于稀土矿征收资源税的说法,正确的有()。
在约翰逊和施乐斯提出的战略变革的四个发展阶段中,如果战略变化呈现无方向或无重心的特点。那么,该阶段属于()。
传统发展观认为,老年人的心理只是不断老化和衰退而没有发展,其主要依据是()。
若不等式组的解集是-1<x<1,则(a+b)2009=____________.
在汶川大地震中,我国各级部门都以抢救受灾群众生命和保障人民的生命安全为救援工作的第一目标,贯彻了党的群众观点和群众路线。关于群众观点与群众路线,正确的解读有()
TennisDuringthefirst50yearsofitshistory,tenniswaslargelyapastimeof【1】______people.Itswidespreadpopularitybe
最新回复
(
0
)