首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,名称为Text1(可显示多行),然后再画三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图3.136所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in5
在窗体上画一个文本框,名称为Text1(可显示多行),然后再画三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图3.136所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in5
admin
2019-06-20
68
问题
在窗体上画一个文本框,名称为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全国计算机二级
相关试题推荐
下列关于利用通用对话框产生的文件对话框的相关属性的描述中,错误的是
请根据以下各小题的要求设计visualBasic应用程序(包括界而和代码)。(1)在名称为Forml、标题为“标签”的窗体上画一个名称为Labell的标签,并设置适当属性以满足以下要求:①标签的内容为“计算机等级考试”;②标
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画两个文本框,其名称分别为Textl和Text2,内容分别为“文本框1”和“文本框2”,编写适当的事件过程。程序运行后,如果单击窗体,则
(1)在名称为Forml的窗体上画一个名称为lblPwd的标签,标题为“密令”;画两个文本框,名称分别为txtPwd、txtObj,都没有初始内容;再画三个命令按钮,名称分别为cmdShow、cmdHide、cmdCopy,标题分别为“显示”、“隐藏”、“
窗体上有一个名称为Option1的单选按钮数组,程序运行时,当单击某个单选按钮时,会调用下面的事件过程PrivateSubOption1_Click(IndexAsInteger)EndSub下面关于此过程的参数Index的叙述中正确的是(
执行下面的程序段后,变量S的值为()。S=5Fori=2.6To4.9Step0.6S=S+1Nexti
满足下列条件之一的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份,下面判断闰年的正确表达式是
下列运算符中,优先级别最低的是()。
下列运算符中,优先级别最低的是
随机试题
录用涉及国家安全、保密或者专门技术性很强的特殊职位的公务员,不宜进行公开考试,但须经______批准。
从网络的覆盖范围与规模分类,可以将网络分为()。
A.石膏、知母B.石膏、人参C.石膏、粳米D.石膏、牛膝E.石膏、寒水石(2005年第96,97题)属于桂苓甘露饮组成药物的是()
A.细胞毒性脑水肿B.血管源性脑水肿C.混合性脑水肿D.先有细胞毒性后转化为血管源性脑水肿E.脑水肿以脑灰质的肿胀甚于白质下列疾病多见于哪一种类型的脑水肿脑缺血、缺氧的初期
在国际贸易中,签订合同的基础是()。
同一财产法定登记的抵押权与质权并存时,抵押权人优先于质权人受偿。()
教师职业劳动的示范性
Onehundredyearsago,therewasacleardifferenceamongtownandcountry.Butthemotorcarhaschanged【S1】_________.
Childrenlivingwithsingleparentsencountermanyproblems.Theyaremore【C1】______stressfulexperiencesthanarechildrenlivi
Manyprivateinstitutionsofhighereducationaroundthecountryareindanger.Notallwillbesaved,andperhapsnotalldeser
最新回复
(
0
)