首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有工程文件sit5.vbp,窗体上有两个标题分别是“读数据”和“统计”的命令按钮,请添加一个名称为Label1、标题为“回文的个数为”的标签和一个名称为Text1,初始值为空的文本框,如图3—87所示。程序功能如下: ①单击“读数据”按钮,则
在考生文件夹下有工程文件sit5.vbp,窗体上有两个标题分别是“读数据”和“统计”的命令按钮,请添加一个名称为Label1、标题为“回文的个数为”的标签和一个名称为Text1,初始值为空的文本框,如图3—87所示。程序功能如下: ①单击“读数据”按钮,则
admin
2019-05-14
54
问题
在考生文件夹下有工程文件sit5.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=1To k/2 If Mid(p,i,1)<>Mid(p,k+1-i,1)Then foundhuiwen=False Exit For End If Next End Function 步骤3:按<F5>键运行程序,先单击“读数据”按钮,再单击“统计”按钮,最后单击窗体右上角的关闭按钮结束程序。 步骤4:按要求将文件保存至考生文件夹中。
解析
本题中自定义函数foundhuiwen的功能是判断字符串参数p是否为同文,若是则返回函数值True,否则返回函数值False。根据回文的定义程序设计思路:在For循环中按从两端到中间的顺序,分别用Mid函数依次从字符串参数p中同时取出两个字符,并比较这两个字符是否相同,若不相同则返回函数值False,并用Exit Function语句退出自定义函数:否则继续往下比较直至循环结束。循环正常结束时,返回函数值True。
转载请注明原文地址:https://kaotiyun.com/show/mHUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
请根据以下各小题的要求设计visualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为C1、标题为“改变颜色”的命令按钮,窗体标题为“改变窗体背景色”。编写程序,使得单击命令按钮时,将窗体的背景颜色改为红色(&HFF&
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个标签,名称为L1,标题为“业余爱好”,再画一个名称为Chl的复选框数组,含三.个复选框,它们的Index属性分别为0、1、2,标题依次为
阅读程序:PrivateSubForm_Click()DimIAsInteger,JAsIntegerDimSAsIntegerc=1ForI=1To2ForJ=1To3S=S+3NextJNextI
有如下函数:PrivateFunctionfun(xAsInteger,yAsInteger)AsIntegerDimk%.n%n=IIf(y<0,-y,y)Fork=1Tonx=x-Sgn(y)Nextfun=XE
下列过程定义正确的是()。
对长度为n的线性表作快速排序,在最坏情况下,比较次数为
窗体上有一个名称为VScrolll的垂直滚动条,为了设定单击滚动条两端箭头时的Value增量值,应设置的属性是
在标题为“列表框”、名称为Form1的窗体上添加一个名称为List1的列表框,通过属性窗口输入4个列表项:“数学”、“语文”、“历史”、“地理”,列表项形式采用复选框形式,如图所示。列表框的宽为1100,高不限。注意:存盘时必须存放在考生文件夹下,工程文
随机试题
积极进取就是要________,追求发展,争取进步。
主动脉弓离断解剖分型,说法错误的是
证属()治法宜()
A.补体结合试验阳性B.甲胎蛋白阳性C.右上腹绞痛及黄疸D.穿刺抽出棕褐色脓液E.突发寒颤高热,肝区疼痛,肝肿大细菌性肝脓肿的特点是
某企业连续n年,每年年初向银行借贷A万元,借款年利率为r,每半年复利计息,则第n年末一次归还贷款额的正确表达式为()。
根据《期货公司管理办法》,期货公司董事长和总经理不得由一人兼任。()
经营风险指企业未使用债务时经营的内在风险,它是企业投资决策的结果,表现在资产息税前利润率的变动上。()
统计抽样应同时具备的两个条件是()。
国内旅行社的经营范围,仅限于()。
TowhichcountrydotheRodong1missilesbringthemostthreat?
最新回复
(
0
)