首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个标题分别为“读数据”和“统计”的命令按钮。请添加两个标签,其名称分别是Label11和Labe12,标题分别为“单词的平均长度为”和“最长单词的长度为”;再添加两个名称分别为Text1和Text2
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个标题分别为“读数据”和“统计”的命令按钮。请添加两个标签,其名称分别是Label11和Labe12,标题分别为“单词的平均长度为”和“最长单词的长度为”;再添加两个名称分别为Text1和Text2
admin
2015-08-12
16
问题
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个标题分别为“读数据”和“统计”的命令按钮。请添加两个标签,其名称分别是Label11和Labe12,标题分别为“单词的平均长度为”和“最长单词的长度为”;再添加两个名称分别为Text1和Text2,。Text属性为空的文本框,如图所示。程序功能如下:
①如果单击“读数据”命令按钮,则将考生文件夹下in5.dat文件的内容读到变量s中(此过程已给出);
②如果单击“统计”按钮,则自动统计变量s(s中仅含有字母和空格,而空格是用来分隔不同单词的)中每个单词的长度,并将所有单词的平均长度(四舍五入取整)在Text1文本框内显示,将最长单词的长度在Text2文本框内显示。
“读数据”命令按钮的Click事件过程已经给出,请为“统计”命令按钮编写适当的事件过程,实现上述功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序之前,必须进行统计,且必须通过单击窗体右上角的“关闭”按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件,添加两个名称分别是Label1和Label2,标题分别为“单词的平均长度为”和“最长单词的长度为”的标签,以及标题分别为Text1和Text2,初始内容都为空的文本框。 步骤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() 需考生编写 End Sub Private Sub Form_Unload(Cancel As Integer) Open App.Path&"\out5.dat"For Output As #1 Print #1,text1.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=kn(s)-1 Fori=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=kft(s,Len(s)-1) R=Split(8,"-") B=R(0) For i=1 To UBound(R) If Len(b)<Len(R(i)) then B=R(i) Next i Text2.Text=Len(b) Text1.Text=Int((kn(s)-UBound(R))/(UBound(R)+1)+0.5) End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
单击“读数据”按钮,将考生文件夹下in5.dat文件的内容读到变量s中。
单击“统计”按钮,通过Select Case语句判断是否为空格或是字母(文件中仅含有字母和空格,空格用来分隔不同单词),通过Len函数得出最长单词的长度,并通过比较把最长单词赋值给变量B,将该单词的长度显示在Text1文本框内,并将该单词的平均长度显示在Text2文本框内。
Left(s,i)表示取字符串s左边的i个字符。
Right(s,J-i)表示取字符串s右边的J-i个字符。
R=Split(s,"-")表示将字符串s按"-"分割成字符数组。
转载请注明原文地址:https://kaotiyun.com/show/sSQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设通用对话框控件的名称为CD1,希望在打开文件对话框中的“文件类型”列表中包含:所有文件、Word文档和文本文件这3类文件,在程序中设置Filter属性时正确的是
下列程序段的执行结果为a="ABBACDDCBA"ForI=6To2Step-2x=Mid(a,I,I)y=Leh(a,I)z=Right(a,I)z=x&y&
假定有下面的程序段:Fori=1To3Forj=1ToiFork=jTo3Print"i=";i,"j=";j,"k=";kNext
完全不考虑程序的内部结构和内部特征,而只是根据程序功能导出测试用例的测试方法是
假定建立了一个工程,该工程包括两个窗体,其名称(Name属性)分别为Form1和Form2,启动窗体为Form1。在Form1上画一个命令按钮Command1,程序运行后,要求当单击该命令按钮时,Form1窗体消失,显示窗体Form2,请将下面的程序补充
执行以下程序段,并输入1.23,则程序的输出结果应是【】。N=Str(InputBox("请输入一个实数:"))p=InStr(N,".")PrintMid(N,p)
执行如下两条语句后,窗体上显示的是a=8596PrintFormat(a,"$00,00.00")
下列程序段的执行结果为DimM(10)Fork=1To10M(k)=11-kNextkx=6PrintM(2+M(x))
在窗体上画一个名称为Listl的列表框,一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时,在标签中显示选中城市的名称。下列能正确实现上述功能的程序是
以下能在窗体Form1的标题栏中显示“VisualBasic窗体”的语句是
随机试题
注意缺陷多动障碍的病因是
资产负债表中所有者权益类项目一般按照()分项列示。[2013年真题]
影响市场集中度的因素主要有()。
下列选项中,未被列入世界遗产项目的是()。
一个真正的文学批评家,应该坚守自己独立的批评品格,远离世俗的主流风尚,对文学进行精神与灵魂的审视,而不是庸常的絮语。然而,中国当下文学的主流批评恰恰存在着一定的灵魂缺失与精神萎缩。文学批评渐渐被市场与媒体所左右,总是在大而无当的赞歌与恣肆恶意的攻击之间进退
1921年,中共一大在浙江嘉兴南湖闭幕,宣告了中国共产党的诞生。在此时节,下列说法错误的是:
根据下列统计资料回答问题。2011年,除六大行业外的2000万元以上工业实现利润:
分析西周衰亡的原因。
设f(x)连续,且且f′(0)存在,求f′(0).
nomoney/poorinmoney.
最新回复
(
0
)