首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个文本框,名称为Text1(muhiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文件
在窗体上画1个文本框,名称为Text1(muhiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文件
admin
2018-09-19
30
问题
在窗体上画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://kaotiyun.com/show/8EFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列循环能正常结束的是()。
设x=4,y=8,z=7,则以下表达式的运算结果是()。 xz)Orz
在窗体上有一个名称为Command1的命令按钮,并编写有如下事件过程:PriVateSubCommand1_Click()Move500,500EndSub 程序执行时,单击命令按钮,实现的功能是()。
结构化程序设计中,下面对goto语句使用描述正确的是
(1)在考生文件夹下有一个工程文件sjt3.vbp程序运行时,单击窗体则显示如图所示的图案。请去掉程序中的注释符,把程序中的?改为正确的内容。注意:不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。(2)在考生文件夹
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:PrivateSubCommand1_Click()Dimn()AsIntegerDima,bAsIntegera=Inpu
下列叙述中正确的是
表达式Sgn(15.6)+Int(-16.8)的值是
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为Sjt3.frm,在窗体上有一个命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出数组arr中每个元素与其下标相除所得的和,并在文本框中显示出来。在窗体的代码窗口中,已给出了部分程
VisualBasic中的"启动对象"是指启动VisualBasic应用程序时,被自动加载并首先执行的对象。下列关于VisualBasic"启动对象"的描述中,错误的是( )。
随机试题
弘扬和培育以改革创新为核心的时代精神有什么现实意义?
维生素B12缺乏的最主要的原因是
在安装铝合金管道时,应选用保温材料是()。
为个人学习、研究使用他人已经发表的作品的,不需要支付报酬,但应当指明()。
关于房屋租赁合同的说法,正确的是()。
学生在看完《哈利·波特》系列丛书后,头脑中出现哈利·波特的形象属于()。
[*]
Atthispoint,mostofusgenerallyhaveaclueaboutthebasicsofstayingingoodhealth—eatwell,exercise,don’tdrinktoom
下列关于结构化设计与面向对象设计的叙述中,不正确的是(44)。
GDB是GNU开发工具套件中调试程序的工具,其装入需要调试的可执行文件命令是__________【77】命令,终止当前被调试程序运行的命令是__________【78】命令。
最新回复
(
0
)