首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个文本框,名称为Text1(multiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文
在窗体上画1个文本框,名称为Text1(multiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文
admin
2019-06-20
68
问题
在窗体上画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全国计算机二级
相关试题推荐
在窗体画一名为CommonDialog1,则下列与CommonDialog1.ShowOpen方法等效的语句是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Text1的文本框,其高、宽分别为400、2000。运行后的窗体如图2.78所示。请在属性框中设置适当的属性满足以下要求:
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml标题为“选课”的窗体上面一个复选框数组,名称为CH1,共有四个复选框,按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”,其中“语文”、
(1)在学生文件夹下有一个工程文件sjt3.vbp,在程序运行时,单击“输入整数”按钮,可以从键盘输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。如图2.137(a)是输入53后的结果,如图2—137(b)是输入100的结果。已经给出了全部控件
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上面一个名称为Combol的组合框,其宽度为1200,其类型如图2.102所示(即简单组合框)。要求如下:①请按图中所示,通过属
考生文件夹下存在一个数据库文件“samp2.accdb”,里面已经设计好表对象“tCourse”、“tScore”和“tStud”,试按以下要求完成设计:(1)创建一个查询,查找党员记录,并显示“姓名”、“性别”和“入校时间”三列信息,所建查询命
以下关于局部变量的叙述中错误的是()。
语句Dima(-3To4,3To6)AsInteger定义的数组的元素个数是
表达式Str(Len("123"))+Str(77.7)的值是()。
在软件设计中,不属于过程设计工具的是
随机试题
关于医疗事故的概念不正确的是
采用硬钎剂来焊接不锈钢时,应添加()。
Therocketengine,withitssteadyroarlikethatofawaterfallorathunderstorm,isanimpressivesymbolofthenewspaceage
A.抗菌药物疗程稍长,多采用联合用药B.用药后症状消失即停药C.用药后48小时无效应考虑更换抗菌药物D.用糖皮质激素E.应用吲哚美辛慢性肾盂肾炎的治疗应是
患者,女性,32岁。慢性迁延性胃炎。反复上腹胀痛,食欲减退,反酸、嗳气。近半年,出现贫血、体重减轻。该型胃炎发病的主要因素是
集装箱班轮CY/CY运输条款的内容包括()。
在教育史上提出“学而不思则罔,思而不学则殆”的教育家是()
已知市场对某产品每天的需求为p=600-q.市场上只有一家厂商生产该产品,其生产函数其中K和L分别为资本和劳动投入。厂商已经有资本投入100单元.如果劳动市场的工资率每天50元,该厂商将雇佣多少工人?
假定Picturel和Text1分别为图片框和文本框的名称,下列不正确的语句是()。
Notonly____________(他向我收费过高),buthedidn’tdoagoodrepairjobeither.
最新回复
(
0
)