首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮,标题分别是“读数据”和“统计”,请添加一个名称为Label1、标题为“回文个数为”的标签和一个名称为Text1,初始内容为空的文本框,如图所示。 程序功能如下: ①单击“读数据”按
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮,标题分别是“读数据”和“统计”,请添加一个名称为Label1、标题为“回文个数为”的标签和一个名称为Text1,初始内容为空的文本框,如图所示。 程序功能如下: ①单击“读数据”按
admin
2015-06-30
42
问题
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮,标题分别是“读数据”和“统计”,请添加一个名称为Label1、标题为“回文个数为”的标签和一个名称为Text1,初始内容为空的文本框,如图所示。
程序功能如下:
①单击“读数据”按钮,则将考生文件夹下in5.dat文件的内容读到变量s中;
②单击“统计”按钮,则统计in5.dat文件(该文件中仅含由空格间隔开的字符串)中回文的个数,并将统计的回文个数显示在Textl文本框内(所谓回文是指顺读与倒读都一样的字符串,如“recycer”)。“读数据”和“统计”按钮的Click事件过程已经给出,请完善foundhuiwen过程的功能,实现上述程序功能。
注意:考生不得修改窗体文件中已存在的控件和程序,在结束程序运行之前,必须先进行统计,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件,按照题目要求建立标签控件并设置标签的Caption属性为"回文个数为",再添加一个文本框Text1,并设置文本框的初始内容为空。 步骤2:分析并编写程序代码。 程序提供代码 Option Base 1 Dim s As String Private Sub Command1_Click() Open App.Path & "\in5.dat" For Input As #1 s = Input(LOF(1), #1) Close #1 End Sub Private Sub Command2_Click() Dim n As Integer, t As String, word num As Integer n = Len(s): t = "" For i = 1 To n c = Mid(s, i, 1) If c <> " " Then t = t + c Else If foundhuiwen(t) Then word num = word num + 1 End If t = "" End If Next i Text1.Text = word num End Sub ’以下Function 过程用于判断字符串是否为回文 Function foundhuiwen(p As String) ’考生编写 End Function Private Sub Form_Unload(Cancel As Integer) Open App.Path & "\out5.dat" For Output As #1 Print #1, Text1.Text Close #1 End Sub 程序结束 参考答案 Function foundhuiwen(p As String) If StrReverse(p) = p Then foundhuiwen = True End Function 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/McQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列过程定义语句中,形参个数为不确定数量的过程是
下列程序段的执行结果为a="ABBACDDCBA"ForI=6To2Step-2x=Mid(a,I,I)y=Leh(a,I)z=Right(a,I)z=x&y&
设窗体上有一个名为Text1的文本框,并编写如下程序:PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSubPrivate
假定建立了一个名为Command1的命令按钮数组,则以下说法中错误的是
在窗体上画一个名称为Listl的列表框,一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时,在标签中显示选中城市的名称。下列能正确实现上述功能的程序是
需求分析阶段的任务是确定()
软件设计包括软件的结构、数据接口和过程设计,其中软件的过程设计是指______。
(1)在名称为Forml的窗体上画一个文本框,名称为Textl,字体为宋体,文本框中的初始内容为“模拟试题”;请编写适当事件过程,使得在运行时,双击窗体,则把文本框中文字加下划线,如图62—1所示。程序中不得使用任何变量。注意:保存时必须存放在考
随机试题
梁启超指出:“吾国四千余年大梦之唤醒,实自甲午战败割台湾偿二百兆以后始也。”意指甲午战争后
异步电动机过载时造成电动机()增加并发热。
国家实行医师资格考试制度,目的是检验评价申请医师资格者是否具备
在罗某放火案中,钱某、孙某和吴某3家房屋均被烧毁。一审时,钱某和孙某提起要求罗某赔偿损失的附带民事诉讼,吴某未主张。一审判决宣告后,吴某欲让罗某赔偿财产损失。下列哪一说法是正确的?(卷二真题试卷第28题)
()除由两个电源供电外,尚应增设应急电源。
建筑材料,按其使用功能,有建筑装修装饰材料、保温隔声材料、管道材料以及施工材料等。建筑材料的防火性能一般用建筑材料的()来表述。
债券基金的主要投资风险包括()。
英国斯特林大学等机构的研究人员最近在《精神健康与身体运动》杂志上报告说,他们对过去有关抑郁和散步的大量研究进行综合整理和分析,从中挑选出300多名适合对比分析的抑郁患者的数据,最终得出的结论是散步在帮助治疗抑郁方面的确有效。以下各项如果为真,最能支持研究结
(2006年试题,一)设矩阵E为二阶单位矩阵,矩阵B满足BA=B+2E,则|B|=____________.
ofrisk.Forexample,someshouldberelativelyimmunetotheeffectsofrecession,
最新回复
(
0
)