首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个文本框,名称为Text1(multiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文
在窗体上画1个文本框,名称为Text1(multiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文
admin
2016-06-30
93
问题
在窗体上画1个文本框,名称为Text1(multiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文件夹下的in5.txt文件中的所有英文字符放入Textl(MutiLine属性为True)中;单击“统计”按钮,找出并统计英文字母i,j,k,l,m,n(不区分大小写)各自出现的次数;单击“存盘”按钮,将字母i到n出现次数的统计结果依次存到考生目录下的顺序文件out5.txt中。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt5.vbp,窗体文件名保存为sjt5.frm。
选项
答案
步骤1:建立界面,并设置控件的属性。程序中用到的控件及属性见表1和表2。 [*] 步骤2:分析并编写程序代码。 程序提供代码 程序结束 参考答案 Option Explicit Private Sub Commandl_Click() Dim a As String Dim 8 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 Conunand2_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=l To Len(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“l”.“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=Textl&”字母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=Textl&”字母n或N出现的次数为”&Format(n6,”00”) End Sub Private Sub Command3_Click() Open"out5.txt"For Output As#1 Print#1.Text1.Text Close 1 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
Format()函数用于按指定格式返回字符串。
在“统计”按钮的事件过程中,可用For循环语句和Mid()函数将文本框中的字符逐一取出,通过Select Case语句分别判断其题为英文字母i,j,k,l,m或n(不区分大小写),并分别将结果统计到6个变量中。最后在文本框中按指定的格式显示统计结果,为使每个结果各占一行,可在每个结果后面加一个回车换行符vbCrLf。
转载请注明原文地址:https://kaotiyun.com/show/4lLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序运行后,单击命令按钮,输出的结果是PivateSubCornmand1_Click()Dima%(1To4),b%(2To6),i%,str1#,str2# Fori=1To4 a(i)=
若要求在菜单中包含分隔条,则设计时,在菜单的标题属性中应设置为______。
下述关于数据库系统的叙述中正确的是
设已经在“菜单编辑器”中设计了窗体的快捷菜单,其顶级菜单为Bs,取消其“可见”属性,运行时,在以下事件过程中,可以使快捷菜单响应鼠标右键菜单的是
在窗体中添加一个命令按钮,编写如下程序:PrivateSubSubl(p,m,n) p=p+1:m=m+1:n=n+1 Print"subl:";p;m;nEndSubPrivateSubCommand
下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填人适当的内容,将程序补充完整。PrivateTypeAng KAsInteger
有如下SUB过程:Subs(xAsSingle,yAsSingle) t=x x=t/y y=tModyEndSub在窗体上添加一个命令按钮,然后编写如下事件过程:PrivateSu
树是结点的集合,它的根结点数目是
下列符号()是VisualBasic中的合法变量名。
下列二叉树描述中,正确的是()。
随机试题
下列DNA中,一般不用作克隆载体的是
据《关于推进大气污染物联防联控工作改善区域空气质量的指导意见》,大气污染物联防联控的重点行业是()。
对施工单位提出的工程变更,总监理工程师应履行的职责有()。
甲、乙、丙、丁四人合作创作一部小说,甲欲将该小说许可给某电影制片厂改编后拍成电影。乙则想把它许可给某网站在网络上传播,丙对这两种做法均表示反对,丁则不置可否。对此,下列哪一选项是正确的?()
Readingisthekeytosuccess.Apparently,everysuccessfulpersondevelopsapassionforreading.Thisisbecausereadingisa
Relativitytheoryhashadaprofoundinfluenceonourpictureofmatterbyforcingustomodifyourconceptofaparticleinan
为当前表中所有学生的总分增加10分,正确的命令是()。
Theorderlycamebackinafewminuteswitharifleandfivecartridges,andmeanwhilesomeBurmanshadarrivedandtoldusthat
ChrisBaildon,tallandlean,wasinhisearlythirties,andtheend-productofanolddecayedislandfamily.Chrissharedt
Humanbodyneedsavarietyofessentialnutrientstofunctionproperly.Unlessyouarea【C1】______,youprobablydon’tknowwhat
最新回复
(
0
)