首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个文本框,名称为Text1(multiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文
在窗体上画1个文本框,名称为Text1(multiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文
admin
2016-06-30
96
问题
在窗体上画1个文本框,名称为Text1(multiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文件夹下的in5.txt文件中的所有英文字符放入Textl(MutiLine属性为True)中;单击“统计”按钮,找出并统计英文字母i,j,k,l,m,n(不区分大小写)各自出现的次数;单击“存盘”按钮,将字母i到n出现次数的统计结果依次存到考生目录下的顺序文件out5.txt中。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt5.vbp,窗体文件名保存为sjt5.frm。
选项
答案
步骤1:建立界面,并设置控件的属性。程序中用到的控件及属性见表1和表2。 [*] 步骤2:分析并编写程序代码。 程序提供代码 程序结束 参考答案 Option Explicit Private Sub Commandl_Click() Dim a As String Dim 8 As String Open App.Path&”\in5.txt”For Input As#1 Do While Not EOF(1) a=Input(1,#1) S=s&a Loop Close#1 Text1=S End Sub Private Sub Conunand2_Click() Dim str As String Dim n1 As Integer Dim n2 As Integer Dim n3 As Integer Dim n4 As Integer Dim n5 As Integer Dim n6 As Integer Dim i As Integer For i=l To Len(Text1) str=Mid(Text1,i,1) Select Case str Case"i",“I” n1=n1+1 Case"j","J" n2=n2+1 Case"k",“K” n3=n3+1 Case“l”.“L” n4=n4+1 Case“m”,“M” n5=n5+1 Case“n”,“N” n6=n6+1 End Select Next Text1=”字母i或I出现的次数为”&Format(n1,“00”)&vbCrLf Text1=Textl&”字母j或J出现的次数为”&Format(n2,”00”)&vbCrLf Text1=Text1&”字母k或K出现的次数为”&Format(n3,”00”)&vbCrLf Text1=Text1&”字母l或L出现的次数为”&Format(n4,”00“)&vbCrLf Text1=Text1&”字母m或M出现的次数为”&Format(n5,”00”)&vbCrLf Text1=Textl&”字母n或N出现的次数为”&Format(n6,”00”) End Sub Private Sub Command3_Click() Open"out5.txt"For Output As#1 Print#1.Text1.Text Close 1 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
Format()函数用于按指定格式返回字符串。
在“统计”按钮的事件过程中,可用For循环语句和Mid()函数将文本框中的字符逐一取出,通过Select Case语句分别判断其题为英文字母i,j,k,l,m或n(不区分大小写),并分别将结果统计到6个变量中。最后在文本框中按指定的格式显示统计结果,为使每个结果各占一行,可在每个结果后面加一个回车换行符vbCrLf。
转载请注明原文地址:https://kaotiyun.com/show/4lLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有下面的循环:i=1Do i=i+3 Printi LoopUntili>______程序运行后要执行3次循环体,则条件中i的最小值为
程序测试分为静态分析和动态测试。其中______是指不执行程序,而只是对程序文本进行检查,通过阅读和讨论,分析和发现程序中的错误。
一个控件在窗体上的位置由______和Top属性决定。
下列程序运行时输出的结果是PrivateSubForm_Click()Dimx x=Array("天天向上","清华大学","天上人间","程序设计") Fori=LBound(a,1)toUBound(a,1
在窗体上画一个名称为Text1的文本框,要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是()。
设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是
下面程序段的运行结果是()。PrivateSubForm_Click() ForI=3to1step-1 PrintSpc(10-I); Forj=1to2*I-1 print"*
在E-R图中,用来表示实体的图形是()。
设有数组声明语句:OptionBase1DimA(2,-1To1)以上语句所定义的数组A为______维数组,共有______个元素,第一维下标从______到______,第二维下标从______到______。下列选项
随机试题
被视为“近代中国开眼看世界之第一人”是( )
A.3′→5′B.5→3′C.N端→C端D.C端→N端DNA的合成方向是
与糖尿病相关的遗传性综合征包括
男性,患慢性粒细胞白血病3年,经干扰素+羟基脲治疗后脾脏缩小,外周血象正常,但近来不明原因发热,脾再次肿大,血象:Hb80g/L,血小板90×109/L,WBC20×109/L,骨髓中原始粒细胞38%,继续上述治疗无效。下列哪种情况最为可能
生产经营单位应当向从业人员如实告知作业场所和工作岗位存在的(),防范措施以及事故应急措施。
某平面任意力系向O点简化后,得到如图4-13所示的一个主矢F’B和一个主矩Mo,则该力系的最后简化结果为()。
下列主管税务机关对欠税的纳税人做出的行为中,符合《税收征收管理法》及有关政策规定的有()。
“音乐舞蹈起源于性的冲动,起源于恋爱”是()的说法。
已知x=zey+z确定函数z=z(x,y),则dz|(e,0)=________.
PresidentProsperAvrilhasbeenarrestedonchargeof______.
最新回复
(
0
)