首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,名称为Text1(可显示多行),然后再画三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图3.136所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in5
在窗体上画一个文本框,名称为Text1(可显示多行),然后再画三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图3.136所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in5
admin
2019-06-20
64
问题
在窗体上画一个文本框,名称为Text1(可显示多行),然后再画三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图3.136所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in5.txt文件中的所有英文字符放入Text1(可多行显示);单击“统计”按钮,找出并统计英文字母i、j、k、l、m、n(不区分大小写)各自出现的次数;单击“存盘”按钮,将字母i~n出现次数的统计结果依次存到考生目录下的顺序文件out5.txt中。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt5.vbp,窗体文件名为sjt5.frm。
选项
答案
步骤1:新建一个“标准EXE”工程,如表4.80所示,在窗体中画出控件并设置其相关属性。 [*] 步骤2:打开代码编辑窗口,编写相应事件过程。 参考代码: Option Base 1 Dim sum(6)As Integer Private Sub Command1_Click() pen App.Path &"\in5.txt"For Input As #1 Text1.Text=Input(LOF(1),#1) Close #1 End Sub Private Sub Command2_Click() For i=1 To 6 sum(i)=0 Next i If Len(Text1.Text)=0 Then MsgBox"请先使用“读数”功能!" Else For i=1 To Len(Text1.Text) C=LCase(Mid(Text1.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"l" sum(4)=sum(4)+1 Case"m" sum(5)=sum(5)+1 CaSe"n" sum(6)=sum(6)+1 End Select Next j End If End Sub PriVate Sub Command3_Click() 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:按要求将文件保存至考生文件夹中。
解析
程序设计思路:在“读数”按钮的单击事件过程中,用open语句以Input方式打开数据文件in5.txt,并用Input()函数读出所有字符后显示在文本框中:在“统计”按钮的单击事件过程中,通过For循环用Mid函数逐一取出文本框中的字符并转换成小写,用Select Case语句对取出的字符进行检查,并用窗体数组变量sum(1)~sum(6)记录字母i、i、k、l、m、n出现的次数。
在“存盘”按钮的单击事件过程中,用Open语句以Output方式打开数据文件out5.txt,并通过For循环用Pnnt#方法逐一将数组中的元素存入该文件。
转载请注明原文地址:https://kaotiyun.com/show/g0Up777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在考生文件夹下有一个工程文件vbsi3.vbp,相应的窗体文件名为vbsi3.frm。在窗体上有一个命令按钮,其名称为cmdAdd,标题为“添加”;有一个文本框,名称为txtSentense,初始内容为空白;有一个列表框,名称为lstWord。程序运
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画两个文本框,其名称分别为Textl和Text2,内容分别为“文本框1”和“文本框2”,编写适当的事件过程。程序运行后,如果单击窗体,则
下面正确使用动态数组的是()。
下列叙述中错误的是()。
下列可作为VisualBasic变量名的是()。
设在窗体上有一个名称为Check1的复选框数组,并有以下事件过程:PrivateSubCheck1_Click(IndexAsInteger)…EndSub则下面叙述中错误的是
在软件设计中,不属于过程设计工具的是
下列运算符中,优先级别最高的是
随机试题
Happinesscanbedescribedasapositivemoodandapleasantstateofmind.Accordingtorecentpolls(民意测试),sixtytoseventype
A.睑板腺感染B.睫毛毛囊及其附属感染C.无菌性肉芽肿型炎症D.维生素B2缺乏E.皮脂腺溢出眦部睑缘炎
下列提法不正确的是:
根据《中华人民共和国物权法》的规定,债务人或者第三人有权将()出质。
下列关于认股权证和以股票为标的物的看涨期权的表述中,正确的有()。
北京史家胡同小学开展“小博士”工程,利用课余时间,少则两周,多则三四个月,自己研究探索一个专题或完成一部童话作品。此活动的开展体现了()。
个性结构中最活跃的因素是指()
发起者无须花钱,在某种出版媒体上发布重要商业新闻,或者在广播、电视中和银幕、舞台上获得有利的报道、展示、演出用这种非人员形式来刺激目标顾客对某种产品、服务或商业单位的需求。这种销售策略是()。
Thenewspaperreport______withtheaccountoftheaccidentontheradio.
IntheUnitedStates,whenyougetyourpaycheckattheendofthefirstpayperiodatanewjob,it’salwaysinterestingtosee
最新回复
(
0
)