首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个文本框,名称为Textl(multiline属性为True),然后再添加三个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文
在窗体上画1个文本框,名称为Textl(multiline属性为True),然后再添加三个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文
admin
2013-11-29
19
问题
在窗体上画1个文本框,名称为Textl(multiline属性为True),然后再添加三个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文件夹下的in5.txt文件中的所有英文字符放入Textl(Mutiline属性为True)中;单击“统计”按钮,找出并统计英文字母i,j,k,l,m,n(不区分大小写)各自出现的次数;单击“存盘”按钮,将字母i到n出现次数的统计结果依次存到考生目录下的顺序文件out5.txt中。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt5.vbp,窗体文件名保存为sjt5.frm。
选项
答案
Format()函数用于按指定格式返回字符串。在“统计”按钮的事件过程中,可用For循环语句和Mid()函数将文本榧中的字符逐一取出,通过Select Case语句分别判断其题为英文字母i,j,k,l,m或n(不区分大小写),并分别将结果统计剑6个变量中。最后在文本框中按指定的格式显示统汁结果,为使每个结果各占一行,可在每个结果后面加一个叫印换行符vbCrLf。 步骤1:建立界面,并设置控件的属性。程序中用到的控件及属性见表1和表2。 [*] 步骤2:分析并编写程序代码。 程序提供代码 程序结束 Option Explicit Private Sub Commandl_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#l Textl=S End Sub Private Sub Command2_Click() Dim str As String Dim nl 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(Textl) str=Mid(Textl,i,1) Select Case str Case“i”.“1” nl=nl+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+l End Select Next Textl=“字母i或l出现的次数为”&Format(nl,”00”)&vbCrLf Textl=Textl&“字母j或J现的次数为”&Format(n2,“00”)&vbCrLf Textl=Textl&”字母k或K出现的次数为”&Format(rL3,“00”)&vbCrLf Textl=Textl&“字母l或L出现的次数为”&Format(n4,“00’’)&vbCrlf Textl=Textl&“字母m或出现的次数为”&Format(n5,“00”)&vbCrlf Textl=Textl&“字母n或N出现的次数为”&Format(n6,“00”) End Sub Prirate Sub Command3_Click() Open“out5.txt” For Output As#1 Print#1.Textl.Text Close 1 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/hXQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
软件工程三要素包括方法、工具和过程,其中,【】支持软件开发的各个环节的控制和管理。
对下列二叉树进行中序遍历的结果是【】。
在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型和变量声明:PrivateTypePersonnameAsString*8mjotAsString+
执行下列语句s~Input=InputBox(”请输入字符串”,”字符串对话框”,”字符串”)将显示输入对话框。此时如果直接单击“确定”按钮,则变量strInput的内容是
设窗体上有一个列表框控件Listl,含有若干列表项。以下能表示当前被选中的列表项内容的是
(1)在考生文件夹下有一个工程文件sj3.vbp,窗体上有一个单选按钮数组,名称为Optionl,含4个单选按钮,它们的Index属性分别为O、1、2和3,标题依次为“Iteml”、“Itera2”、“Item3”和“Item4”,再画一个名称为Textl
(1)在名称为Forml的窗体上画一个名称为Textl的文本框,其高、宽分别为600、1800。请在属性框中设置适当的属性满足以下要求:Text1的字体为“隶书”,字号为“三号”;窗体的标题为“字体大小”,不显示最大化按钮和最小化按钮,如图4
在名称为Form1的窗体上有两个命令按钮(名称分别为COmmand1和command2、标题分别为“读取”和“保存”)和一个文本框(名称为Textl、MultiLine属性为True、ScrollBars属性为2)。要求程序运行后,如果单击“读取”按钮,则
随机试题
A.基本的(组成性)表达B.诱导表达C.阻遏表达D.协调表达管家基因的表达属于
"药品临床试验管理规范"规定,临床试验过程必须包括
有关宪法价值的说法下列选项中错误的是()
(2012年)下列关于消费税计税价格核定权限的说法,正确的有()。
下列项目中,不应确认为无形资产的是()。
下列协议中,属于路由协议的是()。
下列不属于哺乳动物下丘脑功能的是()
生态文明贵阳国际论坛2013年年会的主题为“建设生态文明:绿色变革与转型一——绿色产业、绿色城镇和绿色消费引领可持续发展”。()
下列对个人利益与社会利益的关系,表述正确的是()
在循环体中,可以使程序转主控制权,以便让操作系统处理其他的事件的语句是______。
最新回复
(
0
)