首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,名称为Text1(可显示多行),然后再画三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图3—136所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in5
在窗体上画一个文本框,名称为Text1(可显示多行),然后再画三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图3—136所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in5
admin
2017-03-27
22
问题
在窗体上画一个文本框,名称为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 Base1 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=1To6 sum(i)=0 Next i If Len(Text1.Text)=0Then MsgBox"请先使用“读数”功能!" ElSe For i=1To 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 i End If End Sub Private Sub Command3_Click() Open App.Path&"\out5.txt"For Output As#1 For i=1To6 Print#1,sum(i) Next i Close#1 End Sub 步骤3:按要求将文件保存至考生文件夹中。
解析
程序设计思路:在“读数”按钮的单击事件过程中,用Open语句以Input方式打开数据文件in5.txc,并用Input()函数读出所有字符后显示在文本框中;在“统计”按钮的单击事件过程中,通过For循环用Mid函数逐一取出文本框中的字符并转换成小写,用Select Case语句对取出的字符进行检查,并用窗体数组变量sum(1)~sum(6)记录字母i、j、k、l、m、n出现的次数。
在“存盘”按钮的单击事件过程中,用Open语句以Output方式打开数据文件out5.txt,并通过For循环用Print#方法逐一将数组中的元素存入该文件。
转载请注明原文地址:https://kaotiyun.com/show/5hGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()a$="321":b$="abc"Forj=1To5PrintMid$(a$,6-j,1)+Mid$(b$,
下列程序段的执行结果为______。A=0:B=0ForI=-1To-2Step-1ForJ=1To2B=B+1NextJA=A+1
能够获得一个文本框中被选取文本的内容的属性是
在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:PrivateSubCommand1_Click()strText=InputBox("请输入"
下列______是Single型变量。
假定已经在菜单编辑器中建立了窗体的弹出式菜单,其顶级菜单的名称为a1,其“可见”属性为False,则程序运行后,可以同时响应鼠标左键单击和右键单击的事件过程是______。
文本框控件最多能处理______个字节。
在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程;PrivateSubCommand1_Click()a$="softwareandhardware"b$=Right(a$,8)
在窗体上有三个控件:名称为Label1的标签控件、名称为Text1的文本框控件和名称为Hscroll1的水下滚动条控件。程序的功能是通过滚动条移动Label1,并把滚动条的值显示在文本框中。滚动条的值作为Label1的Left属性。程序运行时的界面如右图所
下列关于栈的描述中错误的是()。
随机试题
A.风门B.丰隆C.阴谷、关元D.气海肾气虚所致的哮喘除选主穴外还可配用
患者,男,58岁。因结核性心包积液来院。患者2天来发热,呼吸困难明显加重,不能平卧,下肢水肿。查体:半卧位,喘息状,血压82/70mmHg,脉搏112次/分,呼吸22次/分,口唇轻绀,颈静脉明显怒张,心脏向两侧扩大,心音遥远,可触及奇脉,肝肋下4.0cm,
设备监造与施工监理的不同点包括()。
适筋梁正截面受力分析中,正常使用极限状态变形和裂缝宽度的计算在第( )阶段。
2017年4月,位于某市某镇某村的村委会经镇政府同意,在本村荒山开办一采矿场,随后承包给了村民沈某、孔某经营。因二人不交纳第二年的承包费,村委会在请镇政府出面协调未果的情况下,请该县矿产局进行干预。县矿产局调查后认为,该采矿场未依法办理采矿许可证,村委会不
对会议主持人的语言要求不包括()。
简述生产力对教育的制约作用。
在人类社会的发展史上,经历了三次科技革命,其标志为()。
(2013年真题)常言道:“不知者,不为罪。”请结合我国刑法学中的认识错误理论加以辨析。
据某地区统计,今年中小学生中肥胖学生约占10%,而且肥胖学生人数正在以8%的速度增长。假设近年中小学生的总量变化不大,据此我们可以推算出,明年该地区中小学生中肥胖学生的比例约为(28)。
最新回复
(
0
)