首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,名称为Text1(可显示多行),然后再画三个命令按钮,名称分别为Cornmand1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图3—136所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in
在窗体上画一个文本框,名称为Text1(可显示多行),然后再画三个命令按钮,名称分别为Cornmand1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图3—136所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in
admin
2019-05-14
39
问题
在窗体上画一个文本框,名称为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全国计算机二级
相关试题推荐
当前文件夹中设有一个文本文件File1.txt,并有下面程序代码:PrivateSubCommand1_Click()DimchAsStringOpen"File1.txt"ForInputAs#1DoWhileNotEOF(
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimSAsInteger,NAsIntegerS=1DoS=(S+1)*(S+2)N=N+1LoopU
在名称为Form1的窗体上添加一个名称为Label1的标签,标签的宽和高分别为2000、300,有边框,并利用属性窗口设置适当的属性,使其标题“等级考试”居中显示,并使标签的外观如图所示。注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt1.vb
阅读下面程序代码:PrivateSubCommand1_Click()DimtempAsIntegera=Array(2,7,4,10,0,1,8,5,3,9,6)Fori=7To4Step-1Forj=3Toi-1If
软件设计中模块划分应遵循的准则是
对长度为n的线性表作快速排序,在最坏情况下,比较次数为
已知出租车行驶不超过4公里时一律收费10元。超过4公里时分段处理,具体处理方式为:15公里以内每公里加收1.2元,15公里以上每公里收1.8元。在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是:单击“输入”按钮,将弹出一个输入对话框,接收出租车
命令按钮、单选按钮、复选框都可以通过Picture属性在控件上显示图片,但需事先设置某一属性。该属性为
以下不可以作为“容器”的控件是
随机试题
条形码
关于肌力评定的说法不正确的是
原告对以下何种争议事实负有举证责任?如果X光片在本案作为证据,则该证据属于民事诉讼法规定的何种证据?
短路电流近似计算时假定的条件是()。
案例某日,某煤矿近百人分4个组下井作业:一个组到采煤工作面出煤,两个组掘进切眼,另外一个组去采煤面回风巷回收铁棚子。8时左右,回收组一行几人到达工作地点开始进行回收作业。完成回收任务往外走时,突然听到巨响,感觉出事了。他们根据冲击波方向判断,是采
下列各项中,属于审核记账员职责的有()。
期货交易所会员管理办法的内容应当包括( )。
亨利效应,指因接受虚假的信息或刺激产生了盲目的自信或积极的态度,从而表现出异乎寻常的正面效果。根据上述定义,下列属于亨利效应的是()。
民族精神集中体现了一个民族在一定的自然环境和历史条件下生存和发展的独特方式。反映了一个民族的心理特征、文化传统、精神风貌。是一个民族赖以生存和发展的精神支柱。大力弘扬民族精神具有重要的意义,主要体现在
假定在图片框Picture1中装入了一个图片,在程序运行中,为了清除该图片(注意,清除图片,而不是删除图片框),应采用的正确方法是( )。
最新回复
(
0
)