首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个标题分别为“读数据”和“统计”的命令按钮。请添加两个标签,其名称分别是Labell和Label2,标题分别为“单词的平均长度为”和“最长单词的长度为”;再添加两个名称分别为Textl和Text2,
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个标题分别为“读数据”和“统计”的命令按钮。请添加两个标签,其名称分别是Labell和Label2,标题分别为“单词的平均长度为”和“最长单词的长度为”;再添加两个名称分别为Textl和Text2,
admin
2020-06-30
51
问题
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个标题分别为“读数据”和“统计”的命令按钮。请添加两个标签,其名称分别是Labell和Label2,标题分别为“单词的平均长度为”和“最长单词的长度为”;再添加两个名称分别为Textl和Text2,Text属性为空的文本框,如图所示。程序功能如下:
①如果单击“读数据”命令按钮,则将考生文件夹下in5.dat文件的内容读到变量s中(此过程已给出);
②如果单击“统计”按钮,则自动统汁变量s(s中仅含有字母和空格,而空格是用来分隔不同单词的)中每个单词的长度,并将所有单词的平均长度(四舍五入取整)在Textl文本框内显示,将最长单词的长度在Text2文本框内显示。“读数据”命令按钮的click事件过程已经给出,请为“统计”命令按钮编写适当的事件过程,实现上述功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序之前,必须进行统计,且必须通过单击窗体右上角的“关闭”按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
选项
答案
单击“读数据”按钮,将考生文件夹下in5.dat文件的内容读到变量s 中;单击“统计”按钮,通过Select Case语句判断是否为空格或是字母(文件中仅含有字母和空格,空格用来分隔不同单词),通过Len函数得出最长单词的长度,并通过比较把最长单词赋值给变量B,将该单词的长度显示在Textl文本框内,并将该单词的平均长度显示在Text2文本框内。 Left(s,i)表示取字符串S左边的i个字符。 Right(s,J-i)表示字符串s右边的J-i个字符。 R=Split(S,“-”)表示将字符串s按“-”分割成字符数组。 步骤1:打开本题工程文件,添加两个名称分别是Labell和 Label2,标题分别为“单词的平均长度为”和“最长单词的长度为”的标,以及标题分别为Textl和Text2,初始内容都为空的文本框。 步骤2:分析并编写程序代码。 程序提代码 Option Base 1 Dim s As String Private Sub Commandl_Click() Open App.Path&”\in5.dat“For Input As#l s=Input(LOF(1),#1) Close#l End Sub Private Sub Command2_Click() “需考生编写” End Sub Private Sub Form_Unload(Cancel As Integer) Open App.Path&“\out5.dat”For Output As#1 Print#1.Textl.Text.Text2.Text Close#1 End Sub 程序结束 Private Sub Command2_Click() For i=1 To Len(s) J=Asc(Mid(S,i,1)) Select Case J Case 48 To 57,65 To 90,97 To 122 Case Else Mid(s,i,1)=“-” End Select Next i J=Len(s)-1 For i=1 To J If Mid(S,i,1)=”-”And Mid(s,i+1,1)=“-”Then S=Left(S,i)+Right(s,J-i) J=J=1 i=i-l End If Next i S=Left(s,Len(S)-1) R=Split(s,“-”) B=R(0) For i=1 To UBound(R) If Len(B
解析
转载请注明原文地址:https://kaotiyun.com/show/sTHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在设计窗体时双击窗体的任何地方,可以打开的窗口是
由高中数学可知,对于连续函数f(x),若f(x1)与f(x2)值的符号相反,则在x1和x2之间必存在x0,使得f(x0)=0(该点称为“零点”)。设有VB函数:PrivateFunctionf(xAsSingle)AsSingle可以返回f(x)的
为把圆周率的近似值3.14159存放在变量pi中,应该把变量pi定义为
在下列关系运算中,不改变关系表中的属性个数但能减少元组个数的是
在黑盒测试方法中,设计测试用例的主要根据是
将数据库的结构划分成多个层次,是为了提高数据库的()。
某完全二叉树按层次输出(同一层从左到右)的序列为ABCDEFGH。该完全二叉树的前序序列为()。
A、DYBEAFCZXB、YDEBFZXCAC、ABDYECFXZD、ABCDEFXYZC前序遍历是指在访问根结点、遍历左子树与遍历右子树这三者中,首先访问根结点,然后遍历左子树,最后遍历右子树;并且,在遍历左右子树时,仍然先访问根结点,然后遍历左
一般情况下,当对关系R和S进行自然连接时,要求R和S含有一个或者多个共有的
随机试题
法律规则的本源和基础是()。
藏青果颗粒的功能主治是
A.生附子B.蟾酥C.生甘遂D.红粉E.天仙子毒性中药的药性峻烈,掌握其用法用量显得尤为重要只能外用的毒性中药是()。
某女,29岁,生育史:0一0—0—0,孕50天,阴道流血2天,似月经,阵发性下腹痛加剧。检查:子宫颈口已开,子宫略增大,尿妊娠试验阴性。其处理方法是
甲工程公司承包施工的项目,在项目竣工交付后的第4年由于屋面防水工程施工质量缺陷,导致工程的直接损失10万元,维修恢复费用16万元。根据《建设工程质量管理条例》的规定,甲工程公司应当()。
银行业金融机构从事期货交易融资或者担保业务的资格,由()批准。
买卖合同的标的物是()。
随同商品出售不单独计价的包装物成本应计入“其他业务支出”中。()
2×13年12月10日,甲公司与乙公司签订了一项租赁协议,将一栋经营管理用写字楼出租给乙公司,租赁期为3年,租赁期开始日为2×13年12月31日,年租金为600万元,于次年起每年年初收取。相关资料如下:(1)2×13年12月31日,甲公司将该写字楼停止自
著名散文游记《醉翁亭记》的作者是()。
最新回复
(
0
)