首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个文本框,名称为Text1(muhiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文件
在窗体上画1个文本框,名称为Text1(muhiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文件
admin
2018-09-19
31
问题
在窗体上画1个文本框,名称为Text1(muhiline属性为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 String 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 ten(Text1) str=Mid(Text1,i,1) Select Case str Case"i"."I" n1=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&”字母1或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_Click() Ppen"out5.txt" For Output As #1 Print #1.Text1.Text Close 1 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
Format()函数用于按指定格式返回字符串。
在“统计”按钮的事件过程中,可用For循环语句和Mid()函数将文本框中的字符逐一取出,通过Select Case语句分别判断其题为英文字母i,j,k,1,m或n(不区分大小写),并分别将结果统计到6个变量中。.最后在文本框中按指定的格式显示统计结果,为使每个结果各占一行,可在每个结果后面加一个回车换行符vbCrLf。
转载请注明原文地址:https://jikaoti.com/ti/Avm0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
某人编写了下面的程序PrivateSubCommand1—Click()DimaAsInteger,bAsIntegera=InputBox("请输入整数"):b=InputBox("请输入整数")proa:probCall
在窗体上有一个名称为Command1的命令按钮,并编写有如下事件过程:PrivateSubCommand1_Click()DimrecAsanimalOpen"c:\vbTest.dat"ForRandomAs#1Len=Len(r
下列程序执行后,其输出结果为()。Dima(5)Fori=0To4a(i)=i+1:m=i+1Ifm=3Thena(m-1)=a(i-2)Elsea(m)=a(i)Ifi=2Thena(i-1)=a(m-3)a(4
如果在框架中画了2个复选框,且框架的Enabled属性被设置为False,2个复选框的Enabled属性被设置为True,则下面叙述中正确的是( )。
设计窗体时,双击窗体上没有控件的地方,打开的窗口是( )。
要使得文件列表框File1中只显示文件扩展名为jpg的图片文件,则下列正确的语句是
软件需求分析阶段的主要任务是
下列说法中,错误的是( )。
表达式5*Sqr(25)+Sgn(4^4)的值是
下面的数写成普通十进制数是()。2.65358979335278D-6
随机试题
MyMajorProblemDecision-makingissomethingIstrugglewith.Infact,I’dratherhavesomeoneelsemakedecisionsforme.
Excel的“打印预览”窗口中的“缩放”功能()。
Vitali反应呈阴性的是
昌义区邮政储蓄所的工作人员宋某利用为顾客办理储蓄业务的职务便利,于2008年1月至2009年3月期间,将其业务过程中的公民个人信息如身份证号码、通讯方式等卖给某公司,该公司用此信息联系扩大客户,并发送手机广告短信。宋某从中获利2.1万余元,对此案评断正确的
甲公司2012年6月6日销售产品一批,货款为1000万元,增值税税率为17%,该公司为增值税一般纳税人。销售当日甲公司收到购货方寄来一张3个月到期的商业承兑汇票.则甲公司应收票据的入账金额是()万元。
下列说法正确的是()。
我国公民的政治权利和自由包括()。
甲被法院宣告死亡,甲父乙、甲妻丙、甲子丁分割了其遗产。后乙病故,丁代位继承了乙的部分遗产。丙与戊再婚后因车祸遇难,丁、戊又分割了丙的遗产。现甲重新出现,法院撤销死亡宣告。则下列说法错误的有()。
某著名导演欲根据剧作家乙编写的剧本拍摄一部电视剧,而剧本是根据作者丙的同名小说改编而成的。则下列说法正确的是()。
Lookatthetenstatementsforthispart.Youwillhearamantalkingabout"TheWrightBrothers".Decidewhetheryout
最新回复
(
0
)