首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,名称为Textl(可显示多行),然后再画三个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为”读数”、”统计”和”存盘”,如图2.5所示。程序的其功能是:单击”读数”按钮,则把考生目录下的in5.t
在窗体上画一个文本框,名称为Textl(可显示多行),然后再画三个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为”读数”、”统计”和”存盘”,如图2.5所示。程序的其功能是:单击”读数”按钮,则把考生目录下的in5.t
admin
2019-03-14
26
问题
在窗体上画一个文本框,名称为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/RBUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码:PrivateSubCommand1Click()Dimn0AsIntegerDima,bAsIntegera=InputBox(“Enterthe
有如下的一个函数过程:Functionfn(ByValnumAsLong)DimkAsLongk=1:hum=Abs(num)DoWhilesumk=k*(numMod10)num=hum\10Loopfn=kEnd
在数据库系统的组织结构中,下列()映射把用户数据库与概念数据库联系了起来。
在窗体上有一个名为Text1的文本框和一个名为Commandl的命令按钮,并编写有如下事件过程:程序运行后,单击命令按钮,在文本框中显示的是()。
下列不能打开菜单编辑器的操作是()。
下列可以打开立即窗口的操作是()。
设:a=12,b=5,c=7,表达式x=(a\c+aModb)+Int(13/5)的值是
下列二叉树描述中,正确的是()。
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有三个标签、三个文本框和两个命令按钮,均使用默认名称。程序的功能是:①如果单击“读数据”命令按钮,则把考生文件夹下in5.dat文件中两组已按升序方式排列的数(每组30个数)分别读入数组A和B
当用()方式打开文件时,如果对文件进行写操作,则写入的数据附加到原文件的后面。
随机试题
企业竞争战略要解决的核心问题是,如何通过确定顾客需求、竞争者产品及本企业产品这三者之间的关系,来奠定本企业产品在市场上的特定地位并维持这一地位。()
甲被指控和他人一同犯有抢劫罪,开庭时,本案的其他被告人都委托了辩护人,只有甲因家境贫困没有委托辩护人,据此法院为其指定了辩护人乙,但指定后甲表示乙年老体衰,不能够有效的帮助自己辩护,主张自行辩护,则本案应当如何处理?()
[2014年,第62题]图5.3-12示冲床在钢板上冲一圆孔,圆孔的最大直径d=100mm,钢板的厚度t=10mm,钢板的剪切强度极限τb=300MPa。需要的冲压力F是()。
矿业工程锚杆安装质量的检测内容一般包括()。
张某在甲施工公司连续工作满8年;王某与乙监理公司已连续订立2次固定期限劳动合同,但因公负伤不能从事原工作;李某到丙公司工作2年,并被董事会任命为总经理;赵某在丁公司累计工作了20年,但期间曾离开过丁公司,则应当订立无固定期限劳动合同的是()。
根据《指导外商投资方向规定》的规定,外商投资企业的投资项目分为鼓励、允许、限制和禁止四类。禁止类外商投资项目是()。
按照保险对象的不同可将保险分为()。
19世纪60——90年代的洋务运动是中国逐渐汇人到工业文明大潮中的重要事件。洋务运动中,洋务派兴办同文馆等新式学堂,对中国历史发展起到的主要作用是()。
Weareonthevergeofdestroyingourozonelayer.Weareclosetodestroyinghundredsofexquisiteanimalspecies.Moreover,we
Bettingagainstanindustrywithaddictsforcustomerscarriesobviousrisks.【C1】______theseareuncertaintimesforBigTobacco
最新回复
(
0
)