首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,名称为Text1(可显示多行),然后再画三个命令按钮,名称分别为Command1、Command2和Cornmand3,标题分别为“读数”、“统计”和“存盘”,如图3.67所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in5
在窗体上画一个文本框,名称为Text1(可显示多行),然后再画三个命令按钮,名称分别为Command1、Command2和Cornmand3,标题分别为“读数”、“统计”和“存盘”,如图3.67所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in5
admin
2019-03-14
21
问题
在窗体上画一个文本框,名称为Text1(可显示多行),然后再画三个命令按钮,名称分别为Command1、Command2和Cornmand3,标题分别为“读数”、“统计”和“存盘”,如图3.67所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in5.txt文件中的所有英文字符放入Text1(可多行显示);单击“统计”按钮,找出并统计英文字母i、i、k、1、m、n(不区分大小写)各自出现的次数;单击“存盘”按钮,将字母i~n出现次数的统计结果依次存到考生目录下的顺序文件out5.txt中。
注意:存盘时必须存放在考生文件夹下,工程文件名为sit5.vbp,窗体文件名为sjt5.frm。
选项
答案
【操作步骤】 步骤1:新建一个“标准EXE”工程,如表4.39所示,在窗体中画出控件并设置其相关属性。 [*] 步骤2:打开代码编辑窗口,编写相应事件过程。 参考代码: Optlon BaSe 1 Dim sum(6)As Integer Private Sub Commandl C1iCk() Open App.Path&“\in5.txt”For Input As#1 Text 1.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(Textl.Text)=0 Then MsgBox“请先使用“读数”功能!” 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 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:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/tsUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一命令按钮和一文本框,其名称分别为Commandl和Text1,然后编写如下程序:FunctionFun(xAsInteger,YAsInteger)AsIntegerFun=IIf(x
以下关于VB的叙述中,错误的是
工程中有Form1、Form2两个窗体(Forml中有文本框Textl;Form2中有Text1文本框和Command1命令按钮)。Form1是启动窗体。在这些模块中编写下面的程序代码:Form1中的代码如下:PrivateSUbText1_Db
能够产生1到50之间(含1和50)随机整数的表达式是
在标准模块中,将a定义为全局整型变量的语句是
以下能够设置控件焦点的方法是
若在窗体模块的声明部分声明了如下自定义类型和数组PrivateTyperecCodeAsInteger:CaptionAsStringEndTypeDimarr(5)Asrec则下面的输出语句中正确的是
为把圆周率的近似值3.14159存放在变量pi中,应该把变量pi定义为
在窗体上画一个命令按钮和一个文本框,其名称分别为Commandl和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:PrivateSubCommandlClick0a=InputBox(“Enteraninteger”):b
在窗体Form1上放一个名为Text1的文本框和一个名为Command1的命令按钮,然后编写一个事件过程。要求程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“VB等级考试二级”。以下能正确实现上述操作的事件过程是()。
随机试题
Itwasalmostdarkinthestreet______afewspotlights.
现代教育派的主要代表人_______的主要著作是《民本主义与教育》。
《侵权责任法》规定完全民事行为能力人对自己的行为暂时没有意识或失去控制造成他人损害的,应当承担侵权责任。下列不应承担的情形是()。
下列关于规章制定程序的说法不正确的是:()
()是指团队生存、改进和适应变化着的环境的能力。
申请认定教师资格者的普通话水平测试等级标准要在_______以上。
阅读下文字,完成以下问题。莫斯科谢切诺夫医学研究院近日在研究二氧化碳如何参与人和动物生命活动方面取得突破。该医学研究院的专家们在研究中发现,三氧化碳与动物生命活动密切相关,即它能抑制包括人在内的所有动物细胞中活性氧的形成。这是迄今为止二氧化碳一个[
下列选项中不属于网页浏览器的是()。
Therehavebeenseveralnewevents______totheprogramforthe2008BeijingOlympicGames.
I’vealreadytoldyouthatI’mgoingtobuyit,______.
最新回复
(
0
)