首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,名称为Text1(可显示多行),然后再画三个命令按钮,名称分别为Cornmand1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图3—136所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in
在窗体上画一个文本框,名称为Text1(可显示多行),然后再画三个命令按钮,名称分别为Cornmand1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图3—136所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in
admin
2019-05-14
34
问题
在窗体上画一个文本框,名称为Text1(可显示多行),然后再画三个命令按钮,名称分别为Cornmand1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图3—136所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in5.txt文件中的所有英文字符放入Text1(可多行显示);单击“统计”按钮,找出并统计英文字母i、j、k、1、m、n(不区分大小写)各自出现的次数;单击“存盘”按钮,将字母i~n出现次数的统计结果依次存到考生目录下的顺序文件out5.txt中。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt5.vbp,窗体文件名为sjt5.tim。
选项
答案
【操作步骤】 步骤1:新建一个“标准EXE”工程,如表4—80所示,在窗体中画出控件并设置其相关属性。 [*] 步骤2:打开代码编辑窗口,编写相应事件过程。 参考代码: Option Base 1 Dim sum(6) As Integer Private Sub Command1_Click() pen App.Path&"\in5.txt"For Input At #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 "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_Click() Open App.Path&"\out5.txt"For Output As #1 For i=1 To 6 Print #1,sum(i) Next i Closee #1 End Sub 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/8HUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在名称为Form1的窗体上画一个名称为Image1的图像框,并通过属性窗口为其装入考生文件夹中的图标文件CARS.ico;再画一个名称为Timer1的计时器,一个名称为Command1、标题为“开始”的命令按钮,如图所示。要求:通过属性窗口设置适当的属性
在名称为Form1,标题为“组合框”的窗体上画1个名称为Combo1的组合框,利用属性窗口设置适当属性使其在程序刚开始运行时的界面如图所示。注意:存盘时必须存放在考生文件夹下,工程文件名为sit1.vbp,窗体文件名为sit1.frm。
下列关于工程的叙述中错误的是()。
有如下函数:PrivateFunctionfun(xAsInteger,yAsInteger)AsIntegerDimk%.n%n=IIf(y<0,-y,y)Fork=1Tonx=x-Sgn(y)Nextfun=XE
软件设计中模块划分应遵循的准则是
已知出租车行驶不超过4公里时一律收费10元。超过4公里时分段处理,具体处理方式为:15公里以内每公里加收1.2元,15公里以上每公里收1.8元。在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是:单击“输入”按钮,将弹出一个输入对话框,接收出租车
在考生文件夹下有一个工程文件sjt4.vbp,其窗体上有一个计时器和两个命令按钮。计时器Timer1的初始状态为不可用;2个命令按钮的初始标题分别是“演示”和“退出”。请添加一个名称为Label1,且能根据标题内容自动调整大小的标签,其标题为“Visual
对于某些控件,只要将其Style属性设置为1,则可以在该控件上使用Picture属性显示图片。以下不具备这一使用规则的控件是
以下不能设置Picture属性的控件是
在名称为Form1的窗体上添加一个名称为Picture1的图片框(PictureBox),高、宽均为1000。在图片框内再添加一个有边框的名称为Imagel的图像框(.Image)。并通过属性窗口把考生文件夹下的图标文件Point11(香蕉图标)装入图像框
随机试题
中国共产党为总结经验教训,明确工作方向召开的“七千人大会”是在()
计算机传染病毒的可能途径是()。
患者李某,女性,30岁。咯血反复发作一个月,血色鲜红,咳呛气急,痰少质黏色黄,午后潮热,五心烦热,盗汗,口干多饮,颧红,消瘦,月经不调。舌红绛少津液,苔薄黄,脉细数。其治疗应首选的方剂是
地龙中具有溶解血栓作用的成分是迄今为止世界上最强的凝血酶特效抑制剂是
下列选项中可以作为评价行政活动合法性准则的有:()
甲于某晚9时驾驶货车在县城主干道超车时,逆行进入对向车道,撞上乙驾驶的小轿车,乙被卡在车内无法动弹,乙车内黄某当场死亡、胡某受重伤。后查明,乙无驾驶资格,事发时略有超速,且未采取有效制动措施(事实一)。甲驾车逃逸。急救人员5分钟后赶到现场,胡某因伤势过重
微分方程y’=2xy2的通解为()。
我国《票据法》规定,()不得更改,更改的票据无效。
某奶酪加工厂(一般纳税人),属于农产品增值税进项税额核定扣除试点范围企业。2014年6月期初库存鲜奶350升,期初平均购买单价为4元/升;当月又从农民手中购入鲜奶20000升,税务机关批准使用的收购凭证上注明收购金额为90000元。该加工厂当月生产奶酪20
Cigarettesmokingisagreathealth______andmayleadtofataldiseases.(2004年武汉大学考博试题)
最新回复
(
0
)