首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,名称为Textl(可显示多行),然后再画三个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为”读数”、”统计”和”存盘”,如图2.5所示。程序的其功能是:单击”读数”按钮,则把考生目录下的in5.t
在窗体上画一个文本框,名称为Textl(可显示多行),然后再画三个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为”读数”、”统计”和”存盘”,如图2.5所示。程序的其功能是:单击”读数”按钮,则把考生目录下的in5.t
admin
2013-10-06
57
问题
在窗体上画一个文本框,名称为Textl(可显示多行),然后再画三个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为”读数”、”统计”和”存盘”,如图2.5所示。程序的其功能是:单击”读数”按钮,则把考生目录下的in5.txt文件中的所有英文字符放入Textl(可多行显示);单击”统计”按钮,找出并统计英文字母i、j、k、l、m、n(不区分大小写)各自出现的次数;单击”存盘”按钮,将字母i~n出现次数的统计结果依次存到考生目录下的顺序文件out5.st中。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt5.vbp,窗体文件名为sjt5.frm。
选项
答案
步骤1:新建一个”标准EXE”工程,如表3-4在窗体中画出控件并设置其相关属性。 [*] 步骤2:打开代码编辑窗口,编写相应事件过程。 参考代码: Option Base 1 Dim sum(6) As Integer Prirate Sub Command:C1ick( ) Open App.Path&”\in5.txt”For Input As#1 Text1.Text=Input(LOF(1),#1) Close#1 End Sub Private Sub Command2 C1ick( ) For i=1 To 6 sum(i)=0 Next i If Len(Textl.Text)=0 Then NsgBox”请先使用_”读数”_功能!” Else For i=1 To Len(Textl.Text) c=LCase(Mid(Textl.Text,i,1)) Select Case c Case”i” SUm(1)=Sum(1)+1 Case”j” Sum(2)=sum(2)+1 Case”k” sum(3)=sum(3)+1 Case”1” sum(4)=sum(4)+1 Case”m” sum(5):sum(5)+1 Case”n” sum(6)=sum(6)+1 End Select Next i End If End Sub Private Sub Command3 C1ick( ) Open App.Path&”\out5.txt”For Output As#1 For i=1 To 6 Print #1,sum(i) Next i Close #1 End Sub 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/zhQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下叙述中不正确的是______。
通用过程可以放在标准模块中,也可以放在窗体模块中,而______只能放在窗体模块中,不同模块中的过程(包括事件过程和通用过程)可以互相调用。
软件设计包括软件的结构、数据接口和过程设计,其中软件的过程设计是指______。
软件调试的目的是______。
下面概念中,不属于面向对象方法的是______。
软件开发的结构化设计(SD)方法中,全面指导模块划分的最重要原则是______。
软件结构是软件模块间关系的表示,下列术语中,______不是对模块间关系的描述。
在树中,一个结点的直接子结点的个数称为该结点的【】。
随机试题
在医院,每个医生只属于某一个诊疗科,医生同一天可为多位患者看病,而一名患者可在多个科室治疗。则实体医生和患者之间的联系是
对领导者抉择的基本要求包括
外邪侵袭,损伤脉络而引起出血,最为多见的邪气是
氧苷按苷元不同可分为
甲、乙、丙均系个体经营者,甲因从乙处进货而拖欠其,20万元货款,乙又因借贷而拖欠丙20万元,现离借款到期日还有4个月,乙在征得甲、丙同意后,决定以汇票结清他们之间的债权债务关系,乙作出票人,甲做付款人,丙做收款人,票据金额20万元,出票日后4个月付款,甲与
己公司是一家上市公司,该公司2014年末资产总计为10000万元,其中负债合计为2000万元。该公司适用的所得税税率为25%。相关资料如下:资料一:预计已公司净利润持续增长,股利也随之相应增长。相关资料如下表所示:资料二:己公司认为2014年的资本结
根据行政职权的产生方式,行政主体可以划分为()。
我们是跟老师一起去了颐和园的。
某些资产阶级思想家认为,阶级的出现是由于人们在社会生产组织中分为“组织者”和“执行者”的结果,这种“分工论”的错误在于()
Accordingtothewriter,whatthesocietyexpectsofeducationistoturnoutpeoplewho______.IfyouareasgiftedasBernar
最新回复
(
0
)