首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有工程文件sjt5.vbp,窗体上有两个标题分别是“读数据”和“统计”的命令按钮,请添加一个名称为Label1、标题为“回文的个数为”的标签和一个名称为Text1,初始值为空的文本框,如图3.87所示。程序功能如下: ①单击“读
(1)在考生文件夹下有工程文件sjt5.vbp,窗体上有两个标题分别是“读数据”和“统计”的命令按钮,请添加一个名称为Label1、标题为“回文的个数为”的标签和一个名称为Text1,初始值为空的文本框,如图3.87所示。程序功能如下: ①单击“读
admin
2017-09-22
34
问题
(1)在考生文件夹下有工程文件sjt5.vbp,窗体上有两个标题分别是“读数据”和“统计”的命令按钮,请添加一个名称为Label1、标题为“回文的个数为”的标签和一个名称为Text1,初始值为空的文本框,如图3.87所示。程序功能如下:
①单击“读数据”按钮,则将考生文件夹下in5.dat文件的内容读到变量s中。
②单击“统计"按钮,则统计in5.dat文件(该文件中仅含由空格间隔开的字母串)中回文的个数,并将统计的回文个数显示在Text1文本框内。(所谓回文是指顺读与倒读都一样的字符串,如“recycer”)。“读数据”按钮和“统计”按钮的Click事件过程已经给出,请完善Function过程foundhuiwen的功能,实现上述程序功能。
注意:考生不得修改窗体文件中已存在的控件和程序,在结束程序运行之前,必须先进行统计,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
选项
答案
步骤1:打开考生文件夹下的工程文件sjt5.vbp,如表4.55所示在窗体上画出控件并设置它们的相关属性。 [*] 步骤2:打开代码编辑窗口,在指定位置编写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 步骤3:按
键运行程序,先单击“读数据”按钮,再单击“统计”按钮,最后单击窗体右上角的关闭按钮结束程序。 步骤4:按要求将文件保存至考生文件夹中。
解析
本题中自定义函数fotmdhuiwen的功能是判断字符串参数p是否为回文,若是则返回函数值True,否则返回函数值False。根据回文的定义程序设计思路:在For循环中按从两端到中间的顺序,分别用Mid函数依次从字符串参数p中同时取出两个字符,并比较这两个字符是否相同,若不相同则返回函数值False,并用Exit Function语句退出自定义函数;否则继续往下比较直至循环结束。循环正常结束时,返回函数值True。
转载请注明原文地址:https://kaotiyun.com/show/4kGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了使标签能自动调整大小以显示全部文本内容,应把标签的【】属性设置为True。
编写如下事件过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)If(ButtonAnd3)=3ThenPrint"AAAA
在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:PrivateFuncdonf(mAsInteger)IfmMod2=0Thenf=mE1Se
假定有如下程序代码,程序运行后,把鼠标光标移到窗体内,每单击一次,变换一种鼠标光标的形状,依次显示鼠标光标的15个属性。请在划线处将程序补充完整。PrivateSubForm_Click()StaticxAsIntegerClsPri
为了在窗体上建立2组单选按钮,并且当程序运行时,每组都可以有一个单选按钮被选中,则以下做法中正确的是
设窗体上有一个标签Label1和一个计时器Timer1,Timer1的Interval属性被设置为1000,Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。下列可以实现上述要求的事件过程是()。
一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Fomil中有语句PublicXAsInteger,在Model1中有语句PublicYAsInteger.则以下叙述中正确的是
为了使命令按钮(名称为Command1)右移200,应使用的语句是
为了使图片框的大小可以自动适应图片的尺寸,则应______。
随机文件使用Put语句写数据,使用【】语句读数据。
随机试题
一般职务作品的著作权归()。
某公司由于拓展业务的需要,资金供应链紧张,经公司管理层决议,计划向社会发行企业债券。该公司财务经理已经编制好筹资计划,请代该公司设计债券发行批准制度。
以各项护理活动为中心的护理工作方法称为()
A.水B.电解质C.纤维蛋白原D.白蛋白E.红细胞
甲将抢得的信用卡交给何某,并告何某系抢劫所得,唆使何某去ATM机取钱,何某取现4万元,二人各分得2万元。对此,下列选项错误的是()。
独立的理财顾问不可以是()。
下列各项中,不属于营业成本的是()。
A公司和B公司有关债务重组资料如下:A公司销售给B公司一批商品,含税价款为1237.5万元,债务到期时款项尚未收到,由于B公司发生财务困难,2014年1月1日双方进行债务重组。经修改债务条件,A公司同意将债务本金减到900万元,同时将剩余债务延期一年,并按
近年来,个人信息泄露事件_______,公民个人的信息安全面临越来越严峻的挑战。除了相关领域的立法,政府在执行层面都有待加强之外,一个很重要的原因就是民众对于信息保护的观念还非常_______。之前就有人在自己的微博上公开明星信息,丝毫没有意识到自己违反了
下图(a)所示为一个模块层次结构的例子,图(b)所示为对其进行集成测试的顺序,则此测试采用了(1)测试策略。该测试策略的优点不包括(2)。(1)
最新回复
(
0
)