首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个标题分别是“读数据”和“统计”的命令按钮。请画两个标签,其名称分别是Label1和Label2,标题分别为“最长单词的长度为”和“以该长度最后一次出现的单词是”;再画两个名称分别为Text1和Te
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个标题分别是“读数据”和“统计”的命令按钮。请画两个标签,其名称分别是Label1和Label2,标题分别为“最长单词的长度为”和“以该长度最后一次出现的单词是”;再画两个名称分别为Text1和Te
admin
2018-10-29
64
问题
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个标题分别是“读数据”和“统计”的命令按钮。请画两个标签,其名称分别是Label1和Label2,标题分别为“最长单词的长度为”和“以该长度最后一次出现的单词是”;再画两个名称分别为Text1和Text2,初始值为空的文本框,如图1-73所示。程序功能如下:
①如果单击“读数据”按钮,则将考生文件夹下in5.dat 文件的内容读到变量s 中(此过程已给出);
②如果单击“统计”按钮,则自动统计in5.dat文件(该文件中仅含有字母和空格,而空格是用来分隔不同单词的)中最长单词的长度,以及in5.dat中最后一个以该长度出现的单词,并将该单词的长度显示在Text1文本框内,将该单词显示在Text2文本框内。
“读数据”命令按钮的Click事件过程已经给出,请为“统计”命令按钮编写适当的事件过程,实现上述功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须进行统计,且必须通过单击窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件夹下的本题工程文件sjt5.vbp,如表2-16所列在窗体上画出控件并设置它们的相关属性。 [*] 步骤2:打开代码编辑窗口,在指定位置编写“统计”按钮的单击事件过程。 参考代码: Private Sub Command2_Click() ’需考生编写 n = Len(s): t = "" Dim Max_len As Integer For i = 1 To n c = Mid(s, i, 1) If c <> " " Then t = t + c Else If Len(t) > Max_len Then Max_len = Len(t) Max_word = t End If t = "" End If Next i If Len(t) > Max_len Then Max_len = Len(t) Max_word = t End If Text1.Text = Max_len Text2.Text = Max_word End Sub 步骤3:按要求将文件保存至考生文件夹中。 步骤4:按<F5>键运行程序,先单击“读数据”按钮,再单击“统计”按钮,最后单击窗体右上角的关闭按钮结束程序。
解析
转载请注明原文地址:https://kaotiyun.com/show/83Fp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
输入VisualBasic源程序时,若一个命令行中包含两个语句,则两个语句之间的分隔符应使用
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() a$=InputBox("请输入一个二进制数") n=Len(a$) Fori=1Ton Dec=Dec*2+
为了将"联想电脑"作为数据项添加到列表框List1的最前面,可以使用语句()。
求1!+2!+……+10!的程序如下:PrivateFunctions(xAsInteger) f=1 Fori=1Toxf=f*i Next s=fEndFunctionPrivateSubCommand1
以下选项中,不合法的VisualBasic的变量名是( )。
要使标签中的文本靠右显示,应将其Aligment属性设置为
A、选择B、差C、交D、并B关系T是关系R的一部分,并且是关系R去掉R和S相同的元素,符合差操作。
以下关于文件的叙述中,错误的是( )。
工程中有Form1、Form2两个窗体(Forml中有文本框Text1,Form2中有Text1文本框和command1命令按钮)。Form1是启动窗体。在这些模块中编写下面的程序代码:Form1中的代码如下:PrivateS
设工程文件中包名称分别为Form1、Form2的两个窗体,且Form1的菜单属性设置如下:窗体Form1中的程序如下:DimFlagAsBooleanPrivateSubForm_Load() Flag=TrueEndSubPr
随机试题
患者以牙龈出血、牙龈肿大为主诉就诊时,排除白血病性牙龈病损最简单又最有说服力的方法是
有关系统性红斑狼疮的描述,错误的是
符合Ⅰ型vWD标准的是符合Ⅲ型vWD的标准的是
[2010真题·单选(选做)]室内给水系统采用设储水池、水泵的给水方式时,其不足之处为()。
不属于工程间接费中财务费用的是()。
第一次在党的报告中系统、全面、完整、系统的表述教育方针是在党的________中。
在知识学习中,根据言语信息复杂程度通常把知识分为哪几种形式?
()是处于内线的进攻队员背对或侧对球篮接球,以他为枢纽,与外线同伴空切相配合而形成的一种里应外合的方法。
垄断竞争市场上,企业的成功取决于产品差别竞争。()
StreetMaintenance,McFarlen,MNToreportproblemswithstreetmaintenancepleasecallthepubicworksdepartmentat341-472-36
最新回复
(
0
)