首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个文本框,名称为Text1(muhiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文件
在窗体上画1个文本框,名称为Text1(muhiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文件
admin
2018-09-19
29
问题
在窗体上画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全国计算机二级
相关试题推荐
假定窗体上有一个标签,名为Label。为了使该标签透明并且没有边框,则正确的属性设置为()。
将文本框的()属性设置为True时,文本框可以输入或显示多行文本,且会自动换行。
结构化程序设计中,下面对goto语句使用描述正确的是
有如下程序:PrivateSubCommand1_Click() DimiAsInteger,jAsInteger DimsumAsInteger n=1 Do j=1 Do sum=su
以下关于文件的叙述中,正确的是
表达式Sgn(15.6)+Int(-16.8)的值是
假定有以下循环结构:DoUntil条件表达式 循环体Loop则以下正确的描述是( )。
在软件开发中,需求分析阶段可以使用的工具是( )。
设循环队列为Q(1:m),其初始状态为front=rear=m。经过一系列入队与退队运算后,front=30,rear=10。现要在该循环队列中作顺序查找,最坏情况下需要比较的次数为
一个运动队有多个队员,一个队员仅属于一个运动队,一个队一般都有一个教练,则实体运动队和队员的联系是
随机试题
既能用于各种疟疾,又能用于热毒血痢的药物是
下列除哪项外,均是玉门的别称
阀控式铅酸蓄电池,容量在300Ah及以下的可组成成套装置。()
水泥稳定土材料质量标准主要包括()。
下列材料中,可用作膨胀缝填充材料的有()。
个人进行工商登记或者办理其他执业手续后。可以凭有关单证办理委托具有对外贸易经营权的企业代理()项下外汇资金收付、划转及结汇。
新年最想得到的礼物是什么?
Itisoftenobservedthattheagedspendmuchtimethinkingandtalkingabouttheirpastlives,【1】aboutthefuture.Theseremini
总线通常包含地址总线、数据总线和控制总线,其中【】生总线的位数决定了总线的寻址能力。
A、Heisgoingtowriteapaper.B、Heisgoingtobuyatypewriter.C、Heisabouttoreadthepaperagain.D、Heisabouttoleave
最新回复
(
0
)