首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个文本框,名称为Text1(multiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文
在窗体上画1个文本框,名称为Text1(multiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文
admin
2019-06-20
74
问题
在窗体上画1个文本框,名称为Text1(multiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文件夹下的in5.txt文件中的所有英文字符放入Text1(MutiLine属性为True)中;单击“统计”按钮,找出并统计英文字母i,j,k,1,m,n(不区分大小写)各自出现的次数;单击“存盘”按钮,将字母i到n出现次数的统计结果依次存到考生目录下的顺序文件out5.txt中。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt5.vbp,窗体文件名保存为sit5.frm。
选项
答案
步骤1:建立界面,并设置控件的属性。程序中用到的控件及属性见表1和表2。 [*] 步骤2:分析并编写程序代码。 程序提供代码 程序结束 参考答案 Option Explicit Private Sub Command1_Click() Dim a As String Dim S As Stfing Open App.Path&”\in5.txt”For Input As #1 Do While Not EOF(1) a=Input(1,#1) s=s&a Loop Close#1 Text1=s End Sub Private Sub Command2_Click() Dim str As String Dim n1 As Integer Dim n2 As Integer Dim n3 As Integer Dim n4 As Integer Dim n5 As Integer Dim n6 As Integer Dim i As Integer For i=1 To Len(Text1) str=Mid(Text1,i,1) Select Case str Case"i"."I" nl=n1+1 Case"j","J" n2=n2+1 Case"k"."K" n3=n3+1 Case"1"."L" n4=n4+1 Case"m","M" n5=n5+1 Case"n"."N" n6=n6+1 End Select Next Text1="字母i或I出现的次数为"&Format(n1,"00")&vbCrLf Text1=Text1&"字母j或J出现的次数为"&Format(n2,"00")&vbCrLf Text1=Text1&"字母k或K出现的次数为"&Format(n3,"00")&vbCrLf Text1=Text1&"字母l或L出现的次数为"&Format(n4,"00")&vbCrLf Text1=Text1&"字母m或M出现的次数为"&Format(n5,"00")&vbCrLf Text1=Text1&"字母n或N出现的次数为"&Format(n6,"00") End Sub Private Sub Command3_Cliek() Open"Out5.txt" For Output As #1 Print #1.Text1.Texl Close 1 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
Format()函数用于按指定格式返回字符串。
在“统计”按钮的事件过程中,可用For循环语句和Mid()函数将文本框中的字符逐一取出,通过Select Case语句分别判断其题为英文字母i,j,k,l,m或n(不区分大小写),并分别将结果统计到6个变量中。最后在文本框中按指定的格式显示统计结果,为使每个结果各占一行,可在每个结果后面加一个回车换行符vbCrlf。
转载请注明原文地址:https://kaotiyun.com/show/20Up777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了使每秒钟发生一次计时器事件,可以将其Interval属性设置为
(1)在名称为Form1的窗体中画一个名称为L1的标签,其标题为“0”,BorderStyle属性为1:再添加一个名称为Timer1的计时器。请设置适当的控件属性.并编写适当的事件过程,使得在运行时,每隔一秒钟标签中的数字加1。如图2.170所示的是程序刚
在考生目录下有一个上程文件vbsi5.vbp,用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a2+b2=c2。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3.4,5被视为同一个组合,不应该重复计算)。编写
在名称为Forml的窗体上画一个文本框,名称为Text1,允许多行显示:再画三个命令按钮,名称分别为C1、C2、C3,标题分别为“输入”、“转换”、“存盘”(如图2.244所示)。请编写适当的事件过程,使得在运行时,单击“输入”按钮,则从考生文件央中读入i
在考生文件夹下有一个数据库文件“samp3.accdb”,里面已经设计好了表对象“tAddr”和“tUser”,同时还设计出窗体对象“fEdit”和“fEuser”。请在此基础上按以下要求补充“fEdit”窗体的设计。(1)将窗体中名称为“Lre
在考生文件夹下有一个数据库文件“samp3.aeedb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。请在此基础上按照以下要求补充设计。(1)设置表对象“tEmp”中“聘用时间”字段的有效性规
不能正确表示条件“两个整型变量A和B之一为0,但不能同时为0”的布尔表达式是()。
在数据库管理技术的发展中,数据独立性最高的是()。
下列模式中,能够给出数据库物理存储结构与物理存取方法的是()。
设有表示学生选课的三张表,学生S(学号,姓名,性别,年龄,身份证号),课程C(课号,课名),选课SC(学号,课号,成绩),则表SC的关键字(键或码)为()。
随机试题
症见胁肋瘀肿,痛不可忍,宜选用
滥用代理权与无权代理[武大2013年研]
民用建筑工程设计等级I级、Ⅱ级工程方案设计阶段的工作量比例是()
投资组合理论体现在()阶段。
某肥皂厂从建厂以来一直专注于开发肥皂产品,因其质量卓越、价格公道而广受市场好评,有自己稳定的消费群体。为了扩大经营规模,企业决定增加洗衣粉的生产。根据市场预测,可知这种洗衣粉市场状况的概率是畅销为0.3,一般为0.5,畅销为0.2。洗衣粉产品生产采取大、中
幼儿发展评价是否科学、恰当主要取决于()。
利用几何级数求末项的公式推算若干年后的总人数,这是人口总数预测方法中的()。
ExpertspredictthatChina’shealthcaremarketwillhaveanannualgrowthof6to8percentinthenextfewyears,makingiton
上周日我去姐姐家玩儿,她一开门,我就笑了,她的鼻子上、耳朵上都是面,眼镜上也有,她告诉我她正在厨房里做蛋糕呢。他姐姐:
A、OutstandingteacherslikeProfessorJohnsonarerare.B、ProfessorJohnsonhaswonamilliondollarsasanaward.C、ProfessorJ
最新回复
(
0
)