首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个文本框,名称为Text1(multiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文
在窗体上画1个文本框,名称为Text1(multiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文
admin
2019-06-20
44
问题
在窗体上画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全国计算机二级
相关试题推荐
(1)在考生文件夹下有一个工程文件vbsi3.vbp,相应的窗体文件名为vbsi3.frm。在窗体上有一个命令按钮,其名称为cmdAdd,标题为“添加”;有一个文本框,名称为txtSentense,初始内容为空白;有一个列表框,名称为lstWord。程序运
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml标题为“选课”的窗体上面一个复选框数组,名称为CH1,共有四个复选框,按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”,其中“语文”、
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上添加一个计时器控件,名称为Timerl。请利用属性窗口设置适当属性,使得在运行时可以每隔1秒,调用计时器的Timer。事件过程一次。另外
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画1个命令按钮,其名称为C1,标题为“等级考试”;再画1个文本框,名称为T1,如图2-107(a)所示。请编写适当的事件过程,使程序运行
(1)在考生目录下有一个工程文件sjt3.vbp,包含了所有控件和部分程序。程序运行时,在文奉框中每输入一个字符,则立即判断:若是小写字母,则把它的大写形式显示在标签Label1中;若是大写字母,则把它的小写形式显示在Labe11中;若是其他7符,则把该字
在考生文件夹下有一个数据库文件“samp2.accdb”,里面已经设计好了一个关联的表对象“tStud”、“tScore”、“tCourse”和一个空表“tTemp”,请按以下要求完成设计。(1)创建一个查询,查找并显示年龄在18~20岁之间(包
考生文件夹下有一个数据库文件“samp3.accdb”,其中存在已经设计好的表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。请在此基础上按照以下要求补充设计。(1)将表对象“tEmp”中的“聘用时间”字段的格式
下面哪个属性不是框架控件的属性()。
表达式2*3^2+4*2/2+3^2的值是
某二叉树共有399个结点,其中有199个度为2的结点,则该二叉树中的叶子结点数为()。
随机试题
盲肠癌病人最少见的合并症是()
苯巴比妥钠肌内注射时,一日极量是
A.黄酮哌酯B.氟他胺C.特拉唑嗪D.非那雄胺E.尼尔雌醇属于5α-还原酶抑制剂,可抑制前列腺增生的药品是()。
在火场上燃烧物质所放出的热能,通常是以传导、()和对流三种方式传播。
“授人以鱼仅供一饭之需,授人以渔则终身受用无穷。”这句话说明教学中应重视()
中古波斯著名诗人菲尔多西的代表作是_______。
下列对IPv6地址的表示中,错误的是
下面关于算法的叙述中,正确的是()。
Inthe【B1】______annualBiblereadingmarathonthevolunteersreadreverentlyfrom【B2】______to_______________【B3】______.Atth
Nutritionist’sAdviceEatingcorrectlyinyour20sand30scanbeamatterofvisualaesthetics,ratherthanatiresomeex
最新回复
(
0
)