首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮,标题分别是“读数据”和“统计”,请添加一个名称为Label1、标题为“回文个数为”的标签和一个名称为Text1,初始内容为空的文本框,如图所示。 程序功能如下: ①单击“读数据”按
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮,标题分别是“读数据”和“统计”,请添加一个名称为Label1、标题为“回文个数为”的标签和一个名称为Text1,初始内容为空的文本框,如图所示。 程序功能如下: ①单击“读数据”按
admin
2017-09-20
53
问题
在考生文件夹下有一个工程文件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 found。 huiwen=True’StrReverse函数的功能是将字符串顺序反转 End Function 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/atGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有一个名为Txtl的文本框和一个名为Commandl的命令按钮,并有以下事件过程:PrivateSubCommandl一Click()x!==Val(Textl.Text)SelectCasexCas
滚动条控件中,用来设置鼠标单击滚动箭头时滚动条移动的大小的属性是______。
单击命令按钮时,下列程序代码的执行结果为PublicSubProcl(nAsInteger,ByValmAsinteger)n=nMod10m=m\10EndsubPrivateSubComm
只能用来显示字符信息的控件是______。
下列程序段的执行结果为()。DimA(3,3)ForM=1To3ForN=1To3IfN=MOrN=3-M+1ThenA(M,N)=1ElseA(M,N)=0
有如下程序:PrivateSubcommand1_Click()a=1:b=1Print"a=";a;",b=";bCallmult((a),b)Print"a=";a;",b=";b
VisualBasic标题栏上显示了应用程序的
在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timed。要求每一秒在文本框中显示一次当前的时间。程序为:PrivateSubTimerl_______TextTime.text=TimeEndSu
随机试题
根据我国《公证法》的规定,公证书的生效时间是
在控制面板的分类视图显示模式下,打开“性能和维护”窗口,其中不包括_______选项。
不参与脂酸β-氧化的酶是
草豆蔻的功效是
输卵管妊娠最常见的着床部位是在输卵管的
知识产权的本质属性为()。
下列关于财务内部收益率指标差别基准确定的表述,正确的是()。
下列属于银行间债券市场的交易方式的是()。Ⅰ.询价交易Ⅱ.点击成交交易Ⅲ.竞价撮合Ⅳ.连续竞价
阅读下面的文章,回答问题。(一)自然界中存在着许许多多我们往往用肉眼察觉不到的物质循环和能量流动,把生物群落(动物、植物、微生物)同其生存的非生命环境(大气、水、土壤),以及生物群落内部的不同种群连结到一起,形成一个相互联系、相互作用、相互制约的
A、Theygetpleasurefromrisks.B、Theycancontrolpotentialrisks.C、Theycanassessdangerfromrisks.D、Theyhavestrongneed
最新回复
(
0
)