首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个文本框,名称为Text1(multiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文
在窗体上画1个文本框,名称为Text1(multiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文
admin
2019-06-20
66
问题
在窗体上画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全国计算机二级
相关试题推荐
设窗体上有名称为Option1的单选按钮,且程序中有语句:IfOption1.Value=TrueThen下面语句中与该语句不等价的是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上添加一个计时器控件,名称为Timerl。请利用属性窗口设置适当属性,使得在运行时可以每隔1秒,调用计时器的Timer。事件过程一次。另外
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)住名称为Forml的窗体上画两个文本框,其名称分别为Text1和Text2,它们的高、宽分别为300、2400和1200、2400。窗体的标题为“窗口”。请通过属
在考生文件夹下有一个数据库文件“samp2.accdb”,里面已经设计好了一个关联的表对象“tStud”、“tScore”、“tCourse”和一个空表“tTemp”,请按以下要求完成设计。(1)创建一个查询,查找并显示年龄在18~20岁之间(包
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画1个名称为Cbo1的组合框,组合框的列表项分别是:北京、天津、上海。请设置组合框的参数,使其外观如图3—6所示。窗体的标题是“用组合框”。注
下列不属于软件工程3个要素的是()。
设有以下函数过程PrivateFunctionFun(a()AsInteger,bAsString)AsInteger…EndFunction若已有变量声明:Dimx(5)AsInteger,nAsInteger,chA
若在窗体模块的声明部分声明了如下自定义类型和数组PrivateTypeTemScoreAsIntegerStrNameAsStringEndTypeDimStudent(5)AsTem则下面的输出语句中正确的是()。
设在窗体上有一个名称为Check1的复选框数组,并有以下事件过程:PrivateSubCheck1_Click(IndexAsInteger)…EndSub则下面叙述中错误的是
下列运算符中,优先级别最低的是()。
随机试题
A.12LB.18LC.24LD.30LE.42L某马的潮气量为6L,补吸气量、补呼气量、余气量均为12L,则功能余气量为
在气相色谱的定量分析中,相对校正因子与()无关。
胎产式胎先露
教育水平低、职业技术能力差等是下岗工人群体出现的重要原因,但更重要的原因是国家关于国有企业的改革政策。当地政府部门应该为下岗人员提供技术培训,提供就业机会,让他们顺利再就业。从社区工作方法来说,题中的做法表现了()。
一封家书,一段历史。千百年来,传统家书维系着人间的亲情,记录了时代的变迁,是文学、美学、书法、礼仪等文化的综合载体。目前,为了避免逐渐淡出人们视线的传统家书悄然消亡,一些有识之士倡议抢救散落在民间的传统家书,这是因为()。
标志着人体全部器官接近成熟的是()
在先秦诸子中,最为提倡尊师的教育家是()。
[*]
设A=,求与A乘积可交换的所有矩阵.
在查询中,默认的字段显示顺序是()。
最新回复
(
0
)